Eksport i kod obcy towaru
Witam Wszystkich Forumowiczów i proszę o pomoc. Napisałem taki raporcik i nie wiem co jest tu nie tak.
Zapisuje się wszystko z wyjątkiem kodu obcego, mimo że istnieje on w bazie UZ. Polecenie BaseError(UZ, 4) pokazuje, że nie znaleziono rekordu w bazie UZ. Co robię nie tak?
Kod:
While !errDP
if !GetField(DP,"typi") && GetField(DP,"super")== GetField(DK, "id") then
SetKey(NT, "id")
SetKeySeg(NT, "id", GetField(DP, "idlongname"))
errNT = GetRec(NT,EQ)
SetKey(UZ, "kodnasz")
SetKeySeg(UZ,"iduz",GetField(DP,"idtw"))
errUZ = GetRec(UZ,EQ)
Print # iFile; GetField(DP, "lp"), GetField(DK, "kod"), GetField(DK, "nazwa"), GetField(DK, "data"), GetField(DK, "datasp"), GetField(DK, "plattermin"), GetField(DK, "khnazwa"), GetField(DK, "khnip"), GetField(DP, "kod"), IIF (!errUZ, GetField(UZ, "kodobcy"),""), IIF (GetField(DP, "idlongname")==0, GetField(DP, "opis"), GetField(NT, "opis")), kwota(GetField(DP, "ilosc")), GetField(DP, "jm"), kwota(GetField(DP, "cena")), kwota(GetField(DP, "WartNetto")), kwota(GetField(DP, "wartstvat")/100), kwota(GetField(DP, "WartVAT")),kwota(GetField(DP, "WalBrutto")) ; LF
endif
errDP = GetRec(DP, NX)
wend
