Wolf
Czy da się wprowadzić jakieś zabezpieczenie do wersji 2008.c, aby nie dało się sprzedać towaru zbyt tanio? Wiem, że jeśli ustawi się cenę sprzedaży niższą niż cena bazowa wyskakuje komunikat (ale żółty - i tak da się wystawić taki dokument).
Prosty raport w procedurach dokumentów sprzedaży (trzeba je wlączyć w parametrach programu). Tu przyklad (dla wszystkich dokumentow):
int Sub OnBeforeInsert(long lId)
OnBeforeInsert = ZmienKatalogRodzaj(lId)
BaseBP BP: BP.Open(): BP.SetKey("super"): BP.SetKeySeg("super",lId)
int err=BP.GetRec(GE)
while !err && BP.GetKeySeg("super")==lId
if BP.GetField("cena")<BP.GetField("cenabaztow") then
message using "Cena mniejsza od bazowej:\n\n Pozycja:%d - %s\nCena: %.2f Bazowa: %.2f.\n\nNie można wystawić dokumentu Ico:S",BP.GetField("lp"),BP.GetField("kod"),BP.GetField("cena"),BP.GetField("cenabaztow")
OnBeforeInsert=-6000
exit
endif
err=BP.GetRec(NX)
wend
EndSub
zanotowane.pldoc.pisz.plpdf.pisz.plptsite.xlx.pl