Nesse vídeo demonstraremos a utilização das funções Lj904XWC PorEncode e WCDecode que servem para tratar uma string com caracteres especiais (principalmente para usar com HTML ou web).

Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:

//Bibliotecas
#Include "Totvs.ch"

/*/{Protheus.doc} User Function zExe329
Converte uma string para o padrão usado em HTML
@type Function
@author Atilio
@since 12/03/2023
@obs 

    Função Lj904XWC
    Parâmetros
        Recebe uma string com os caracteres a serem tratados
    Retorno
        Retorna uma string formatada

    Função PorEncode
    Parâmetros
        Recebe uma string com os caracteres a serem tratados
        Recebe um parâmetro lógico se irá formatar em HTML (.T.) ou se irá formatar barras e -enters- (.F.)
    Retorno
        Retorna uma string formatada

    Função WCDecode
    Parâmetros
        Recebe uma string com os caracteres a serem tratados
    Retorno
        Retorna uma string formatada

    **** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/

User Function zExe329()
    Local aArea     := FWGetArea()
    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 cMensagem := ""
     
    //Aciona aqui as conversões
    cMensagem += "Lj904XWC:  '" + Lj904XWC(cFrase)  + "'" + CRLF + CRLF
    cMensagem += "PorEncode: '" + PorEncode(cFrase) + "'" + CRLF + CRLF
    cMensagem += "WCDecode:  '" + WCDecode(cFrase)  + "'" + CRLF + CRLF
    ShowLog(cMensagem)
     
    FWRestArea(aArea)
Return

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: AdvPLMaratonaProtheusTL++