Consulta Evento CCE - Está trazendo CTE

[SISBLU Software]

Bom dia, sempre usei essa consulta depois de enviar uma carta de correção. A consulta a esse evento me trazia o XML da carta, com a descrição da CORREÇÃO, etc...

Essa semana , fui consultar e está trazendo CTE de transportadora... Não sei como fazer para trazer o XML da carta de correção para IMPRESSÂO.

Alguém pode me ajudar?

 

DMAcbr.ACBrNFe1.WebServices.Consulta.ExtrairEventos:=true;

 

    try
    DMAcbr.ACBrNFe1.WebServices.Consulta.Executar;

        if DMAcbr.ACBrNFe1.WebServices.Consulta.procEventoNFe.Count > 0 then
        begin
           TotalEventos:=IntToStr( DMAcbr.ACBrNFe1.WebServices.Consulta.procEventoNFe.Count);

                for i := 0 to DMAcbr.ACBrNFe1.WebServices.Consulta.procEventoNFe.Count - 1 do
                  begin

                       for j := 0 to DMAcbr.ACBrNFe1.WebServices.Consulta.procEventoNFe.Items[i].RetEventoNFe.retEvento.Count - 1 do
                        begin

                       if (i+1)=StrToInt(TotalEventos)then

                                    Begin
                               vXMLDoc := TXMLDocument.Create(self);
                               try
                               vXMLDoc.Active := False;
                               vXMLDoc.XML.Clear;
                               //vXMLDoc.XML.Text:= UTF8Encode(DMAcbr.ACBrNFe1.WebServices.Consulta.RetWS);
                               vXMLDoc.XML.Text:=DMAcbr.ACBrNFe1.WebServices.Consulta.procEventoNFe.Items[I].RetEventoNFe.XML;
                               vXMLDoc.Active := True;
                               vXMLDoc.Encoding := 'utf-8';
                               vXMLDoc.Version := '1.0';

                               Memo1.Clear;
                               Memo1.Text:=vXMLDoc.XML.Text;
                               Memo1.Text := StringReplace(Memo1Canc.Text, 'procEventoNFe versao="1.00"', 'procEventoNFe xmlns="http://www.portalfiscal.inf.br/nfe" versao="1.00"', [rfReplaceAll]);

                               finally
                               vXMLDoc.Free;
                               end;
                             End;

                                    end;
                

                  end;