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



Odpowiedz w temacie  [ Posty: 4 ] 
FKP - InfoDok - Tworzenie dokumentu w buforze 
Autor Wiadomość

Rejestracja: 2009-09-07, 10:33
Posty: 2
Post FKP - InfoDok - Tworzenie dokumentu w buforze
Witam!

Chodzi o FK Premium 2009.1.

Czy mógłby kotś z grupowiczów podzielić się fragmentem działającego kodu, który utworzy dokument w buforze?

Próbuje to zrobić za pomocą obiektu InfoDok ale nic się nie dzieje. Poniżej kod:

Kod:
InfoDok dok

dok.bDok = Open KatalogRoku() + "07dok_b.dat" For base "buf_dokum"
BaseError(KatalogRoku() + "07dok_b.dat", 4)
dok.bZap = Open KatalogRoku() + "06zap_b.dat" For base "buf_zapisy"
BaseError(KatalogRoku() + "06zap_b.dat", 4)

dok.SetField(0, "skrot", "DP")
dok.SetField(0, "nazwa", "DP/2009/01")
dok.SetField(0, "tresc", "Treść dokumentu")
dok.SetField(0, "datawpr", "2009-09-07")
dok.SetField(0, "datadok", "2009-09-07")
dok.SetField(0, "dataOper", "2009-09-07")
dok.SetField(0, "kwota", 100.00)

dok.Insert(1)
dok.SetField(1, "kwota", 100)
dok.SetField(1, "strona", 0)
dok.SetField(1, "synt", 100)
dok.SetField(1, "nrRozbKP", 3)

dok.Insert(1)
dok.SetField(1, "kwota", 100)
dok.SetField(1, "strona", 1)
dok.SetField(1, "synt", 200)
dok.SetField(1, "nrRozbKP", 2)

int err = dok.PutRec()
message using "putrec = %d, errors = %d", err, dok.GetField(0, "errors")

error ""


PutRec zwraca 0 i żaden dokument nie pojawia się.

Dzięki i Pozdrawiam


2009-09-07, 14:19
Wyświetl profil
Autor Wiadomość
 


Ekspert
Ekspert

Rejestracja: 2008-04-07, 13:26
Posty: 208
Pomógł: 2
Post PRZYKŁAD DODAWANIA DOKUMENTU ZA POMOCĄ OBIEKTU INFODOK
Przykład
^
Kod:
#include "dateutil.sci"

   BASEHANDLE  base_DOK , base_BUF , base_ZAP

   base_DOK = dbOpenDokBase( indeksRoku(), ZRODLO_KSIEGI, true )
   base_BUF = dbOpenDokBase( indeksRoku(), ZRODLO_BUFOR, true )
   base_ZAP = dbOpenZapBase( indeksRoku(), ZRODLO_BUFOR, true )

InfoDok dok

dok.bDok  = base_BUF
dok.bZap  = base_ZAP
dok.bKsie = base_DOK
dok.Begin(1)

dok.SetField(0, "skrot", "DP")
dok.SetField(0, "nazwa", "DP/2009/01")
dok.SetField(0, "tresc", "Treść dokumentu")
dok.SetField(0, "datawpr", "2009-09-07")
dok.SetField(0, "datadok", "2009-09-07")
dok.SetField(0, "dataOper", "2009-09-07")
dok.SetField(0, "kwota", 100.00)

dok.Insert(1)
dok.SetField(1, "kwota", 100.00)
dok.SetField(1, "strona", 0)
dok.SetField(1, "synt", 100)
dok.SetField(1, "nrRozbKP", 3)

dok.Insert(1)
dok.SetField(1, "kwota", 100)
dok.SetField(1, "strona", 1)
dok.SetField(1, "synt", 200)
dok.SetField(1, "nrRozbKP", 2)

dok.SprawdzDokument()

int err = dok.InsRec()


Ostatnio zmieniony 2009-09-11, 11:47 przez barnie, łącznie zmieniany 3 razy



2009-09-08, 12:05
Wyświetl profil
Ekspert
Ekspert
Awatar użytkownika

Rejestracja: 2009-03-07, 11:13
Posty: 597
Pomógł: 34
Post 
Spróbuj na końcu InsRec zamiast PutRec. To tak na logikę. PutRec aktualizuje rekord wcześniej istniejący, a InsRec wstawia nowy. Przykład jest w pliku przel_zb.sci


2009-09-10, 08:34
Wyświetl profil

Rejestracja: 2009-09-07, 10:33
Posty: 2
Post 
Jarek75 pisze:
Spróbuj na końcu InsRec zamiast PutRec. To tak na logikę. PutRec aktualizuje rekord wcześniej istniejący, a InsRec wstawia nowy. Przykład jest w pliku przel_zb.sci


Działa! :-D
Dziękuję za pomoc :-)

btw. w pomocy do FK - Opis języka raportów - pisze :-/ :

Cytuj:
InfoDok.PutRec - Zapisuje nowy, kompletny dokument do bufora...
...
InfoDok.InsRec - Modyfikuje uprzednio wczytany dokument w buforze...


Pozdrawiam


2009-09-10, 10:09
Wyświetl profil
Wyświetl posty nie starsze niż:  Sortuj wg  
Odpowiedz w temacie   [ Posty: 4 ] 
   Podobne tematy   Autor   Odpowiedzi   Odsłony   Ostatni post 
Na tym forum nie ma nowych nieprzeczytanych postów. [FKP2017] Edycja dokumentu za pomocą InfoDok

w Programowanie

koronen

0

2109

2017-08-17, 15:44

koronen Wyświetl najnowszy post

Na tym forum nie ma nowych nieprzeczytanych postów. Załączniki Edycja dokumentu w buforze

w Programowanie

zz

13

7731

2019-09-27, 11:43

zz Wyświetl najnowszy post

Na tym forum nie ma nowych nieprzeczytanych postów. Załączniki Blokada edycji dokumentu w buforze

w Programy Księgowe

Rufhs

10

4935

2017-11-28, 10:58

rafal Wyświetl najnowszy post

Na tym forum nie ma nowych nieprzeczytanych postów. [FKF2016] Dodanie zapisu do dokumentu w buforze

w Programowanie

kpiotr

0

4982

2016-10-12, 22:20

kpiotr Wyświetl najnowszy post



Kto jest online

Użytkownicy przeglądający to forum: Nie ma żadnego zarejestrowanego użytkownika i 4 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