Nesse vídeo demonstraremos a utilização das funções GetMin e GetMax, que servem para buscar o primeiro e o último elemento de um Array.

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

//Bibliotecas
#Include "TOTVS.ch"

/*/{Protheus.doc} User Function zExe278
Retorna o primeiro ou o último elemento de um array (ordenando ele de forma crescente)
@type  Function
@author Atilio
@since 21/02/2023
@obs 

    Função GetMin
    Parâmetros
        Não tem parâmetros
    Retorno
        Retorna o primeiro elemento encontrado no Array

    Função GetMax
    Parâmetros
        Não tem parâmetros
    Retorno
        Retorna o último elemento encontrado no Array
    
    **** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/

User Function zExe278()
    Local aArea     := FWGetArea()
    Local aNomes    := {}
    Local cPrimeiro := ""
    Local cUltimo   := ""

    //Adiciona elementos no Array
    aAdd(aNomes, "João")
    aAdd(aNomes, "Maria")
    aAdd(aNomes, "Daniel")
    aAdd(aNomes, "José")

    //Busca o primeiro
    cPrimeiro := GetMin(aNomes)

    //Busca o último
    cUltimo := GetMax(aNomes)

    //Exibe uma mensagem
    FWAlertInfo("O primeiro nome é '" + cPrimeiro + "', e o último nome é '" + cUltimo + "'", "Teste GetMin e GetMax")

    FWRestArea(aArea)
Return

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: AdvPLMaratonaProtheusTL++