Errores en una clase

[horacio]

Colegas, tengo una aplicación donde el sistema de errores funciona pero en una clase cada vez que se genera un error la aplicación se friza. No me pidan el código porque es extenso. Sé que existe el método On Error pero no logro hacerlo funcionar. Algún tips ? Muchísimas gracias

Saludos

[cnavarro]

Tampoco puedes poner el código del Method OnError?
Lo digo, porque si hay un error en este metodo, la aplicación entra en "bucle" y se congela.

[horacio]

Gracias Cristobal por responder, en realidad solo puse un mensaje para ver si entraba en ese método pero se congela y no lo muestra.

Saludos

[horacio]

La aplicación hace tiempo que está en producción, en esa clase agregué algunos métodos y comenzaron los problemas.

Saludos

[horacio]

Ya encontré porque se congelaba la aplicación, era un try catch end muy mal puesto para evitar este error.

Code: Select all

   Time from start: 0 hours 0 mins 25 secs 
   Error occurred at: 04/03/2019, 12:12:06
   Error description: Error BASE/1004  No existe el método: END
   Args:
     [   1] = A   { ... } length: 0

Stack Calls
===========
   Called from:  => END( 0 )
   Called from: .\source\internal\FWMARIA.PRG => (b)FWMARIAROWSET_FWMARIAROWSET_DESTROY( 3251 )
   Called from:  => AEVAL( 0 )
   Called from: .\source\internal\FWMARIA.PRG => FWMARIAROWSET:__msgDestructor( 3251 )
   Called from:  => HB_GCALL( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:END( 546 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:KEYDOWN( 778 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:KEYDOWN( 923 )
   Called from: .\source\classes\TGET.PRG => TGET:KEYDOWN( 1425 )
   Called from:  => TWINDOW:HANDLEEVENT( 0 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1731 )
   Called from: .\source\classes\TGET.PRG => TGET:HANDLEEVENT( 767 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3325 )
   Called from:  => DIALOGBOX( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 296 )
   Called from: C:\gestion\TCobro.prg => TCOBRO:MUESTRACONCEPTOSENTABLA( 1293 )
   Called from: C:\gestion\TCobro.prg => TCOBRO:KEYMODIFICAFACTURA( 1373 )
   Called from: C:\gestion\TCobro.prg => (b)TCOBRO_MODIFICAFACTURA( 1216 )
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:KEYDOWN( 2687 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:KEYDOWN( 1045 )
   Called from: C:\gestion\xbrowse.prg => TXBROWSE:KEYDOWN( 3065 )
   Called from:  => TWINDOW:HANDLEEVENT( 0 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1731 )
   Called from: C:\gestion\xbrowse.prg => TXBROWSE:HANDLEEVENT( 14312 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3325 )
   Called from:  => DIALOGBOX( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 296 )
   Called from: C:\gestion\TCobro.prg => TCOBRO:MODIFICAFACTURA( 1239 )
   Called from: C:\gestion\TCobro.prg => TCOBRO:KEYBRW1( 661 )
   Called from: C:\gestion\TCobro.prg => (b)TCOBRO_PONDIALOGO( 207 )
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:KEYDOWN( 2687 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:KEYDOWN( 1045 )
   Called from: C:\gestion\xbrowse.prg => TXBROWSE:KEYDOWN( 3065 )
   Called from:  => TWINDOW:HANDLEEVENT( 0 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1731 )
   Called from: C:\gestion\xbrowse.prg => TXBROWSE:HANDLEEVENT( 14312 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3325 )
   Called from:  => DIALOGBOX( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 296 )
   Called from: C:\gestion\TCobro.prg => TCOBRO:PONDIALOGO( 318 )
   Called from: C:\gestion\TCobro.prg => TCOBRO:NEW( 99 )
   Called from: C:\gestion\alumnos.prg => (b)TABLAALUMNOS( 277 )
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE( 1022 )
   Called from: .\source\classes\MDICHILD.PRG => TMDICHILD:ACTIVATE( 262 )
   Called from: C:\gestion\alumnos.prg => TABLAALUMNOS( 277 )
   Called from:  => (b)EVAL( 113 )
   Called from: C:\gestion\util.prg => (b)MSGRUN( 1626 )
   Called from: .\source\classes\DIALOG.PRG => (b)TDIALOG( 95 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:DISPLAY( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT( 901 )
   Called from:  => DIALOGBOXINDIRECT( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 296 )
   Called from: C:\gestion\util.prg => MSGRUN( 1630 )
   Called from: C:\gestion\main.prg => (b)START( 113 )
   Called from: .\source\classes\TRBTN.PRG => TRBTN:CLICK( 717 )
   Called from: .\source\classes\TRBTN.PRG => TRBTN:LBUTTONUP( 917 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1721 )
   Called from: .\source\classes\TRBTN.PRG => TRBTN:HANDLEEVENT( 1575 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3325 )
   Called from:  => WINRUN( 0 )
   Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE( 1036 )
   Called from: C:\gestion\main.prg => START( 140 )
   Called from: C:\gestion\main.prg => MAIN( 67 )
 

Lo extraño es que cada cierre de una consulta si la tengo con un try, catch end. El error no se produce siempre, generalmente cuando cambio de ventana y vuelvo a la ventana donde se ejecuta esta clase. Uso FWH 17.01 Harbour y BCC

Saludos