Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
Remove caracteres especiais
#INCLUDE "TOTVS.CH"
User Function RemoveEspec(cWord)
cWord := OemToAnsi(AllTrim(cWord))
cWord := FwNoAccent(cWord)
cWord := FwCutOff(cWord)
cWord := strtran(cWord,"ã","a")
cWord := strtran(cWord,"º","")
cWord := strtran(cWord,"%","")
cWord := strtran(cWord,"*","")
cWord := strtran(cWord,"&","")
cWord := strtran(cWord,"$","")
cWord := strtran(cWord,"#","")
cWord := strtran(cWord,"§","")
cWord := strtran(cWord,"ä","a")
cWord := strtran(cWord,""+'"'+"","")
Return cWord
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment