Incompatibilidad entre HMG 3.0.37a y HMG 3.0.40
Moderator: Rathinagiri
Incompatibilidad entre HMG 3.0.37a y HMG 3.0.40
Hola:
Tengo un pequeño programa que genera un archivo excell.
Al compilarlo con cualquier version superior a la versión HMG 3.0.37a, (HMG 3.0.38 hasta la HMG 3.0.40), en el excel ya no se ve bien las vocales con tilde y otros caracteres especiales como el simbolo º.
Por ejemplo en el excel debe aparecer esto:
Nº:
áÁ éÉ íÍ óÓ úÚ
º ñÑ ª
En la version HMG 3.0.37a funciona bien.
Adjunto fuentes para probar y graficos de como funciona los programas en las diferenctes versiones.
Cualquier ayuda es bienvenida.
De antemano, muchas gracias.
Salu2,
GVS
Tengo un pequeño programa que genera un archivo excell.
Al compilarlo con cualquier version superior a la versión HMG 3.0.37a, (HMG 3.0.38 hasta la HMG 3.0.40), en el excel ya no se ve bien las vocales con tilde y otros caracteres especiales como el simbolo º.
Por ejemplo en el excel debe aparecer esto:
Nº:
áÁ éÉ íÍ óÓ úÚ
º ñÑ ª
En la version HMG 3.0.37a funciona bien.
Adjunto fuentes para probar y graficos de como funciona los programas en las diferenctes versiones.
Cualquier ayuda es bienvenida.
De antemano, muchas gracias.
Salu2,
GVS
- Attachments
-
- Main.zip
- Fuentes
- (1.67 KiB) Downloaded 236 times
-
- gvs2.png (25.69 KiB) Viewed 5418 times
-
- dibujo2
- gvs1.png (29.31 KiB) Viewed 5418 times
- danielmaximiliano
- Posts: 2612
- Joined: Fri Apr 09, 2010 4:53 pm
- Location: Argentina
- Contact:
Re: Incompatibilidad entre HMG 3.0.37a y HMG 3.0.40
puedes postear parte del codigo Excell.
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*
Saludos / Regards
DaNiElMaXiMiLiAnO
Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*
Saludos / Regards
DaNiElMaXiMiLiAnO
Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
Re: Incompatibilidad entre HMG 3.0.37a y HMG 3.0.40
Hola Daniel, gracias por responder.
El código va adjunto al post anterior en un archivo main.zip.
Debo aclarar que en la versión que trabaja bien es en la HMG 3.0.35, la acabo de bajar y funciona bien.
A partir de la HMG 3.0.37 hasta la HMG 3.0.40 es donde el comportamiento y la visualización de los caráteres especiales son incorrectos.
De todas formas aqui pego el codigo:
El FMG y los demas archivos estan en el ZIP enviado.
Espero me puedan ayudar.
De antemano mucha gracias.
Salu2,
GVS
El código va adjunto al post anterior en un archivo main.zip.
Debo aclarar que en la versión que trabaja bien es en la HMG 3.0.35, la acabo de bajar y funciona bien.
A partir de la HMG 3.0.37 hasta la HMG 3.0.40 es donde el comportamiento y la visualización de los caráteres especiales son incorrectos.
De todas formas aqui pego el codigo:
Code: Select all
#include <hmg.ch>
DECLARE WINDOW frmRegVen
REQUEST DBFCDX
PROCEDURE Main
SET DELE ON
// setmode(25,80)
rddSetDefault( "DBFCDX" )
SET DATE BRIT
SET LANGUAGE TO SPANISH
Load Window frmRegVen
frmRegVen.Center
frmRegVen.Activate
Return
PROCEDURE Procesa()
*
oExcel := CreateObject( "Excel.Application" )
oExcel:Visible := .T.
oExcel:WorkBooks:Add()
oExcel:Sheets:Add:Name = "GVS"
oHoja := oExcel:ActiveSheet()
*
oHoja:Cells( 1, 1 ):Value := "Desarrollado con: "
oHoja:Cells( 2, 1 ):Value := MiniGUIVersion()
oHoja:Cells( 3, 1 ):Value := Version()
oHoja:Cells( 4, 1 ):Value := HB_Compiler()
oHoja:Cells( 5, 1 ):Value := HB_OEMTOANSI("Nº: ")
oHoja:Cells( 6, 1 ):Value := HB_OEMTOANSI(" áéíóú ÁÉÍÓÚ")
oHoja:Cells( 7, 1 ):Value := " áéíóú ÁÉÍÓÚ"
RETURN
Espero me puedan ayudar.
De antemano mucha gracias.
Salu2,
GVS
- danielmaximiliano
- Posts: 2612
- Joined: Fri Apr 09, 2010 4:53 pm
- Location: Argentina
- Contact:
Re: Incompatibilidad entre HMG 3.0.37a y HMG 3.0.40
Hola Guillermo:
Mira, no encontre problemas de compatibilidad en HMG, sucede que cambio algunas cosas en Harbour desde la version 2.1
y la Nightly que usa HMG.3.0.40
voy a probar lenguajes
Mira, no encontre problemas de compatibilidad en HMG, sucede que cambio algunas cosas en Harbour desde la version 2.1
y la Nightly que usa HMG.3.0.40
voy a probar lenguajes
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*
Saludos / Regards
DaNiElMaXiMiLiAnO
Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*
Saludos / Regards
DaNiElMaXiMiLiAnO
Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
- danielmaximiliano
- Posts: 2612
- Joined: Fri Apr 09, 2010 4:53 pm
- Location: Argentina
- Contact:
Re: Incompatibilidad entre HMG 3.0.37a y HMG 3.0.40
Hola Guillermo :
Buenas Noticias , al utilizar HMG.3.0.40 estas utilizando caracteres Unicode entonces al utilizar
no corresponden el juego de carácteres enviado desde la aplicacion ya que no estamos en modo Consola.
Harbour References : Convert a DOS(OEM) Character to a WINDOWS (ANSI) based character
sin enbargo puedes seleccionar el juego de caracteres unicode mediante :
los caracteres ahora enviado a Excell son correctos hasta el momento. no se si habra algún otro problema pero puedes seguir probando
Buenas Noticias , al utilizar HMG.3.0.40 estas utilizando caracteres Unicode entonces al utilizar
Code: Select all
HB_OEMTOANSI("Nº: ")
Harbour References : Convert a DOS(OEM) Character to a WINDOWS (ANSI) based character
sin enbargo puedes seleccionar el juego de caracteres unicode mediante :
Code: Select all
HB_CDPSELECT( "UTF8" )
Code: Select all
oHoja:Cells( 1, 1 ):Value := "Desarrollado con: "
oHoja:Cells( 2, 1 ):Value := MiniGUIVersion()
oHoja:Cells( 3, 1 ):Value := Version()
oHoja:Cells( 4, 1 ):Value := HB_Compiler()
oHoja:Cells( 5, 1 ):Value := "N°:"
oHoja:Cells( 6, 1 ):Value := " ñ Ñ ¦ "
oHoja:Cells( 7, 1 ):Value := " áéíóú ÁÉÍÓÚ"
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*
Saludos / Regards
DaNiElMaXiMiLiAnO
Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*
Saludos / Regards
DaNiElMaXiMiLiAnO
Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
Re: Incompatibilidad entre HMG 3.0.37a y HMG 3.0.40
Hola Daniel,
Solo agregue esta línea:
y ahora funciona perfecto, aunque falta ver cómo exporta las tildes y los carácteres especiales que tengo en las DBF.
Muchisimas Gracias por tu ayuda.
Salu2,
GVS
Solo agregue esta línea:
Code: Select all
HB_CDPSELECT( "UTF8" )
Muchisimas Gracias por tu ayuda.
Salu2,
GVS
Re: Incompatibilidad entre HMG 3.0.37a y HMG 3.0.40
Hola Daniel, Malas Noticias
Resulta que solo algunos Caracteres especiales lo muestra bien.
¿Dónde puedo encontrar documentación sobre la función HB_CPDSELECT()
Salu2,
GVS
Resulta que solo algunos Caracteres especiales lo muestra bien.
¿Dónde puedo encontrar documentación sobre la función HB_CPDSELECT()
Salu2,
GVS
gvaronas wrote:Hola Daniel,
Solo agregue esta línea:
y ahora funciona perfecto, aunque falta ver cómo exporta las tildes y los carácteres especiales que tengo en las DBF.Code: Select all
HB_CDPSELECT( "UTF8" )
Muchisimas Gracias por tu ayuda.
Salu2,
GVS
- danielmaximiliano
- Posts: 2612
- Joined: Fri Apr 09, 2010 4:53 pm
- Location: Argentina
- Contact:
Re: Incompatibilidad entre HMG 3.0.37a y HMG 3.0.40
Guillermo:
Puedes postear parte del codigo que utilizas en tu aplicacion.
si usas una tabla/dbf con algunos registros que no compromenta la info que tienes guardada.
perdon me olvide el link :
http://www.vouch.info/harbour/index.html?codepage.htm
Puedes postear parte del codigo que utilizas en tu aplicacion.
si usas una tabla/dbf con algunos registros que no compromenta la info que tienes guardada.
perdon me olvide el link :
http://www.vouch.info/harbour/index.html?codepage.htm
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*
Saludos / Regards
DaNiElMaXiMiLiAnO
Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*
Saludos / Regards
DaNiElMaXiMiLiAnO
Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
Re: Incompatibilidad entre HMG 3.0.37a y HMG 3.0.40
Daniel, justo te iba a pedir que mas bien tu me envies el código que tienes, ya que me contentaría con salida del excel que muestas en el gráfico.danielmaximiliano wrote:Guillermo:
Puedes postear parte del codigo que utilizas en tu aplicacion.
si usas una tabla/dbf con algunos registros que no compromenta la info que tienes guardada.
Porfa, enviame tu código de prueba.
Salu2,
GVS
- danielmaximiliano
- Posts: 2612
- Joined: Fri Apr 09, 2010 4:53 pm
- Location: Argentina
- Contact:
Re: Incompatibilidad entre HMG 3.0.37a y HMG 3.0.40
Code: Select all
#include <hmg.ch>
DECLARE WINDOW frmRegVen
REQUEST DBFCDX
PROCEDURE Main
SET DELE ON
// setmode(25,80)
rddSetDefault( "DBFCDX" )
HB_CDPSELECT( "UTF8" )
Load Window frmRegVen
frmRegVen.Center
frmRegVen.Activate
Return
PROCEDURE Procesa()
*
oExcel := CreateObject( "Excel.Application" )
oExcel:Visible := .T.
oExcel:WorkBooks:Add()
oExcel:Sheets:Add:Name = "GVS"
oHoja := oExcel:ActiveSheet()
*
oHoja:Cells( 1, 1 ):Value := "Desarrollado con: "
oHoja:Cells( 2, 1 ):Value := MiniGUIVersion()
oHoja:Cells( 3, 1 ):Value := Version()
oHoja:Cells( 4, 1 ):Value := HB_Compiler()
oHoja:Cells( 5, 1 ):Value := "N°:"
oHoja:Cells( 6, 1 ):Value := " ñ Ñ ¦ "
oHoja:Cells( 7, 1 ):Value := " áéíóú ÁÉÍÓÚ"
oHoja:Cells( 7, 1 ):Value := "ÀÁÃÄÅÈÊËÌÍÏÜÙÛ?˜ "
RETURN
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*
Saludos / Regards
DaNiElMaXiMiLiAnO
Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*
Saludos / Regards
DaNiElMaXiMiLiAnO
Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO