Posty bez odpowiedzi |oraz Aktywne tematy Dzisiaj jest 2024-03-29, 14:45x



Odpowiedz w temacie  [ Posty: 3 ] 
Dodanie kolejnej pozycji w dokumencie (InfoDok) 
Autor Wiadomość

Rejestracja: 2015-07-28, 10:28
Posty: 53
Post Dodanie kolejnej pozycji w dokumencie (InfoDok)
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()


Załączniki:
zapis w symfoni.png
zapis w symfoni.png [ 20.13 KiB | Przeglądany 2955 razy ]
2015-09-06, 02:14
Wyświetl profil
Autor Wiadomość
 


Ekspert
Ekspert

Rejestracja: 2007-11-16, 15:08
Posty: 3982
Pomógł: 445
Post Re: Dodanie kolejnej pozycji w dokumencie (InfoDok)
Ta wiadomość była pomocna.(1)
Może trzeba ustawiać pole pozycja. Sprawdź.

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.SetField(1, "pozycja", 0)
dok.Insert(1)

dok.next(1)
dok.SetField(1, "kwota", 1002)
dok.SetField(1, "strona", 1)
dok.SetField(1, "synt", 200)
dok.SetField(1, "pozycja", 0)

//---------------------

dok.Insert(1)
dok.SetField(1, "opis", "xxx")
dok.SetField(1, "kwota", 1001)
dok.SetField(1, "strona", 0)
dok.SetField(1, "synt", 100)
dok.SetField(1, "pozycja", 1)

dok.Insert(1)
dok.next(1)
dok.SetField(1, "kwota", 1001)
dok.SetField(1, "strona", 1)
dok.SetField(1, "synt", 200)
dok.SetField(1, "pozycja", 1)

dok.InsRec()

_________________
Skontaktuj się z Ekspertem | Zamów dodatek

tel. 22 7 538 538
ekspert@mojaSymfonia.pl
http://www.mojaSymfonia.pl


2015-09-07, 11:17
Wyświetl profil

Rejestracja: 2015-07-28, 10:28
Posty: 53
Post Re: Dodanie kolejnej pozycji w dokumencie (InfoDok)
Dzięki wielkie!!! Już jest jak należy :-)
pozdrawiam


2015-09-07, 22:37
Wyświetl profil
Wyświetl posty nie starsze niż:  Sortuj wg  
Odpowiedz w temacie   [ Posty: 3 ] 
   Podobne tematy   Autor   Odpowiedzi   Odsłony   Ostatni post 
Na tym forum nie ma nowych nieprzeczytanych postów. Załączniki Dodawanie nowych pozycji w dokumencie - InfoDok

w Programowanie

WojtekM

5

4056

2019-02-08, 08:59

zz Wyświetl najnowszy post

Na tym forum nie ma nowych nieprzeczytanych postów. Dodanie pozycji wyciągu bankowego obiektem integracji

w Programowanie

ddooh

8

4944

2015-11-19, 15:29

Jarek75 Wyświetl najnowszy post

Na tym forum nie ma nowych nieprzeczytanych postów. liczba pozycji w dokumencie

w Programy Handlowe

emajcher

6

4075

2014-04-09, 10:11

emajcher Wyświetl najnowszy post

Na tym forum nie ma nowych nieprzeczytanych postów. Załączniki 300 pozycji na dokumencie

w Programy Handlowe

aga2

6

5740

2015-03-26, 17:04

Symfrookie Wyświetl najnowszy post



Kto jest online

Użytkownicy przeglądający to forum: Nie ma żadnego zarejestrowanego użytkownika i 5 gości


Nie możesz tworzyć nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz dodawać załączników

Szukaj:
Przejdź do:  
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group.
Support forum phpbb by phpBB Assistant