Nesse vídeo demonstraremos a utilização da função Somar, que serve para percorrer informações de um alias e somar alguns campos conforme expressão informada.

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

//Bibliotecas
#Include "TOTVS.ch"

/*/{Protheus.doc} User Function zExe451
Realiza a soma de informações de uma tabela
@type Function
@author Atilio
@since 31/03/2023
@obs 

    Função Somar
    Parâmetros
        + Alias da Tabela
        + Condição que será avaliada para efetuar a soma
        + Campo ou expressão que será somado para retornar
    Retorno
        + Retorna a soma conforme condição e campo (ou expressão)

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

User Function zExe451()
    Local aArea     := FWGetArea()
    Local cTabela   := ""
    Local cCondicao := ""
    Local cCampo    := ""
    Local nTotal    := 0

    //Define a tabela, condição e o campo a ser somado
    cTabela   := "SB2"
    cCondicao := "SB2->B2_LOCAL == '01' .And. Left(SB2->B2_COD, 1) == 'F'"
    cCampo    := "SB2->B2_QATU"
    nTotal    := Somar(cTabela, cCondicao, cCampo)

    //Mostra uma mensagem com o resultado
    FWAlertInfo("O resultado é " + cValToChar(nTotal), "Teste Somar")

    FWRestArea(aArea)
Return

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: AdvPLMaratonaProtheusTL++