Função que ordena um Array.
Exemplo da Rotina:
aSort(aArray)
Exemplo 1- Ordenação de um Array simples:
aSort – Exemplo 1
//Bibliotecas
#Include "Protheus.ch"
/*/{Protheus.doc} zTeste
Função de Teste
@type function
@author Terminal de Informação
@since 13/11/2016
@version 1.0
@example
u_zTeste()
/*/
User Function zTeste()
Local aArea := GetArea()
Local aDados := {}
Local nPos := 0
Local cMsg := ""
//Adicionando elementos no Array
aAdd(aDados, "Daniel")
aAdd(aDados, "Atilio")
aAdd(aDados, "Hudson")
aAdd(aDados, "Terminal")
aAdd(aDados, "Teste")
//Ordena o Array por Nome
aSort(aDados)
//Percorre para compor a mensagem
For nPos := 1 To Len(aDados)
cMsg += "Nome: "+aDados[nPos]+"."+CRLF
Next
MsgInfo("Ordenação: "+CRLF+cMsg, "Atenção")
RestArea(aArea)
Return
Exemplo 2- Ordenação Crescente de um Array Multidimensional:
aSort – Exemplo 2
//Bibliotecas
#Include "Protheus.ch"
/*/{Protheus.doc} zTeste
Função de Teste
@type function
@author Terminal de Informação
@since 13/11/2016
@version 1.0
@example
u_zTeste()
/*/
User Function zTeste()
Local aArea := GetArea()
Local aDados := {}
Local nPos := 0
Local cMsg := ""
//Adicionando elementos no Array (código, nome e idade)
aAdd(aDados, {"0001", "Daniel", 23})
aAdd(aDados, {"0002", "Atilio", 33})
aAdd(aDados, {"0003", "Hudson", 43})
aAdd(aDados, {"0004", "Terminal", 53})
aAdd(aDados, {"0005", "Teste", 63})
//Ordena o Array por Nome (Array multidimensional) - Crescente
aSort(aDados, , , {|x, y| x[2] < y[2]})
//Percorre para compor a mensagem
For nPos := 1 To Len(aDados)
cMsg += aDados[nPos][2]+", código "+aDados[nPos][1]+"."+CRLF
Next
MsgInfo("Ordenação Crescente: "+CRLF+cMsg, "Atenção")
RestArea(aArea)
Return
Exemplo 3- Ordenação Decrescente de um Array Multidimensional:
aSort – Exemplo 3
//Bibliotecas
#Include "Protheus.ch"
/*/{Protheus.doc} zTeste
Função de Teste
@type function
@author Terminal de Informação
@since 13/11/2016
@version 1.0
@example
u_zTeste()
/*/
User Function zTeste()
Local aArea := GetArea()
Local aDados := {}
Local nPos := 0
Local cMsg := ""
//Adicionando elementos no Array (código, nome e idade)
aAdd(aDados, {"0001", "Daniel", 23})
aAdd(aDados, {"0002", "Atilio", 33})
aAdd(aDados, {"0003", "Hudson", 43})
aAdd(aDados, {"0004", "Terminal", 53})
aAdd(aDados, {"0005", "Teste", 63})
//Ordena o Array por Nome (Array multidimensional) - Decrescente
aSort(aDados, , , {|x, y| x[2] > y[2]})
//Percorre para compor a mensagem
For nPos := 1 To Len(aDados)
cMsg += aDados[nPos][2]+", código "+aDados[nPos][1]+"."+CRLF
Next
MsgInfo("Ordenação Decrescente: "+CRLF+cMsg, "Atenção")
RestArea(aArea)
Return
Observações:
– Caso tenha dúvidas ou problemas com os exemplos, entre em contato;
– Se tiver sugestões de rotinas, pode entrar em contato;
Referências:
– TDN
– Universo AdvPL