Witam,
mam następujący problem:
chciałbym dodać w jednym dokumencie (wyciąg bankowy) dwa i więcej zapisów.
Z jednym zapisem nie ma problemu, ale jak dodaję drugi to coś się kopie jak na załączonym obrazku.
Jak widać: druga pozycja została dodana jako część tej pierwszej(?) co powoduje brak opisu dla niej a w dodatku jest rozbita na dwie niezależne pozycje.
Proszę o informację co jest przyczyną tego błędu? Próbowałem różnych kombinacji z begin/next ale to nic nie pomagało
.Z góry dziękuję za pomoc.
Kod, który posiadam jest następujący:
Kod:
InfoDok dok
dok.bDok = Open KatalogRoku() + "09dok_b.dat" For base "buf_dokum"
BaseError(KatalogRoku() + "07dok_b.dat", 4)
dok.bZap = Open KatalogRoku() + "08zap_b.dat" For base "buf_zapisy"
BaseError(KatalogRoku() + "08zap_b.dat", 4)
dok.bKsie = Open KatalogRoku() + "09dok_b.dat" For base "buf_dokum"
dok.bRej = Open KatalogFirmy() + "11vat_B.dat" For base "buf_rejVat"
dok.begin(1)
dok.SetField(0, "skrot", "WB")
dok.SetField(0, "nazwa", "DP/2015/08")
dok.SetField(0, "tresc", "Treść dokumentu")
dok.SetField(0, "datawpr", "2015-08-11")
dok.SetField(0, "datadok", "2015-08-11")
dok.SetField(0, "dataOper", "2015-08-11")
dok.SetField(0, "kwota", 1001.00)
dok.Insert(1)
dok.SetField(1, "opis", "bla bla")
dok.SetField(1, "kwota", 1002)
dok.SetField(1, "strona", 0)
dok.SetField(1, "synt", 100)
dok.Insert(1)
dok.next(1)
dok.SetField(1, "kwota", 1002)
dok.SetField(1, "strona", 1)
dok.SetField(1, "synt", 200)
//---------------------
dok.Insert(1)
dok.SetField(1, "opis", "xxx")
dok.SetField(1, "kwota", 1001)
dok.SetField(1, "strona", 0)
dok.SetField(1, "synt", 100)
dok.Insert(1)
dok.next(1)
dok.SetField(1, "kwota", 1001)
dok.SetField(1, "strona", 1)
dok.SetField(1, "synt", 200)
dok.InsRec()
dok.bDok = Open KatalogRoku() + "09dok_b.dat" For base "buf_dokum"
BaseError(KatalogRoku() + "07dok_b.dat", 4)
dok.bZap = Open KatalogRoku() + "08zap_b.dat" For base "buf_zapisy"
BaseError(KatalogRoku() + "08zap_b.dat", 4)
dok.bKsie = Open KatalogRoku() + "09dok_b.dat" For base "buf_dokum"
dok.bRej = Open KatalogFirmy() + "11vat_B.dat" For base "buf_rejVat"
dok.begin(1)
dok.SetField(0, "skrot", "WB")
dok.SetField(0, "nazwa", "DP/2015/08")
dok.SetField(0, "tresc", "Treść dokumentu")
dok.SetField(0, "datawpr", "2015-08-11")
dok.SetField(0, "datadok", "2015-08-11")
dok.SetField(0, "dataOper", "2015-08-11")
dok.SetField(0, "kwota", 1001.00)
dok.Insert(1)
dok.SetField(1, "opis", "bla bla")
dok.SetField(1, "kwota", 1002)
dok.SetField(1, "strona", 0)
dok.SetField(1, "synt", 100)
dok.Insert(1)
dok.next(1)
dok.SetField(1, "kwota", 1002)
dok.SetField(1, "strona", 1)
dok.SetField(1, "synt", 200)
//---------------------
dok.Insert(1)
dok.SetField(1, "opis", "xxx")
dok.SetField(1, "kwota", 1001)
dok.SetField(1, "strona", 0)
dok.SetField(1, "synt", 100)
dok.Insert(1)
dok.next(1)
dok.SetField(1, "kwota", 1001)
dok.SetField(1, "strona", 1)
dok.SetField(1, "synt", 200)
dok.InsRec()
| Załączniki: |
|
zapis w symfoni.png [ 20.13 KiB | Przeglądany 2999 razy ] |
