| mojaSymfonia FORUM https://forum.mix-soft.pl/ |
|
| Eksport i kod obcy towaru https://forum.mix-soft.pl/viewtopic.php?f=2&t=9182 |
Strona 1 z 1 |
| Autor: | lipaj [ 2019-05-31, 23:08 ] |
| Tytuł: | 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 |
|
| Autor: | Zenek N [ 2019-06-01, 09:51 ] |
| Tytuł: | Re: Eksport i kod obcy towaru |
A widziałeś ta tabele w panelu center postgre ? |
|
| Autor: | lipaj [ 2019-06-01, 10:04 ] |
| Tytuł: | Re: Eksport i kod obcy towaru |
Widziałem, dzięki :) Już sobie poradziłem. Brakowało: Kod: SetKeySeg(UZ,"idkh",GetField(DK,"khid")) SetKeySeg(UZ,"typi",32) Teraz działa. Temat zamknięty. |
|
| Strona 1 z 1 | Strefa czasowa UTC+1godz. [letni] |
| Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group http://www.phpbb.com/ |
|