OemToAnsi não funciona

0

Boa tarde,

Estou desenvolvendo uma rotina e percebi que a função OemToAnsi não está funcionando. Estamos no release 27. Sabem me dizer se algo mudou?

Segue abaixo trecho do meu código e imagem mostrando os caracteres especiais na tela:

User Function TabPreco()  
Local aArea         := GetArea( )   
Local aSays         := { }  
Local aButtons      := { }  
Local nOpca         := 0    
Local _lRet         := .T.  
Private aRotina     := MenuDef()   


AADD( aSays, OemToAnsi(STR0001) )//'Esta rotina atualiza a tabela de preços do faturamento de acordo com parâmetros'    
AADD( aSays, OemToAnsi(STR0002)  ) //'pré estabelecidos.'     
AADD( aButtons, { 1, .T., {|o| nOpca := 1, FechaBatch() } } )  
AADD( aButtons, { 2, .T., {|o| FechaBatch() }} )  


FormBatch( OemToAnsi(STR0003), aSays, aButtons )  

If nOpca = 1  
  Processa( {|| U_AtuDA0DA1() } )  
Endif  


RestArea(aArea)  

Return _lRet
compartilhar
  1. Você vai ver essas setas em qualquer página de pergunta. Com elas, você pode dizer se uma pergunta ou uma resposta foram relevantes ou não.
  2. Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
  3. Caso haja alguma dúvida sobre a pergunta, adicione um comentário. O espaço de respostas deve ser utilizado apenas para responder a pergunta.
  4. Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
  5. Clique aqui para mais detalhes sobre o funcionamento do TOTVS DevForum!

0 resposta

Não é a resposta que estava procurando? Procure outras perguntas com as tags oemtoansi ou faça a sua própria pergunta.