Atualização pcnNFe.pas

[antoniojmsjr]

Boa tarde,

Atualizado o pcnNFe.pas:

- Implementado no método Assign da classe TDetCollection, explícito a criação dos itens.

pcnNFe.pas

[Juliana Tamizou]

Obrigado pela contribuição, em breve será validada para possível inclusão ao svn

[Italo Giurizzato Junior]

Boa tarde Antonio,

De varias classes que herdam a TACBrObjectList, somente a TDetCollection você alterou.

Você poderia argumentar a real necessidade dessa alteração, quais as vantagens dela, entre outras coisas?

[Daniel Simoes]

@antoniojmsjr, notei que o Assign padrão, que é herdado de TList, já está em funcionamento... Veja esse trecho da classe TNFe

procedure TNFe.Assign(Source: TNFe);
begin
  infNFe.Assign(Source.infNFe);
  Ide.Assign(Source.Ide);
  Emit.Assign(Source.Emit);
  Avulsa.Assign(Source.Avulsa);
  Dest.Assign(Source.Dest);
  Retirada.Assign(Source.Retirada);
  Entrega.Assign(Source.Entrega);
  autXML.Assign(Source.autXML);
  Det.Assign(Source.Det);   // <---------- AQUI ------
  Total.Assign(Source.Total);
  Transp.Assign(Source.Transp);
  Cobr.Assign(Source.Cobr);
  pag.Assign(Source.pag);
  infIntermed.Assign(Source.infIntermed);
  InfAdic.Assign(Source.InfAdic);
  exporta.Assign(Source.exporta);
  compra.Assign(Source.compra);
  cana.Assign(Source.cana);
  infNFeSupl.Assign(Source.infNFeSupl);
  signature.Assign(Source.signature);
  procNFe.Assign(Source.procNFe);
  infRespTec.Assign(Source.infRespTec);
end;