KundPreisCalc2()
KundPreisCalc2() – Kunden-Preis
Die Funktion berechnet den Kunden-Netto-Preis (inkl. aller Rabatte, Sonderpreise, Staffeln, usw.) für einen Kunden in Eigenwährung.
Parameter | Beschreibung |
|---|---|
oDM:O | Datenmodul-Objekt |
nCustNo:N | Kunden-Nr. |
cArtNo:C | Artikel-Nr. |
nQuant:N | Preis für Menge (in Lager-Einheiten) |
nPreisNr:N | Zu verwendende Preis-Nr.; default = -1 (Übernahme vom Kunden) |
cProgID:C | Individuelle Prog-ID (wird an aufgerufene Events weitergegeben) |
dGueltigPer:D | Datum, zu welchem die Sonder-Kondition gültig ist (leer = Tagesdatum) |
lTriggerOnCalcOrdPosValEvent:L | Trigger von Codeblock-Event "bei Berechnung des Auftr.Pos.Werts" einschalten. default = true |
Rückgabewert
Numerisch - Netto-Preis in EW
Beispiel
CODE
| oDM |
oDM := CreateObject('TbeDbGet'),
startseq
writeln(KundPreisCalc2(oDM, 12345678, 'BSP_ART', 1)),
always
DestroyObject(oDM),
stopseq,