Witam,
czy istnieje możliwość podpowiadania przez program ostatniej ceny w jakiej dany klient zakupił wybrany towar.

Chyba mamy taki dodatek :)

Można jednak za pomocą dodatkowego raportu. Mamy kilka wariantów tego rozwiązania. Zapraszam do kontaktu :)

... a można też tak :P

Kod:

float sub PodajCene(long idbp)
baseall idp
basebp bp
long err
PodajCene= 0
bp.Open()
bp.SetKey("id")
bp.SetKeySeg("id", idbp)
err = bp.GetRec(eq)
if !err then
idp.SetBase("IDP")
idp.Open()
idp.SetKey("twkh")
idp.SetKeySeg("idtw", bp.GetField("idtw"))
idp.SetKeySeg("idkh", bp.GetField("idkh"))
idp.SetKeySeg("data","")
idp.SetKeySeg("subtyp" , "0")
err = idp.GetRec(ge)
while !err
if (idp.GetKeySeg("idtw")==bp.GetField("idtw")) && (idp.GetKeySeg("idkh")==bp.GetField("idkh")) && (idp.GetKeySeg("subtyp")=="0") then
PodajCene = idp.GetField("wartNetto") / idp.GetField("ilosc")
else
exit
endif
err = idp.GetRec(nx)
wend
idp.close()
endif
bp.close()
endsub

int sub UstawCene(long idbp, float cn)
baseBP bp
long err
bp.Open()
bp.SetKey("id")
bp.SetKeySeg("id", idbp)
err = bp.GetRec(eq)
if !err then
bp.setfield("cena", cn)
bp.update()
endif
bp.close()
endsub

int sub AktualizujCene(long idbp)
float cn = PodajCene(idbp)
if cn != 0 then
if (message using "Ostatnio użytą ceną tego towaru dla tego kontrahenta jest: %.2f\nCzy chcesz użyć tej ceny zamiast domyślnej? DefBtn:Tak=2 Btn:Nie=1", cn) == 2 then
UstawCene(idbp, cn)
endif
endif
endsub



W procedurach dokumentów sprzedaży zaincludować to w.w. i wywołać AktualizujCene przy OnTwChanged