Witam, czy istnieje jakiś sposób automatycznego wystawienia dok MM+ do MM- ?
Dokument MM- tworzę za pomocą kodu i działa poprawnie - chciałbym aby równocześnie tworzył się dokument MM+ a między dokumentami istniało powiązanie tak jak za pomocą przycisku na dokumencie "Wystaw dokument przesunięcia"
Kod:
IORec dok_mg
string TypDokumentu = "MM-"
string Seria = "sMM-"
string KodMagazynu = "MAXSTAL"
string KodKontrahenta = "KOMNINO"
string sKodtw = "TGWC000300X0300XK0000S235JRN---TC1G4SERU"
string sIlosc = "3"
int czyWystawiony
long sub WystawDokMg()
int i, ok
long id_dk_buf
dok_mg.Clear()
i=1
ok = 1
// for i=1 to i>size(rec_tw_wz)
// if rec_tw_wz(i).ilosctw != 0 then ok = 1 : exit
// next i
if ok == 1 then
//dok_mg.BeginSection("DokumentMG")
dok_mg.SetField("typDk", TypDokumentu)
dok_mg.SetField("seria", Seria)
dok_mg.SetField("dataWystawienia", data() )
dok_mg.SetField("dataOperacji", data() )
dok_mg.SetField("numer_obcy","" )
dok_mg.SetField("dzial", KodMagazynu)
dok_mg.BeginSection("DaneKh")
dok_mg.SetField("KhKod",KodKontrahenta)//Kod_kontrahenta(rec_dok_wz(1).idkhdokwz) )
//dok_mg.SetField("Khnazwa", )
//dok_mg.SetField("Khadres", )
//dok_mg.SetField("Khnip", )
//dok_mg.SetField("Khkodpocz", )
//dok_mg.SetField("Khmiasto", )
dok_mg.EndSection()
//dok_mg.SetField("NumerZnacznika",(using "%d",GetField(dk, "znaczniki") ) )
//dok_mg.SetField("Notatka", )
//dok_mg.SetField("Opis", GetField(dk, "opis"))
// for i=1 to i>1
// if rec_tw_wz(i).ilosctw != 0 then
dok_mg.BeginSection("Pozycja dokumentu")
dok_mg.SetField("Kod", (sKodtw) )
dok_mg.SetField("Lp", (using "%d",i) )
dok_mg.SetField("Ilosc", (sIlosc) )
// dok_mg.SetField("Wartosc",(using "%f",rec_tw_wz(i).wartnettotw) )
dok_mg.EndSection()
// endif
// next i
//dok_mg.EndSection()
id_dk_buf = ImportMg(dok_mg)
message using "%i",id_dk_buf
if id_dk_buf != 0 then
UtworzDokumentMagazynowy(id_dk_buf,1,1)
czyWystawiony = 1
if WystawDokumentMagazynowy (id_dk_buf) != 0 then czyWystawiony = 2
endif
else
czyWystawiony = 3
endif
endsub
