Tengo en la base de datos una columna y tiene almacenado esta Instrucion {|| Accesos("PROG_VENDED()","PROG_VENDED",0,::oWnd) } y la quiero ejecutar.
- Code: Select all Expand view
MENUITEM "&Movimientos"
MENU
FOR nMenu = 1 To LEN( ::aMenu1 )
nCont++
*--//Accesos("PROG_VENDED()","PROG_VENDED",0,::oWnd)
IF ! EMPTY( ::aMenu1 )
MENUITEM oItem PROMPT ::aMenu1[ nMenu,1] OF ::oMenu ;
MESSAGE ::aMenu1[ nMenu,2 ] ACTION ::aMenu1[ nMenu,3 ]
// tambien lo he cambiado asi BLOCK oApp:aMenu2[nMenu,3]
*--
ENDIF
NEXT nMenu
ENDMENU
nCont := 0
Aqui lleno la matriz
[code]
DO WHILE ! oQuery:Eof()
nOp := SUBSTR( oQuery:Fields("codigo"):Value,1,1 )
cDato1 := ALLTRIM( oQuery:Fields("opcion"):Value )
cDato2 := ALLTRIM( oQuery:Fields("aviso"):Value )
cBlock2 := ALLTRIM( oQuery:Fields("modulo"):Value )
*--
IF ! EMPTY( oQuery:Fields("modulo"):Value )
cDato3 := &(cBlock2)
ELSE
cDato3 := cBlock1
ENDIF
cDato4 := ALLTRIM( oQuery:Fields("recurso"):Value )
*--
cText := "aMenu"
cText += nOp
AADD( ::&cText, { cDato1, cDato2, cDato3, cDato4 } )
oQuery:MoveNext()
ENDDO
[/code]
Cuando lo ejecuto con ACTION ::aMenu1[ nMenu,3 ] me da este error
- Code: Select all Expand view
Application
===========
Path and name: K:\proy_harb\plastwin.Exe (32 bits)
Size: 1,664,512 bytes
Time from start: 0 hours 0 mins 11 secs
Error occurred at: 11/01/2011, 09:48:48
Error description: Error BASE/1132 Bound error: array access
Args:
[ 1] = A { ... }
[ 2] = N 7
Stack Calls
===========
Called from: K:\PROY_H~1\PRG_XH\pxpmenbar.prg => (b)MENU01_1:DBUILMENU(725)
Called from: .\source\classes\MENU.PRG => TMENU:COMMAND(484)
Called from: .\source\classes\WINDOW.PRG => TWINDOW:COMMAND(1048)
Called from: .\source\classes\MDIFRAME.PRG => TMDIFRAME:COMMAND(243)
Called from: => TMDIFRAME:HANDLEEVENT(0)
Called from: .\source\classes\WINDOW.PRG => _FWH(3443)
Called from: => WINRUN(0)
Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE(995)
Called from: K:\PROY_H~1\PRG_XH\pxpmenbar.prg => MENU01_1:DIALMEN00(198)
Called from: K:\PROY_H~1\PRG_XH\pxpmenbar.prg => MENU01_1:NEW(1482)
Called from: K:\PROY_H~1\PRG_XH\pxpmenu.prg => MAIN(541)
Cuano lo ejecuto con BLOCK ::aMenu1[ nMenu,3 ] me da este error
- Code: Select all Expand view
Application
===========
Path and name: K:\proy_harb\plastwin.Exe (32 bits)
Size: 1,664,512 bytes
Time from start: 0 hours 0 mins 9 secs
Error occurred at: 11/01/2011, 09:42:22
Error description: Error BASE/1003 Variable does not exist: SELF
Stack Calls
===========
Called from: K:\PROY_H~1\PRG_XH\pxpmenbar.prg => (b)MENU01_1:MENUGEN(1002)
Called from: .\source\classes\MENU.PRG => TMENU:COMMAND(484)
Called from: .\source\classes\WINDOW.PRG => TWINDOW:COMMAND(1048)
Called from: .\source\classes\MDIFRAME.PRG => TMDIFRAME:COMMAND(243)
Called from: => TMDIFRAME:HANDLEEVENT(0)
Called from: .\source\classes\WINDOW.PRG => _FWH(3443)
Called from: => WINRUN(0)
Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE(995)
Called from: K:\PROY_H~1\PRG_XH\pxpmenbar.prg => MENU01_1:DIALMEN00(198)
Called from: K:\PROY_H~1\PRG_XH\pxpmenbar.prg => MENU01_1:NEW(1482)
Called from: K:\PROY_H~1\PRG_XH\pxpmenu.prg => MAIN(541)