Impressão de Cancelamento e Encerramento

[pradilsoncarlos]

Porque quando acabo de fazer um encerramento ou um cancelamento é impresso um modelo e quando volto para imprimir depois de fechar a tela imprime menos informações ????

Cancelamento-1.pdf

Cancelamento-2.pdf

[Italo Giurizzato Junior]

Boa tarde Adilson,

A resposta é simples.

Para cancelar ou encerrar você esta carregando o XML do MDF-e, correto?

Pois bem isso faz com que a impressão do evento sai completa, ou seja, com alguns dados do MDF-e.

Já a segunda impressão você esta só carregando o XML do evento e mandando imprimir, isso faz com que a impressão não saia com os dados do MDF-e.

[pradilsoncarlos]

Bom dia Italo. Eu salvei o caminho que é feito no momento da impressão, o caminho é o mesmo, mas impressão é diferente, é conforme os anexos. que eu  já enviei anteriormente neste forum

C:\Fontes\Standard\MDFe\XML\201809\MDFe\201809\Evento\Encerramento\1101123518090910790800017358001000000043100000001201-procEventoMDFe.xml

C:\Fontes\Standard\MDFe\XML\201809\MDFe\201809\Evento\Encerramento\1101123518090910790800017358001000000043100000001201-procEventoMDFe.xml

[Italo Giurizzato Junior]

Bom dia Adilson,

Você não entendeu.

Se deseja que a segunda impressão seja igual a primeira, você deve primeiro carregar o XML do MDF-e (*-mdfe.xml) e depois carregar o XML do evento (*-procEventoMDFe.xml).

Lembrando que o método para carregar o XML do MDF-e é um e para carregar o XML do evento é outro.

[pradilsoncarlos]

Agora entendi, usei a seguinte instrução:

   //=========Carregando o XML do MDF-e
   wXML1 := MDFeGeralNOMEARQUIVOENVIO.AsString;
   ACBrMDFe1.Manifestos.Clear;
   ACBrMDFe1.Manifestos.LoadFromFile(wXML1);

e logo em seguida a instrução que já usava para impressão do evento:

   //=========Buscando e IMPRIMINDO MDF-e Encerrado
   wXML := MDFeGeralNOMEARQUIVOCANCELA.AsString;

   Memo1.Text := wXML;

   if wXML <> '' then
      Begin
         ACBrMDFe1.EventoMDFe.Evento.Clear;
         ACBrMDFe1.EventoMDFe.LerXML(wXML);
         ACBrMDFe1.ImprimirEvento;
      End
   Else
      MessageDlg('XML não foi encontrado', MtInformation, [mbok], 0);
 

Problema resolvido.

Obrigado.

[Italo Giurizzato Junior]

Obrigado por reportar.

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