Função RemoveAcento()
Função para remover acentos
Static Function RemoveAcento(cString)edlekarna.cz/>
Local nX := 0
Local nY := 0
Local cSubStr := ""
Local cRetorno := ""Local cStrEsp := "ÁÃÂÀáàâãÓÕÔóôõÇçÉÊéêº"
Local cStrEqu := "AAAAaaaaOOOoooCcEEeer" //char equivalente ao char especialFor nX:= 1 To Len(cString)
cSubStr := SubStr(cString,nX,1)
nY := At(cSubStr,cStrEsp)
If nY > 0
cSubStr := SubStr(cStrEqu,nY,1)
EndIfcRetorno += cSubStr
Next nX
Return cRetorno