Função RemoveAcento()

Função para remover acentos

Static Function RemoveAcento(cString)
    Local nX        := 0 
    Local nY        := 0 
    Local cSubStr   := ""
    Local cRetorno  := ""

    Local cStrEsp   := "ÁÃÂÀáàâãÓÕÔóôõÇçÉÊéêº"  
    Local cStrEqu   := "AAAAaaaaOOOoooCcEEeer" //char equivalente ao char especial

    For nX:= 1 To Len(cString)
        cSubStr := SubStr(cString,nX,1)
        nY := At(cSubStr,cStrEsp)
        If nY > 0 
            cSubStr := SubStr(cStrEqu,nY,1)
        EndIf
        
        cRetorno += cSubStr
    Next nX
Return cRetorno