New FWH 24.09

[TimStone]

That will be a newer version so you need to change that in the code and also whtever they say for a license number


Sent from my iPhone using Tapatalk

[Antonio Linares]

It is not included in the demo version!

[karinha]

Master Nages, see if this is ok or if you need anything else, please.

Maestro Nages, vea si esto está bien o si necesita algo más, por favor.

Code: Select all  Expand view

// C:\FWH\SAMPLES\NAGESCHR.PRG

#include "FiveWin.ch"

REQUEST HB_LANG_PT
REQUEST HB_CODEPAGE_PT850

FUNCTION Main()

   HB_LANGSELECT( 'PT' )     // Default language is now Portuguese

// HB_SETCODEPAGE( "PT850" ) // NO FUNCIONA NI CON ASC(195) Increible.

// HB_CDPSELECT( "PTISO" )

// MsgInfo( "JO"   + CHR(194) + "O"   ) // Similar

   MsgInfo( "JO"   + CHR(195) + "O"   ) // Correct: JOÃO - João

// MsgInfo( "JO"   + CHR(196) + "O"   ) // Similar

   //-> 226, 227, 228, 229(similars)
   MsgInfo( "Jo"   + CHR(227) + "o"   ) // Correct: JOÃO - João

   MsgInfo( "M"    + CHR(193) + "RIO" ) // Correct: MÁRIO - Mário

   MsgInfo( "M"    + CHR(225) + "rio" ) // Correct: MÁRIO - Mário

   MsgInfo( "N"    + CHR(193) + "GES" )

   MsgInfo( "N"    + CHR(225) + "ges" )

   MsgInfo( "ELI"  + CHR(201) + "ZER" ) // Correct: Eliézer

   MsgInfo( "Eli"  + CHR(233) + "zer" ) // Correct: Eliézer

   MsgInfo( "ANT"  + CHR(212) + "NIO" ) // Correct: Antônio Liñares Cañas

   MsgInfo( "Ant"  + CHR(244) + "nio" ) // Correct: Antônio Liñares Cañas


RETURN NIL

// FIN / END - kapiabafwh@gmail.com
 

https://dicas.ufpa.br/progra/arq-asc.htm

I will charge the customer dearly. Preferably in Dollars. hahahaha.

Regards, saludos.

[karinha]

Master Nages, if I use "PTISO", as in the example below, everything works correctly. As I don't understand CODEPAGE, I don't know if it's correct or not.

Maestro Nagés, si uso "PTISO", como en el ejemplo siguiente, todo funciona correctamente. Como no entiendo CODEPAGE no sé si es correcto o no.

Code: Select all  Expand view

// C:\FWH\SAMPLES\NAGESCHR.PRG - Version 2 - CON "PTISO"

#include "FiveWin.ch"

REQUEST HB_LANG_PT
REQUEST HB_CODEPAGE_PT850
REQUEST HB_CODEPAGE_PTISO

FUNCTION Main()

   HB_LANGSELECT( 'PT' )     // Default language is now Portuguese

   SET(_SET_CODEPAGE,"PT850")
   SET(_SET_CODEPAGE,"PTISO")

// MsgInfo( HB_SetCodePage() ) // "PTISO"

// MsgInfo( "JO"   + CHR(194) + "O"   ) // Similar

   MsgInfo( "JO"   + CHR(195) + "O"   ) // Correct: JOÃO - João

// MsgInfo( "JO"   + CHR(196) + "O"   ) // Similar

   //-> 226, 227, 228, 229(similars)
   MsgInfo( "Jo"   + CHR(227) + "o"   ) // Correct: JOÃO - João

   MsgInfo( "M"    + CHR(193) + "RIO" ) // Correct: MÁRIO - Mário

   MsgInfo( "M"    + CHR(225) + "rio" ) // Correct: MÁRIO - Mário

   MsgInfo( "N"    + CHR(193) + "GES" )

   MsgInfo( "N"    + CHR(225) + "ges" )

   MsgInfo( "ELI"  + CHR(201) + "ZER" ) // Correct: Eliézer

   MsgInfo( "Eli"  + CHR(233) + "zer" ) // Correct: Eliézer

   MsgInfo( "ANT"  + CHR(212) + "NIO" ) // Correct: Antônio Liñares Cañas

   MsgInfo( "Ant"  + CHR(244) + "nio" ) // Correct: Antônio Liñares Cañas


RETURN NIL

// FIN / END - kapiabafwh@gmail.com .and. jairfab@gmail.com
 

Regards, saludos

[karinha]

Now more confused than a dog on moving day. hahaha.

All commands work perfectly. I don't understand what changed.

Ahora más confundido que un perro el día de una mudanza. jajaja.

Todos los comandos funcionan perfectamente. No entiendo qué cambió.

Code: Select all  Expand view

// C:\FWH\SAMPLES\NAGESCH3.PRG - Version 3 - CON "PTISO"

#include "FiveWin.ch"

REQUEST HB_LANG_PT, HB_CODEPAGE_PTISO, HB_CODEPAGE_PT850

FUNCTION Main()

   LOCAL cTexto  := "MAÇÃ VERDE"
   LOCAL cTexto2 := "MA€Ç VERDE" // green apple - Modo consola.

   SET(_SET_CODEPAGE,"PTISO") // MAÇÃ VERDE -> green apple

   ? "PTISO: ", cTexto, OemToAnsi( cTexto2 ) // Correct

   SET(_SET_CODEPAGE,"CP437")

   ? "CP437: ", cTexto, OemToAnsi( cTexto2 ) // Correct

   SET(_SET_CODEPAGE,"UTF8")

   ? "UTF8: ", cTexto, OemToAnsi( cTexto2 )  // Correct

   SET(_SET_CODEPAGE,"CP850")

   ? "CP850: ", cTexto, OemToAnsi( cTexto2 ) // Correct

RETURN NIL

Simplemente no funciona con:

SET(_SET_CODEPAGE,"PT850")

// FIN / END - kapiabafwh@gmail.com .and.  jairfab@gmail.com
 

Regards, saludos.

[TimStone]

Antonio,

In order for a demo to work, they must issue some type of license code. It would be in the documentation.

The license is tied to the specific version you own. I have not been upgrading because the cost is so high. They used to offer just the Calendar version but now you have to buy the whole suite.

Of course this has to do with the Panels. You might want to try some tests creating a couple of panels without this specific application and see how that works. Perhaps in the change log you will see what code was modified that may be causing this problem.

As I said, the difference is between 2407 and 2409. Everything in my code, libraries, and compiler/linker is the same for both builds. It works in 07 but not 09.

Tim