Si alguien pudiera ayudarme
- Code: Select all Expand view
- // si son eliminaciones
case pnOperacion == 3 .and. msgyesno( "Esta seguro de eliminar el Registro ?", oApp:cEmpresa )
cRuta := ".\datos\EMPR" + alltrim(cId) + "\"
AEVAL( Directory( cRuta + "*.*" ), { |aFile| MsgRun( "Eliminando Archivos: " + Upper(AllTrim(cRuta + aFile[ F_NAME ])), oApp:cEmpresa, { fErase( cRuta + aFile[ F_NAME ] ) } ) } )
Y este es el error
- Code: Select all Expand view
- Application
===========
Path and name: P:\Fuentes\xHarbour\InvFis32\BIN\InvFis32.Exe (32 bits)
Size: 4,049,408 bytes
Compiler version: xHarbour 1.2.3 Intl. (SimpLex) (Build 20150419)
FiveWin Version: FWHX 14.12
Windows version: 6.1, Build 7601 Service Pack 1
Time from start: 0 hours 6 mins 52 secs
Error occurred at: 18/03/2017, 20:31:46
Error description: Error BASE/1004 Class: 'ARRAY' has no exported method: EVAL
Args:
[ 1] = A { ... } length: 1
[ 2] = O TDIALOG
Stack Calls
===========
Called from: => EVAL( 0 )
Called from: Source\MIOS\rutinas.prg => (b)MSGRUN( 355 )
Called from: .\source\classes\DIALOG.PRG => (b)TDIALOG:TDIALOG( 90 )
Called from: => TDIALOG:DISPLAY( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT( 893 )
Called from: => DIALOGBOXINDIRECT( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 286 )
Called from: Source\MIOS\rutinas.prg => MSGRUN( 362 )
Called from: Source\catalogo.prg => (b)F_EMPRESAS( 400 )
Called from: => AEVAL( 0 )
Called from: Source\catalogo.prg => F_EMPRESAS( 400 )
Called from: Source\util.prg => (b)XCATALOGO( 1219 )
Called from: .\source\classes\BUTTON.PRG => TBUTTONBMP:CLICK( 175 )
Called from: .\source\classes\CONTROL.PRG => TBUTTON:HANDLEEVENT( 1687 )
Called from: .\source\classes\BUTTONB.PRG => TBUTTONBMP:HANDLEEVENT( 214 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3345 )
Called from: => SENDMESSAGE( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:COMMAND( 403 )
Called from: => TWINDOW:HANDLEEVENT( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT( 906 )
Called from: => DIALOGBOX( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 286 )
Called from: Source\util.prg => XCATALOGO( 1248 )
Called from: Source\catalogo.prg => CATALOGO( 71 )
Called from: Source\main.prg => (b)F_MENU( 234 )
Called from: .\source\classes\MENU.PRG => TMENU:COMMAND( 561 )
Called from: .\source\classes\WINDOW.PRG => TWINDOW:COMMAND( 1097 )
Called from: => TWINDOW:HANDLEEVENT( 0 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3345 )
Called from: => WINRUN( 0 )
Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 1050 )
Called from: Source\main.prg => MAIN( 206 )
De antemano muchas gracias