Ajuste pcnNFe.pas

[antoniojmsjr]

Boa tarde, realizei um ajuste na unit pcnNFe.pas para corrigir um erro Invalid pointer operation, esse erro acontece:

TEnviarNFCe = class
  private
    FDocumento: TNFe;
  public
    constructor Create;
    destructor Destroy; override;
    procedure ProcessarNFCe;
    procedure EnviarNFCe(pACBrNFe: TACBrNFe);
  end;

constructor TProcessarIniNFCe.Create;
begin
  FDocumento := TNFe.Create;
end;

destructor TProcessarIniNFCe.Destroy;
begin
  FDocumento.Free; //QUANDO FINALIZA, GERA UM ERRO AO LIBERAR FDet DA CLASSE TNFe.Destroy;
end;

procedure TProcessarIniNFCe.ProcessarNFCe;
begin
  FDocumento.Ide.cUF := 'RS';
  FDocumento.Ide.serie := 70;
  FDocumento.Ide.nNF := 1000;
  ...
  ...
end;

procedure TProcessarIniNFCe.EnviarNFCe(pACBrNFe: TACBrNFe);
begin
  
  pACBrNFe.NotasFiscais.Add.NFe.Assign(Self.FDocumento);

  //AQUI TEM OUTROS PROCESSOS PARA PODER ENVIAR A NFC-e
  {
  ...
  ...
  }
  
  //NO FINAL DE TUDO É LIMPO
  pACBrNFe.NotasFiscais.Clear;
end;

Este é um resumo simples do processo que eu realizo, eu acredito o que esteja acontecendo é que o assing do TDetCollection tá utilizando a referência do objeto para salva na lista e quando realiza o pACBrNFe.NotasFiscais.Clear está removendo e liberando o objeto. Quando eu libero o objeto FDocumento.Free está gerando o erro Invalid pointer operation.

pcnNFe.pas

[Daniel Simoes]

Parece tudo correto... obrigado pela analise e correção...  Commit [r25416]

[antoniojmsjr]

Obrigado Daniel.