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