Nesse vídeo demonstraremos a utilização da função Hex2Int, que serve para converter uma string em hexadecimal para um valor numérico em decimal.

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

//Bibliotecas
#Include "TOTVS.ch"

/*/{Protheus.doc} User Function zExe298
Faz a conversão de uma string com um valor hexadecimal para um valor numérico
@type  Function
@author Atilio
@since 22/02/2023
@obs 

    Função Hex2Int
    Parâmetros
        Recebe a string com o valor hexadecimal
    Retorno
        Retorna o valor numérico decimal

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

User Function zExe298()
    Local aArea      := FWGetArea()
    Local cHexa      := "4174696C696F"
    Local nValor     := 0
    
    //Convertendo e mostrando o resultado (de hexa para numérico)
    nValor := Hex2Int(cHexa)
    FWAlertInfo("A conversão de '" + cHexa + "' deu o valor '" + cValToChar(nValor) + "' ", "Exemplo Hex2Int")

    FWRestArea(aArea)
Return

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: AdvPLMaratonaProtheusTL++