Aufruf: under construction

NUMBER = Lagerpreis(tcIdb01 AS STRING , tcIdk10 AS STRING , tcIdc66 AS STRING , tnTGkm AS NUMBER @)

Rückgabe: under construction

Rückgabe der Funktion: NUMBER
Rückgabe per Reverenz:
	tnTGkm AS NUMBER

Code: under construction

PROCEDURE Lagerpreis (tcIdb01 AS STRING,tcIdk10 AS STRING,tcIdc66 AS STRING,tnTGkm AS NUMBER @) AS NUMBER
	LOCAL loRec AS OBJECT , lnPreis AS NUMBER
	loRec = My.oMisc.oI01[m.tcIdb01+PADR(EVL(m.tcIdk10,' '),8)+PADR(EVL(m.tcIdc66,''),6,' ')]
	IF !EMPTY(m.loRec.idi01) AND !EMPTY(m.loRec.Preis) AND loRec.vo>0
		lnPreis = m.loRec.Preis
		tnTGkm	= m.loRec.tgkm
	ELSE
		loRec = My.oMisc.oB01[m.tcIdb01]
		lnPreis = m.loRec.eknet1 + m.loRec.t1_ezu
		tnTGkm	= m.loRec.t1_gkm
	ENDIF
	RETURN m.lnPreis
ENDPROC