Nesse vídeo demonstraremos a utilização das funções Min e Max, que servem para retornar o valor mínimo (menor) e máximo (maior) entre duas variáveis informadas.

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

//Bibliotecas
#Include "Totvs.ch"

/*/{Protheus.doc} User Function zExe340
Pega o valor minimo entre dois valores e o máximo entre dois valores
@type Function
@author Atilio
@since 12/03/2023
@see https://tdn.totvs.com/display/tec/Min e https://tdn.totvs.com/display/tec/Max
@obs 

    Função Min
    Parâmetros
        + xExp1     , Indefinido      , Primeiro valor a ser comparado
        + xExp2     , Indefinido      , Segundo valor a ser comparado
    Retorno
        + xMenor    , Indefinido      , Retorna o menor valor

    Função Max
    Parâmetros
        + xExp1     , Indefinido      , Primeiro valor a ser comparado
        + xExp2     , Indefinido      , Segundo valor a ser comparado
    Retorno
        + xMaior    , Indefinido      , Retorna o maior valor

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

User Function zExe340()
    Local aArea     := FWGetArea()
    Local nValor1   := 5
    Local nValor2   := 2
    Local dData1    := sToD("20230304")
    Local dData2    := sTod("20230310")
    Local cMensagem := ""

    //Monta a mensagem, buscando o menor e maior valor entre as datas e números
    cMensagem += "Numérico" + CRLF
    cMensagem += "Menor: " + cValToChar( Min(nValor1, nValor2) ) + CRLF
    cMensagem += "Maior: " + cValToChar( Max(nValor1, nValor2) ) + CRLF
    cMensagem += CRLF
    cMensagem += "Data" + CRLF
    cMensagem += "Menor: " + cValToChar( Min(dData1, dData2) ) + CRLF
    cMensagem += "Maior: " + cValToChar( Max(dData1, dData2) )
    ShowLog(cMensagem)

    FWRestArea(aArea)
Return

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: AdvPLMaratonaProtheus