Aufruf: under construction

BOOLEAN = ShowMembers(tcIdd40 AS STRING , tcIdd51 AS STRING , tlHit AS BOOLEAN)

Rückgabe: under construction

Rückgabe der Funktion: BOOLEAN

Code: under construction

PROCEDURE ShowMembers (tcIdd40 AS STRING,tcIdd51 AS STRING,tlHit AS Boolean) AS Boolean
	*/ Anzeige der Anforderer für diese Zeile
	LOCAL lnSelect,lcCAus
	lnSelect = SELECT()
	lcCAus = D40Anf(m.tcIdd40,m.tcIdd51)
	IF !EMPTY(m.lcCAus)
		SELECT (m.lcCAus)
		PRIVATE sx
		sx=""
		IF h_liste3("D40ANF") AND m.tlHit
			=MenuHit(D40Anf._imfld, "",D40Anf.idzwi,D40Anf._idfld)
		ENDIF
	ELSE
		=My.Functions.Dialoge.Dialog("KEINE-ANFORDERER")
	ENDIF
	SELECT(m.lnSelect)
ENDPROC