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

[Fabrício Melo]

Boa tarde.

656 - Rejeição: Consumo Indevido

Estou com esse problema em um Cliente no Paraná, sendo a Matriz em São Paulo, porém esse erro passou a acontecer todos os dias principalmente a tarde, o detalhe e que foi depois que renovaram o certificado digital...
O Sistema não tem Serviço de Consulta automatizado, a solicitação é manual, o cliente clica no botão, baixa os cabeçalho, depois da ciência, e espera por 1 hora pra poder baixar os xmls, impossível fazer duas vezes esse processo seguido...

O curioso é que eu liguei no SEFAZ-PR pra verificar se era conflito de varias solicitações de sistemas diferentes, contabilidade por exemplo, e descobri que não tinha nenhuma consulta no historico deles nos CNPJ's, pra eles meu sistema e nenhum outro nunca solicitou nenhuma vez, então não tinha como descobrir o motivo dos bloqueios...

Agora eu estou de mãos atadas, porque para o SEFAZ não tem nehuma consulta ou bloqueio lá, porém mesmo dando os bloqueio, uma vez no dia acaba baixando as Notas, o problema é que tenho que esperar o outro dia dar certo baixar os XML's ou novas notas...

Esse problema é frequente na Filia - PR, mas tambem acontece na Matriz-SP algumas vezes...

Outro detalhe é que os CTE's baixam normalmente, e sempre funcionam as consultas...

Editado 4 Dezembro por Fabrício Melo

[Juliomar Marchetti]

Mesmo eles dizendo que não tem. pegue e peça para o cliente fazer uma varredura de aplicativos diferentes fazendo manifesto. por exemplo fiscal.io ou outros,

e ainda assim  se disser que não. faça o teste de revogar o certificado e refazer ele. aposto que vai parar. pois alguém está com esse certificado fazendo algo