Função que Clona um Array em Outro criando um novo totalmente diferente (pois se apenas utilizar o := ele não cria um novo Array e utiliza o mesmo da origem).

Exemplo da Rotina:

aClone(aOrigem)

Exemplo 1- Clonagem de um Array e mostrando o conteúdo original e do clone:

aClone – 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 aArray := {}
	Local aOutro := {}
	
	//Adicionando elementos na matriz
	aAdd(aArray, "Daniel")
	aAdd(aArray, "João")
	aAdd(aArray, "Gabriel")
	aAdd(aArray, "Fernando")
	
	//Clona o Array em Outro
	aOutro := aClone(aArray)
	
	//Muda o primeiro elemento do Array Clonado
	aOutro[1] := "Daniel Atilio"
	
	//Mostra o primeiro elemento de ambos os Arrays
	Alert(aArray[1]+" - "+aOutro[1])
	
	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