Code: Alles auswählen
PROCEDURE main()
LOCAL getlist := {}
LOCAL GetOptions
LOCAL oDatenBank := datenbank():new(,,,.T.)
LOCAL oDialogZusatz := mk_dialog():new(,,"25.02.2018 ")
LOCAL oMenu1 := NIL
LOCAL oMenu2 := NIL
DCSUBMENU oMenu1;
PARENT oDialogZusatz:oMenuBar;
PROMPT "D~ienste"
DCMENUITEM "~Stundenübersicht Fahrer";
ACTION {|o|o := Thread():new(), o:start({|| stundenusicht(oMenu1)}) };
MESSAGE "" INTO oDialogZusatz:oMessageBox;
PARENT oMenu1
..................
********************************************************************************************************************
PROCEDURE stundenusicht(oMenu)
LOCAL getlist := {}
LOCAL GetOptions
LOCAL oDialog := NIL
LOCAL oDialogZusatz := dialogStundenUsicht():new(900,1080,"14.11.2017",oSysPara:oHauptDialog)
MEMVAR oSysPara
DC_SETKEYACTIVE(.T.) // damit die F-Tasten wie im textmodus klappen
oDialogZusatz:deaktiviereMenueItem(,oMenu,"STUNDENÜBERSICHT FAHRER")
.........
return
********************************************************************************************************************
METHOD mk_dialog:deaktiviereMenueItem(lAlle,oMenu,cCaption)
DEFAULT lAlle TO .F.
FOR ::nI := 1 TO oMenu:numItems()
IF Upper(CharRem("~",oMenu:getItem(::nI)[1])) == cCaption
oMenu:disableItem(::nI)
::nItem := ::nI
EXIT
ENDIF
NEXT
RETURN