Aufruf: under construction

VARIANT = GetCalcData(tcCode AS STRING , tcP1 AS STRING , tcP2 AS STRING , tcP3 AS STRING , tcP4 AS STRING)

Rückgabe: under construction

Rückgabe der Funktion: VARIANT

Code: under construction

PROCEDURE GetCalcData (tcCode AS STRING , tcP1 AS STRING , tcP2 AS STRING , tcP3 AS STRING , tcP4 AS STRING) AS Variant
	*/ tcCode hat ungefähr folgendes Aussehen:
	*/	o1=to.D51['%P1%'];;o2=to.D40['%P2%'];;return o1.menge_s*((o1.preis_f/o1.peek*(1-o1.rabatt/100)*(1-o1.rabatt1/100)+o1.edpreis)*(1-o2.ekrabatt/100))
	RETURN ICASE(;
		PCOUNT()=1,My.GetCalcData(m.tcCode),;
		PCOUNT()=2,My.GetCalcData(m.tcCode,m.tcP1),;
		PCOUNT()=3,My.GetCalcData(m.tcCode,m.tcP1,m.tcP2),;
		PCOUNT()=4,My.GetCalcData(m.tcCode,m.tcP1,m.tcP2,m.tcP3),;
		PCOUNT()=5,My.GetCalcData(m.tcCode,m.tcP1,m.tcP2,m.tcP3,m.tcP4),;
		.NULL.)
ENDPROC