Dúvida Ao Carregar Um Cte

[pjunior]

Olá ... 

Preciso carregar um CTE ( loadfromfile ), para extrair os dados dele .. 

No CTe em anexo, como faço pra ver as tags cStat, xMotivo e nProt ?

Pelo q vi ele não tem a tag </cteProc> somente a <procCTe> ...

 

localizei e alterei no arquivo ACBrConhecimentos.pas, na função LoadFromFile, o seguinte trecho:

 

         if pos('</cteProc>', ArquivoXML.Text) > 0  then

          begin

            XML := copy(ArquivoXML.Text, 1, pos('</cteProc>', ArquivoXML.Text) + 5);

            ArquivoXML.Text := Trim(copy(ArquivoXML.Text, pos('</cteProc>', ArquivoXML.Text) + 10, length(ArquivoXML.Text)));

          end

         else

          begin

            XML := copy(ArquivoXML.Text, 1, pos('</CTe>', ArquivoXML.Text) + 5);

            ArquivoXML.Text := Trim(copy(ArquivoXML.Text, pos('</CTe>', ArquivoXML.Text) + 6,length(ArquivoXML.Text)));

          end;

 

a alteração ficou:

 

         if pos('</cteProc>', ArquivoXML.Text) > 0  then

          begin

            XML := copy(ArquivoXML.Text, 1, pos('</cteProc>', ArquivoXML.Text) + 5);

            ArquivoXML.Text := Trim(copy(ArquivoXML.Text, pos('</cteProc>', ArquivoXML.Text) + 10, length(ArquivoXML.Text)));

          end

         else

         // começa aqui ...

         if pos('</procCTe>', ArquivoXML.Text) > 0  then

          begin

            XML := copy(ArquivoXML.Text, 1, pos('</procCTe>', ArquivoXML.Text) + 5);

            ArquivoXML.Text := Trim(copy(ArquivoXML.Text, pos('</procCTe>', ArquivoXML.Text) + 10, length(ArquivoXML.Text)));

          end

         else

         // termina aqui ...

          begin

            XML := copy(ArquivoXML.Text, 1, pos('</CTe>', ArquivoXML.Text) + 5);

            ArquivoXML.Text := Trim(copy(ArquivoXML.Text, pos('</CTe>', ArquivoXML.Text) + 6,length(ArquivoXML.Text)));

          end;

 

A alteração resolveu o problema.. mas, está correto isso ??

 

Obrigado desde já !!

 

35140412700261000101570010000000451000700049-cte.xml

[Italo Giurizzato Junior]

Bom dia pjunior,

 

Esse XML que você postou, não é gerado pelo componente ACBrCTe e sim baixado do Site da SEFAZ (link Download).

 

A estrutura dele é diferente o LoadFromFile do componente não esta preparado para ler esse XML.

 

A alteração que você fez parece estar correta em partes, pois esse arquivo poderá conter também os eventos vinculados ao CT-e, e neste caso o LoadFromFile não vai ler eles.

 

Independente disso, para ler as informações desejadas:

 

ACBrCTe.Conhecimentos.Items[0].CTe.procCTe.cStat

ACBrCTe.Conhecimentos.Items[0].CTe.procCTe.xMotivo

ACBrCTe.Conhecimentos.Items[0].CTe.procCTe.nProt

[pjunior]

Bom dia Italo !!

Grato pela resposta .. 

 

Isso mesmo ..

Essas tags q vc passou, antes de eu alterar, estavam vindo vazias .. 

Aí pra esse caso q eu precisava fazer a leitura, a alteração resolveu ..

 

A função do componente será acertada para esses casos q vc me passou acima ??

 

[]´s

Junior.

[Italo Giurizzato Junior]

Junior,

 

Estou estudando a melhor forma de se fazer isso.