Lista raportów do pliku tekstowego HANDEL ERP.
Napisałem kilka linijek raportu na potrzeby wyciągnięcia listy raportów jak i ich treści do pliku tekstowego. Działa to w programie HANDEL PREMIUM. Dodatkowo w rapflag widać czy edytowaliśmy dany raport czy nie. Czy da się coś podobnego wyciągnąć z HANDEL ERP? Gdzie przechowywane są raporty?
Kod:
int b = Open Katalog()+"am"+firma.code+"51pr.dat" for base "PR"
int err
int modyfZnaczniki
String Plik_w = KatalogFirmy() + "SpisRap.txt"
Int Numer_pliku = Open Plik_w For output
BaseError( b, 4)
SetKey(b, "id")
SetKeySeg(b, "id", 0)
GetRec(b, GE)
Print # Numer_pliku ; "id^flag^subtypi^typ^katalog^nazwa^skrot^idComp^dscname^rapflag^Znacznik";LF
while !err
if GetField(b, "Znacznik") then
modyfZnaczniki = 1
else
modyfZnaczniki = 0
endif
Print # Numer_pliku ; GetField(b, "id");"^";GetField(b,"flag");"^";GetField(b,"subtypi");"^";GetField(b,"typ");"^";GetField(b,"katalog");"^";GetField(b, "nazwa");"^";GetField(b, "skrot");"^";GetField(b, "idComp");"^";GetField(b, "dscname");"^";GetField(b, "rap_flag");"^";modyfZnaczniki;"^";LF
Print # Numer_pliku ; GetField(b, "dane")
err = GetRec(b, NX)
wend
Close Numer_pliku
