Página 1 de 1
Tela Bugada após compilação com Harbour
Enviado: 14 Jul 2025 18:15
por 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)
Tela Bugada após compilação com Harbour
Enviado: 14 Jul 2025 18:28
por 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
Tela Bugada após compilação com Harbour
Enviado: 14 Jul 2025 22:43
por 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!!
Tela Bugada após compilação com Harbour
Enviado: 15 Jul 2025 07:55
por marco.prodata
Paredes01 escreveu: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.
Tela Bugada após compilação com Harbour
Enviado: 15 Jul 2025 10:05
por 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.
Tela Bugada após compilação com Harbour
Enviado: 15 Jul 2025 11:02
por marco.prodata
Descobri o problema, um arquivo foi alterado a codificação, e ai bugou toda a aplicação.