Aufruf: Ein Menü anzeigen

BOOLEAN = DoPrgMenu(tcMenu AS STRING , tlNoDefaultMenu AS BOOLEAN)

Rückgabe: Ein Menü anzeigen

Rückgabe der Funktion: BOOLEAN

Code: Ein Menü anzeigen

PROCEDURE DoPrgMenu (tcMenu AS STRING,tlNoDefaultMenu AS Boolean) AS Boolean
	*/ m.tlNoDefaultMenu wird nicht mehr ausgewertet!
	*/ Neue Menüstruktur! Pro Maske wird EIN Menü ausgeführt!
	LOCAL lcMenu,loForm
	lcMenu = "MENU."+FORCEEXT(UPPER(GETWORDNUM(m.tcMenu,1,",")),"MPC")
	IF !My.Clients.Misc.ReadCStructure(m.lcMenu,.NULL.)
		*/ Wenn das Menü nicht vorhanden ist:
		=My.WriteInLogIf("!MenuFile => "+m.lcMenu+CRLF,.T.,"NoMenusLog.log")
		loForm = My.Clients.FireEvents.oActiveForm
		m.lcMenu = ICASE(;
			ISNULL(loForm),"MENU.FRM_EDIT.MPC",;
			loForm.WINDOWTYPE=0,"MENU.FRM_HDM.MPC",;
			"MENU.FRM_MODAL.MPC")
	ENDIF
	RETURN My.AppForms.Menues.DoPrgMenu(m.lcMenu)
ENDPROC