Jump to content

2 Dia do ACBr

Visite Stands dos Patrocinadores
Control iD, CS Devices, Elgin, Gertec, Bematech, Jetway, PlugMobile, Epson, Custom e Sweda
Inscreva-se

Nova Loja Oficial
loja.projetoacbr.com.br
Ajude o projeto a crescer, com estilo

Comprar

Balança SM100 performance surpreendente

Tecnologia Japonesa   Teclado e Visor resistentes a água
Consumo inteligente de etiquetas   Baixo custo de manutenção
Comunicação Ethernet e WIFI independentes

Saiba mais

Impressora de Etiquetas ELGIN - L42 PRO

Protocolos PPLA, PPLB, ZPL, EPL (automático)
Porta USB padrão Opcionais: Ethernet, Serial, Paralela
Sensor de Etiquetas Móvel Garantia de 18 meses

Saiba mais

Recommended Posts

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

Share this post


Link to post
Share on other sites

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?

 

Share this post


Link to post
Share on other sites

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.


Equipe ACBr

Régys Borges da Silveira

http://www.regys.com.br

certificacao delphicertificacao delphi

Share this post


Link to post
Share on other sites

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!

  • Like 1

Share this post


Link to post
Share on other sites

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!

  • Like 1

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...