Nesse vídeo demonstraremos a utilização da função DecodSoma1, que serve para decodificar uma string incremental (gerada pelo Soma1).

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

//Bibliotecas
#Include "TOTVS.ch"

/*/{Protheus.doc} User Function zExe139
Realiza a conversão de uma string feita pelo Soma1 (sequencial entre números e caracteres) para o tipo numérico
@type Function
@author Atilio
@since 16/12/2022
@obs 
    Função DecodSoma1
    Parâmetros
        + Código da sequencia em Soma1
    Retorno
        + Valor da conversão

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

User Function zExe139()
    Local aArea      := FWGetArea()
    Local cSoma1     := ""
    Local nConvert   := 0

    //Faz a conversão com só 2 caracteres
    cSoma1   := "9A"
    nConvert := DecodSoma1(cSoma1)
    FWAlertInfo("A string '" + cSoma1 + "' deu o resultado de '" + cValToChar(nConvert) + "'", "Teste 1 do DecodSoma1")

    //Faz a conversão com 6 caracteres
    cSoma1   := "A147B2"
    nConvert := DecodSoma1(cSoma1)
    FWAlertInfo("A string '" + cSoma1 + "' deu o resultado de '" + cValToChar(nConvert) + "'", "Teste 2 do DecodSoma1")

    FWRestArea(aArea)
Return

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: AdvPLMaratonaProtheusTL++