Testar se é uma NFE ou CTE

[douglaswf]

Como eu posso testar se o XML é de uma NFe ou CTe?

Eu carrego o XML recebido no email para o ACBRBFe dentro de um Try e trato o CTe no Exception, conforme exemplo abaixo. É esta a maneira correta? DEvo usar o método Valida?

try

ACBrNFe.NotasFiscais.Clear;

ACBrNFe.NotasFiscais.LoadFromStream(xStream);

if ACBrNFe.NotasFiscais.Items[0].Alertas = '' then begin

//este if e necessario pq se não for uma nfe gera o exception ao usar a propriedade do objeto

end;

[Italo Giurizzato Junior]

Boa tarde Douglas,

Veja a solução adotada no projeto EmissorDFe, estude o fonte dele.

[douglaswf]

Origado Italo!

Vou usar o mesmo tratamento...

[windsoft]

Olá pessoal bom dia!

Utilizando a dica do @Italo Jurisato Junior estou tendo o seguinte problema:

Quando um CTe tem uma NFe relacionada, a tag '<infNFe' também existe no CTe, fazendo com que o código utilizado no EmissorDFe identifique o XML do CTe como NFe.

Existe alguma outra solução segura para garantir que esta identificação ocorra sem problemas?

Obrigado pela atenção de todos.

[Italo Giurizzato Junior]

Boa tarde Gilson,

Veja a sequencia:

ArquivoXML := TStringList.Create;
 ArquivoXML.LoadFromFile(edtArquivo.Text);

 TipoDFE := 0;
 if pos('<infNFe', ArquivoXML.Text) > 0
  then TipoDFE := 1;
 if pos('<infCte', ArquivoXML.Text) > 0
  then TipoDFE := 2;
 if pos('InfNfse', ArquivoXML.Text) > 0
  then TipoDFE := 3;
 if pos('infMDFe', ArquivoXML.Text) > 0
  then TipoDFE := 4;
 if pos('procEventoNFe', ArquivoXML.Text) > 0
  then TipoDFE := 5;
 if pos('procEventoCTe', ArquivoXML.Text) > 0
  then TipoDFE := 6;
 if pos('procEventoMDFe', ArquivoXML.Text) > 0
  then TipoDFE := 7;

 ArquivoXML.Free;

Note que primeiro checo se é uma NF-e e depois checo se é um CT-e.

Como você disse um CT-e possui a TAG infNFe mas uma NF-e não possui a TAG infCte.

[windsoft]

Valeu @Italo Jurisato Junior fiz assim e ficou perfeito agora.

Abraço