Jump to content

Promoção de Natal SAC Mensal

Contrate e ganhe 1 Kit agenda + Caneta
Saiba mais

LANÇAMENTO
Curso Completo - Dominando o ACBrMonitor

Conheça o Curso

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

Saudações

Estou tendo problemas para imprimir o evento do Cancelamento da NFE.

Revisei os exemplos, mas nada de encontrar o problema.

Estou usando o seguinte código para carregar.

var
  vPathXmlEvento: String;
  vAnoMes: String;
begin
  vAnoMes := FormatDateTime('yyyymm', now);
  vPathXmlEvento := ACBrNFe1.Configuracoes.Arquivos.PathNFe + vAnoMes +
    '\110111' + copy(qvndvnsnomenfe.AsString, 27, 44) + '01-procEventoNFe.xml';
  ACBrNFe1.EventoNFe.LerXMLFromString(vPathXmlEvento);
  ACBrNFe1.ImprimirEvento;

Ao imprimir, porém, ele me traz isso na tela.

A impressão que tenho é que ele não carregou o evento, mas também não deu erro na carga.

Imagem do erro abaixo.

Evento anexado.

Xml da Nfe Homologação Anexado

 

Qualquer ideia é apreciada. Gastei o dia nisso e não sai do lugar.

Claudiomir

WhatsApp Image 2019-06-23 at 14.30.51.jpeg

1101115119061191112300010955001000000610138619122601-procEventoNFe.xml 51190611911123000109550010000006101386191226-nfe.xml

Share this post


Link to post
Share on other sites

Verifica se ajuda:

//Configurando componente de impressão
	ACBrNFeDANFeRL1.ACBrNFe := ACBrNFe1;
///....
//Imprimindo Danfe
	ACBrNFe1.NotasFiscais.Clear;
	ACBrNFe1.NotasFiscais.LoadFromFile(PathNFe + FormatDateTime('YYYYMM', DataEmissao)+'\'+ChaveAcesso+'-nfe.xml',False);
	ACBrNFe1.NotasFiscais.Imprimir;
//Imprimindo Evento de Cancelamento
	if NotaCancelada then
	begin
		ACBrNFe1.NotasFiscais.LoadFromFile(PathNFe + FormatDateTime('YYYYMM', DataEmissao)+'\Cancelamentos\'+'110111'+ChaveAcesso+'01-procEventoNFe.xml',False);
		ACBrNFe1.EventoNFe.Evento.Clear;
		ACBrNFe1.EventoNFe.LerXML(PathNFe + FormatDateTime('YYYYMM', DataEmissao)+'\Cancelamentos\'+'110111'+ChaveAcesso+'01-procEventoNFe.xml') ;
		ACBrNFe1.DANFE.PathPDF := PathNFe + FormatDateTime('YYYYMM', DataEmissao)+'\';
		ACBrNFe1.ImprimirEvento;
	end;
	

 

  • Like 2

Share this post


Link to post
Share on other sites
41 minutos atrás, Inovatechi Sistemas disse:

Verifica se ajuda:

//Configurando componente de impressão
	ACBrNFeDANFeRL1.ACBrNFe := ACBrNFe1;
///....
//Imprimindo Danfe
	ACBrNFe1.NotasFiscais.Clear;
	ACBrNFe1.NotasFiscais.LoadFromFile(PathNFe + FormatDateTime('YYYYMM', DataEmissao)+'\'+ChaveAcesso+'-nfe.xml',False);
	ACBrNFe1.NotasFiscais.Imprimir;
//Imprimindo Evento de Cancelamento
	if NotaCancelada then
	begin
		ACBrNFe1.NotasFiscais.LoadFromFile(PathNFe + FormatDateTime('YYYYMM', DataEmissao)+'\Cancelamentos\'+'110111'+ChaveAcesso+'01-procEventoNFe.xml',False);
		ACBrNFe1.EventoNFe.Evento.Clear;
		ACBrNFe1.EventoNFe.LerXML(PathNFe + FormatDateTime('YYYYMM', DataEmissao)+'\Cancelamentos\'+'110111'+ChaveAcesso+'01-procEventoNFe.xml') ;
		ACBrNFe1.DANFE.PathPDF := PathNFe + FormatDateTime('YYYYMM', DataEmissao)+'\';
		ACBrNFe1.ImprimirEvento;
	end;
	

 

Saudações

Segui vosso procedimento.

Deu certinho.

Grato meu velho!!!

Claudiomir

  • Like 3

Share this post


Link to post
Share on other sites

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.


Consultora SAC ACBr

Juliana Tamizou
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

×
×
  • Create New...