pcnNfe -- Problemas com Assign

[Ana Claudia Ramos]

Em minha empresa, temos uma variável  NotasFiscaisEnviar, que depois de autorizada "copiamos" os dados para o NotasFiscais variável padrão do ACBR, para isso utilizamos o assign.

Porem ao fazer o Assign, percebi que os produtos não estão sendo copiados.

Testando verifiquei que sem vez de 

   Det.Assign(Source.Det);

fazer :

for i:=0 to Det.count - 1 do begin
     Det.Items.Assign(Source.Det.Items);
  end;

Os dados dos itens são copiados.

pcnNFe.pas

[EMBarbosa]

Acho que o que está errado é o método Det.Assign(Source.Det);

Ele devia estar fazendo essa cópia.

[Ana Claudia Ramos]

8 minutos atrás, EMBarbosa disse:

Acho que o que está errado é o método Det.Assign(Source.Det);

Ele devia estar fazendo essa cópia.

Então o Det não tem Assign, então ele vai fazer pelo Pai dele que é TObjectList, porém neste caso não copiará e fara o assign do filho dele prod.

Só se fazer o metodo Assign no  TDetCollection.

Será que seria uma solução melhor?

[EMBarbosa]

4 minutos atrás, Ana Claudia Ramos disse:

Então o Det não tem Assign, então ele vai fazer pelo Pai dele que é TObjectList, porém neste caso não copiará e fara o assign do filho dele prod.

É isso o que eu quis dizer. Esse Assign do TObjectList deveria funcionar. Mas enfim, se não está funcionando é um problema.

Citar

Só se fazer o metodo Assign no  TDetCollection.

Será que seria uma solução melhor? 

Acho que sim. Me parece que o código ficaria mais limpo e isso poderia ser utilizado em outros lugares.

Vejamos se alguém tem alguma outra opinião.