Ir para conteúdo
  • Cadastre-se

dev botao

como recuperar os eventos da distribuicaoDFe?


gss200610
  • Este tópico foi criado há 1672 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

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

Link para o comentário
Compartilhar em outros sites

  • Membros Pro
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

  • Curtir 1
Link para o comentário
Compartilhar em outros sites

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

 

Link para o comentário
Compartilhar em outros sites

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;

 

  • Curtir 1
Link para o comentário
Compartilhar em outros sites

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!!

  • Curtir 1
Link para o comentário
Compartilhar em outros sites

  • 4 meses depois ...

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.

 

 


 
Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 1672 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.

The popup will be closed in 10 segundos...