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.
