Consumo indevido em apenas um cliente

[Andre Cristiano Ittner]

bom dia, 

estou com apenas um cliente com volta e meia problema com consumo indevido, 

Erro 656 Menssagen: Rejeicao: Consumo Indevido (Deve ser utilizado o ultNSU nas solicitacoes subsequentes. Tente apos 1 hora)

interessante que as vezes a primeira consulta do dia já da consumo indevido, até gerei logs para ver se havia alguma falha no sistema "infringindo as regras da sefaz", porém não

UltNsu := busca_ultimo_nsu_gravado; 
	 iContDown := 0;
     while true do
     begin
       try
         inc(iContDown);         
         DM.ACBrNFe.DistribuicaoDFePorUltNSU(FrmEmpresa.Endereco.Estado.Ibge, FrmEmpresa.CNPJ, UltNsu);
         
         if (DM.ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.cStat > 105) and
            (DM.ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.cStat <> 138)  then // então tem erro
         begin
           bAchou := true;  // para nao mostrar msg de erro novamente

           if (DM.ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.cStat = 137) or // nao existe registros
              (DM.ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.cStat = 656) or
              (DM.ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.ultNSU = DM.ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.maxNSU)then
           begin
             if (DM.ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.cStat = 656) then
             begin
               if DM.ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.ultNSU <> ultNSU then
                 dlalerta('ultNSU utilizado nesta consulta [' + ultNSU + '] é diferente ' +
                          'do ultNSU consultado na Sefaz [' + DM.ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.ultNSU + '].' + constEnterTab +
                          'Aguarde 1 hora para a próxima consulta.')
               else
                 dlalerta(dlRetornaNFeStatus(DM.ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.cStat) + constEnterTab +
                          'Aguarde 1 hora para a próxima consulta.')
             end;

             if (DM.ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.cStat = 137) then
               dlalerta('Atenção...: Não existem mais registros disponíveis.' + constEnterTab +
                        'Aguarde 1 hora para a próxima consulta.')           
             else
               dlalerta('Atenção...: Este é o último lote de registros disponíveis para distribuição.' + constEnterTab +
                        'Aguarde 1 hora para a próxima consulta.');
           end
           else
             dlalerta(dlRetornaNFeStatus(DM.ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.cStat));
          
           Break;
         end;

       except
         on e : exception do
         begin
           dlalerta(dlRetornaNFeStatus(DM.ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.cStat) + constEnterTab + e.Message);
           Break;
         end;
       end;

       for x := 0 to DM.ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Count -1 do
       begin
         if DM.ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[x].resDFe.tpNF = tnSaida then
         begin
           
           iNsu       := dlStrToInt(DM.ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[x].NSU);           
           sCNPJ      := DM.ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[x].resDFe.CNPJCPF;
           sRazao     := DM.ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[x].resDFe.xNome;
           sIE        := DM.ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[x].resDFe.IE;
           dDataEmi   := DM.ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[x].resDFe.dhEmi;
           cValor     := DM.ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[x].resDFe.vNF;
           sChave     := DM.ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[x].resDFe.chDFe;
           ...
			... grava no banco de dados.. 			
         end;
       end;

       UltNsu := DM.ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.ultNSU;

       if iContDown = 10 then // maximo 10 consultas 
       begin        
         Break;
       end;

       if (DM.ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Count < 50) then
         Break;
     end;

     UltNsu := DM.ACBrNFe.WebServices.DistribuicaoDFe.retDistDFeInt.ultNSU;
	 
	 .. grava na base ultimo nsu .. 

pode ser alguma coisa relacionada com certificado de segurança, ssl algo do tipo

segue print como está no computador do cliente :

 

alguem consegue me dar uma ideia do que pode estar acontecendo ?

 

 

[BigWings]

3 horas atrás, Andre Cristiano Ittner disse:

alguem consegue me dar uma ideia do que pode estar acontecendo ?

Outra aplicação consultando o CNPJ ao mesmo tempo que a sua.

[Andre Cristiano Ittner]

Pode ser porque um computador esta emitindo uma nota fiscal e outro estar consultando  ?  apesar de serem processos diferentes pode bloquear ?

[BigWings]

34 minutos atrás, Andre Cristiano Ittner disse:

Pode ser porque um computador esta emitindo uma nota fiscal e outro estar consultando  ?  apesar de serem processos diferentes pode bloquear ?

Nâo, não tem relação com emissão da nota, isso é feito na SEFAZ autorizadora, o DistribuicaoDFe é feito no ambiente nacional.

Se tiver mais de uma consulta ao DistribuicaoDFePorUltNSU para o CNPJ, independente de onde estiver vindo, pode ser a sua aplicação, outra aplicação na empresa, algum serviço online pra onde foi subido o certificado, ou a contabilidade da empresa consultando, é feita a verificação do ultNSU informado que precisa ser sequencial, e o último cStat se for 127, precisa aguardar 1 hora pra nova consulta.

[Juliomar Marchetti]

1 hora atrás, Andre Cristiano Ittner disse:

Pode ser porque um computador esta emitindo uma nota fiscal e outro estar consultando  ?  apesar de serem processos diferentes pode bloquear ?

descubra com quem mais está o A1 no caso o pfx do certificado

geralmente instalam fiscal.io ou outros aplicativos e ficam manifestando a rodo e dai vai ocorrer isso