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