Caracteres salen extraños

[danielgustavo]

[Buenoas noche a los amigos del foro, necesito una ayuda con este problema que no consigo resolver

https://mega.nz/file/fyxU3bwa#R7aHX3RBKLXCRSgoyg7a3n8gFNzxDoDWXR550nct1aQ

[karinha]

Intente:

SETUNICODE( .T. )

http://forums.fivetechsupport.com/viewtopic.php?f=3&t=36331&start=0

Ó

Code: Select all  Expand view  RUN

FUNCTION TIRA_ACENTUACAO( cStr )

   LOCAL cStrNew := "", nX

   cAcentos := { "‹", "‡", "A", "—", "ƒ", "Æ", "Ç", " ", "µ", "…", "·", "‚", "É", "ê", "ˆ", "", "Ò", "í", "Í", "ó", "¢", "à", "ä", "å", "“", "â", "ú", "é", "", "š", "ç", "€", "ã", "Ã", "á", "Á", "à", "À", "é", "É", "ê", "Ê", "í", "Í", "ó", "Ó", "õ", "Õ", "ô", "Ô", "ú", "Ú", "ü", "Ü", "ç", "ù", "AAO", "§", "¦", "º", "ª", "€", "‡", "Ç", "ç", "'", "`", "ø", "¡", "Þ", "×", "Ø", "ÿ", "Ö", chr( 239 ) }
   cLetras  := { "I", "C", "A", "U", "A", "A", "A", "A", "A", "A", "A", "E", "E", "E", "E", "E", "E", "I", "I", "O", "O", "O", "O", "O", "O", "O", "U", "U", "U", "U", "C", "C", "A", "A", "A", "A", "A", "A", "E", "E", "E", "E", "I", "I", "O", "O", "O", "O", "O", "O", "U", "U", "U", "U", "C", " ", "AAO", ".", ".", ".", ".", "C", "C", "C", "C", "" , "" , ".", "I", "I", "I", "I", "", "I",  ""   }

   FOR nX := 1 TO LEN( cAcentos )

      cStrNew := StrTran( cStr, cAcentos[nX], cLetras[nX] )

      cStr := cStrNew

   NEXT

RETURN( cStrNew )
 

Saludos.