Nesse vídeo demonstraremos a utilização da função FWNoAccent, que serve para remover acentos de uma variável caractere.
Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:
//Bibliotecas
#Include 'TOTVS.ch'
/*/{Protheus.doc} User Function zExe238
Retira acentos de uma string
@type Function
@author Atilio
@since 20/02/2023
@see https://tdn.totvs.com/display/public/framework/FwNoAccent
@obs
Função FWNoAccent
Parâmetros
+ cString , Caractere , Texto a ser validado
Retorno
Retorna a string sem os acentos
**** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/
User Function zExe238()
Local aArea := GetArea()
Local cFrase := "A aranha arranha a rã. A rã arranha a aranha. Nem a aranha arranha a rã. Nem a rã arranha a aranha."
Local cFraseSem := ""
//Retira o acento e mostra a mensagem
cFraseSem := FWNoAccent(cFrase)
FWAlertInfo(cFraseSem, "Teste FWNoAccent")
RestArea(aArea)
Return
Bom pessoal, por hoje é só.
Abraços e até a próxima.
