Ir para conteúdo
  • Cadastre-se

dev botao

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

Recommended Posts

  • Membros Pro
Postado

Colegas Hoje Consultei alguma notas  e Manifestei todas as consultadas.

Após Manifestar executei a função ACBrNFe.WebServices.DownloadNFe.Executar

Não dá erro nenhum porem o xml não é baixado.

baixei um novo ACBr 06/07/2016 14:30 -  ai percebi que não mais existe o botão de download no exemplo.

Pergunto :

O Sefaz retirou a opção de fazer o download dos xml manifestados ?

 

Obrigado

 

  • Membros Pro
Postado

O meu processo de download do XML é como segue

1 - Consulto as notas informando o ultimo NSU
    FDataModule.ACBrNFe1.ConsultaNFeDest(CnpjEmpresa,inTodas,ieTodos,edtNSU.Text);

Gravo no banco o NSU

2 - Faço a manisfestação de todas as notas encontradas
    While Notas.eof do
        with FDataModule.ACBrNFe1.EventoNFe.Evento.Add do
        begin
            infEvento.cOrgao   := 91;
            infEvento.chNFe    := edtChave.Text;
            infEvento.CNPJ     := CnpjEmpresa ;
            infEvento.dhEvento := Date;
            infEvento.tpEvento := teManifDestConfirmacao;
        end;
        FDataModule.ACBrNFe1.EnviarEvento(1);
        Notas.Next;
    end;

3 - Faço o Download do XML das NF-e

    While Notas.eof do
        with FDataModule.ACBrNFe1.DownloadNFe do begin
          Download.CNPJ := CnpjEmpresa;
          Download.Chaves.Clear ;
          with Download.Chaves.Add do begin
              chNFe := cdsManifestoCHAVE.AsString;
          end;
        end;
        FDataModule.ACBrNFe1.WebServices.DownloadNFe.Executar;
        Notas.Next;
    end;

Na forma que é Hoje não mudou o 1 e 2 passos, somente o terceiro.mudou.

Alguns dos colegas poderia mim passar como eu faria agora ?

 eu agradeço.

estou perdidaço, já reli a nota técnica, já olhei o exemplo do acbr. a unica coisa que consegui foi pelo comando abaixo

ACBrNFe1.DistribuicaoDFe(StrToInt(cUFAutor),CNPJ,ultNSU,ANSU);

que retornou o xml abaixo

<?xml version="1.0" encoding="UTF-8" ?>
- <retDistDFeInt xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" versao="1.00" xmlns="http://www.portalfiscal.inf.br/nfe">
  <tpAmb>1</tpAmb>
  <verAplic>1.1.6</verAplic>
  <cStat>138</cStat>
  <xMotivo>Documento localizado</xMotivo>
  <dhResp>2016-07-06T15:20:38</dhResp>
  <ultNSU>000000000000340</ultNSU>
  <maxNSU>000000000000340</maxNSU>
- <loteDistDFeInt>

  <docZip NSU="000000000000295" schema="resNFe_v1.00.xsd">H4s</docZip>
  <docZip NSU="000000000000296" schema="resNFe_v1.00.xsd">H4s</docZip>
  <docZip NSU="000000000000297" schema="resNFe_v1.00.xsd">H4s</docZip>
  <docZip NSU=".......ate 340          " schema="resNFe_v1.00.xsd">H4sI</docZip>

</loteDistDFeInt>
  </retDistDFeInt>

 

 

 

 

 

 

 

 

 

O meu processo de download do XML é como segue

1 - Consulto as notas informando o ultimo NSU
    FDataModule.ACBrNFe1.ConsultaNFeDest(CnpjEmpresa,inTodas,ieTodos,edtNSU.Text);

Gravo no banco o NSU

2 - Faço a manisfestação de todas as notas encontradas
    While Notas.eof do
        with FDataModule.ACBrNFe1.EventoNFe.Evento.Add do
        begin
            infEvento.cOrgao   := 91;
            infEvento.chNFe    := edtChave.Text;
            infEvento.CNPJ     := CnpjEmpresa ;
            infEvento.dhEvento := Date;
            infEvento.tpEvento := teManifDestConfirmacao;
        end;
        FDataModule.ACBrNFe1.EnviarEvento(1);
        Notas.Next;
    end;

3 - Faço o Download do XML das NF-e

    While Notas.eof do
        with FDataModule.ACBrNFe1.DownloadNFe do begin
          Download.CNPJ := CnpjEmpresa;
          Download.Chaves.Clear ;
          with Download.Chaves.Add do begin
              chNFe := cdsManifestoCHAVE.AsString;
          end;
        end;
        FDataModule.ACBrNFe1.WebServices.DownloadNFe.Executar;
        Notas.Next;
    end;

Na forma que é Hoje não mudou o 1 e 2 passos, somente o terceiro.mudou.

Alguns dos colegas poderia mim passar como eu faria agora ?

 eu agradeço.

estou perdidaço, já reli a nota técnica, já olhei o exemplo do acbr. a unica coisa que consegui foi pelo comando abaixo

ACBrNFe1.DistribuicaoDFe(StrToInt(cUFAutor),CNPJ,ultNSU,ANSU);

que retornou o xml abaixo

<?xml version="1.0" encoding="UTF-8" ?>
- <retDistDFeInt xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" versao="1.00" xmlns="http://www.portalfiscal.inf.br/nfe">
  <tpAmb>1</tpAmb>
  <verAplic>1.1.6</verAplic>
  <cStat>138</cStat>
  <xMotivo>Documento localizado</xMotivo>
  <dhResp>2016-07-06T15:20:38</dhResp>
  <ultNSU>000000000000340</ultNSU>
  <maxNSU>000000000000340</maxNSU>
- <loteDistDFeInt>

  <docZip NSU="000000000000295" schema="resNFe_v1.00.xsd">H4s</docZip>
  <docZip NSU="000000000000296" schema="resNFe_v1.00.xsd">H4s</docZip>
  <docZip NSU="000000000000297" schema="resNFe_v1.00.xsd">H4s</docZip>
  <docZip NSU=".......ate 340          " schema="resNFe_v1.00.xsd">H4sI</docZip>

</loteDistDFeInt>
  </retDistDFeInt>

 

 

 

 

 

 

 

 

 

Postado

@Arnaldo Cruz viu evite postar longos trechos de código, ao invés disso anexe como arquivo texto, está nas regras do fórum e a moderação não vê com bons olhos essa prática, estou saindo pra almoço quando retornar vou dar uma olhada nesse tópico e testar algumas coisas e volto a postar ok?

 

Bom dia.

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