como recuperar os eventos da distribuicaoDFe?

[gss200610]

estou usando um for ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Count - 1 para trazer as notas destinadas e notei que na pasta eventos tem todos eventos da referida busca
mais nao consigo capturar os valores , ja tentei:

procEvento.detEvento.xJust retorna vazio
resEvento.xEvento tambem retorna vazio
o que estou fazendo de errado? por os eventos tem todos os xml na pasta que ja conferir

[Leandro Vignoto]

1 hour ago, gss200610 said:

estou usando um for ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Count - 1 para trazer as notas destinadas e notei que na pasta eventos tem todos eventos da referida busca
mais nao consigo capturar os valores , ja tentei:

procEvento.detEvento.xJust retorna vazio
resEvento.xEvento tambem retorna vazio
o que estou fazendo de errado? por os eventos tem todos os xml na pasta que ja conferir

Boa Tarde !

 

ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.schema = pcnConversao.schprocEventoNFe

       ACBrNfe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.procEvento.RetinfEvento.chDFe

 

ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.schema = pcnConversao.schresEvento

      ACBrNfe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resEvento.chDFe

 

Att

[gss200610]

53 minutos atrás, Leandro Vignoto disse:

Boa Tarde !

 

ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.schema = pcnConversao.schprocEventoNFe

       ACBrNfe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.procEvento.RetinfEvento.chDFe

 

ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.schema = pcnConversao.schresEvento

      ACBrNfe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resEvento.chDFe

 

Att

    RetConsItem  := frmPrincipal.ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items;
    //sStatusConsulta := RetConsItem.NSU;

    RetConsItem.schema := pcnConversao.schprocEventoNFe;

showmessage( RetConsItem.procEvento.RetinfEvento.xMotivo) = vazio

 

[Gabriel Franciscon]

Boa tarde!

Observe o código abaixo:

var
  LDocZip: TdocZipCollectionItem;
begin
  for i := 0 to Pred(ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Count) do
  begin
    LDocZip := ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip[i];
    
    if (LDocZip.schema = schprocEventoNFe) then
    begin
      TipoEvento    := LDocZip.procEvento.RetinfEvento.tpEvento;
      Correcao      := LDocZip.procEvento.detEvento.xCorrecao; {Caso seja carta de correção}
      Justificativa := LDocZip.procEvento.detEvento.xJust {Caso seja cancelamento}
      DataEvento    := LDocZip.procEvento.RetinfEvento.dhRegEvento;
      Protocolo     := LDocZip.procEvento.RetinfEvento.nProt;
      Motivo        := LDocZip.procEvento.RetinfEvento.xMotivo;
      CodigoRet     := LDocZip.procEvento.RetinfEvento.cStat;
    end
    else if (LDocZip.schema = schresEvento) then
    begin
      TipoEvento    := LDocZip.resEvento.tpEvento;
      Evento        := LDocZip.resEvento.xEvento;
      DataEvento    := LDocZip.resEvento.dhEvento;
      Protocolo     := LDocZip.resEvento.nProt;
    end;
  end;
end;

 

[gss200610]

2 minutos atrás, Gabriel Franciscon disse:

Boa tarde!

Observe o código abaixo:

var
  LDocZip: TdocZipCollectionItem;
begin
  for i := 0 to Pred(ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Count) do
  begin
    LDocZip := ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip[i];
    
    if (LDocZip.schema = schprocEventoNFe) then
    begin
      TipoEvento    := LDocZip.procEvento.RetinfEvento.tpEvento;
      Correcao      := LDocZip.procEvento.detEvento.xCorrecao; {Caso seja carta de correção}
      Justificativa := LDocZip.procEvento.detEvento.xJust {Caso seja cancelamento}
      DataEvento    := LDocZip.procEvento.RetinfEvento.dhRegEvento;
      Protocolo     := LDocZip.procEvento.RetinfEvento.nProt;
      Motivo        := LDocZip.procEvento.RetinfEvento.xMotivo;
      CodigoRet     := LDocZip.procEvento.RetinfEvento.cStat;
    end
    else if (LDocZip.schema = schresEvento) then
    begin
      TipoEvento    := LDocZip.resEvento.tpEvento;
      Evento        := LDocZip.resEvento.xEvento;
      DataEvento    := LDocZip.resEvento.dhEvento;
      Protocolo     := LDocZip.resEvento.nProt;
    end;
  end;
end;

 

Show!!, vi nos fontes do acbr essa mesma validação aqui , e estou fazendo agora.obrigado!!

[Janderson Henrique]

Boa tarde,

Eu tentei seguir o procedimento acima , porém não consegui os dados da carta de correção.

O comando . LDocZip.procEvento.detEvento.xCorrecao retornou o conteúdo em branco

Pelo que percebi a função  DistribuicaoDFePorChaveNFe não me retornou o evento, e sim apenas a nota fiscal que já foi manifestada, eu confirmei isso olhando o conteúdo da propriedade ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.XML

Alguém tem alguma sugestão?

 

Obrigado.