Nesse vídeo demonstraremos a utilização da função Fórmula, que serve para executar uma fórmula cadastrada no sistema na tabela SM4.

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

//Bibliotecas
#Include "TOTVS.ch"

/*/{Protheus.doc} User Function zExe193
Executa uma fórmula cadastrada na SM4
@type Function
@author Atilio
@since 11/02/2023
@obs 
    Função Formula
    Parâmetros
        + Código da fórmula a ser executada
    Retorno
        + Retorna o valor conforme a fórmnula executada

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

User Function zExe193()
    Local aArea     := FWGetArea()
    Local cFormCod  := "F01"
    Local dResult   := Nil

    //Executa a fórmula e mostra o resultado
    dResult := Formula(cFormCod)
    FWAlertInfo("O resultado é " + dToC(dResult), "Formula - Teste 1")

    FWRestArea(aArea)
Return

Bom pessoal, por hoje é só.

Abraços e até a próxima

Tags: AdvPLMaratonaProtheusTL++