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:
Inscreva-se no Canal
E abaixo o código fonte desenvolvido:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 | //Bibliotecas#Include "TOTVS.ch"/*/{Protheus.doc} User Function zVid0139Demonstraçã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.
