Consulta sobre MsgRun (Solucionado)

Consulta sobre MsgRun (Solucionado)

Postby juan_arroyo_t » Sun Mar 19, 2017 2:40 am

A los compañeros del foro

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
Juan Arroyo
México
FWH 7.12 VERCE 5.3 xHarbour 1.1.0
juan_arroyo_t@hotmail.com
User avatar
juan_arroyo_t
 
Posts: 196
Joined: Fri May 15, 2009 1:25 am
Location: Cuautitlán, Mexico

Re: Consulta sobre MsgRun (Solucionado)

Postby juan_arroyo_t » Sun Mar 19, 2017 4:50 pm

Amigos

Lo pude solucionar de esta forma

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) + "\"


      aFiles := Directory(cRuta + "
*.*" )
      EliminaEmpresa(cRuta)

      if dirremove(cRuta) != 0
         MsgStop("
No fue posible eliminar el directorio, verifique...", oApp:cEmpresa)
      endif

      if empr->(rec_lock(5))
         empr->(dbDelete()); empr->(dbUnlock())
      endif

  endcase
return(nil)

FUNCTION EliminaEmpresa(cRuta)
   LOCAL i, cNomArc
   FOR i := 1 TO Len(aFiles)
      cNomArc := aFiles[i][F_NAME]
      MsgRun( "
Eliminando Archivos: " + cRuta + cNomArc, oApp:cEmpresa, ;
              {|| fErase( cRuta + cNomArc ) } )
   NEXT
RETURN nil
Juan Arroyo
México
FWH 7.12 VERCE 5.3 xHarbour 1.1.0
juan_arroyo_t@hotmail.com
User avatar
juan_arroyo_t
 
Posts: 196
Joined: Fri May 15, 2009 1:25 am
Location: Cuautitlán, Mexico


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 7 guests