No vídeo de hoje, vamos demonstrar em como usar a função eVal para executar um bloco de código para somar valores.

A dúvida de hoje, nos perguntaram, em como poderíamos através de um bloco de código, ir somando valores em uma variável.

Pensando nisso, montamos esse exemplo, onde vamos demonstrar a utilização da eVal para executar blocos de código.

Segue abaixo o vídeo exemplificando:

E abaixo o código fonte desenvolvido:

//Bibliotecas
#Include "TOTVS.ch"

/*/{Protheus.doc} User Function zVid0139
Demonstração de utilização da eVal para executar blocos de código
@type  Function
@author Atilio
@since 29/03/2024
@see https://tdn.totvs.com/display/tec/Eval
/*/

User Function zVid0139()
    Local aArea     := FWGetArea()

    //Primeiro declaramos a variável de saldo, e depois o bloco de código, que vai atualizar a saldo com o valor recebido
    Local nSaldo    := 0
    Local bBlocoCod := {|nValor| nSaldo := nSaldo + nValor}

    //Depois passamos 3 valores, 5 com 6 com 3 (vai dar 14 o resultado)
    eVal(bBlocoCod, 5)
    eVal(bBlocoCod, 6)
    eVal(bBlocoCod, 3)

    //Por fim, mostramos uma mensagem
    FWAlertSuccess("Resultado é: " + cValToChar(nSaldo), "Sucesso")

    FWRestArea(aArea)
Return

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: AdvPLProtheusTLPP