*************************************************************************
Function TIRACENTO(cStr)
********************* Retira Acentos e Letras de uma String ********************
***Static Function fRetiraAcento(cStr)
cStr:= StrTran(cStr, [á], [a]) ; cStr:= StrTran(cStr, [à ], [a]) ; cStr:= StrTran(cStr, [â], [a])
cStr:= StrTran(cStr, [ã], [a]) ; cStr:= StrTran(cStr, [�], [A]) ; cStr:= StrTran(cStr, [À], [A])
cStr:= StrTran(cStr, [Â], [A]) ; cStr:= StrTran(cStr, [Ã], [A]) ; cStr:= StrTran(cStr, [É], [E])
cStr:= StrTran(cStr, [Ê], [E]) ; cStr:= StrTran(cStr, [é], [e]) ; cStr:= StrTran(cStr, [è], [e])
cStr:= StrTran(cStr, [È], [e]) ; cStr:= StrTran(cStr, [ê], [e]) ; cStr:= StrTran(cStr, [Ã], [i])
cStr:= StrTran(cStr, [ì], [i]) ; cStr:= StrTran(cStr, [�], [I]) ; cStr:= StrTran(cStr, [Ì], [I])
cStr:= StrTran(cStr, [õ], [o]) ; cStr:= StrTran(cStr, [ô], [o]) ; cStr:= StrTran(cStr, [ó], [o])
cStr:= StrTran(cStr, [ò], [o]) ; cStr:= StrTran(cStr, [o], [o]) ; cStr:= StrTran(cStr, [O], [O])
cStr:= StrTran(cStr, [Ò], [O]) ; cStr:= StrTran(cStr, [Ó], [O]) ; cStr:= StrTran(cStr, [Ô], [O])
cStr:= StrTran(cStr, [Õ], [O]) ; cStr:= StrTran(cStr, [ü], [u]) ; cStr:= StrTran(cStr, [ú], [u])
cStr:= StrTran(cStr, [ù], [u]) ; cStr:= StrTran(cStr, [Ú], [U]) ; cStr:= StrTran(cStr, [Ù], [U])
cStr:= StrTran(cStr, [Ü], [U]) ; cStr:= StrTran(cStr, [ç], [c]) ; cStr:= StrTran(cStr, [Ç], [C])
cStr:= StrTran(cStr, [y], [y]) ; cStr:= StrTran(cStr, [ñ], [n]) ; cStr:= StrTran(cStr, [Ñ], [N])
cStr:= StrTran(cStr, [º], [o.]) ; cStr:= StrTran(cStr, [°], [o.]) ; cStr:= StrTran(cStr, [ª], [a.])
cStr:= StrTran(cStr, [&], [&]) ; cStr:= StrTran(cStr, ['], [\']); cStr:= StrTran(cStr, [D'], [D\'])
cStr:= StrTran(cStr, [Ç], [C]) ; cStr:= StrTran(cStr, [ç], [c])
Return (cStr)