GTWVW - acentuação português - caracteres especiais.

microvolution · Mensagem por **microvolution** » 18 Fev 2016 09:52

Pessoal bom dia!
Esta é minha tela (formulário) testando a GTWVW:

Observem que tudo está em português e com a acentuação correta, exceto, no @say...
já tentei colocar o Hb_langselect/codepage, mas, gera outros erros de "variáveis inexistentes"...
alguém sabe resolver isso?
NOTA:
1 - harbour 3.4.0dev
2 - gtwvw - pasta contrib\gtwvw\tests = demo.prg (com alteração para português).
té breve!

microvolution · Mensagem por **microvolution** » 24 Fev 2016 16:43

Olá pessoal, como ainda ninguém comentou nada... vou acrescentar mais informações para que possam me ajudar.
1 - meu editor de textos é o notepad++, e, estou usando a codificação: "definir caractere/EuropaOcidental/OEM860:portuguese;
2 - essas linhas, aparecem em português corretamente (algumas que posto apenas):

Código: Selecionar todos

cLabel := "EXVD - Exclusão de Informações Antigas"
AddMiscObjects( nCurWindow, {| nWindow | wvw_DrawLabel( nWindow, 1, 40, cLabel, 6,, WIN_RGB( 255, 255, 255 ), WIN_RGB( 198, 198, 198 ), "Arial", s_afontinfo[ 2 ], , , , , .T., .T. ) } )

Código: Selecionar todos

LOCAL cLabel  := "Excluir Prestações Antigas - por Data Recebimento"
   AddMiscObjects( nCurWindow, {| nWindow | wvw_DrawLabel( nWindow, 1, nRight - nLeft - 4, cLabel, 2,, WIN_RGB( 255, 255, 255 ), WIN_RGB( 198, 198, 198 ), "Arial", s_afontinfo[ 2 ], , , , , .T., .T. ) } )

Código: Selecionar todos

*****************************************************************************
STATIC PROCEDURE xHelp()

   lboxmessage( "EXVD - Exclusão de Orçamentos/Prestações Antigas!" + hb_eol() + ;
      "Todos Os Direitos Reservados: <microvolution@hotmail.com>" + hb_eol() + ;
      "1998-2016 by W de Paula" + hb_eol() + ;
      "Versão 3.0 - 13/02/2016." + hb_eol() + ;
      hb_eol() + ;
      "Teclas e Funções de Atalho:" + hb_eol() + ;
      "F1 : Ajuda" + hb_eol() + ;
      "F2 : Informações desta tela" + hb_eol() + ;
      "F3 : Configura/Altera Pasta de Trabalho" + hb_eol() + ;
      hb_eol() + ;
      "F7 : Exclusão de Prestações Antigas" + hb_eol() + ;
      "F8 : Exclusão de Orçamentos Antigos" + hb_eol() + ;
      hb_eol() + ;
      "F9 : Diminui espaçamentos entre as linhas da tela" + hb_eol() + ;
      "F10: Aumenta os espaços entre as linhas da tela" + hb_eol() + ;
      "F11: Define espaçamento padrão" + hb_eol() + ;
      hb_eol() + ;
      "Mais informações:" + hb_eol() + ;
      "Acesse o nosso site: www.mvinfo.wmx.net.br" + hb_eol() + ;
      hb_eol() + ;
      "MVinfo Sistemas & Automação - by W de Paula" + hb_eol() + ;
      "13 anos evoluindo com você!" )

RETURN
*****************************************************************************

3 - As linhas abaixo, não estão acentuadas corretamente, mas, o editor é o mesmo (mesma configuração), não é outro módulo, apenas é um @say (a única diferença):

Código: Selecionar todos

   @ 11 - nTop, nColGet - nLeft + 04 SAY "< Período Inicial para Exclusão de PRESTAÇÕES Baixadas >"
   @ 14 - nTop, nColGet - nLeft + 04 SAY "< Período Final para Exclusão de PRESTAÇÕES Baixadas >"

Observem que estão em português, o editor está configurado como disse no item 1 acima, mas, na hora "H" sai tudo estranho;
4 - Se acrescento as seguintes linhas (lib XHB) acontece um erro:

Código: Selecionar todos

REQUEST HB_CODEPAGE_PT850     //    trabalhar com vários SOs e charsets pt_br
REQUEST HB_LANG_PT    //    trabalhar com vários SOs e charsets pt_br
// HB_SetCodePage( "PT850" )                      // seleciona a página acima.							// tanto faz essa quanto a de baixo
HB_SetCodePage( "PTISO" )                      // seleciona a página acima.							// tanto faz essa quanto a de cima
HB_LANGSELECT('PT')

O erro é o mesmo, vejam:

Called from MAIN(641)

Data:24/02/2016 Horario: 16:33:46
Erro BASE/1003 Variable does not exist: S_AMISCOBJLIST

Called from WVW_PAINT(2019)
Called from WAPI_MESSAGEBOX(0)
Called from LBOXMESSAGE(2289)
Called from ABERTURA(3092)
Called from MAIN(533)

O bloco abaixo, contém a linha 2019:

Código: Selecionar todos

FUNCTION WVW_Paint( nWinNum )  /* must be a public function */
#if 0
   ldebug( ;
      "WVW_Paint:" + hb_eol() + ;
      "hWnd: " + hb_ntos( hWnd ) + hb_eol() + ;
      "nWinNum: " + hb_ntos( nWinNum ) )
#endif

   IF Len( s_amiscobjlist ) >= nWinNum + 1 // ESTA É A LINHA 2019

      AEval( s_amiscobjlist[ nWinNum + 1 ], {| e | Eval( e, nWinNum ) } )
   ENDIF
   wvwm_paint( nWinNum )
RETURN 0

IF Len( s_amiscobjlist ) >= nWinNum + 1 // ESTA É A LINHA 2019

Dá a impressão que com a inclusão da SETCODEPAGE e LANGSELECT, mudou-se o número da janela window (atual).

E, agora quem poderá me defender???

leandrolinauer · Mensagem por **leandrolinauer** » 01 Mar 2016 14:28

Boa tarde.
Olha, eu estou usando em Harbour 3.1 a gtwvw e não tenho problemas com acentuação visto que uso OemtoAnsi e vice-versa dependendo da situação.
Agora em Harbour 3.4 ocorre que não existe a função mais hb_oemtoansi() e sem ela os caracteres acentuados ficam a desejar, não consegui eliminar este problema para migrar para 3.4, creio que terei que passar o programa todo mudando DOS char set para que possa ser abandonada esta função.
Eu uso xDevStudio 0.70, gosto muito dela e antes dela eu usava o QBasic se não me engano, mas faz muitos e muitos anos atrás.

T+
:xau

microvolution · Mensagem por **microvolution** » 01 Mar 2016 14:47

leandrolinauer escreveu:Harbour 3.4 ocorre que não existe a função mais hb_oemtoansi()

procurei aqui nos meus posts e não consegui achar... mas, lembro-me que o professor Jairo me disse que essa função apenas trocou de nome.
Se puder, passa como você resolveu seu problema ( os códigos da hb_oemtoansi() ), enquanto eu localizo aqui esse post com o novo nome dessa função, que não mudou a sintaxe. De repente, pode-lhe ser útil a sair do hb 3.1 e vir pro 3.4

microvolution · Mensagem por **microvolution** » 01 Mar 2016 14:55

opa...
vejam nestes posts as dúvidas:
https://pctoledo.org/forum/viewto ... si#p103709
https://pctoledo.org/forum/viewto ... i&start=30
Parece que o HB_OEMTOANSI mudou para OEMTOANSI...
rsrs
será que é assim no harbour 3.4?

microvolution · Mensagem por **microvolution** » 01 Mar 2016 16:02

leandrolinauer escreveu:não existe a função mais hb_oemtoansi()

opa... prezado parceiro Leandro, mais uma vez estou aqui para "bater" na mesma tecla...
então:
achei o nome dessa função. No harbour 3.4.0 ela foi mudada de hb_oemtoansi() para win_oemtoansi() ou a outra também tem a mesma mudança: win_ansitooem.

Bom, testei as 2 (sem uso do codepageselect/etc)... ambas realmente mudam os caracteres acentuados, mas, nada para o nosso português...
falta alguma coisa ainda, pois se colocar o CODEPAGESELETC/etc aparece uma mensagem de "variável inexistente" nas seguintes linhas:

Data:01/03/2016 Horario: 15:33:21
Erro BASE/1003 Variable does not exist: S_AMISCOBJLIST

Called from WVW_PAINT(2020)
Called from WAPI_MESSAGEBOX(0)
Called from LBOXMESSAGE(2290)
Called from ABERTURA(3093)
Called from MAIN(533)

As linhas acima (contém a s_amiscobjlist) funcionam perfeitamente:

2020 - IF Len( s_amiscobjlist ) >= nWinNum + 1
2290 - wapi_MessageBox( wvw_GetWindowHandle(), cMsg , cTitle , WIN_MB_OK + WIN_MB_ICONINFORMATION + WIN_MB_SYSTEMMODAL )
3093 - lboxmessage ('Atenção! Para continuar com este aplicativo, será necessário fechar o SiCCA ou quaisquer de seus Módulos Externos que estiverem aberto. Feche-o(s) antes de continuar... Este aplicativo precisa abrir arquivos em MODO EXCLUISVO. Após ter realizado esta verificação pressione [ENTER] ou clique em [OK] para prosseguir...')
533 - ABERTURA()

Se olharmos a sequência que o sistema percorre durante o erro, as linhas 533, 3093 e 2290, fazem sentido uma com as outras, mas, a linha 2020, não tem nada a a ver com a sequência de erros, pois trata-se da variável s_amiscobjlist, e, se a seguirmos desde o início a sequência do caminho por onde ela é acionada é completamente diferente.
Que coisa não?
Alguém sabe explicar por que isso acontece?
repito:
1 - se colocar as linhas:

Código: Selecionar todos

/*
// REQUEST HB_CODEPAGE_PTISO     //    trabalhar com vários SOs e charsets pt_br
REQUEST HB_CODEPAGE_PT850     //    trabalhar com vários SOs e charsets pt_br
REQUEST HB_LANG_PT    //    trabalhar com vários SOs e charsets pt_br
HB_SetCodePage( "PT850" )                      // seleciona a página acima.							// 30/4/15w amigo Ivo da internet
// HB_SetCodePage( "PTISO" )                      // seleciona a página acima.							// 30/4/15w amigo Ivo da internet
HB_LANGSELECT('PT') 
*/

O sistema gera o erro Erro BASE/1003 Variable does not exist: S_AMISCOBJLIST

2 - se eliminá-las, o sistema funciona perfeitamente, exceto a acentuação!
PS: lembrando
1 - compilando com harbour 3.4
2 - gtwvw

Mensagem por **JoséQuintas** » 01 Mar 2016 18:57

Código: Selecionar todos

 IF Len( s_amiscobjlist ) >= nWinNum + 1 // ESTA É A LINHA 2019

Princípio básico:
Se tá dando erro de variável não existe, só pode ser porque a variável não existe.

Olhando a linha, só pode ser uma variável array.

A função WVW_Paint não precisa existir nos fontes.
Mas caso ela exista, é pra ficar fazendo uma "repintura" dos controles utilizados.
Justamente essa variável deve ter sido criada no exemplo pra guardar a lista dos controles.

Querendo ou não, wvw_paint vai ser executada o tempo todo, em todo programa, em segundo plano.
Pode dar erro a qualquer momento, já que a variável não existe..

Como eu disse antes, copiou partes do fonte exemplo.
O fonte exemplo cria, atualiza e utiliza essa variável.
Copiou apenas a função que utiliza, sem olhar as variáveis utilizadas.

Nota:
Não é nada diferente de seus fontes: criar variável, usar variável.
Está considerando tudo como novidade na GTWVW, quando na prática o básico continua o mesmo.

Mensagem por **JoséQuintas** » 01 Mar 2016 19:22

Sobre acentuação:
Caso exista acentuação nos DBFs, eles não serão convertidos automaticamente.
Caso exista acentuação nos PRGs, eles não serão convertidos automaticamente.
Os fontes devem estar na mesma codepage utilizada pra execução.

E por último, só por precaução, caso utilize um Windows em inglês, também não vai estar usando PTBR.

microvolution · Mensagem por **microvolution** » 01 Mar 2016 23:29

o q não entendo e q talvez não tenha observado... sei muito bem desse princípio... então o q ñ entendo é:
se colocar as linhas do pageselect o erro aparece. Se eu tirar o erro não aparece!
não estou usando dbf... é simplesmente um @say que não está em português...
é só isso que está "pegando mau" no teste que estou fazendo.

Mensagem por **JoséQuintas** » 02 Mar 2016 07:15

Consegue isolar o problema num fonte pequeno?
O que acontece depois dessa tela? o programa encerra?
Se o erro acontecer em modo console tem errorsys pra mostrar o erro.
Se o erro acontecer em modo gui, pode não ser mostrado o erro.
Se a rotina só mostra essa tela, de qualquer jeito encerra depois, então não daria pra ver diferença.

Modo gráfico, de certa forma usa multithread, como se fossem vários programas rodando ao mesmo tempo.
Se der erro num deles, não significa que tudo vai ser fechado.

Resumindo: Não dá pra saber o que colocou no seu fonte. Tente montar um exemplo simples, que possa ser compilado, pra postar e poder ser analisado, sem precisar de nada adicional.

leandrolinauer · Mensagem por **leandrolinauer** » 02 Mar 2016 11:04

Bom dia MicroEvolution.
Uma perguntinha, vc esta declarando publica a váriavel no inicio do fonte?
Por exemplo, eu declaro a minha na inicialização e depois faço o codepage e não da nenhum erro.

Código: Selecionar todos


Public p_aListObjects:={}  //matriz das janelas
......
REQUEST HB_LANG_PT 
REQUEST HB_CODEPAGE_PT850 
REQUEST HB_CODEPAGE_PTISO
HB_CDPSELECT('PT850')
HB_LANGSELECT("PT")

leandrolinauer · Mensagem por **leandrolinauer** » 02 Mar 2016 11:10

Sobre a acentuação no HARBOUR 3.4, realmente ja fiz os testes com WIN_OEMTOANSI e outros e nada.

Function My_AnsiToOem(aTXT)
Return HB_AnsiToOem(aTXT) //não existe mais e funcionava bem
//Return ConvToOemCP(aTXT) //não funciona
//Return CharToOem(aTXT) //não funciona
//Return Win_OemToAnsi(aTXT) //não muda nada, realmente esta deveria funcionar, mas não muda.
//Return WinCar("D2W",aTXT) //não funciona tbem
//Return hb_UTF8toStr(atxt) //não muda corretamente
//Return atxt //retorna o texto sem modificação

:(Neg

Mensagem por **JoséQuintas** » 02 Mar 2016 11:41

Precisa confirmar, mas provavelmente GTWVW aceita PTISO.
Se o fonte for digitado diretamente em PTISO, pronto tudo resolvido.
É abrir no bloco de notas e ver se lá as letras estão corretas.

Se a GTWVW só trabalha com aquele OEM, então vai precisar converter.
Dá uma pesquisada nas funções.

hbmk2 -find oem

hbwin.hbc (installed):
wapi_GetOEMCP()
win_ANSIToOEM()
win_OEMToANSI()
hbxpp.hbc (installed):
ConvToOEMCP()
Harbour core (installed):
__wapi_GetOEMCP()

microvolution · Mensagem por **microvolution** » 02 Mar 2016 12:38

leandrolinauer escreveu:Por exemplo, eu declaro a minha na inicialização e depois faço o codepage e não da nenhum erro.

peguei o exemplo original e dentro dele coloquei meus códigos...
e o original está desta forma:

Código: Selecionar todos

STATIC s_amiscobjlist := {}

essa linha bem como outras, estão antes da function main() do original \contribs\gtwvw\tests\DEMO.PRG

Ou seja, traduzindo... coloquei do mesmo jeito que o original não mudei nada!

leandrolinauer escreveu://Return Win_OemToAnsi(aTXT) //não muda nada, realmente esta deveria funcionar, mas não muda.

No meu harbour 3.4, ... que inclusive os professores JQuintas/asimoes me passaram uma versão mais correta do VSzakats... no meu, esta função existe...
pra você saber, é só seguir a orientação que o professor JQuintas já me ensinou e sempre estou recorrendo-a para diminuir aqui minhas perguntas (talvez desnecessárias para os experts em harbour, libs gráficas gtwvw(g)(t), etc... )

JoséQuintas escreveu:Precisa confirmar, mas provavelmente GTWVW aceita PTISO.
Se o fonte for digitado diretamente em PTISO, pronto tudo resolvido.
É abrir no bloco de notas e ver se lá as letras estão corretas.

Como é isso no editor?

no meu caso, uso o NOTEPAD++ v6.1.5 (unicode) build time 7/jul/2012 - 12:57:34

Seria a seguinte configuração (nos menus abaixo)?

Codificação
Definir Caractere
Europa Ocidental
OEM:860 Portuguese

Ou seja, a imagem é a correta para a acentuação no @say?

Enfim, já tentei 850, ansi... nesse caso aqui específico GTWVW acentuação nos @say, não funciona em nenhuma das opções.
Aí como já disse e ratifico:

ao tentar colocar o setcodepage etc, etc... gera o erro de variável inexistente!

Mensagem por **JoséQuintas** » 02 Mar 2016 14:27

Sua mania de misturar assuntos é um grande problema.

Quer testar tudo de uma vez, resolver problemas de uma vez, falar de um problema sem ter resolvido o anterior... assim é complicado.

O erro de variável não encontrada, da variável estática está resolvido?

Mencionou novamente erro de variável.