Mdfe - Imprimir Eventos

[Gr@c@]

Estou realizando meus testes de MDF-e em homologação MG e até o momento já consegui tudo: Enviar, Imprimir, Cancelar, Encerrar. Tudo funcionando 100%. 

Só falta agora imprimir os eventos de encerramento e cancelamento do MDF-e.

Ainda não foi implementado o evento ACBrMDFe.EventoMDFe.ImprimirEvento como existe no ACBrNFe e ACBrCTe.

 

[Gr@c@]

Corrigindo, a impressão de eventos existe no ACBrNFe (ACBrDANFeEventoRaveRetrato)

Para o CT-e e o MDF-e teria que ser em QuickReport

[centuryinf]

Ola

Não serria isto

 

   ACBrMDFe1.Manifestos.Clear;
   ACBrMDFe1.Manifestos.LoadFromFile(OpenDialog1.FileName);
   ACBrMDFe1.Manifestos.Imprimir;

   ACBrMDFe1.Manifestos.ImprimirPdf;

[Gr@c@]

Acho que esses comandos só imprimem o Manifesto. Não sei se imprimem os eventos de encerramento e de cancelamento junto.

Vou verificar, talvez meus fontes estejam desatualizados.

[LuisMaracaja]

Bom dia amigo! 

estou usando a rotina para imprimir os eventos de cancelamento e encerramento;

    //110111 = CANCELAMENTO
    //110112 = ENCERRAMENTO
    //110114 = INCLUSAO DE CONDUTOR
    1 :
    begin
      if DM.CDS_MDNFeSITUACAO.Value = 'ENCERRADO' then
      Begin
        ACBrMDFe1.EventoMDFe.Evento.Clear;
        ACBrMDFe1.EventoMDFe.LerXML( ACBrMDFe1.Configuracoes.Arquivos.PathSalvar + 'Evento\Encerramento\' +  '110112' +  DM.CDS_MDNFeCHAVE.value + '01-procEventoMDFe.XML' );
        ACBrMDFe1.ImprimirEvento;
      End;
    end;
    2 :
    begin
      if DM.CDS_MDNFeSITUACAO.Value = 'CANCELADO' then
      Begin
        ACBrMDFe1.EventoMDFe.Evento.Clear;
        ACBrMDFe1.EventoMDFe.LerXML( ACBrMDFe1.Configuracoes.Arquivos.PathSalvar + 'Evento\Cancelamento\' +  '110111' +  DM.CDS_MDNFeCHAVE.value + '01-procEventoMDFe.XML' );
        ACBrMDFe1.ImprimirEvento;
      End;
    end;
 

 

esta funcionando muito bem.