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):
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. ) } )
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. ) } )
*****************************************************************************
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):
@ 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:
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:
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???