Aufruf: Property einer Tabelle

STRING = dbGetxxFld(tcDbf AS STRING , tcWhat AS STRING , tlNoKorr AS BOOLEAN @ , tcIx AS STRING)

Rückgabe: Property einer Tabelle

Rückgabe der Funktion: STRING
Rückgabe per Reverenz:
	tlNoKorr AS BOOLEAN

Code: Property einer Tabelle

PROCEDURE dbGetxxFld (tcDbf AS STRING,tcWhat AS STRING,tlNoKorr AS Boolean @,tcIx AS STRING) AS STRING
	LOCAL lcRet
	lcRet = My.Systems.LocalDict.DbGetTableProperty(m.tcDbf,m.tcWhat)
	IF ISNULL(m.lcRet)
		m.lcRet = IIF(VARTYPE(m.tcIx)="C",m.tcIx,LEFT(m.tcWhat,2))+m.tcDbf
		m.tlNoKorr = .T.
	ENDIF
	RETURN m.lcRet
ENDPROC