Aufruf: Eine Property aus dem Dictionary abrufen

STRING = DBGetProperty(tcName AS STRING , tcProperty AS STRING , tcOptions AS STRING)

Rückgabe: Eine Property aus dem Dictionary abrufen

Rückgabe der Funktion: STRING

Code: Eine Property aus dem Dictionary abrufen

PROCEDURE DBGetProperty (tcName AS STRING,tcProperty AS STRING,tcOptions AS STRING) AS STRING;
		HELPSTRING "Listen aus dem DDD."
	DO CASE
		CASE !TYPE("My.Systems.DataDict._Name")="C"
			RETURN .NULL.
		CASE PCOUNT()=3
			** Name, Property und weitere Optionen
			RETURN My.Systems.LocalDict.DBGetProperty(m.tcName,;
				EVL(IIF(VARTYPE(m.tcProperty)="C",UPPER(m.tcProperty),m.tcProperty),"[O]"),;
				IIF(VARTYPE(m.tcOptions)="C",UPPER(m.tcOptions),m.tcOptions))
		CASE PCOUNT()=2
			** Name und Property
			** tcName		= "B01"
			** tcProperty	= "PRIMARYKEY", Primärschlüssel NICHT TAG() sondern KEY()
			RETURN My.Systems.LocalDict.DBGetProperty(m.tcName,;
				EVL(IIF(VARTYPE(m.tcProperty)="C",UPPER(m.tcProperty),m.tcProperty),"[O]"))
		OTHERWISE
			** Nur der Name, es wird eine Liste zurückgegeben
			** tcName = "", Liste aller Tabellen
			** tcName = "B01", Liste aller Properties der Tabelle B01
			RETURN My.Systems.LocalDict.DBGetProperty(m.tcName,"[O]")
	ENDCASE
ENDPROC