Erro 404 - not in cache

[digitosistemas]

Bom dia Senhores,

 

Um cliente me relatou um "erro 404 - not in cache" ao consultar o CNPJ, o que pode ser? 

 

provedor = CWSRECEITAWS

Meu código:

 

   If not ValidarCNPJ(MeCPFCli.Text) Then
   Begin
      If not ValidarCPF(MeCPFCli.Text) Then
          KDialog('O CNPJ inválido.'#13'Favor fazer a correção e tentar novamente','Alerta','INFO')
      else
         KDialog('Esta pesquisa é somente para CNPJ.'#13'Ação cancelada','Alerta','INFO');
      MeCPFCli.SetFocus;
      exit;
   end;
   Try
      // MANDA COMANDO E FICA AGARRADO EM ONSOLICITA CAPTCHA
      If Not ACBrConsultaCNPJ1.Consulta(MeCPFCli.Text, '', False) Then
      Begin
         Consultar_cnpj();
         Exit;
      End;
      if ACBrConsultaCNPJ1.Situacao <> '' then
      Begin
         //EditTipo.Text      := ACBrConsultaCNPJ1.EmpresaTipo;
         EditRazaoCli.Text    := Copy(ACBrConsultaCNPJ1.RazaoSocial,1,50);
         EditFantCli.Text     := Copy(ACBrConsultaCNPJ1.Fantasia,1,40);
         if (EditFantCli.Text = '') or (Copy(EditFantCli.Text,1,4) = '****') then
            EditFantCli.Text := Copy(EditRazaoCli.Text,1,40);

        if ACBrConsultaCNPJ1.Situacao = 'ATIVA' then
        Begin
           RDGAtivo.ItemIndex := 0;
           deDataCadastro.Text  := DateToStr( ACBrConsultaCNPJ1.Abertura);
           MECepCli.Text        := FormataCEP(ACBrConsultaCNPJ1.CEP);
           LocalizaCidade(MECepCli.Text, True);
           EditEndCli.Text      := Copy(Trim(ACBrConsultaCNPJ1.Endereco)+' '+
                Trim(ACBrConsultaCNPJ1.Complemento),1,50);
           txtNum.Text          := ACBrConsultaCNPJ1.Numero;
           cbUF.ItemIndex       := cbUF.Items.IndexOf(ACBrConsultaCNPJ1.UF);
           EditBairroCli.Text   := Copy(RemoveEspacos(ACBrConsultaCNPJ1.Bairro),1,30);
           carrega_cid(cbUF.Text);
           txtCidade.ItemIndex  := txtCidade.Items.IndexOf(Trim(ACBrConsultaCNPJ1.Cidade));
           If Loc_Cidade(cbUF.Text,txtCidade.Text) Then
              edIBGE.Text := AchaCid[0];
           EditEMailCli.text    := LowerCase(ACBrConsultaCNPJ1.EndEletronico);
           EditFoneCli.text     := ACBrConsultaCNPJ1.Telefone;

           EditInscEstCli.SetFocus;
        End
        else
        Begin
           RDGAtivo.ItemIndex := 1;
           KDialog('O Cadastro deste cliente esta inativo na Receita Federal','Informação','erro');
        End;
      End;

   Except on e : Exception do
      KDialog('Não consegui fazer a pesquisa'#13#13'Motivo: '+e.Message,'Alerta','erro');

   End;

 

[Juliomar Marchetti]

depende de qual provedor está usando

[BigWings]

1 hora atrás, digitosistemas disse:

Um cliente me relatou um "erro 404 - not in cache" ao consultar o CNPJ, o que pode ser? 

Provavelmente é CNPJ novo que ainda não está no banco de dados do receitaws.

Talvez no plano pago eles retornem a informação.

[digitosistemas]

Mudei o provedor para: cwsCNPJWS e deu certo.

 

[BigWings]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.