Ir para conteúdo
  • Cadastre-se

dev botao

Distribuição DFE


Ver Solução Respondido por vipeol,
  • Este tópico foi criado há 2597 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Consultores

Boa tarde a todos,

Lembem-se que o método DistribuicaoDFe atua no Ambiente Nacional, já a Manifestação do Destinatário é um evento enviado para a SEFAZ-Autorizadora.

Esta por sua vez vai vincular esse evento a nota, por fim replicar essa informação para o Ambiente Nacional.

Essa replicação não é instantânea, podendo levar minutos, horas ou até dias.

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

Em 20/04/2016 at 10:28, Paulinho disse:

Bom dia a todos, estou fazendo da forma como o Ítalo disse

1 - Consultar

2 - Manifestar

3 - fazer nova consulta

Porém não está sendo baixado ou salvo o xml nfe da nota fiscal. Os únicos que são salvos: resNFe.xml , procEventoNFe.xml, mas o nfe.xml não estou conseguindo salvar.

Configurações.Arquivos.Salvar:= True;

Configurações.Arquivos.Download.PathDownload:= (estou passando o diretorio da pasta onde deve ser salvo os xml);

Alguém teria mais alguma dica para me ajudar quanto ao não salvar os nfe.xml em disco?

 

Paulinho eu consegui baixar o XML, você precisa configurar:

ACBrNFe.Configuracoes.Arquivos.Salvar := True;
ACBrNFe.Configuracoes.Arquivos.PathSalvar := Caminho_onde_sera_salvo_o_xml;

Você faz a consultar com o ACBrNFe.DistribuicaoDFe( );

Pega o resumo da nota ai para baixar o XML você precisa obrigatoriamente fazer a ciência da operação:

with ACBrNFe.EventoNFe.Evento.Add do
begin
    InfEvento.cOrgao     := 91;
    infEvento.chNFe      := Chave_da_NFe;
    infEvento.CNPJ       := CNPJ_do_Destinatario_da_NFe;
    infEvento.dhEvento   := now;
    infEvento.nSeqEvento := 1;
    infEvento.tpEvento := teManifDestCiencia;
end;

Após se manifestar você faz a consulta novamente ACBrNFe.DistribuicaoDFe( );

Ai é como o Italo disse pode ser que o XML não venha logo em seguida do Manifesto.

 

Link para o comentário
Compartilhar em outros sites

  • 2 semanas depois ...
  • 2 meses depois ...

Olá Italo.

A consulta funciona, contudo não sei se estou fazendo errado, mas o retorno não mostra todas as notas, por exemplo não tem as notas de Junho e Julho, neste caso, vejp apenas as notas de Abril e Maio.

 

Abaixo o trecho de código:

 

dmDados.NFe.DistribuicaoDFe(35,vCNPJ,'0','');
    

    for I := 0 to dmDados.NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Count-1 do
        begin
            if dmDados.NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.chNFe<>'' then
                begin
                    cdsNotas.Append;
                    cdsNotas.FieldValues['data']:=dmDados.NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.dhEmi;
                    cdsNotas.FieldValues['nf']:='';
                    cdsNotas.FieldValues['chave']:=dmDados.NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.chNFe;
                    cdsNotas.FieldValues['emitente']:=dmDados.NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.xNome;
                    cdsNotas.FieldValues['valor']:=dmDados.NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.vNF;
                    cdsNotas.FieldValues['nf']:=copy(dmDados.NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.chNFe,25,9);
                    if dmDados.NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.cSitNFe=snAutorizado then
                        cdsNotas.FieldValues['status_nfe']:='AUTORIZADA'
                    else if dmDados.NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.cSitNFe=snDenegado then
                        cdsNotas.FieldValues['status_nfe']:='DENEGADA'
                    else if dmDados.NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.cSitNFe=snCancelado then
                        cdsNotas.FieldValues['status_nfe']:='CANCELADA'
                    else if dmDados.NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.cSitNFe=snEncerrado then
                        cdsNotas.FieldValues['status_nfe']:='ENCERRADO';
                    cdsNotas.Post;
                end;
        end;

 

Está faltando alguma coisa?

 

Obrigado.

Editado por SpeedTI
Link para o comentário
Compartilhar em outros sites

  • Moderadores

6.3 - Mostre respeito pelo modo de escrever. Escreva de modo claro, gramaticalmente e semanticamente correto. Não escreva TUDO EM MAIÚSCULAS. Isso é lido como se estivesse gritando e é considerado rude. Favor leia as regras do fórum.

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

  • Moderadores
1 hora atrás, frederico nogueira disse:

Boa tarde!

Gostaria de saber se tem como fazer uma consulta usando a função ACBrNFe1.DistribuicaoDFe para listar documentos de um período especifico?

Boa tarde!

não ele lista de um até um período curto pra trás!

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Black-02.png
 

 

Link para o comentário
Compartilhar em outros sites

  • Consultores

Boa noite a todos,

Se tratando de Distribuição DFe, por favor leiam com muita atenção o que esta escrito na Nota Técnica 2014/002 versão 1.01, você vão descobrir que não tem como informar um período.

Nessa NT vocês vão encontrar todas as orientações do passo a passo para obter o XML completo da NF-e.

Consultor SAC ACBr

Italo Giurizzato Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

Analista de Sistemas / e-mail: [email protected] / Fone: (16) 9-9701-5030 / Araraquara-SP

Araraquara - A era dos Trólebus

Link para o comentário
Compartilhar em outros sites

  • 6 meses depois ...
Em 29/07/2016 at 21:21, SpeedTI disse:

Olá Italo.

A consulta funciona, contudo não sei se estou fazendo errado, mas o retorno não mostra todas as notas, por exemplo não tem as notas de Junho e Julho, neste caso, vejp apenas as notas de Abril e Maio.

 

Abaixo o trecho de código:

 

dmDados.NFe.DistribuicaoDFe(35,vCNPJ,'0','');
    

    for I := 0 to dmDados.NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Count-1 do
        begin
            if dmDados.NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.chNFe<>'' then
                begin
                    cdsNotas.Append;
                    cdsNotas.FieldValues['data']:=dmDados.NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.dhEmi;
                    cdsNotas.FieldValues['nf']:='';
                    cdsNotas.FieldValues['chave']:=dmDados.NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.chNFe;
                    cdsNotas.FieldValues['emitente']:=dmDados.NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.xNome;
                    cdsNotas.FieldValues['valor']:=dmDados.NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.vNF;
                    cdsNotas.FieldValues['nf']:=copy(dmDados.NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.chNFe,25,9);
                    if dmDados.NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.cSitNFe=snAutorizado then
                        cdsNotas.FieldValues['status_nfe']:='AUTORIZADA'
                    else if dmDados.NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.cSitNFe=snDenegado then
                        cdsNotas.FieldValues['status_nfe']:='DENEGADA'
                    else if dmDados.NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.cSitNFe=snCancelado then
                        cdsNotas.FieldValues['status_nfe']:='CANCELADA'
                    else if dmDados.NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resNFe.cSitNFe=snEncerrado then
                        cdsNotas.FieldValues['status_nfe']:='ENCERRADO';
                    cdsNotas.Post;
                end;
        end;

 

Está faltando alguma coisa?

 

Obrigado.

Você conseguiu inserir notas canceladas ??

 

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 2597 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.