WystawDokumentPłatności HMP 2011.1.a
Kod:
IoRec Dok
dok.clear()
dok.SetField("Rejestr",skasa) //Kasa1 lub kasa2
if brutto > 0 then
dok.SetField("Typ_dk", "KP") //jak w warunku
dok.SetField("Seria","sKP") //taką mam serie
dok.setfield("schematKs", "WPL") //taki schemat
dok.SetField("Rodzaj_platnosci","wpłata") //taki rodzaj z dokumentacji
endif
if brutto < 0 then
dok.Setfield("Typ_dk","KW") // to co wyżej
dok.SetField("Seria","sKW")
dok.setfield("schematKs", "WYPL")
dok.SetField("Rodzaj_platnosci","wypłata")
endif
if brutto < 0 then brutto = brutto * -1 //odwrócenie kwoty
dok.SetField("numerWSerii","0") //próbowałem bez tego zapisu
dok.SetField("khkod",kodktr) //kod kontrahenta
dok.SetField("kwota",using "%f", brutto) //brutto jako string
dok.SetField("Data_platnosci", data_plat) //data platności funkcją data()
dok.SetField("Khtyp","Kontrahent") //z dokumentacji
dok.setfield("Termin_platnosci", "0") //bez terminu...próbowałem również bez
Dok.SetField("opis", kodDok + " " + khnazwa) //opis
ok = WystawDokumentPlatnosci(Dok,1) //wystawiamy dokument
w przypadku KW wystawia zawsze dobrze a w przypadku KP raz jest to faktycznie KP a raz NL jako rozrachunek...CZEMU?? Próbowałem na wszystkie sposoby.
Proszę o pomoc tylko tego mi brakuje by ukończyć nakładkę na Opakowania zwrotne w paragonach.
