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