Ir para conteúdo
  • Cadastre-se

dev botao

Manifestação do destinatário


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

Recommended Posts

  • Membros Pro

Pessoal há muito tempo que está com problema na manifestação das notas tenho colega que passa pelo mesmo problema e tento e as vezes e não faz,  alguem ai faz algo que funciona la manifestar essas notas, 

como estão fazendo pra fazer a manifestação e baixar as notas?

já perdir dois clientes por isso e colocaram outro sistema ai fico em dúvida o que pode ser se é componente ou outra coisa

Link para o comentário
Compartilhar em outros sites

  • Moderadores
41 minutos atrás, nildglan disse:

Pessoal há muito tempo que está com problema na manifestação das notas tenho colega que passa pelo mesmo problema e tento e as vezes e não faz,  alguem ai faz algo que funciona la manifestar essas notas, 

como estão fazendo pra fazer a manifestação e baixar as notas?

já perdir dois clientes por isso e colocaram outro sistema ai fico em dúvida o que pode ser se é componente ou outra coisa

mas qual o problema?

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

  • Membros Pro

o problema é que não manifesta , sendo assim não baixa o xml, veja o código

NFe.NotasFiscais.Clear;
   NFe.EventoNFe.Evento.Clear;
   with NFe.EventoNFe.Evento.New do
   begin
     Application.ProcessMessages;
     lblInfo1.caption:='AGUARDE ADICIONANDO EVENTO...' ;
     InfEvento.cOrgao   := 91;//UFtoCUF('MA');//
     infEvento.chNFe    := Chave;
     infEvento.CNPJ     := CNPJ;
     infEvento.dhEvento := now;
     //infEvento.tpEvento := teManifDestConfirmacao;
     infEvento.tpEvento := teManifDestCiencia;
     InfEvento.detEvento.xJust := '';

     Application.ProcessMessages;
     lblInfo1.caption:='AGUARDE EVENTO ADICIONADO...' ;
     MemoStatus.Lines.Add('AGUARDE EVENTO ADICIONADO...');

   end;
   NFe.EnviarEvento(StrToInt(IDLote));

 

mais não manifesta nada

Link para o comentário
Compartilhar em outros sites

  • Moderadores
12 minutos atrás, nildglan disse:

envio o evento e me da o resultado conforme acima no código e me retorna da seguinte forma que vou mostrar na imagem, mais só que não disponibiliza o xml para baixar

Manifestacao.bmp 1 MB · 0 downloads

O retorno indica que a manifestação foi feita normalmente.

Se o problema é fazer o download do XML completo pelo método DistribuicaoDFe informe o retorno deste.

 

Equipe ACBr BigWings
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

Link para o comentário
Compartilhar em outros sites

  • Moderadores
Em 05/10/2019 at 10:33, nildglan disse:

já li várias vezes esse tópico que me enviou , e como faço para enviar esse retorno , porque pelo código percebe que fiz infEvento.tpEvento := teManifDestCiencia;  ou necessário também infEvento.tpEvento := teManifDestConfirmacao?

Ciência de operação já libera o download.

Em 05/10/2019 at 15:17, nildglan disse:

está setada como true Configuracoes.Arquivos.Salvar

Configure também ACBrNFe.Configuracoes.WebServices.Salvar := True.

E anexe os arquivos de envio e retorno do método DistribuicaoDFe.

Equipe ACBr BigWings
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

Link para o comentário
Compartilhar em outros sites

  • Moderadores
Agora, nildglan disse:

BigWings como faço esse anexo que vc mencionou? vc quer lhe passe como estou fazendo? 

O componente gera os arquivos quando você configura as propriedades mencionadas mais acima.

Basta anexar aqui.

Equipe ACBr BigWings
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

 

 

Link para o comentário
Compartilhar em outros sites

  • Membros Pro

j :=  NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Count - 1;
              for i := 0 to j do
              begin
                  if  NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resDFe.chDFe <> '' then
                  begin
                     // Conjunto de informações resumo da NF-e localizadas.
                     // Este conjunto de informação será gerado quando a NF-e for autorizada ou denegada.
                      sChave  :=  NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resDFe.chDFe;
                      sSerie  := Copy(sChave, 23, 3);
                      sNumero := Copy(sChave, 26, 9);
                      sCNPJ   :=  NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resDFe.CNPJCPF;
                      sNome   :=  NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resDFe.xNome;
                      sIEst   :=  NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resDFe.IE;

                      case  NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resDFe.tpNF of
                       tnEntrada: sTipoNFe := 'E';
                       tnSaida:   sTipoNFe := 'S';
                     end;

                     sNSU     :=  NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.NSU;
                     sEmissao :=  DateToStr( NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resDFe.dhEmi);
                     Valor    :=  NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resDFe.vNF;
                     case  NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resDFe.cSitDFe of
                       snAutorizado:   Impresso := 'A';
                       snDenegado  :   Impresso := 'D';
                       snCancelado :   Impresso := 'C';
                     end;
                     RetornoNFE.first;
                     if RetornoNFE.Locate('Chave',sChave,[]) then
                     begin
                         RetornoNFE.Open;
                         RetornoNFE.Edit;
                         RetornoNFEChave.Text            := NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resDFe.chDFe;
                         RetornoNFECNPJEmit.Text         := NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resDFe.CNPJCPF;
                         RetornoNFERazaoEmit.Text        := NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resDFe.xNome;
                         RetornoNFEIEEmit.Text           := NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resDFe.IE;
                         RetornoNFEDHemi.Value           := NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resDFe.dhEmi;
                         RetornoNFEDhAuto.Value          := NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resDFe.dhRecbto;
                         RetornoNFESituacao.Text         := Impresso;
                         RetornoNFETotal.Value           := NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resDFe.vNF;
                         RetornoNFENSU.AsString          := NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.NSU;
                         RetornoNFEStatus.Asstring       :='ENTRADA NÃO CONFIRMADA';
                         //RetornoNFEMANIFESTACAO.AsString := NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.NSU;
                         RetornoNFEPKID.Text             := sCNPJ+sNSU;
                         RetornoNFE.Post;
                    end
                    else
                    begin
                       RetornoNFE.Open;
                       RetornoNFE.Append;
                       RetornoNFEChave.Text      := NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resDFe.chDFe;
                       RetornoNFECNPJEmit.Text   := NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resDFe.CNPJCPF;
                       RetornoNFERazaoEmit.Text  := NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resDFe.xNome;
                       RetornoNFEIEEmit.Text     := NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resDFe.IE;
                       RetornoNFEDHemi.Value     := NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resDFe.dhEmi;
                       RetornoNFEDhAuto.Value    := NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resDFe.dhRecbto;
                       RetornoNFESituacao.Text   := Impresso;
                       RetornoNFETotal.Value     := NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.resDFe.vNF;
                       RetornoNFENSU.AsString    := NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.NSU;
                       RetornoNFEStatus.Asstring :='ENTRADA NÃO CONFIRMADA';
                       //RetornoNFEMANIFESTACAO.AsString    :=  NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items.NSU;
                       RetornoNFEPKID.Text       := edtDestinatario.Text+sNSU;
                       RetornoNFE.Post;
                    end;
                 end;

              end;

 

aonde faço esse anexo?

Link para o comentário
Compartilhar em outros sites

  • Administradores

Boa tarde.

Para anexar arquivos basta arrastá-los para o espaço com o texto "Arraste arquivos..." logo abaixo da área destinada para digitação da sua postagem.

Att.

  • Curtir 1
Consultora SAC ACBr

Juliana Tamizou

Gerente de Projetos ACBr / Diretora de Marketing AFRAC
Ajude o Projeto ACBr crescer - Seja Pro

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.  Discord

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil


Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !!

Link para o comentário
Compartilhar em outros sites

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