SAI_endereco_local_cliente_copias = remove_acento(SAI_endereco_local_cliente_copias)
//------
PROCEDURE remove_acento(texto) texto = NoAccent(texto)
texto = Replace(texto,"xE1","a") texto = Replace(texto,"xE3","a") texto = Replace(texto,"xEA","e") texto = Replace(texto,"xE9","e") . . texto=Replace(texto,"Ü","U") RESULT(texto)
//No blog fiz um exemplo com video sobre sem acento // No blog tem a rotina completa sem acento
http://windevdesenvolvimento.blogspot.com.br/2016/01/windev21-curso-223-remover-acentos.html
|