Distribuição DFE

[Italo Giurizzato Junior]

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.

[Carlos Alberto Fitl]

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.

 

[Paulinho]

Carlos Alberto Fitl obrigado pela ajuda desse passo-a-passo. Estarei fazendo agora e logo mais posto resultado.

[Paulinho]

5 horas atrás, Paulinho disse:

Carlos Alberto Fitl obrigado pela ajuda desse passo-a-passo. Estarei fazendo agora e logo mais posto resultado.

Boa tarde, Carlos Alberto deu certinho como me informou. Muito obrigado.

[SpeedTI]

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 30 Julho, 2016 por SpeedTI

[SpeedTI]

Olá Italo.

Descobri o motivo, é o NSU.

Obrigado.

[frederico nogueira]

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?

Editado 2 Agosto, 2016 por frederico nogueira

[Juliomar Marchetti]

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.

[Juliomar Marchetti]

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!

[Italo Giurizzato Junior]

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.

[Rafael Fonseca]

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