Ir para conteúdo
  • Cadastre-se

dev botao

download NFe


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

Recommended Posts

pessoal boa noite! pesquisei aqui no forum como fazer o download dos arquivos xml de NFe encontrei vários exemplos seguindo-os consigo listar todas as notas mas ao fazer o download dos xml, baixa apenas o resumo, alguém pode me dar uma mãozinha? vou postar abaixo como estou fazendo.

 

                         if DM_GERA_NFE.qry_filialtipo_certificado.Value = 'A1' then
                         begin

                              F_Principal.NFe.Configuracoes.Geral.SSLLib :=  libOpenSSL;
                              F_Principal.NFe.Configuracoes.Certificados.ArquivoPFX := DM_GERA_NFE.qry_filialcaminho_cert.AsString;
                              F_Principal.NFe.Configuracoes.Certificados.Senha := DM_GERA_NFE.qry_filialsenha_cert.AsString;
                              F_Principal.NFe.Configuracoes.Certificados.NumeroSerie := DM_GERA_NFE.qry_filialnserie_cert.AsString;
                              F_Principal.NFe.SSL.CarregarCertificadoSeNecessario ;

                          end else
                          begin

                              F_Principal.NFe.Configuracoes.Geral.SSLLib := libWinCrypt;
                              F_Principal.NFe.SSL.NumeroSerie            := DM_GERA_NFE.qry_filialnserie_cert.AsString;
                              F_Principal.NFe.SSL.Senha                  := DM_GERA_NFE.qry_filialsenha_cert.AsString;
                              F_Principal.NFe.SSL.CarregarCertificadoSeNecessario ;


                         end;

                         F_Principal.NFe.Configuracoes.WebServices.IntervaloTentativas := 20000;

                         while not CDS_Destinadas.Eof do
                         begin

                                    F_Principal.NFe.EventoNFe.Evento.Clear;
                                    with F_Principal.NFe.EventoNFe.Evento.Add do
                                    begin
                                         InfEvento.cOrgao   := 91;
                                         infEvento.chNFe    := CDS_Destinadas_CHAVE.AsString;
                                         infEvento.CNPJ     := CDS_Destinadas_CNPJ.AsString;
                                         infEvento.dhEvento := now;
                                         infEvento.tpEvento := teManifDestCiencia;

                                    end;
                                    F_Principal.NFe.EnviarEvento(StrToInt('1'));

                                    F_Principal.NFe.DistribuicaoDFePorChaveNFe(UFtoCUF(DM_GERA_NFE.qry_filialuf_filial.AsString),DM_GERA_NFE.qry_filialcnpj_filial.AsString,CDS_Destinadas_CHAVE.AsString);

                                    with F_Principal.NFe.WebServices.DistribuicaoDFe.retDistDFeInt do
                                    begin
                                         if cStat = 138 then
                                         begin

                                             DecodeDate(CDS_Destinadas_DTEMISSAO.Value, ano, mes, dia);

                                              case mes of
                                                1: mes1 := 'JANEIRO';
                                                2: mes1 := 'FEVEREIRO';
                                                3: mes1 := 'MARCO';
                                                4: mes1 := 'ABRIL';
                                                5: mes1 := 'MAIO';
                                                6: mes1 := 'JUNHO';
                                                7: mes1 := 'JULHO';
                                                8: mes1 := 'AGOSTO';
                                                9: mes1 := 'SETEMBRO';
                                               10: mes1 := 'OUTUBRO';
                                               11: mes1 := 'NOVEMBRO';
                                               12: mes1 := 'DEZEMBRO';
                                              end;


                                             pasta_dfe_nfe := ExtractFilePath(Application.ExeName)+'XML_NFE\DFe\'+SoNumero(DM_GERA_NFE.qry_filialcnpj_filial.AsString)+'\COMPRAS\'+IntToStr(ano)+'\'+ mes1;
                                             F_Principal.NFe.Configuracoes.Arquivos.PathSalvar := pasta_dfe_nfe;


                                             if not DirectoryExists(pasta_dfe_nfe) then
                                             ForceDirectories(pasta_dfe_nfe);


                                             for i := 0 to docZip.Count - 1 do
                                             begin
                                                   if docZip.Items.schema = schprocNFe then //verifica se o arquivo é o XML da NFe (-nfe.xml)
                                                   begin
                                                       XML := docZip.Items.XML;
                                                       ArqXML := TStringStream.Create(XML);
                                                       XMLDocument1.LoadFromStream(ArqXML);
                                                       XMLDocument1.Active;

                                                       XMLDocument1.SaveToFile(edt_local_download.Text+CDS_Destinadas_CHAVE.AsString+'.xml');


                                                   end;

                                             end;
                                         end;

                                    end;

                       CDS_Destinadas.Next;

                     end;

                     application.MessageBox('Download realizado com sucesso!','Atenção',MB_OK+MB_ICONINFORMATION);

                  end;
 

Link para o comentário
Compartilhar em outros sites

  • Moderadores

bom dia

primeiro não poste trechos de código . anexe o mesmo.

se olhou no svn tem exemplos de como usar bem como tem o projeto do Monitor que o fonte é pascal  e tem também para você poder estudar e aprender usar o componente.

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

Olá Juliomar,

Tenho uma aplicação que está fazendo a consulta dos xml com o comando:
ACBrNFe1.WebServices.ConsNFeDest.Executar;
Para poder baixar os xml das notas emitidas para um determinado CNPJ.
Porém tive que instalar novamente o ACBR e agora está dando apresentando a mensagem: "Servico paralisado sem previsao".
O mais interessante é que o executável que foi compilado antes de atualizar o ACBR está funcionando normal.

O que pode estar acontecendo?

OBS: Se fosse algo no SEFAZ não estaria funcionando no executável compilado antes da atualização do ACBR.

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

  • Moderadores
9 horas atrás, halanlopes disse:

Olá Juliomar,

Tenho uma aplicação que está fazendo a consulta dos xml com o comando:
ACBrNFe1.WebServices.ConsNFeDest.Executar;
Para poder baixar os xml das notas emitidas para um determinado CNPJ.
Porém tive que instalar novamente o ACBR e agora está dando apresentando a mensagem: "Servico paralisado sem previsao".
O mais interessante é que o executável que foi compilado antes de atualizar o ACBR está funcionando normal.

O que pode estar acontecendo?

OBS: Se fosse algo no SEFAZ não estaria funcionando no executável compilado antes da atualização do ACBR.

Atualização quebrada sua pois pelo que notei postou agora a pouco problema em atualizar o ACBr

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

12 horas atrás, Juliomar Marchetti disse:

Atualização quebrada sua pois pelo que notei postou agora a pouco problema em atualizar o ACBr

Muito bem observado, porém, pode haver algumá ligação entre um problema de inicialização dos componentes ACBr por causa do fortes report com o retorno do sefaz?

Pois, depois de corrigido, o Delphi está carregando os componentes normalmente, consigo verificar status, gerar danfe e etc, apenas o retorno do comando:

ACBrNFe1.WebServices.ConsNFeDest.Executar;

Que gera mensagem:

Servico paralisado sem previsao

Conforme relatado acima.

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

Em 14/02/2018 at 10:40, Cristiano Caritá disse:

Basta substituir o uso do ConsNFeDest (que foi desativado pela sefaz) pela DistribuicaoDFe.

Entendo Cristiano, porém o estranho é: o executável compilado antes da atualização do ACBr, está funcionando com o comando informado, se fosse realmente algo desativado pela Sefaz, o executável que já estava compilado não estaria funcionando.

Link para o comentário
Compartilhar em outros sites

  • 1 ano depois...
  • Moderadores
14 minutos atrás, Helio Barbosa Felipe disse:

Bom dia, sou novo aqui.. alguem poderia me passar o link desde componente. Pois é isto que eu preciso baixar os xml por CNPJ

Favor ler as regras do fórum

tu já faz um tópico sobre o que quer. então segue nele e não fique postando em todos os tópicos que achar no 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

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