Solicitação para ajuste na unit ACBrNFeDANFEFR

[Diniz]

NFe - usando FastReport.

Problemas:

1) Não respeita o Numero de Cópias

2) Falha ao gerar o PDF, pois busca a chave em NFe.procNFe.chNFe, que nem sempre esta disponível, causando ERRO no envio por E-Mail.

Sugiro os ajustes nas procedures abaixo para solucionar os problemas mencionados. (Já Testado e em Uso)

---------------------------------------------------------------------------

procedure TACBrNFeDANFEFR.ImprimirDANFE(NFE: TNFe);

begin

if PrepareReport(NFE) then

begin

dmDanfe.frxReport.PrintOptions.Copies := NumCopias; <<== Alterado pela Deltress

if MostrarPreview then

dmDanfe.frxReport.ShowPreparedReport

else

dmDanfe.frxReport.Print;

end;

end;

-----------------------------------------------------------------------------

procedure TACBrNFeDANFEFR.ImprimirDANFEPDF(NFE: TNFe);

const

TITULO_PDF = 'Nota Fiscal Eletrônica';

var

I: Integer;

NomeArq : String;

begin

if PrepareReport(NFE) then

begin

dmDanfe.frxPDFExport.Author := Sistema;

dmDanfe.frxPDFExport.Creator := Sistema;

dmDanfe.frxPDFExport.Producer := Sistema;

dmDanfe.frxPDFExport.Title := TITULO_PDF;

dmDanfe.frxPDFExport.Subject := TITULO_PDF;

dmDanfe.frxPDFExport.Keywords := TITULO_PDF;

dmDanfe.frxPDFExport.ShowDialog := False;

for I := 0 to TACBrNFe(ACBrNFe).NotasFiscais.Count - 1 do

begin

// dmDanfe.frxPDFExport.FileName := PathPDF + dmDanfe.NFe.procNFe.chNFe + '.pdf';

dmDanfe.frxPDFExport.FileName := PathPDF + copy(dmDanfe.NFe.infNFe.ID,4,44) + '.pdf'; // Alterado pela Deltress

dmDanfe.frxReport.Export(dmDanfe.frxPDFExport);

end;

end;

end;

ACBrNFeDANFEFR.pas