Para Xevi

[Martin Del Angel]

Hola Xevi:
Referente a Curdrive() vi que lo resolviste.
Puedes probar incluir la libreria hbxpp.lib en tu proyecto y probar
ahora si con Curdrive() no con Hb_Curdrive().
me cuentas....
Saludos...

[XeviCOMAS]

Martin,
si bien no da error al compilar, (por lo visto en hbxpp.lib está la función
CurDrive()) me devuelve "A" cuando se trata de una unidad de red y xHarbour
devuelve "".
Nada, que con el apaño me funciona de maravilla!!!
#ifdef __XHARBOUR__
#else
FUNCTION CurDrive()
RETURN Left( FilePath( HB_ProgName() ), 1 )
#endif
Por cierto... cual es el #ifdef que se corresponde con Harbour ???
Un Saludo, y Gracias.
Xevi.
"Martin Del Angel" <martindelangel@tytsoftwaredemexico.com> ha escrit al
missatge del grup de discussió: 50c7649f$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Hola Xevi:
>
> Referente a Curdrive() vi que lo resolviste.
>
> Puedes probar incluir la libreria hbxpp.lib en tu proyecto y probar ahora
> si con Curdrive() no con Hb_Curdrive().
>
> me cuentas....
>
>
> Saludos...
>
> __________ Información de ESET NOD32 Antivirus, versión de la base de
> firmas de virus 7789 (20121211) __________
>
> ESET NOD32 Antivirus ha comprobado este mensaje.
>
> http://www.eset.com
>
>
>
__________ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 7789 (20121211) __________
ESET NOD32 Antivirus ha comprobado este mensaje.
http://www.eset.com

[Martin Del Angel]

On 12/11/2012 12:50 PM, Xevi wrote:
> Martin,
>
>
> si bien no da error al compilar, (por lo visto en hbxpp.lib está la función
> CurDrive()) me devuelve "A" cuando se trata de una unidad de red y xHarbour
> devuelve "".
>
> Nada, que con el apaño me funciona de maravilla!!!
>
> #ifdef __XHARBOUR__
> #else
> FUNCTION CurDrive()
> RETURN Left( FilePath( HB_ProgName() ), 1 )
> #endif
>
>
> Por cierto... cual es el #ifdef que se corresponde con Harbour ???
>
>
> Un Saludo, y Gracias.
> Xevi.
>
>
> "Martin Del Angel" <martindelangel@tytsoftwaredemexico.com> ha escrit al
> missatge del grup de discussió: 50c7649f$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>> Hola Xevi:
>>
>> Referente a Curdrive() vi que lo resolviste.
>>
>> Puedes probar incluir la libreria hbxpp.lib en tu proyecto y probar ahora
>> si con Curdrive() no con Hb_Curdrive().
>>
>> me cuentas....
>>
>>
>> Saludos...
>>
>> __________ Información de ESET NOD32 Antivirus, versión de la base de
>> firmas de virus 7789 (20121211) __________
>>
>> ESET NOD32 Antivirus ha comprobado este mensaje.
>>
>> http://www.eset.com
>>
>>
>>
>
>
>
> __________ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 7789 (20121211) __________
>
> ESET NOD32 Antivirus ha comprobado este mensaje.
>
> http://www.eset.com
>
>
>
>
Hola Xevi:
Po lo menos supimos donde esta Curdrive() , anuque no funcione.
lo que preguntas es esto ?
#ifdef __HARBOUR__
tal vez no te entendi
Saludos...

[XeviCOMAS]

Martín,
si, eso mismo creí yo... #ifdef __HARBOUR__
pero lo que ocurre es que cuando compilo con xHarbour me lanza el error:
Compilant XeviGWinCWin.prg...
Enllaçant GWin_xHarbour.exe...
Error: Unresolved external '_HB_FUN_HB_PROGNAME' referenced from
X:XEVIXAILERGWINOBJ_XHARBOURXEVIGWINCWIN.OBJ
1 Files, 0 Warnings, 1 Errors
Temps de compilació: 1.52s Temps d'enllaçat: 5.75s Temp total: 8.60s
Debo de ponerlo así para que compile con Harbour y xHarbour...
#ifdef __XHARBOUR__
#else
FUNCTION CurDrive()
RETURN Left( FilePath( HB_ProgName() ), 1 )
#endif
¿xHarbour no entiende la constante __HARBOUR__ ????
Un Saludo,
Xevi.
__________ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 7790 (20121211) __________
ESET NOD32 Antivirus ha comprobado este mensaje.
http://www.eset.com

[Martin Del Angel]

On 12/11/2012 3:08 PM, Xevi wrote:
> Martí­n,
>
> si, eso mismo creí­ yo... #ifdef __HARBOUR__
> pero lo que ocurre es que cuando compilo con xHarbour me lanza el error:
>
> Compilant XeviGWinCWin.prg...
> Enllaçant GWin_xHarbour.exe...
> Error: Unresolved external '_HB_FUN_HB_PROGNAME' referenced from
> X:XEVIXAILERGWINOBJ_XHARBOURXEVIGWINCWIN.OBJ
> 1 Files, 0 Warnings, 1 Errors
> Temps de compilació: 1.52s Temps d'enllaçat: 5.75s Temp total: 8.60s
>
>
> Debo de ponerlo así­ para que compile con Harbour y xHarbour...
>
> #ifdef __XHARBOUR__
> #else
> FUNCTION CurDrive()
> RETURN Left( FilePath( HB_ProgName() ), 1 )
> #endif
>
>
> ¿xHarbour no entiende la constante __HARBOUR__ ????
>
>
>
> Un Saludo,
> Xevi.
>
>
>
> __________ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 7790 (20121211) __________
>
> ESET NOD32 Antivirus ha comprobado este mensaje.
>
> http://www.eset.com
>
>
>
>
Xevi:
si la entiende , mira el Hbcompat.ch que esta en XailerHb32hbcompat.ch
De hecho yo incluyo este archivo para compilar con ambos sin tener que
cambiar casi nada.
Saludos...

[Martin Del Angel]

Corrigo : Aqui C:XailerHb32IncludeHbcompat.ch
Aprovechando que estamos hablando de Harbour
El Manejo de Xml , tengo entendido que incluyendo la libreria Xhb.lib es
suficiente
Has probado el manejo de xml con harbour ?
Saludos.

[XeviCOMAS]

Martín,
No estoy utilizando Xml, de hecho no le encuentro el encaje en mis
aplicaciones.
Alguien puede poner un ejemplo de su utilización?... sencillo, básico, como
orientación.
Un Saludo,
Xevi.
"Martin Del Angel" <martindelangel@tytsoftwaredemexico.com> ha escrit al
missatge del grup de discussió: 50c7ecd8$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Corrigo : Aqui C:XailerHb32IncludeHbcompat.ch
>
>
> Aprovechando que estamos hablando de Harbour
>
> El Manejo de Xml , tengo entendido que incluyendo la libreria Xhb.lib es
> suficiente
>
> Has probado el manejo de xml con harbour ?
>
>
> Saludos.
>
> __________ Información de ESET NOD32 Antivirus, versión de la base de
> firmas de virus 7790 (20121211) __________
>
> ESET NOD32 Antivirus ha comprobado este mensaje.
>
> http://www.eset.com
>
>
>
__________ Información de ESET NOD32 Antivirus, versión de la base de firmas de virus 7790 (20121211) __________
ESET NOD32 Antivirus ha comprobado este mensaje.
http://www.eset.com

[jfgimenez]

Xevi, Martin,
> Debo de ponerlo así­ para que compile con Harbour y xHarbour...
>
> #ifdef __XHARBOUR__
> #else
Hay que tener en cuenta que xHarbour es también Harbour. O mejor dicho,
es un folk (o derivado) de Harbour, y por lo tanto es también Harbour.
Por eso, el #define __HARBOUR__ está presente en los dos compiladores,
mientras que __XHARBOUR__ sólo existen en xHarbour. Cuando hay que
distinguir entre los dos, lo mejor es usar siempre #ifdef __XHARBOUR__ o
#ifndef __XHARBOUR__ según se necesite. En tu caso, lo mejor es poner lo
segundo.
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info

[jfgimenez]

Martin,
> Aprovechando que estamos hablando de Harbour
>
> El Manejo de Xml , tengo entendido que incluyendo la libreria Xhb.lib
> es suficiente
En Xailer 2.7 hemos intentado no depender para nada de la librerí­a
xhb.lib, porque incorpora muchas cosas de xHarbour que podrí­an ser
contraproducentes. Pero hay algunas cosas de esa librerí­a que sí­ nos
hací­a falta, como p.ej. las clases de manejo de XML. Por eso, nosotros
añadimos una librerí­a más (xharbour.lib) que incorpora solamente esas
cosas que pueden ser necesarias y que no interfieren con el resto de
elementos del lenguaje. Concretamente, esa librerí­a incluye el soporte
de XML y las funciones hb_crypt(), hb_decrypt() y hb_base64(). Y esa
librerí­a viene añadida por defecto en cualquier proyecto, así­ que no
hace falta hacer nada especial para usar los XML exactamente igual que
se usaban antes con xHarbour.
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info

[Martin Del Angel]

On 12/12/2012 3:48 AM, Jose F. Gimenez wrote:
> Xevi, Martin,
>
>> Debo de ponerlo así­ para que compile con Harbour y xHarbour...
>>
>> #ifdef __XHARBOUR__
>> #else
>
> Hay que tener en cuenta que xHarbour es también Harbour. O mejor dicho,
> es un folk (o derivado) de Harbour, y por lo tanto es también Harbour.
> Por eso, el #define __HARBOUR__ está presente en los dos compiladores,
> mientras que __XHARBOUR__ sólo existen en xHarbour. Cuando hay que
> distinguir entre los dos, lo mejor es usar siempre #ifdef __XHARBOUR__ o
> #ifndef __XHARBOUR__ según se necesite. En tu caso, lo mejor es poner lo
> segundo.
>
>
> Un saludo,
>
> José F. Giménez
> http://www.xailer.com
> http://www.xailer.info
Gracias José por las aclaraciones.
Solo preguntando se llega a Roma
Precisamente hago otra pregunta:
Estamos en el proceso de utilizar todo con Harbour, en los modulos donde
encontramos funciones incompatibles solo incluimos el archivo
hbcompat.ch y listo , es correcta esta practica ?
Por otro lado sabemos que hay cosas que si deben cambiarse como lo
explica el wiki
Saludos...

[Martin Del Angel]

On 12/12/2012 3:48 AM, Jose F. Gimenez wrote:
> Xevi, Martin,
>
>> Debo de ponerlo así­ para que compile con Harbour y xHarbour...
>>
>> #ifdef __XHARBOUR__
>> #else
>
> Hay que tener en cuenta que xHarbour es también Harbour. O mejor dicho,
> es un folk (o derivado) de Harbour, y por lo tanto es también Harbour.
> Por eso, el #define __HARBOUR__ está presente en los dos compiladores,
> mientras que __XHARBOUR__ sólo existen en xHarbour. Cuando hay que
> distinguir entre los dos, lo mejor es usar siempre #ifdef __XHARBOUR__ o
> #ifndef __XHARBOUR__ según se necesite. En tu caso, lo mejor es poner lo
> segundo.
>
>
> Un saludo,
>
> José F. Giménez
> http://www.xailer.com
> http://www.xailer.info
Provechando José:
Podria Revisar el Metodo Clone() de TDataSet() , no funciona.
Publique este el 11 de nov el el foro libre :
Buen dia Equipo de Xailer:
ya habia reportado este error anteriormente:
Tengo este codigo:
Local oDS,oDSCBB
oDS:=AppData:cnn:Query('SELECT * FROM tblpedimentos WHERE
PEDIMENTO_ID='+VALTOSTR(::oPARENT:oSQLPEDIMENTOS:PEDIMENTO_I D))
oDS:Open()
cCodigo:=Memoread(cFileCBB)
oDSCBB:=oDS:Clone()
oDSCBB:Edit()
oDSCBB:CODIGOPDF417:=cCodigo
oDSCBB:Update()
******************************* Error log file
********************************
Exe: C:SISTEMASXAILERPETRAWIN_HBPetraWin.exe
Version: 1.0.0.0
User name: MARTIN
Computer name: TOSHIBA-MARTIN
Date: 08/11/2012
Time: 19:37:09
Available Memory: 1894872
Current Area: 1
---------------------------- Compiler Information
-----------------------------
Xailer Version: Xailer 2.7.4
Compiler: Harbour 3.2.0dev (Rev. 18186)
C/C++ Compiler: Borland C++ 5.5.1 (32-bit)
Windows Platform: Windows 7 6.1.7601 Service Pack 1
--------------------- Internal Error Handling Information
---------------------
Subsystem Call: BASE
System Code: 42
Default Status: .F.
Description: Scope violation (protected)
Operation: TSQLQUERY:_ORECORDS
Arguments:
Involved File:
Dos Error Code: 0
Trace Through:
TSQLQUERY:_ORECORDS (0)
TMYSQLRECORDS:CLONE (768)
TSQLQUERY:CLONE (929)
TPRINTPEDIMENTO:BTNIMPRIMIRCLICK (153)
TBTNBMP:ONCLICK (0)
TBTNBMP:CLICK (100)
(b)XCONTROL (147)
TBTNBMP:COMMAND (0)
TPANEL:WMCOMMAND (281)
TPRINTPEDIMENTO:SHOWMODAL (0)
TPEDIMENTOS:IMPRIMEPEDIMENTOCLICK (729)
TOPTIONITEM:ONCLICK (0)
TOPTIONITEM:CLICK (273)
TOPTIONLIST:WMLBUTTONDOWN (0)
RUNFORM (0)
TAPPLICATION:RUN (280)
MAIN (19)
*** Con la Versión 2.4.4 no pasaba este error.
Saludos....

[ignacio]

Simplemente incluya esto en cualquier módulo de su aplicación:
CLASS TDataSet FROM XDataset
PUBLIC:
DATA oRecords

END CLASS
Y deberí­a funcionarle.
Un saludo

[Martin Del Angel]

On 12/12/2012 10:44 AM, Ignacio Ortiz de Zúñiga wrote:
> CLASS TDataSet FROM XDataset
>
> PUBLIC:
> DATA oRecords
> END CLASS
Gracias Ignacio:
Resuelto.

[jfgimenez]

Martin,
> Estamos en el proceso de utilizar todo con Harbour, en los modulos
> donde encontramos funciones incompatibles solo incluimos el archivo
> hbcompat.ch y listo , es correcta esta practica ?
no es que sea mala práctica, en absoluto. Ese archivo lo desarrollaron
en Harbour precí­samente con esa finalidad.
Aunque yo, personalmente, prefiero usar las cosas de xHarbour cuando
estoy en xHarbour, y sólo las de Harbour cuando estoy en Harbour. Y
ahora estoy en Harbour, lo que significa que prefiero no usar nada de
xHarbour. Eso es todo. Lo único que hemos incluido de xHarbour es lo que
comenté en el otro mensaje, pero es porque no encontramos sustituto, y
además estamos seguros de que no interfiere con nada más.
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info

[Martin Del Angel]

On 12/13/2012 10:16 AM, Jose F. Gimenez wrote:
> Martin,
>
>> Estamos en el proceso de utilizar todo con Harbour, en los modulos
>> donde encontramos funciones incompatibles solo incluimos el archivo
>> hbcompat.ch y listo , es correcta esta practica ?
>
> no es que sea mala práctica, en absoluto. Ese archivo lo desarrollaron
> en Harbour precí­samente con esa finalidad.
>
> Aunque yo, personalmente, prefiero usar las cosas de xHarbour cuando
> estoy en xHarbour, y sólo las de Harbour cuando estoy en Harbour. Y
> ahora estoy en Harbour, lo que significa que prefiero no usar nada de
> xHarbour. Eso es todo. Lo único que hemos incluido de xHarbour es lo que
> comenté en el otro mensaje, pero es porque no encontramos sustituto, y
> además estamos seguros de que no interfiere con nada más.
>
>
> Un saludo,
>
> José F. Giménez
> http://www.xailer.com
> http://www.xailer.info
Muchas Gracias José por las aclaraciones y perfectamente entendido.
Saludos...