Aufruf: under construction

VARIANT = I01sValue(tcIdb01 AS STRING , tcIdk10 AS STRING , tcIdc66 AS STRING , tcProperty AS STRING)

Rückgabe: under construction

Rückgabe der Funktion: VARIANT

Code: under construction

PROCEDURE I01sValue (tcIdb01 AS String,tcIdk10 AS String,tcIdc66 AS String,tcProperty AS STRING) AS Variant
	*/ Ermittelt die Daten für I01 in Summe, wenn tcIdb01=>"000...", ">000..." vov>0, "=000..." vov=0
	LOCAL loRec AS Object , lcIdc66 AS String , lvReturn AS Variant
	lcIdc66 = ICASE(EMPTY(m.tcIdc66),My.Bussines.Strain.Misc.oC66Fi.idc66,m.tcIdc66)
	loRec = My.Bussines.Strain.Misc.oI01s[m.tcIdb01+EVL(m.tcIdk10,SPACE(8))+m.lcIdc66]
	TRY
		lvReturn = loRec.&tcProperty
	CATCH
		lvReturn = .NULL.
	ENDTRY
	RETURN m.lvReturn
ENDPROC