Retorno De Cancelamento

[Italo Giurizzato Junior]

Bom dia Wislei,

Vamos analisar o problema.

[Wislei de Brito Fernandes]

Ok Italo,

Fico no aguardo.

Se eu encontrar algo, informo aqui.

Atenciosamente

[Wislei de Brito Fernandes]

Bom dia Italo,

Eu identifiquei o problema e agora preciso da sua opinião para ver ser minha aplicação ou o componente deve ser alterado.

Eu não consigo acessar a propriedade ACBrMDFe.WebServices.Consulta.procEventoMDFe.Items[0].RetEventoMDFe.InfEvento.tpEvento somente quando o MDF-e está autorizado (sem eventos de cancelamento ou encerramento).

Quando ele está Encerrado ou Cancelado, a tag <procEventoMDFe> é gerada e com isso a propriedade é criada e alimentada na função LerXml da unit pmdfeRetEnvEventoMDFe.

 

Unit: pmdfeRetConsSitMDFe.

...

while Leitor.rExtrai(1, 'procEventoMDFe', '', i + 1) <> '' do
begin
  procEventoMDFe.Add;
  procEventoMDFe.Items[i].RetEventoMDFe.Leitor.Arquivo := Leitor.Grupo;
  procEventoMDFe.Items[i].RetEventoMDFe.XML := Leitor.Grupo;
  procEventoMDFe.Items[i].RetEventoMDFe.LerXml;
  inc(i);
end;

...

Como devo proceder?

Eu leio esta propriedade somente quando ACBrMDFe.WebServices.Consulta.cStat for 132 ou 101 ?

Na trunk eu obtinha a evento teCCe (Carta de Correção) que vejo que não era o correto também.

Atenciosamente.

[Italo Giurizzato Junior]

Bom dia Wislei,

Segundo a Nota Técnica 2013/004 versão 1.00a de Outubro/2013 - página 48 diz que o grupo <procEventoMDFe> poderá existir ou não ao Consultar a Situação Atual de um MDF-e.

Logo o componente esta agindo conforme a NT.

Como esse grupo pode ter várias ocorrências nesse retorno temos então uma lista, se a quantidade de elementos dessa lista for zero significa que não existem eventos, caso contrario existe, sendo assim:

qEventos := ACBrMDFe.WebServices.Consulta.procEventoMDFe.Count;

if qEventos > 0 then 

 for x := 0 to qEventos -1 do

begin

    TipoEvento := ACBrMDFe.WebServices.Consulta.procEventoMDFe.Items[ x ].RetEventoMDFe.InfEvento.tpEvento;

    (...)

end;

[Wislei de Brito Fernandes]

Bom dia Italo,

Obrigado pela explicação.

Eu fiz como você instruiu e deu certinho!

Atenciosamente. 

Editado 4 Fevereiro, 2016 por Wislei de Brito Fernandes