Ir para conteúdo
  • Cadastre-se

dev botao

Impressão Cancelamento NFE


Ver Solução Respondido por Inovatechi Sistemas,
  • Este tópico foi criado há 1739 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 para o comentário
Compartilhar em outros 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;
	

 

  • Curtir 2
Link para o comentário
Compartilhar em outros 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

  • Curtir 3
Link para o comentário
Compartilhar em outros sites

  • Administradores

Obrigado por reportar.

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

Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

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 para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 1739 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.