Aufruf: BMK - Auflösung mit einem Cursor

BOOLEAN = Bmk_Cursor(tcAlias AS STRING , tlDin AS BOOLEAN)

Rückgabe: BMK - Auflösung mit einem Cursor

Rückgabe der Funktion: BOOLEAN

Code: BMK - Auflösung mit einem Cursor

PROCEDURE Bmk_Cursor (tcAlias AS STRING,tlDin AS Boolean) AS Boolean
	*/ Der Cursor muss MINDESTENS das Feld BMK enthalten!
	*/ Alle weiteren Felder werden von BmkDetails geadded! Vorgabe ist: E11
	*/ tlDin => e10.bmknr=2 = .T. (Nach DIN)
	IF !EMPTY(m.tcAlias) AND USED(m.tcAlias) AND TYPE(m.tcAlias+".BMK")$"CMV"
		LOCAL loRec,lnSelect
		lnSelect = SELECT()
		SELECT(m.tcAlias)
		SCATTER NAME loRec FIELDS bmk
		=My.Bussines.Technik.BmkDetails(loRec.bmk,m.tlDin,loRec)
		GATHER NAME loRec
		SELECT(m.lnSelect)
	ENDIF
ENDPROC