Menu desde Tabla MySql

[jnavas]

Code: Select all  Expand view  RUN

 C5MENUITEM oDp:oItemTransaccion PROMPT oDp:cMenu04

     C5MENU COLOR    oDp:nMenuItemClrText, oDp:nMenuItemClrPane;
            COLORSEL oDp:nMenuItemSelText, oDp:nMenuItemSelPane;
            COLORBOX oDp:nMenuBoxClrText ;
            HEIGHT oDp:nMenuHeight; // SELECT 3D ;
            LOGO oDp:cBmpTransacciones ;
            LOGOCOLOR oDp:nMenuMainClrText

     aMenu:=ACLONE(aMenuTra)

     oDp:oItemTransaccion:lActive:=!EMPTY(aMENUTRA[1]) .AND. lHorario

     hacermenu(aMenu)

     C5ENDMENU

STATIC FUNCTION HACERMENU(aMenu,oMenu)
    LOCAL I:=1,lacceso:=.T.,lutilizo:=.F.,oItem,nIni:=0

    lMenuXp:=.T.

    IF EMPTY(aMenu) .OR. EMPTY(aMenu[1])
       RETURN  // .F.
    ENDIF

    For i=1 TO LEN(aMenu[1])


      IF lMenuXp

        C5MENUITEM oItem PROMPT alltrim(aMenu[1,I]);
                   FILE aMenu[12,I]
      ELSE

       MENUITEM oItem PROMPT alltrim(aMenu[1,I]);
                 FILE aMenu[12,I]

      ENDIF

      IF aMenu[13,I]=4

         IF lMenuXp
             C5SEPARATOR
         ELSE
             SEPARATOR
         ENDIF

      ENDIF

      IF aMenu[13,I]=2

          nIni++

         IF lMenuXp

           C5MENU COLOR oDp:nMenuItemClrText, oDp:nMenuItemClrPane;
           COLORSEL oDp:nMenuItemSelText, oDp:nMenuItemSelPane;
           COLORBOX oDp:nMenuBoxClrText ;
           HEIGHT oDp:nMenuHeight;
           LOGOCOLOR oDp:nMenuMainClrText

         ELSE

           MENU

         ENDIF


          LOOP

      ENDIF

      oItem:bWhen      :=aMenu[11,I]
      oItem:bAction    :=aMenu[03,I]

      IF lMenuXp
        oItem:bAuxAction :=aMenu[03,I]
      ENDIF


    NEXT I

    FOR I=1 TO nIni

       IF lMenuXp
         C5ENDMENU
       ELSE
         ENDMENU
       ENDIF

    NEXT

//    C5ENDMENU

RETURN




 

[ruben Dario]

Saludos

Nunca he Usado C5MENU, esto es una libreria a alguna clase.
Gracias