Arma MENU desde una Tabla

Post Reply
davidObarrio
Posts: 72
Joined: Tue Oct 02, 2012 4:36 pm

Arma MENU desde una Tabla

Post 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 | Expand

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 | Expand

       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
User avatar
karinha
Posts: 7928
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil
Been thanked: 3 times
Contact:

Re: Arma MENU desde una Tabla

Post by karinha »

Mira \samples\TESTMNU.PRG

Salu2.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Post Reply