Incompatibilidad entre HMG 3.0.37a y HMG 3.0.40

HMG en Español

Moderator: Rathinagiri

gvaronas
Posts: 109
Joined: Wed Aug 06, 2008 5:21 pm

Incompatibilidad entre HMG 3.0.37a y HMG 3.0.40

Post by gvaronas »

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
Attachments
Main.zip
Fuentes
(1.67 KiB) Downloaded 233 times
gvs2.png
gvs2.png (25.69 KiB) Viewed 5346 times
dibujo2
dibujo2
gvs1.png (29.31 KiB) Viewed 5346 times
User avatar
danielmaximiliano
Posts: 2611
Joined: Fri Apr 09, 2010 4:53 pm
Location: Argentina
Contact:

Re: Incompatibilidad entre HMG 3.0.37a y HMG 3.0.40

Post by danielmaximiliano »

puedes postear parte del codigo Excell.
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*

Saludos / Regards
DaNiElMaXiMiLiAnO

Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
gvaronas
Posts: 109
Joined: Wed Aug 06, 2008 5:21 pm

Re: Incompatibilidad entre HMG 3.0.37a y HMG 3.0.40

Post by gvaronas »

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:

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
El FMG y los demas archivos estan en el ZIP enviado.

Espero me puedan ayudar.
De antemano mucha gracias.

Salu2,
GVS
User avatar
danielmaximiliano
Posts: 2611
Joined: Fri Apr 09, 2010 4:53 pm
Location: Argentina
Contact:

Re: Incompatibilidad entre HMG 3.0.37a y HMG 3.0.40

Post by danielmaximiliano »

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
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*

Saludos / Regards
DaNiElMaXiMiLiAnO

Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
User avatar
danielmaximiliano
Posts: 2611
Joined: Fri Apr 09, 2010 4:53 pm
Location: Argentina
Contact:

Re: Incompatibilidad entre HMG 3.0.37a y HMG 3.0.40

Post by danielmaximiliano »

Hola Guillermo :
Buenas Noticias , al utilizar HMG.3.0.40 estas utilizando caracteres Unicode
unicode.png
unicode.png (34.19 KiB) Viewed 5249 times
entonces al utilizar

Code: Select all

HB_OEMTOANSI("Nº: ")
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 :

Code: Select all

 HB_CDPSELECT( "UTF8" )
los caracteres ahora enviado a Excell son correctos hasta el momento. no se si habra algún otro problema pero puedes seguir probando

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 := " áéíóú ÁÉÍÓÚ"
HMG.3.0.40.png
HMG.3.0.40.png (84.23 KiB) Viewed 5249 times
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*

Saludos / Regards
DaNiElMaXiMiLiAnO

Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
gvaronas
Posts: 109
Joined: Wed Aug 06, 2008 5:21 pm

Re: Incompatibilidad entre HMG 3.0.37a y HMG 3.0.40

Post by gvaronas »

Hola Daniel,
Solo agregue esta línea:

Code: Select all

 HB_CDPSELECT( "UTF8" )
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
gvaronas
Posts: 109
Joined: Wed Aug 06, 2008 5:21 pm

Re: Incompatibilidad entre HMG 3.0.37a y HMG 3.0.40

Post by gvaronas »

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

gvaronas wrote:Hola Daniel,
Solo agregue esta línea:

Code: Select all

 HB_CDPSELECT( "UTF8" )
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
User avatar
danielmaximiliano
Posts: 2611
Joined: Fri Apr 09, 2010 4:53 pm
Location: Argentina
Contact:

Re: Incompatibilidad entre HMG 3.0.37a y HMG 3.0.40

Post by danielmaximiliano »

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
*´¨)
¸.·´¸.·*´¨) ¸.·*¨)
(¸.·´. (¸.·` *
.·`. Harbour/HMG : It's magic !
(¸.·``··*

Saludos / Regards
DaNiElMaXiMiLiAnO

Whatsapp. := +54901169026142
Telegram Name := DaNiElMaXiMiLiAnO
gvaronas
Posts: 109
Joined: Wed Aug 06, 2008 5:21 pm

Re: Incompatibilidad entre HMG 3.0.37a y HMG 3.0.40

Post by gvaronas »

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.
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.
Porfa, enviame tu código de prueba.

Salu2,
GVS
User avatar
danielmaximiliano
Posts: 2611
Joined: Fri Apr 09, 2010 4:53 pm
Location: Argentina
Contact:

Re: Incompatibilidad entre HMG 3.0.37a y HMG 3.0.40

Post by danielmaximiliano »

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
Post Reply