Witam :)
Mam dwa problemy:
1. Przerabiam kod raportu zlecenie, który wyświetla mi składniki receptury i kod który przerabiam pobiera dane idealnie na wybranym zleceniu tylko poprzez opcje drukuj, a chciałbym aby raport był dostępny ze swojego przycisku dokładnie jak na obrazku poniżej.Poniżej przedstawiam Kod. Nie wiem jak się dostać do tych incudow, nie mogę ich nigdzie znaleźć...
Kod:
#define OK 2
#define ANULUJ -1
#include "Wydruki - include"
int GRAF = !Val( Arg0 )
long iddok = Val( Arg1 )
int nTyp,bOpis,bNotatka,bPokaz,i,x,y,grayTrigger
int bb,bbc,bbl,bbr,nb,nbbl,nbbc,nbbr,sf,sc,sc2,tytc,tl,tc,tr,kr,tb,tbl,tbc,tbr,nc,tblH,tbl1,tblF,lp,err,bmpbtn
int bl,bc,br,nbl,nbc,nbr,nl,nr,NrDokSzer
int l12,c12,r12,w12,w10,w17,nPom,nPom2,nPom3
string sProdukty, sSkladniki, sNagP, sNagS
string sNotatka, sOpis
string sTypZl
Int stTab, stTabl, stTabr, tablRcp, tablZl, tablRcpSz
Record defrr
String kol1[100]
String kol2[50]
EndRec
defrr TblRcp(100)
dispatch xDocument
dispatch xSkladniki
dispatch xSkladnik
dispatch xTowar
dispatch xKontrahent
string sSekcja = GetReportName()
string sSekcjaIn = sSekcja
#include "Nagłówek i stopka raportu I"
#include "Ustawienia grafiki"
#include "Dokumenty zlecenia - ustawienia"
if !(xDocument=GetObjById("BZlecenie",iddok)) then Message "Nie można załadować dokumentu o ID="+(using "%d",iddok)+"." : error ""
xSkladniki = xDocument.Get("stanSkladnikow")
xKontrahent = GetObjByKod("BKontrahent", xdocument.kh.kod)
int iIle = xSkladniki.Count
if bSkladniki then
for i=1 to i>iIle
xSkladnik = xSkladniki.item(i)
xTowar = GetObjByKod("BTowar", xSkladnik.tw.kod)
TblRcp(i).kol1 = xTowar.kod
TblRcp(i).kol2 = xTowar.nazwa
print at 0, #Y+40; xTowar.kod
print at #X+20, #Y; xTowar.nazwa
next i
end if
#define ANULUJ -1
#include "Wydruki - include"
int GRAF = !Val( Arg0 )
long iddok = Val( Arg1 )
int nTyp,bOpis,bNotatka,bPokaz,i,x,y,grayTrigger
int bb,bbc,bbl,bbr,nb,nbbl,nbbc,nbbr,sf,sc,sc2,tytc,tl,tc,tr,kr,tb,tbl,tbc,tbr,nc,tblH,tbl1,tblF,lp,err,bmpbtn
int bl,bc,br,nbl,nbc,nbr,nl,nr,NrDokSzer
int l12,c12,r12,w12,w10,w17,nPom,nPom2,nPom3
string sProdukty, sSkladniki, sNagP, sNagS
string sNotatka, sOpis
string sTypZl
Int stTab, stTabl, stTabr, tablRcp, tablZl, tablRcpSz
Record defrr
String kol1[100]
String kol2[50]
EndRec
defrr TblRcp(100)
dispatch xDocument
dispatch xSkladniki
dispatch xSkladnik
dispatch xTowar
dispatch xKontrahent
string sSekcja = GetReportName()
string sSekcjaIn = sSekcja
#include "Nagłówek i stopka raportu I"
#include "Ustawienia grafiki"
#include "Dokumenty zlecenia - ustawienia"
if !(xDocument=GetObjById("BZlecenie",iddok)) then Message "Nie można załadować dokumentu o ID="+(using "%d",iddok)+"." : error ""
xSkladniki = xDocument.Get("stanSkladnikow")
xKontrahent = GetObjByKod("BKontrahent", xdocument.kh.kod)
int iIle = xSkladniki.Count
if bSkladniki then
for i=1 to i>iIle
xSkladnik = xSkladniki.item(i)
xTowar = GetObjByKod("BTowar", xSkladnik.tw.kod)
TblRcp(i).kol1 = xTowar.kod
TblRcp(i).kol2 = xTowar.nazwa
print at 0, #Y+40; xTowar.kod
print at #X+20, #Y; xTowar.nazwa
next i
end if
link tutaj do obrazka
2.Chciałbym, aby mój raport dodawał do zlecenia dokument wydania do produkcji o określonej nazwie( tak jak na obrazku). Chciałbym, by dokument zawierał składniki receptury. Dokładnie interesuje mnie jak dodać taki dokument do zlecenia i jak do tego dokumentu dodać składniki receptury. Wiem, że można kliknąć "Utwórz dokument wydania do produkcji" ale chciałbym, aby to wszytko odbywało się w moim raporcie za jednym kliknięciem.
link do obrazka
Potrafię sobie filtrować dane z bazy danych wyciągać interesujące mnie pola itd. ale mam problemy z takimi zagadnieniami jak powyżej, dlatego prosiłbym o podpowiedzi i czy w ogóle jest to wykonalne ...