Tempo de leitura: 1 minuto
A função aCopy realiza a cópia de elementos de um array de origem para um outro de destino, considerando que esse de destino já possua a estrutura para receber essa cópia. Ela é uma das funções de manipulação de array em ADVPL.
Sintaxe:
aCopy(aOrigem,aDestino,nInicio,nQtd,nPosDest)
Parâmetro(s):
Retorno:
Exemplo da função aCopy em ADVPL:
#include 'protheus.ch'
#define QLIN Chr(10)+Chr(13)
/*{Protheus.doc} User Function PAaCopy
(Essa função tem por finalidade mostrar a função de Manipulação de Array aCopy em ADVPL)
@type Function
@author Adilio Costa
@since 01/12/2022
@version Protheus 12.1.2210
@Inscreva-se no Blog ProtheusAdvpl:
https://www.protheusadvpl.com.br
@Inscreva-se no Canal ProtheusAdvpl:
https://www.youtube.com/protheusadvpl
@Siga-nos no Instagram:
https://www.instagram.com/protheusadvpl
@Conheça os Cursos do ProtheusAdvpl:
https://hotmart.com/pt-br/club/protheusadvpl
|Se esse conteúdo foi útil pra você nos ajude divulgando
ele e nossas redes sociais!!|
*/
User Function PAaCopy()
Local aOrigem := {1, 2, {11, 22, 33}}
Local aDestino := {, , {, , }}
Local cMensagem := ""
//+----------------------------------------------------------------------------+
//|Exemplifica o uso da função ACopy |
//+----------------------------------------------------------------------------+
cMensagem += "Dimensao de aOrigem = " + cValToChar(Len(aOrigem)) + CRLF
cMensagem += "aOrigem[1] = " + cValToChar(aOrigem[1]) + CRLF
cMensagem += "aOrigem[2] = " + cValToChar(aOrigem[2]) + CRLF
cMensagem += "aOrigem[3][1] = " + cValToChar(aOrigem[3][1]) + CRLF
cMensagem += "aOrigem[3][2] = " + cValToChar(aOrigem[3][2]) + CRLF
cMensagem += "aOrigem[3][3] = " + cValToChar(aOrigem[3][3]) + CRLF
cMensagem += "Dimensao inicial do Destino = " + cValToChar(Len(aDestino)) + CRLF
aCopy(aOrigem, aDestino)
cMensagem += "Dimensao atual do Destino = " + cValToChar(Len(aDestino)) + CRLF
cMensagem += "Destino[1] = " + cValToChar(aDestino[1]) + CRLF
cMensagem += "Destino[2] = " + cValToChar(aDestino[2]) + CRLF
cMensagem += "Destino[3][1] = " + cValToChar(aDestino[3][1]) + CRLF
cMensagem += "Destino[3][2] = " + cValToChar(aDestino[3][2]) + CRLF
cMensagem += "Destino[3][3] = " + cValToChar(aDestino[3][3])
//+----------------------------------------------------------------------------+
//|Apresenta uma mensagem com os resultados obtidos |
//+----------------------------------------------------------------------------+
MsgInfo(cMensagem, "Função aCopy")
Return
Podemos ver na imagem abaixo que a função aCopy copiou os elementos do array aOrigem para o array aDestino:
É isso aí, finalizamos mais um post aqui no Blog ProtheusAdvpl, caso tenha ficado alguma dúvida deixe seu comentário ou nos envie um e-mail para adiliocosta@protheusadvpl.com.br. Até um próximo post. Grande abraço e fica com Deus.
Link(s) de referência:
