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.
