Code: Select all
//------------------------------------------------
// Carga Menu Principal desde una Tabla (DBASE Y MYSQL)
// VERSION polivalente
// por: Angel Blanco
// Valencia, Venezuela
// Agosto-2.005
// se apoya en este Comando para agregar seleccion en menu (CLASE TMENU)
// MenuAddItem( <cPrompt>, <cMsg>,;
// <.checked.>, [ Upper(<(enable)>) == "ENABLED" ],;
// [\{|oMnuItem|<uAction>\}],;
// <cBmpFile>, <cResName>, <oMnu>, <bAction>, <nState>, <nVirtKey>,;
// <.help.>, <nHelpId>, [<{uWhen}>], <.break.> )
FUNCTION MaiMenu( oWnd,oNamUsr,cTabla )
LOCAL oMnu,c_Accion,n_mnu,n_CountReg:=0
LOCAL a_Op:={},n_regist
LOCAL cComand,oQuery
LOCAL lMySql:=.t. // para que sea por sql
CURSORWAIT()
IF lMySql
cComand:='SELECT SysAccTot.IntMenu,'+;
'SysAccTot.IntOpcion,'+;
'SysAccTot.VchSeleccion,'+;
'SysAccTot.VchMsg,'+;
'SysAccTot.VchAccion,'+;
'SysAccTot.IntMenuSal,'+;
'SysAccTot.VchCondPres,'+;
'SysAccTot.VchCondAcc '+;
'FROM '+cDtComun+'.SysAccTot '+;
'WHERE SysAccTot.VchModulo ="HCM" AND '+;
'SysAccTot.VchTipo = "M" '+;
'ORDER BY SysAccTot.IntMenu,'+;
'SysAccTot.IntOpcion'
oQuery :=TMSQuery():New( oDtBase )
oQuery:Open( cComand )
// Traemos el resultado a nuestro cliente
IF ( oQuery:nRowCount>0 )
// necesario para garantizar la organizacion de la informacion
DO WHILE !oQuery:lEof
AADD(a_Op,{oQuery:xFieldGet( 1 ),; // MENU
oQuery:xFieldGet( 2 ),; // OPCION
oQuery:xFieldGet( 3 ),; // SELECCION
oQuery:xFieldGet( 4 ),; // MSG
oQuery:xFieldGet( 5 ),; // ACCION
oQuery:xFieldGet( 6 ),; // MENU SALIDA
IIF(LEN(ALLTRIM(oQuery:xFieldGet( 7 )))=0,".T.",ALLTRIM(oQuery:xFieldGet( 7 ))),;
IIF(LEN(ALLTRIM(oQuery:xFieldGet( 8 )))=0,".T.",ALLTRIM(oQuery:xFieldGet( 8 )))})
n_CountReg +=1
oQuery:Fetch()
ENDDO
ENDIF
oQuery:Close()
ELSE
IF FILE("MENU.NTX")
DELETE FILE MENU.NTX
ENDIF
*USE C:\FUENTES\HCM\MENU.MNU SHARED alias MNU
USE &cTabla SHARED alias MNU
INDEX ON str(_field->menu,2,0)+str(_field->opcion,2,0) to MENU.NTX
//
// COPIANDO TABLA A ARREGLO
DO WHILE !MNU->(EOF())
AADD(a_Op,{MNU->MENU,;
MNU->OPCION,;
MNU->SELECCION,;
MNU->MSG,;
MNU->ACCION,;
MNU->MENUSAL,;
IIF(LEN(ALLTRIM(MNU->COND_PRES))=0,".T.",ALLTRIM(MNU->COND_PRES)),;
IIF(LEN(ALLTRIM(MNU->COND_ACC))=0,".T.",ALLTRIM(MNU->COND_ACC))})
n_CountReg +=1
MNU->(DBSKIP())
ENDDO
use
ENDIF
IF n_CountReg>0
n_regist := 1
oMnu := MenuBegin() // inicia menu
AgregaNivel(a_Op,1,@oMnu,n_CountReg) // GENERA MENU
ENDIF
RETURN oMnu
//------------------------------------------------
// AGREGA NIVEL DE MENU (CONCURRENTE)
// VERSION polivalente
//
static PROCEDURE AgregaNivel(a_Op,n_nummenu,oMnu,n_CountReg)
LOCAL n_mnu,c_Accion,n_regist:=1,cPres,cWhen
DO WHILE a_Op[n_regist,1]<>n_nummenu
n_regist +=1
IF n_regist>n_CountReg
EXIT
ENDIF
ENDDO
IF n_regist<=n_CountReg
IF n_nummenu>1
MenuBegin() // comienza menu
ENDIF
DO WHILE a_Op[n_regist,1]=n_nummenu // solo para ESE MENU
cPres:=a_Op[n_regist,7]
cWhen:=a_Op[n_regist,8]
if &cPres
DO CASE
CASE LEN(alltrim(a_Op[n_regist,5])) =0 // No tiene accion!!!
IF a_Op[n_regist,6] >0 // Llama a otro menu
MenuAddItem(alltrim(a_Op[n_regist,3]),alltrim(a_Op[n_regist,4]),.F.,&cWhen ,,,,oMnu,,,,.F., )
n_mnu:=n_regist // guarda el registro para restaurar
AgregaNivel(a_Op,a_Op[n_regist,6],@oMnu,n_CountReg) // Agrega otro nivel de menu
n_regist:=n_mnu // restaura al registro
ELSE // agrega Espacio
IF LEN(alltrim(a_Op[n_regist,3]))=0 // si no tiene etiqueta
MenuAddItem(,,.F.,,,,,oMnu,,,,.F., ) // Agrega Espacio
ELSE // si tiene etiqueta
c_Accion:="{ || msgAlert('Por Implementar') }" // la presenta
MenuAddItem(alltrim(a_Op[n_regist,3]),alltrim(a_Op[n_regist,4]),.F.,&cWhen,&c_Accion,,,oMnu,,,,.F., )
ENDIF
ENDIF
CASE LEN(alltrim(a_Op[n_regist,5])) >0 // Es un Renglon de menu
c_Accion:="{ || "+alltrim(a_Op[n_regist,5])+" }"
MenuAddItem(alltrim(a_Op[n_regist,3]),alltrim(a_Op[n_regist,4]),.F.,&cWhen,&c_Accion,,,oMnu,,,,.F., )
ENDCASE
ENDIF
n_regist +=1 // nuevo registro
IF n_regist>n_CountReg
EXIT
ENDIF
ENDDO
MenuEnd() // fin de menu
ENDIF
RETURN
Saludos...
