aferra Posted July 22, 2014 Report Share Posted July 22, 2014 boa tarde ! em xharbour a escrita esta desta forma Carta de Correção em harbour fica desta forma Carta de Correů como resolver isso? no .prg principal está configurado desta forma REQUEST HB_LANG_PT REQUEST HB_CODEPAGE_PT850 HB_LangSelect("PT") HB_SETCODEPAGE( "PT850" ) * HB_CDPSELECT( "PT850" ) Quote Link to comment Share on other sites More sharing options...
kapiaba Posted July 22, 2014 Report Share Posted July 22, 2014 Tente: REQUEST HB_Codepage_PTISO PROCEDURE Main Set( _SET_CODEPAGE, "PTISO" ) abs, Quote Link to comment Share on other sites More sharing options...
kapiaba Posted July 22, 2014 Report Share Posted July 22, 2014 Veja também: Hb_GtInfo( HB_GTI_COMPATBUFFER, .F. ) Quote Link to comment Share on other sites More sharing options...
aferra Posted July 22, 2014 Author Report Share Posted July 22, 2014 perfeito...muito obrigado. kapiaba 1 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted July 23, 2014 Report Share Posted July 23, 2014 Matando o tópico, para quem precisar no futuro: #include "FiveWin.ch" REQUEST HB_LANG_PT REQUEST HB_CODEPAGE_PT850 REQUEST HB_CODEPAGE_PTISO Procedure Main() HB_SETCODEPAGE( "PTISO" ) HB_LANGSELECT( 'PT' ) ? HB_LANGNAME() ? 'áéíóú' ? HB_TRANSLATE( ' ‚¡¢£', "PT850", "PTISO" ) ? HB_TRANSLATE( 'áéíóú', "PTISO", "PT850" ) ? 'ansitooem', hb_ansitooem('áéíóú') ? 'oemtoansi', hb_oemtoansi(' ‚¡¢£') HB_SETTERMCP( "PT850" ) ? 'áéíóú' return nil aferra 1 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.