Re: Spr. ceny dostawy przed wyst. dok. mag.
Witam,
Jeżeli przed wystawieniem dokumentu to musisz operować bazami BM - Dokumenty magazynowe i BZ - pozycje dokumentów z polem łączącym "super". Rozumiem iż chcesz sprawdzić tuż przed wystawieniem dokumentu, a więc w raporcie Procedury dokumentu magazynowego w OnBeforeInsert.
W procedurze zwracany jest id dokumentu w buforze lId a więc:
na samym początku całego raportu wstawiasz:
Kod:
basebz bz // bufor pozycji
basetw tw //Kartoteka towarowa
int errbz
Następnie bezpośrednio w procedurze
Kod:
bz.setkey("super")
bz.setkeyseg("super",lId)
errbz = bz.GetRec(EQ) //lub GetRec(GE) nie pamiętam dokładnie
While !errbz
tw.GetRecById(bz.GetField("idtw") //ustaw na rekordzie w bazie towarowej wg pozycji w dok
if tw.GetField("cenazak") == 0 then
//TUTAK KOD CO ZROBIĆ JEŚLI CENA ZAKUPU = 0
else
//I JEŻELI NIE JEST = 0
endif
errbz = bz.GetRec(NX) // przejdź do następnego rekordu
Wend
zz pisze:
PRZED wystawieniem dok. mag. muszę sprawdzić cenę dostawy - czy nie zero.
Chciałem sprawdzać Selectem MZ join PW join DW , ale niestety - nie działa przed wystawieniem dokumentu.
Gdzie mogę znaleźć te powiązania?
ew. inny sposób? - próbowałem wykorzystać obiekty, ale niestety nie umiem... :(
