Falha Ao Tentar Ler O Número Da Nf

[ewertonvd]

Boa tarde!

 

Eu importo as informações da CTe para meu sistema, porém eu não estou conseguindo ler o número da NFe, após a atualização do componente para a versão 2.0

 

Antes eu utilizava o código:

 

          try

            Nota:=StrToInt(copy(Items[0].CTe.Rem.infNFe.Items[0].chave,36,8));

          Except

            Nota:=StrToInt(Items[0].CTe.Rem.infNF.Items[0].nDoc);

          end;

 

----------------------------------------------------------------------------------------------------------------------------------------------------------- 

Depois da atualização, estou tentando dessa forma:

 

try

  Nota:=StrToInt(Copy(Items[0].CTe.infCTeNorm.infDoc.infNFe[0].chave,36,8));

Except

  Nota:=StrToInt(Copy(Items[1].CTe.procCTe.chCTe,36,8));

 

Porém não lê o número da NF.

 

Alguém poderia me ajudar?

 

Agradeço desde já a atenção!

[Italo Giurizzato Junior]

Boa noite Ewerton,

 

Mas o código abaixo não tem nada haver com o de cima.

 

principalmente a linha abaixo o Except.

 

Outra coisa, a partir do momento que o componente esta compilado para a versão 2.00 você terá dificuldades em ler XMLs da versão 1.04