Manifestação do destinatário

[nildglan]

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

[Juliomar Marchetti]

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?

[nildglan]

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

[BigWings]

14 horas atrás, nildglan disse:

mais não manifesta nada

Ocorre algum erro?

É retornado algum XML?

[nildglan]

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

[BigWings]

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.

 

[nildglan]

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?

[Antonio Luiz]

Verifica  se no ACBrNFe a propriedades “ Configuracoes.Arquivos.Salvar”  esta como true

[nildglan]

Antonio Luis a questão é que parece que tudo ta certo mais não baixa o xml

[nildglan]

está setada como true Configuracoes.Arquivos.Salvar

[nildglan]

Ta pessoal manifestei mais não baixa o xml , então não tem como eu importar , 

vejo as notas manifesta ou seja vincula mais não baixa o xml

[nildglan]

bom dia, alguém ai ta conseguindo fazer essa manifestação ?

[BigWings]

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.

[nildglan]

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

[BigWings]

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.

[nildglan]

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?

[Juliana Tamizou]

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.