CT-e: Ler XML de evento e acessar conteúdo completo do arquivo

[informacaoweed]

Olá!

Implementei no meu sistema o recurso de importação de XML.

Quando leio uma XML de emissão através do recurso "ACBrCTe.Conhecimentos.LoadFromFile(CaminhoArq)", é possível recuperar o conteúdo da XML lida através da propriedade "ACBrCTe.Conhecimentos.Items.CTe.XML". Esta propriedade contém o conteúdo completo da XML, inclusive a tag <cteProc> e os dados de assinatura.

Quando leio uma XML de evento através do recurso "ACBrCTe.EventoCTe.LerXML(CaminhoArq)", é possível recuperar o conteúdo da XML lida através da propriedade "ACBrCTe.EventoCTe.Evento.Items.RetInfEvento.XML". Esta propriedade não contém o conteúdo completo da XML, sem a tag <procEventoCTe> e dados de assinatura.

Nós guardamos o conteúdo da XML assinada em banco de dados, para oferecer o recurso de exportação de XML aos usuários. Por isso eu gostaria de salvar a XML lida no banco de forma completa, tal como ela é quando é gerada durante uma emissão de CT-e ou evento de CT-e.

Sei que se trata de uma simples tarefa com TStringList, mas a rotina está projetada para efetuar a leitura de todas as XML selecionadas primeiro e, posteriormente, outra rotina se encarrega do salvamento dos dados no banco, e neste ponto eu não sei mais os nomes dos arquivos. Gostaria de saber se existe uma maneira de acessar o conteúdo completo da XML de evento via ACBr, que eu não esteja enxergando?

 

Obrigado

Editado 18 Janeiro, 2017 por informacaoweed

[Italo Giurizzato Junior]

Boa noite,

Favor atualizar os fontes e tente obter o XML completo da seguinte forma:

ACBrCTe.EventoCTe.LerXML(nomeArq);

sXML := ACBrCTe.EventoCTe.XML;

[informacaoweed]

Bom dia, Ítalo. Esta propriedade calhou muito. Obrigado!

[joemil]

 

aproveitando o topico, estamos com problemas na sefaz q as vezes nao retorna o protocolo do evento (geralmente CC-e). apos realizar uma consulta, como faco pra pegar o protocolo do evento?

    fPainelCTe.ACBrCTe.WebServices.Consulta.CTeChave := Chave;
    fPainelCTe.ACBrCTe.WebServices.Consulta.Executar;
    fPainelCTe.ACBrCTe.WebServices.Retorno.CTeRetorno. (???)

<cteConsultaCTResult xmlns="http://www.portalfiscal.inf.br/cte/wsdl/CteConsulta">
<retConsSitCTe xmlns="http://www.portalfiscal.inf.br/cte" versao="2.00">
<tpAmb>2</tpAmb>
<verAplic>2.00</verAplic>
<cStat>100</cStat>
<xMotivo>100 - Autorizado o uso do CT-e</xMotivo>
<cUF>51</cUF>
<protCTe versao="2.00">
<infProt>
<tpAmb>2</tpAmb>
<verAplic>2.00</verAplic>
<chCTe>51170106853262000185570010000000171000000173</chCTe>
<dhRecbto>2017-01-04T17:51:58</dhRecbto>
<nProt>151170037240728</nProt>
<digVal>cutGRNbaWHSpVWOx8+TnLvItb80=</digVal>
<cStat>100</cStat>
<xMotivo>Autorizado o uso da CT-e</xMotivo>
</infProt>
</protCTe>
<procEventoCTe versao="2.00">
<eventoCTe xmlns="http://www.portalfiscal.inf.br/cte" versao="2.00">
<infEvento Id="ID1101105117010685326200018557001000000017100000017301">...</infEvento>
<Signature xmlns="http://www.w3.org/2000/09/xmldsig#">...</Signature>
</eventoCTe>
<retEventoCTe xmlns="http://www.portalfiscal.inf.br/cte" versao="2.00">
<infEvento>
<tpAmb>2</tpAmb>
<verAplic>2.00</verAplic>
<cOrgao>51</cOrgao>
<cStat>135</cStat>
<xMotivo>135 - Evento registrado e vinculado a CT-e.</xMotivo>
<chCTe>51170106853262000185570010000000171000000173</chCTe>
<tpEvento>110110</tpEvento>
<xEvento>Carta de Correção</xEvento>
<nSeqEvento>1</nSeqEvento>
<dhRegEvento>2017-01-04T17:56:03</dhRegEvento>
<nProt>151170037240730</nProt>
</infEvento>
</retEventoCTe>
</procEventoCTe>
<procEventoCTe versao="2.00">...</procEventoCTe>
</retConsSitCTe>
</cteConsultaCTResult>

[MarcosRWeimer]

Em 18/01/2017 at 21:28, Italo Jurisato Junior disse:

Boa noite,

Favor atualizar os fontes e tente obter o XML completo da seguinte forma:

ACBrCTe.EventoCTe.LerXML(nomeArq);

sXML := ACBrCTe.EventoCTe.XML;

Desculpem reativar o tópico de janeiro, mas estou com problemas.

Envio o evento de cancelamento, é autorizado o acbr salva o arquivo xml do evento em disco, mas a referida propriedade (ACBrCTe.EventoCTe.XML) está vazia.

Alguma sugestão ?

 

 

 

 

[MarcosRWeimer]

Consegui. Peguei o XML completo aqui:

ACBrCTe.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento.XML