mojaSymfonia FORUM
https://forum.mix-soft.pl/

Ostatnia cena sprzedaży klienta
https://forum.mix-soft.pl/viewtopic.php?f=2&t=2421		 Strona 1 z 1
Autor:  xz123 [ 2010-10-25, 21:31 ]
Tytuł:  Ostatnia cena sprzedaży klienta
Witam,
czy istnieje możliwość podpowiadania przez program ostatniej ceny w jakiej dany klient zakupił wybrany towar.
Autor:  wrob [ 2010-10-25, 21:59 ]
Tytuł: 
Chyba mamy taki dodatek :)
Autor:  krzysiek [ 2010-10-25, 22:00 ]
Tytuł: 
Można jednak za pomocą dodatkowego raportu. Mamy kilka wariantów tego rozwiązania. Zapraszam do kontaktu :)
Autor:  Notos [ 2010-11-01, 22:24 ]
Tytuł: 
... 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
Strona 1 z 1 Strefa czasowa UTC+1godz. [letni]
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/