ImprimirEventoPDF - ACBrDANFCeFortesFr

[Lucas Medeiros]

Olá, Segue em anexo arquivos para análise. 

Notei que o ImprimirEventoPDF, no caso do DANFCe cancelada, não estava implementado no Fortes.

Conforme necessitei de tal funcionalidade em minha aplicação, resolvi implementar e estou postando os arquivos para análise caso tenham interesse em subir para o repositório as alterações.

 

Att,

Lucas Medeiros

ACBrDANFCeFortesFr.pas

[hleorj]

@Lucas Medeiros, post o PDF .

Para facilitar o entendimento inicial dá sua solicitação.

Grato.

[Lucas Medeiros]

Olá.

 

Conforme solicitado segue o PDF da NFCe cancelada que gerou a partir do evento que eu implementei.

o método existia, porém não era chamado.

11170416753646000180650210000001971000001971-canc.pdf

[hleorj]

@Lucas Medeiros,  compreendi a sua sugestão :

procedure TACBrNFeDANFCeFortes.ImprimirEVENTOPDF(NFE: TNFe);
begin
  if NFe = nil then
  begin
    if not Assigned(ACBrNFe) then
      raise Exception.Create('Componente ACBrNFe não atribuí­do');

    FpNFe := TACBrNFe(ACBrNFe).NotasFiscais.Items[0].NFe;
  end
  else
    FpNFe := NFE;

  ImprimirCancelado(True, fiPDF);
end;

Código será mostrado para outros moderadores 

Grato pela sua sugestaão.

[Lucas Medeiros]

11 minutos atrás, hleorj disse:

@Lucas Medeiros,  compreendi a sua sugestão :

procedure TACBrNFeDANFCeFortes.ImprimirEVENTOPDF(NFE: TNFe);
begin
  if NFe = nil then
  begin
    if not Assigned(ACBrNFe) then
      raise Exception.Create('Componente ACBrNFe não atribuí­do');

    FpNFe := TACBrNFe(ACBrNFe).NotasFiscais.Items[0].NFe;
  end
  else
    FpNFe := NFE;

  ImprimirCancelado(True, fiPDF);
end;

Código será mostrado para outros moderadores 

Grato pela sua sugestaão.

Ok, obrigado pela atenção.