FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Errores en una clase
horacio
Posts: 1364
Joined: Wed Jun 21, 2006 12:39 AM

Errores en una clase

Posted: Sat Mar 02, 2019 09:51 PM

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
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM

Re: Errores en una clase

Posted: Sun Mar 03, 2019 04:47 AM

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.

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noci贸n del tiempo

El secreto de la felicidad no est谩 en hacer lo que te gusta, sino en que te guste lo que haces
horacio
Posts: 1364
Joined: Wed Jun 21, 2006 12:39 AM

Re: Errores en una clase

Posted: Sun Mar 03, 2019 11:40 AM

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
Posts: 1364
Joined: Wed Jun 21, 2006 12:39 AM

Re: Errores en una clase

Posted: Sun Mar 03, 2019 11:44 AM

La aplicaci贸n hace tiempo que est谩 en producci贸n, en esa clase agregu茅 algunos m茅todos y comenzaron los problemas.

Saludos

horacio
Posts: 1364
Joined: Wed Jun 21, 2006 12:39 AM

Re: Errores en una clase

Posted: Mon Mar 04, 2019 03:46 PM
Ya encontr茅 porque se congelaba la aplicaci贸n, era un try catch end muy mal puesto para evitar este error.

Code (fw): Select all Collapse
聽 聽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

Continue the discussion

Static archive 路 New replies & topics via GitHub Discussions