XML de envio do evento

[cueiogordo]

Bom dia

Estou gerando um evento e preciso salvar o XML de envio no banco de dados.

  with DM.ACBrNFe.EventoNFe.Evento.Add do
  begin
     infEvento.chNFe := Chave;
     infEvento.CNPJ   := CNPJ;
     infEvento.dhEvento := lDataHora;
     infEvento.tpEvento := teCCe;
     infEvento.nSeqEvento := nseqCorrecao;
     infEvento.detEvento.xCorrecao := DM.QAux.FieldByName('TEXTO').asString;
   end;

   s_xmlEnvio := DM.ACBrNFe.EventoNFe.Evento.Items[0].XML;

   DM.ACBrNFe.EnviarEvento(StrToInt(idLote));

Mas o XML vem em branco.

Estou pegando de lugar errado?

 

[Diego Foliene]

Bom dia!

Você deve mandar Gerar o XML antes de tentar pegar.

Tente algo assim:

  with DM.ACBrNFe.EventoNFe.Evento.Add do
  begin
     infEvento.chNFe := Chave;
     infEvento.CNPJ   := CNPJ;
     infEvento.dhEvento := lDataHora;
     infEvento.tpEvento := teCCe;
     infEvento.nSeqEvento := nseqCorrecao;
     infEvento.detEvento.xCorrecao := DM.QAux.FieldByName('TEXTO').asString;
   end;
  DM.ACBrNFe.EventoNFe.GerarXML;
  sXML := DM.ACBrNFe.EventoNFe.Gerador.ArquivoFormatoXML;