Impressão Cancelamento NFE

[Claudiomir]

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

1101115119061191112300010955001000000610138619122601-procEventoNFe.xml 51190611911123000109550010000006101386191226-nfe.xml

[Inovatechi Sistemas]

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;
	

 

[Claudiomir]

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

[Juliana Tamizou]

Obrigado por reportar.

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