kapiaba

Boa tarde Kapi, em uma oportunidade (entre varias), me ajudaste com a função Tira_acentuacao, me ajudou muito, porem à pouco tempo atras, apos uma atualização do win 10, não reconhecia mais os carateres, apos muitos intentos resolví assim.

FUNCTION TIRA_ACENTUACAO( cStr )

   LOCAL cStrNew := "", nX 
  *cAcentos := {  "ã"   ,  "à"   ,  "ä"   ,  "á"   ,  "å"   ,   "â"   ,   "À"   ,   "Á"   ,   "Â"   ,   "Ã"   ,   "Ä"   ,   "Å"   ,   "ç"   ,   "è"   ,   "é"   ,   "ê"   ,    "ë"   ,   "í"   ,   "Í"   ,   "É"   ,   "Ê"   ,   "-"   ,   "ó"   ,   "õ"   ,   "ô"   ,   "Ô"   ,   "Ó"   ,   "Õ"   ,   "ú"   ,   "û"   ,   "Ú"   ,   "Û"   ,   "Ç"   , "º", chr( 239 ) }
   cAcentos := {Chr(237),Chr(224),Chr(228),Chr(225),Chr(229), Chr(226), Chr(192), Chr(193), Chr(194), Chr(195), Chr(196), Chr(197), Chr(231), Chr(232), Chr(233), Chr(234), Chr(235), Chr(237), Chr(205), Chr(201), Chr(202), Chr(173), Chr(243), Chr(245), Chr(244), Chr(212), Chr(211), Chr(213), Chr(250), Chr(251), Chr(218), Chr(219), Chr(199), "º", chr( 239 ) }
   cLetras  := {  "a"   ,   "a"  ,  "a"   ,  "a"   ,  "a"   ,    "a"  ,   "A"   ,   "A"   ,   "A"   ,   "A"   ,   "A"   ,   "A"   ,   "c"   ,   "e"   ,   "e"   ,   "e"   ,   "e"   ,   "i"   ,   "I"   ,   "E"   ,   "E"   ,    ""   ,   "o"   ,    "o"  ,   "o"   ,   "O"   ,   "O"   ,   "O"   ,   "u"   ,   "u"   ,   "U"   ,   "U"   ,   "C"   ,  "",    ""      }
    

   For nX := 1 TO LEN( cAcentos )

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

      cStr := cStrNew

   Next  

Return( cStr)

Com Chr() funcionou ok novamente, Se serve de alguma coisa, fica contigo, já que tu me brindaste a função.

Valeu, obrigado