Jump to content

Assista click.png tectoy.png

C6 chamada_c6.png botao.png

Impressão Cancelamento NFE


Go to solution Solved by Inovatechi Sistemas,
  • Este tópico foi criado há 1068 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

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

Link to comment
Share on other sites

  • Solution

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
Link to comment
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
Link to comment
Share on other sites

  • Administradores

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.  Discord

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


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link to comment
Share on other sites

  • Este tópico foi criado há 1068 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Guest
This topic is now closed to further replies.
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.