Danfe NFCe

[GDS]

Boa Tarde!

Preciso imprimir o Danfe para nfce em A4, de preferencia em Quickreport, mas pode ser em Rave ou Fortes, até ja tentei com todos sem sucesso!

Ja pesquisei no fórum tem diversas pessoas falando do danfe para nfce, já fiz todas as orientações e segui alguns exemplos mas não estou tendo sucesso com a impressão do meu Danfe, estou fazendo da seguinte maneira:

   LerConfiguracao;
   if not FileExists( ArquivoXML ) then
      raise Exception.Create('Arquivo não encontrado!'+ArquivoXML);
   ACBrNFe1.DANFE.TipoDANFE                 := tiNFCe;
   ACBrNFe1.DANFE.ImprimeItens              := False;

   ACBrNFe1.NotasFiscais.Clear;
   ACBrNFe1.NotasFiscais.LoadFromFile(ArquivoXML);
   if ACBrNFe1.NotasFiscais.Items[0].NFe.Ide.tpEmis = teDPEC then
   begin
      ACBrNFe1.WebServices.ConsultaDPEC.NFeChave := ACBrNFe1.NotasFiscais.Items[0].NFe.infNFe.ID;
      ACBrNFe1.WebServices.ConsultaDPEC.Executar;
      ACBrNFe1.DANFE.ProtocoloNFe := ACBrNFe1.WebServices.ConsultaDPEC.nRegDPEC +' '+ DateTimeToStr(ACBrNFe1.WebServices.ConsultaDPEC.dhRegDPEC);
   end;

   ACBrNFe1.NotasFiscais.Imprimir;

- Mas o problema que sempre abre o danfe da NFe e não da NFCe, em anexo um xml gerado pelo meu aplicativo.

 

41150704954377000130650010000000881000000888-nfe.xml

[Italo Giurizzato Junior]

Boa tarde,

Já tentou?

ACBrNFe1.DANFE.TipoDANFE   := tiNFCeA4;

[GDS]

Bom dia Italo!

Obrigado pela sua atenção! 

Ja tentei também com ACBrNFe1.DANFE.TipoDANFE   := tiNFCeA4 mas também abre o danfe da NFe.

Eu não tenho nenhuma impressora Termica não fiscal para fazer os testes, estou pensando em adquirir uma pra tentar com o componente ACBrNFeDANFeESCPOS.

O que estou fazendo e o xml gerado esta tudo certo?

 

[Régys Silveira]

Se não estou enganado no Trunk normal só existe impressão em A4 para o FastReport, usar o ACBrNFeDANFEscPOS não lhe ajudará, pois ele foi feito para imprimir em impressoras não fiscais que usam bobina e não em formato A4.

[GDS]

Ok, obrigado ! 

Vou instalar o  FastReport.

[GDS]

Boa Tarde Regis e Italo, 

Obrigado pelo retorno e ajuda, consegui imprimir o danfe em formato A4 com o FastReport. 

Abaixo o código se alguém precisar:

ACBrNFe1.DANFE.TipoDANFE            := tiNFCeA4;
ACBrNFe1.DANFE.ImprimeItens          := False;

ACBrNFeDANFEFR.FastFile                  := ExtractFileDir(application.ExeName) + '\Report\DANFeNFCeA4.fr3';
ACBrNFeDANFEFR.FastFileEvento     := ExtractFileDir(application.ExeName) + '\Report\EVENTOS.fr3';

ACBrNFe1.NotasFiscais.Clear;
ACBrNFe1.NotasFiscais.LoadFromFile(ArquivoXML);
ACBrNFe1.NotasFiscais.Imprimir;

Gostaria muito de usar o QuickReport pra imprimir, se alguém usar ele e puder me dar um help agradeço!

[Régys Silveira]

No Trunk2 o suporte será somente para FastReport e FortesReport, só lembrando.

[GDS]

No Trunk2 o suporte será somente para FastReport e FortesReport, só lembrando.

Certo, o estranho que não consegui imprimir em FortesReport também!

Mas obrigado, vou tentar aqui, qualquer coisa retorno!