Como pegar xml completo do cte?

[vinisted]

Bom dia! Estou tentando pegar o XML de um CTe Cancelado completo (O xml autorizado com o tag do evento).
Eu vi que esse xml está sendo salvo sempre que consulto o CTe após o envio do cancelamento mas não consigo salvar ele no banco Alguém saberia me informar as propriedades necessárias para salvar esse XML?

O código:

 

Try
      ACBrCTe.EnviarEvento(IdLote);

      {$Region 'Salvando dados de retorno'}

      if ACBrCTe.WebServices.EnvEvento.EventoRetorno.cStat = 135 then
      begin
        Result    := True;

        Situacao  := CTE_CANCELADO;
        xMotivo   := ACBrCTe.WebServices.EnvEvento.EventoRetorno.xMotivo;
        Protocolo := ACBrCTe.WebServices.EnvEvento.EventoRetorno.retEvento[0].RetInfEvento.nProt;

        ACBrCTe.Conhecimentos.Clear;
        ACBrCTe.Conhecimentos.LoadFromString(IBQuery.FieldByName('XML_M').AsString);
        ACBrCTe.Consultar;
        XML   := ACBrCTe.Conhecimentos.Items[0].XMLAssinado;
        XMLEV := ACBrCTe.WebServices.Consulta.RetWS;
        CStat := ACBrCTe.WebServices.Consulta.cStat;

        ShowMessage('CTe Cancelado com Sucesso!');
      end else
      begin
        ShowMessage(ACBrCTe.WebServices.EnvEvento.EventoRetorno.xMotivo);
      end;

      {$EndRegion}

    Except
      on E : Exception do
      begin
        ExibirMsg(E.Message);
      end;
    end;

Editado 5 Fevereiro por vinisted
Mensagem sem formatação

[fabiofranzini]

Tenta o seguinte, após a consulta efetuada com sucesso: 

 

 SuaQuery.FieldByName('XML').Text := ACBrCTe.Conhecimentos.Items[0].GerarXML;

[vinisted]

Ele trouxe o xml assinado dessa forma mas não vieram as informações do evento como no xml que ele salva nos paths quando faço a consulta

ACBrCTe.Conhecimentos.Clear;
ACBrCTe.Conhecimentos.LoadFromString(IBQuery.FieldByName('XML_M').AsString);
ACBrCTe.Consultar;

[Juliomar Marchetti]

6 minutos atrás, vinisted disse:

Ele trouxe o xml assinado dessa forma mas não vieram as informações do evento como no xml que ele salva nos paths quando faço a consulta

ACBrCTe.Conhecimentos.Clear;
ACBrCTe.Conhecimentos.LoadFromString(IBQuery.FieldByName('XML_M').AsString);
ACBrCTe.Consultar;

dai tu tem que deixar true a opção de salvar lá no componente e ele vai salvar nas pastas os eventos e o cte.
e dai se tu quer os eventos tem que pegar também os eventos.

[vinisted]

Em anexo o arquivo com o nome "XML Gerado após Consulta.xml" é o que contém as informações que desejo para armazenar. Ele é gerado e salvo no path configurado quando eu rodo o comando de consulta após cancelar o CTe. Eu gostaria de salvar o string desse xml após cancelar

XML Gerado após Consulta.xml XML Gerado ao enviar o cte.xml

4 minutos atrás, Juliomar Marchetti disse:

dai tu tem que deixar true a opção de salvar lá no componente e ele vai salvar nas pastas os eventos e o cte.
e dai se tu quer os eventos tem que pegar também os eventos.

Ele está salvando no path que configurei já. A dúvida é saber se existe um comando que me dá acesso a esse xml no ACBr para salvar como string no banco

[Juliomar Marchetti]

acho que tu precisa fazer isso daqui

   ACBrCTe1.Conhecimentos.Clear;
    ACBrCTe1.Conhecimentos.LoadFromFile(OpenDialog1.FileName);
    ACBrCTe1.WebServices.Consulta.ExtrairEventos := true;
    ACBrCTe1.WebServices.Consulta.Executar;

[vinisted]

É, não funcionou também . 
Para usar essa consulta ACBrCTe1.WebServices.Consulta.Executar. utilizar o comando ACBrCTe.Conhecimentos.LoadFromString(IBQuery.FieldByName('XML_M').AsString) para carregar o xml já é suficiente?

Ele ta reclamando que a UF do emitente está vazia ao utilizar essa forma de consultar, mas ao utilizar ACBrCTe.Consultar; ele ele trás as informações normalmente

[Juliomar Marchetti]

3 horas atrás, vinisted disse:

É, não funcionou também . 
Para usar essa consulta ACBrCTe1.WebServices.Consulta.Executar. utilizar o comando ACBrCTe.Conhecimentos.LoadFromString(IBQuery.FieldByName('XML_M').AsString) para carregar o xml já é suficiente?

Ele ta reclamando que a UF do emitente está vazia ao utilizar essa forma de consultar, mas ao utilizar ACBrCTe.Consultar; ele ele trás as informações normalmente

depura e olha se ele tá passando true no parametro que tem
sabe usar o F7 e F8? dai vai entrando na função