Jump to content

click.png

click.png

click.png

click.png click.png click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

click.png

Manifestação do destinatário


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

Recommended Posts

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 to comment
Share on other sites

  • Consultores
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
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

skype: juliomar
telegram: juliomar
http://www.juliomarmarchetti.com.br
Embarcadero MVP
Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil
Link to comment
Share on other sites

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 to comment
Share on other 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 to comment
Share on other 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 to comment
Share on other sites

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 to comment
Share on other sites

  • Consultores

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.

  • Like 1
Consultora SAC ACBr

Juliana Tamizou
Ajude o Projeto ACBr crescer - Assine o SAC

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 to comment
Share on other sites

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

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.