Page 1 of 1

Arma MENU desde una Tabla

Posted: Fri Oct 03, 2014 9:09 pm
by 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.... :oops:

muchas gracias

David

Re: Arma MENU desde una Tabla

Posted: Mon Oct 06, 2014 1:26 pm
by karinha
Mira \samples\TESTMNU.PRG

Salu2.