FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour xbrowse modificado
Posts: 1364
Joined: Wed Jun 21, 2006 12:39 AM
xbrowse modificado
Posted: Wed Aug 08, 2012 01:19 PM
He hecho algunas modificaciones en el método Report de xbrowse, lo añadí al proyecto pero al correrlo me sale este error:

Code (fw): Select all Collapse
Called from:  => __ERRRT_SBASE( 0 )
   Called from: ../../../tobject.prg => NIL:ERROR( 0 )
   Called from: ../../../tobject.prg => (b)HBOBJECT( 0 )
   Called from: ../../../tobject.prg => NIL:MSGNOTFOUND( 0 )
   Called from: ../../../tobject.prg => (b)EVAL( 0 )
   Called from: C:\sipep_sql\xbrowse.prg => (b)TXBRWCOLUMN( 8466 )
   Called from: C:\sipep_sql\xbrowse.prg => TXBRWCOLUMN:LEDITABLE( 0 )
   Called from: C:\sipep_sql\xbrowse.prg => TXBROWSE:KEYCHAR( 2252 )
   Called from:  => TWINDOW:HANDLEEVENT( 0 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1700 )
   Called from: C:\sipep_sql\xbrowse.prg => TXBROWSE:HANDLEEVENT( 11632 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3153 )
   Called from:  => DIALOGBOXINDIRECT( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 270 )
   Called from: .\source\function\MSGRUN.PRG => MSGRUN( 42 )
   Called from: C:\sipep_sql\empresas.prg => KEYLAEMPRESA( 341 )
   Called from: C:\sipep_sql\empresas.prg => (b)SELECCIONAR( 302 )
   Called from: .\source\classes\WINDOW.PRG => TWINDOW:KEYDOWN( 2610 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:KEYDOWN( 1019 )
   Called from: C:\sipep_sql\xbrowse.prg => TXBROWSE:KEYDOWN( 2201 )
   Called from:  => TWINDOW:HANDLEEVENT( 0 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1700 )
   Called from: C:\sipep_sql\xbrowse.prg => TXBROWSE:HANDLEEVENT( 11632 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3153 )
   Called from:  => DIALOGBOX( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 270 )
   Called from: C:\sipep_sql\empresas.prg => SELECCIONAR( 319 )
   Called from: C:\sipep_sql\Sipep.prg => (b)EMPIEZA( 279 )
   Called from: .\source\classes\WINDOW.PRG => TMDIFRAME:ACTIVATE( 973 )
   Called from: C:\sipep_sql\Sipep.prg => EMPIEZA( 279 )
   Called from: C:\sipep_sql\Sipep.prg => MAIN( 49 )

Lo curioso es que si añado esta clase sin la modificación del report sigue sucediendo el error. No se produce si lo hago directamente desde las librerias de FWH. Esta situación se presenta si compilo con Harbour, si lo hago con xHarbour no tengo este problema. Alguien sabe ??? desde ya muchisimas gracias.
Posts: 989
Joined: Thu Nov 24, 2005 03:01 PM
Re: xbrowse modificado
Posted: Wed Aug 08, 2012 01:48 PM

Horacio,

probá de recompilar TODO de nuevo. Por el mensaje de error parece que el errorsys que estás usando no está pasando el objeto donde se produce el error, lo adivino por lo que dice de NIL:MSGNOTFOUND( 0 )

Fijate bien que errorsys estás usando, asegurate de que sea el de FW.

Saludos
Carlos Mora
http://harbouradvisor.blogspot.com/
StackOverflow http://stackoverflow.com/users/549761/carlos-mora
“If you think education is expensive, try ignorance"
Posts: 1364
Joined: Wed Jun 21, 2006 12:39 AM
Re: xbrowse modificado
Posted: Wed Aug 08, 2012 09:02 PM

Carlos, gracias por responder. Uso el errsysw nativo de fw. Lo extraño es que si la clase xbrowse que viene en \source\classes la compilo con mis módulos no funciona, me tira el error que puse en el post anterior. Lo mismo me pasa con la clase bar, si lo agrego a mi proyecto cuando ejecuto xBrowse : Report() se produce un error. No me doy cuenta que puede ser. sigo investigando.

Posts: 1303
Joined: Tue Jul 21, 2009 08:12 AM
Re: xbrowse modificado
Posted: Thu Aug 09, 2012 09:51 AM

Horario,

Verifica que todos los módulos estén compilados con la misma versión de FWH, Harbour y los mismos switches a ver qué tal.

Muchas gracias. Many thanks.



Un saludo, Best regards,



Harbour 3.2.0dev, Borland C++ 5.82 y FWH 13.06 [producción]



Implementando MSVC 2010, FWH64 y ADO.



Abandonando uso xHarbour y SQLRDD.

Continue the discussion