Arma MENU desde una Tabla

[davidObarrio]

Estimados

Quiero Armar el menú desde una Tabla... mas o menos igual que desde un base de dato.

El tema que cuando quiero ejecutar la funcion que corresponde al items del menú NO me reconoce las variables que deben ir en dicha funcion.

Code: Select all

MAEREPLV:=CDX_Abrir('MAEREPLV',0,1,'MAEREPLV')
(MAEREPLV)->(ORDSETFOCUS( 2 ))
(MAEREPLV)->(dbgotop())

While !(MAEREPLV)->(Eof())

  aadd( mReportesItems , (MAEREPLV)->DETALLE )
  aadd( mReportesFunci , '{||RepMaesDocu(EMPRESA,'+str((MAEREPLV)->CODIINT,10)+',mCodiUSUA)}' )

  (MAEREPLV)->(DbSkip())

EndDo
ER_4(MAEREPLV)
 

y en en el Menu lo ejecuto así:

Code: Select all

        For Xmenu = 1 to len(mReportesItems)
        
          MENUITEM mReportesItems[Xmenu] ;
                     MESSAGE mReportesItems[Xmenu] ;
                     BLOCK &(mReportesFunci[Xmenu]) 
        
        Next Xmenu
 

cuando selecciono la opcion del menu me dice que No existe la variable EMPRESA... esta variable es una variable Static y tiene un TEXTO

cual es mi error....

muchas gracias

David

[karinha]

Mira \samples\TESTMNU.PRG

Salu2.