Page 1 of 1

Errores en una clase

PostPosted: Sat Mar 02, 2019 9:51 pm
by 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

Re: Errores en una clase

PostPosted: Sun Mar 03, 2019 4:47 am
by 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.

Re: Errores en una clase

PostPosted: Sun Mar 03, 2019 11:40 am
by 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

Re: Errores en una clase

PostPosted: Sun Mar 03, 2019 11:44 am
by horacio
La aplicación hace tiempo que está en producción, en esa clase agregué algunos métodos y comenzaron los problemas.

Saludos

Re: Errores en una clase

PostPosted: Mon Mar 04, 2019 3:46 pm
by horacio
Ya encontré porque se congelaba la aplicación, era un try catch end muy mal puesto para evitar este error.

Code: Select all  Expand view

   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