Witam,
Próbuje wystawic dokument mg za pomocą IoRec (Hadel forte 2014)
Kod:
long sub WystawDokWz()
int i, ok
long id_dk_buf
dok_mg.Clear()
dok_mg.SetField("typDk", TypDokumentu)
dok_mg.SetField("seria", Seria)
dok_mg.SetField("dataWystawienia",datawyst )
dok_mg.SetField("dataOperacji", dataOper )
dok_mg.SetField("dzial", KodMagazynu)
dok_mg.BeginSection("DaneKh")
dok_mg.SetField("KhKod",KodKontrahenta)//Kod_kontrahenta(rec_dok_wz(1).idkhdokwz) )
dok_mg.EndSection()
dok_mg.SetField("Opis",opis)
dok_mg.BeginSection("Pozycja dokumentu")
dok_mg.SetField("Kod", KodTowaru )
dok_mg.SetField("Lp", "1" )
dok_mg.SetField("Ilosc", ilosc )
dok_mg.EndSection()
//dok_mg.EndSection()
id_dk_buf = ImportMg(dok_mg)
if id_dk_buf != 0 then
czyWystawiony = 1
dokumId = WystawDokumentMagazynowy (id_dk_buf)
if dokumId != 0 then
czyWystawiony = 2
sDokumId = using "%l",dokumId
dok_mg.clear()
dok_mg.SetField("id", sDokumId)
dok_mg.SetField("Seria", "1000")
dok_mg.SetField("kod", "Test")
EditMG(dok_mg)
endif
endif
endsub
Dokument wystawia się, zmieniam następnie numer dokumentu - i to działa, natomiast nie znam sposobu zmiany numeru w serii. Czy jest na to jakiś sposób za pomocą IORec czy trzeba updatować bezpośrednio tabelę MG?
(1)
