Aufruf: under construction

VARIANT = _GMD_(tcObj AS STRING , tcId AS STRING , tcField AS STRING , tvP2 AS VARIANT , tvP3 AS VARIANT , tvP4 AS VARIANT , tvP5 AS VARIANT)

Rückgabe: under construction

Rückgabe der Funktion: VARIANT

Code: under construction

PROCEDURE _GMD_ (tcObj AS STRING,tcId AS STRING,tcField AS STRING,tvP2 AS Variant,tvP3 AS Variant,tvP4 AS Variant,tvP5 AS Variant) AS Variant
	LOCAL loRec AS OBJECT,lnCnt AS INTEGER,lvDev AS Variant
	lnCnt = PCOUNT()
	lvDev = IIF(m.lnCnt<4,"",.NULL.)
	TRY
		loRec = ICASE(;
			ASC(m.tcId)=0,.NULL.,;
			m.lnCnt<4,My.oMisc.&tcObj(m.tcId),;
			m.lnCnt=4,My.oMisc.&tcObj(m.tcId,m.tvP2),;
			m.lnCnt=5,My.oMisc.&tcObj(m.tcId,m.tvP2,m.tvP3),;
			m.lnCnt=6,My.oMisc.&tcObj(m.tcId,m.tvP2,m.tvP3,m.tvP4),;
			m.lnCnt=7,My.oMisc.&tcObj(m.tcId,m.tvP2,m.tvP3,m.tvP4,m.tvP5),;
			.NULL.)
	CATCH
		loRec = .NULL.
	ENDTRY
	RETURN ICASE(ISNULL(m.loRec),m.lvDev,VARTYPE(m.loRec)<>"O",m.loRec,VARTYPE(m.tcField)<>"C",m.loRec,!PEMSTATUS(m.loRec,m.tcField,5),m.lvDev,m.loRec.&tcField)
ENDPROC