Tela Bugada após compilação com Harbour

[marco.prodata]

Caros,

Após compilar um projeto xHarbour com harbour a tela ficou toda bugada, na verdade assim, foi após aceitar um PR do codex do gpt, que não alterou o arquivo principal, mesmo assim, passou a ficar bugado, alguém poderia me dar uma luz?

o código tá assim:

Código: Selecionar todos

#ifndef __XHARBOUR__
   request hb_codepage_pt850
   request hb_lang_pt
#endif

#include "versao.ch"
#include "wvtwin.ch"
#include "sqlrdd.ch"       && para trab. bd sql
#include "pgs.ch"          && habilita postgresql (usamos este)

REQUEST SQLRDD
REQUEST DBFCDX
REQUEST SR_PGS

*************
Function Main
*************
LOCAL ScreenWidth := Wvt_GetScreenWidth(), ScreenHeight := Wvt_GetScreenHeight()

#ifndef __XHARBOUR__
   HB_SETCODEPAGE( "PT850" )
   //HB_CDPSELECT( "PTISO" )
   set(_SET_HBOUTLOG)
#endif 

DbSetdriver("DBFCDX")
Set DbfLockScheme to 3

RddSetDefault("DBFCDX")

Wvt_Core()
Wvt_Utils()
Wvt_Setcodepage(255)

[JoséQuintas]

Não tá bugada, tudo indica que é codepage.
Pode ser muitas coisas:

1) codepage do PRG
2) codepage do editor de texto
3) Esse wvt_SetCodepage()
4) Codepage do harbour
5) Se for salva/restaura telas, desativar compatibilidade
6) se tá manual no fonte, trocar pra @ TO, @ BOX
Sei lá mais o que...
Vai ter que identificar esses acima primeiro.
Talvez verificar se tem UTF-8 aí no meio, acontece ao baixar fonte de fórum, e talvez em outras situações. como github

[Paredes01]

Hola, marco.prodata

¿Qué versión de postgres utilizas con SQLRDD?

Y si puedes compartir los pasos para hacer la conexión con
la versión de postgres que utilizas sobre SQLRDD

Saludos!!

[marco.prodata]

Hola, marco.prodata

¿Qué versión de postgres utilizas con SQLRDD?

Y si puedes compartir los pasos para hacer la conexión con
la versión de postgres que utilizas sobre SQLRDD

Saludos!!

Utilizo a versão 16, mas pode se utilizar qualquer versão, basta compilar a sqlrddpp do marcosgambeta com os arquivos da versão que você quiser.

[Kapiaba]

Tente assim e me fale... Pls.

Código: Selecionar todos

// PRODATA.PRG

#include "versao.ch"
#include "wvtwin.ch"
#include "sqlrdd.ch"       // para trab. bd sql
#include "pgs.ch"          // habilita postgresql (usamos este)

EXTERNAL HB_LANG_PT, HB_CODEPAGE_PTISO, HB_CODEPAGE_PT850

#ifNdef __XHARBOUR__     // Somente para HARBOUR, XHARBOUR nao tem isso ainda.
   REQUEST HB_CODEPAGE_UTF8
   REQUEST HB_CODEPAGE_UTF8EX
#endif

// EXTERNAL OrdKeyNo, OrdKeyCount, OrdCreate, OrdKeyGoto
EXTERNAL _DBF, DBFCDX, DBFFPT, SQLRDD, SR_PGS
ANNOUNCE RDDSYS

FUNCTION Main()

   LOCAL ScreenWidth := Wvt_GetScreenWidth(), ScreenHeight := Wvt_GetScreenHeight()

   HB_GCALL( .F. )

   #ifdef __XHARBOUR__  // PERFEITO COM XHARBOUR( I Like )

      HB_LANGSELECT( 'PT' )
      HB_SETCODEPAGE( "PT850" )
      HB_CDPSELECT( "PTISO" )
      HB_SETCODEPAGE( "UTF8" )

   #Else // HARBOUR - No Like.

      HB_LANGSELECT( 'PT' )
      HB_SETCODEPAGE( "UTF8" )
      HB_CDPSELECT( "UTF8EX" )
      HB_SETCODEPAGE( "PT850" )
      HB_CDPSELECT( "PTISO" )

   #Endif

   RDDSETDEFAULT("DBFCDX")
   RDDREGISTER( "DBFCDX", 1 ) // RDT_FULL

   /*
   // dbSetDriver( "DBFCDX" )
   // SET DBFLOCKSCHEME TO 3   // ???
   // rddSetDefault( "DBFCDX" )
   */

   SET CENTURY ON
   SET DATE BRITISH
   SET TIME FORMAT TO "HH:MM:SS"
   SET EPOCH TO YEAR( DATE() ) - 30
   SET SOFTSEEK OFF
   SET WRAP ON
   SETCANCEL( .F. )
   SET CONFIRM OFF
   SET DELETED ON
   SET _3DLOOK ON
   SET ESCAPE OFF
   SET EXACT ON
   SET EXCLUSIVE OFF
   SET MULTIPLE OFF

   Wvt_Core()
   Wvt_Utils()
   //??? Para que serve? Ligue depois e veja o que acontece.
   // Wvt_Setcodepage(255)

RETURN NIL

// FIN / END

Regards, saludos.

[marco.prodata]

Descobri o problema, um arquivo foi alterado a codificação, e ai bugou toda a aplicação.