Copiar campo especifico de uma linha

Boa tarde senhores(as)

Estou iniciando minha jornada no ADVPL e algumas coisas surgem como dificuldade.

Uma delas é !

Como copiar a informação de um campo especifico em uma linha e replicar está informação na próxima linha sem a necessidade de digitar novamente

Fiz um pequeno trecho dentro do ponto de entrada MT110LOK(), Porém não consigo faze-lo funcionar conforme a minha necessidade

    IF alltrim(funName()) == "MATA110"
        FOR nP := 1 to len(acols)
            cCCusto        := acols[nP][GDFieldPos("C1_CC")]
            IF nP >= 2
                M->C1_CC    := cCCusto
            ENDIF
        NEXT    
    ENDIF

A variável cCCusto, lê normalmente o valor do campo, porém o problema surge no momento de atribuir este valor para a próxima linha.

Alguém poderia me ajudar?

advpl

criado 13 de Feb de 2022
Edito
20 pontos
editado 13 de Feb de 2022

Você vai ver essas setas em qualquer página de pergunta. Com elas, você pode dizer se uma pergunta ou uma resposta foram relevantes ou não.
Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
Caso haja alguma dúvida sobre a pergunta, adicione um comentário. O espaço de respostas deve ser utilizado apenas para responder a pergunta.
Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
Clique aqui para mais detalhes sobre o funcionamento do TOTVS DevForum!

2 respostas

up 1 down
Tente mudar a informação direto no acols invés de mudar a informação que está na memoria

Exemplo...

IF alltrim(funName()) == "MATA110" FOR nP := 1 to len(acols) If nP = 2 cCCusto := acols[nP][GDFieldPos("C1_CC")] ElseIf nP >= 2 acols[nP][GDFieldPos("C1_CC")] := cCCusto ENDIF NEXT ENDIF
- editar
- x
  
  grosseiro ou ofensivo pouco construtivo obsoleto outro...
  Motivo
- criado 13 de Feb de 2022
  Lucas Graglia Cardozo
  34 pontos
- 0
  
  Bom dia Lucas obrigado, porém não deu certo ... A variável até é lida, porém não altera o valor da linha C1_CC
  — edieesec 14 de Feb de 2022
Adicionar comentário

Caracteres restantes: 600
Quero acompanhar este tópico via email.

Comentário
Utilize formatação mini-Markdown: [link](http://exemplo.com) _italico_ **negrito** `codigo`.
Comentarios devem ter, no maximo, 600 caracteres. Se achar necessario, utilize links em vez de copiar código ou ainda edite sua pergunta/resposta para colocar mais informações
up 0 down
Lucas,

Deu certo muito obrigado
```
IF alltrim(funName()) == "MATA110" 
        FOR nP := 1 to len(acols) 
            IF nP == 1 
                cCCusto := acols[nP][GDFieldPos("C1_CC")]  
            ELSEIF nP > 1 
                acols[nP][GDFieldPos("C1_CC")] := cCCusto 
            ENDIF 
        NEXT 
    ENDIF
```
- editar
- x
  
  grosseiro ou ofensivo pouco construtivo obsoleto outro...
  Motivo
- criado 14 de Feb de 2022
  edieesec
  10 pontos
Adicionar comentário

Caracteres restantes: 600
Quero acompanhar este tópico via email.

Comentário
Utilize formatação mini-Markdown: [link](http://exemplo.com) _italico_ **negrito** `codigo`.
Comentarios devem ter, no maximo, 600 caracteres. Se achar necessario, utilize links em vez de copiar código ou ainda edite sua pergunta/resposta para colocar mais informações

Copiar campo especifico de uma linha

Comentário

2 respostas

Comentário

Comentário

Não é a resposta que estava procurando? Procure outras perguntas com as tags advpl ou faça a sua própria pergunta.