topic-29376

Posts: 72

Joined: Tue Oct 02, 2012 04:36 PM

Arma MENU desde una Tabla
Posted: Fri Oct 03, 2014 09:09 PM

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 (fw): Select all Collapse

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 (fw): Select all Collapse

        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

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Arma MENU desde una Tabla
Posted: Mon Oct 06, 2014 01:26 PM

Mira \samples\TESTMNU.PRG

Salu2.

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

FiveTech Support Forums

Continue the discussion