FiveTech Software tech support forums

muy bien :-) La librería hbcplr.lib de Harbour es, en mi opinión, lo que le da la superioridad a Harbour sobre xHarbour, aunque en algunos casos, como este, efectivamente xHarbour sea más fácil. Esta librería contiene todo el compilador y el preprocesador, lo que permite compilar y ejecutar código d...

... Resuelto con BEGIN... SEQUENCE... END. Que compilador(Harbour) complicado! xHarbour es bien mas facil. // testing procline() con Harbour. Me gusta xHarbour. jejejejejeje.#include "FiveWin.ch"MEMVAR A, BPROCEDURE Main()   LOCAL oError  ...

hmpaquito wrote:¿ Ha incluido vd. xHb.Lib ?

Code: Select all  Expand view

echo %hdirl%\xhb.lib + >> b32.bc
 

Saludos.

// Testing Harbour ProcName() and ProcLine() -> Procname.prg de Harbour#include "FiveWin.ch"PROCEDURE Main()   Two()RETURNFUNCTION Two()   Three()RETURN NILFUNCTION Three()  ...

¿ Ha incluido vd. xHb.Lib ?

... oError:Args ) )   // Asi, con xHarbour funciona. Con Harbour NO funciona. ????   MsgInfo( cValToChar( oError:procLine() ),, "Linea del Error: 10" )  ENDRETURN NIL// Fin   Saludos.

El errorsys de FWH utiliza ProcLine() y funciona correctamente con Harbour y xHarbour

Puedes probar el ejemplo samples\testerro.prg usando buildh.bat y buildx.bat y verás
que ambos reportan el mismo número de línea

se me ocurrió que podriamos "extender" la clase Error de Harbour para implementar el mensaje ProcLine() #include "c:\harbour\contrib\xhb\xhbcls.ch" ... EXTEND CLASS Error WITH MESSAGE ProcLine INLINE ProcLine() pero la clase Error de Harbour no lo permite. ...

Karinha;
Tu ejemplo
Indica error en Linea 26 y NO en Linea 10 (Se entiende?!)
O sea ProcLine() NO esta devolviendo correctamente la línea de error; sino la línea donde se llama a ProcLine()

... oError:Description )   msgInfo( valToPrg( oError:Args ) )   MsgInfo( cValToChar( procLine() ),, "Atención" )  ENDRETURN NIL// Fin  

Karinha;
oError:procLine devuelve linea 10 (que es correcto). Mientras que ProcLine() devuelve linea 26, que NO es correcto

Que solución hay, si lo sabes, para Harbour?

Con Harbour:

Gracias, un ótimo 2017 para ti también!

Con xHarbour:



Saludos.

Karinha BOM 2017!!
muchas gracias por la ayuda!
Disculpa que insista:
Compilando con xharbour, oError:procLine devuelve el mismo numero de linea que compilando con harbour, ProcLine()?
(compilando com xHarbour, oError:procLine retorna o mesmo número da linha que a compilando com Harbour, ProcLine()?)

... oError:SubSystem ) + CRLF + "Mensaje: " + oError:Description + CRLF + ;             "Linea: " +cValToChar( oError:procLine ),,"Atención" )   #else // __HARBOUR__      Alert( "Error nro: " + cValToChar( oError:GenCode) + CRLF ...