Inoffizielles deutsches Xbase-Forum

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

Code: Alles auswählen

DCMENUITEM "Statistik 1" PARENT oStatistikMenu ACTION {||Statistik1()} WHEN {||IchDarfGerade("Statistik 1")}

FUNCTION IchDarfGerade(c)
RETURN IF (<xAusDruck>,.T.,.F.)