int knt_il,poz
string knt
int idrozl

InfoDok dok

dok.bDok  = Open KatalogRoku()  + "09dok_b.dat" For base "buf_dokum"
dok.bZap  = Open KatalogRoku()  + "08zap_b.dat" For base "buf_zapisy"
dok.bKsie = Open KatalogRoku()  + "09dok_b.dat" For base "buf_dokum"
dok.bRej  = Open KatalogFirmy() + "11vat_B.dat" For base "buf_rejVat"
int sub dok_wp(string nazwa,string tresc,string data1,string data2)
    dok.SetField(0, "skrot", "FVS")
    //dok.SetField(0, "symbol","FVS")
    dok.SetField(0, "nazwa", "FVS" + data1)
    dok.SetField(0, "numer", 1)
    dok.SetField(0, "tresc", "faktura")
    dok.SetField(0, "datawpr", data1)
    dok.SetField(0, "datadok", data1)
    dok.SetField(0, "dataOper", data1)
    dok.SetField(0, "dataOkr", data1)
    dok.SetField(0, "znacznik", "0")
endsub


int sub zapis(float kwot,string konto1,string konto2)
   string sKwt
   idrozl+=1
    dok.Insert(1)

    dok.SetField(1, "kwota", kwot)
    dok.SetField(1, "opis", "opis")
    dok.SetField(1, "pozycja", poz)
    dok.SetField(1, "strona", 0)
    dok.SetField(1, "synt", 100)
    dok.SetField(1, "poz1", 0)
    dok.SetField(1, "poz2", 0)
    dok.SetField(1, "poz3", 0)
    dok.SetField(1, "poz4", 0)
    dok.SetField(1, "poz5", 0)
    print poz;lf
    //poz+=1
    idrozl+=1
    dok.Insert(1)
    dok.SetField(1, "kwota", kwot) 
    dok.SetField(1, "opis", "opis")
    dok.SetField(1, "pozycja", poz)
    dok.SetField(1, "strona", 1)
    dok.SetField(1, "synt", 130)
    dok.SetField(1, "poz1", 0)
    dok.SetField(1, "poz2", 0)
    dok.SetField(1, "poz3", 0)
    dok.SetField(1, "poz4", 0)
    dok.SetField(1, "poz5", 0)
    print poz;lf;lf
    idrozl+=1
    poz +=1
endsub


dok_wp("FVS","FVS","2015-01-01","2015-01-01")
zapis(1000,"100","130")

dok.SprawdzDokument()
dok.InsRec()