consulta do CPNJ ( sintegra ) pelo ACBRNFe

[AlexBecker]

Estou com problema ao consultar o CPNJ da empresa pelo ACBRNFe

erro: 

este erro ocorre com alguns estados e outros não.

configs do TSL

 

 

já tentei ativar a 1.0, 1.1 mas não deu.

Meu windows éo 10 64 bits atualizado (original), certificados raiz instalados hoje atualizados, MS redist ( todos atualizados retirados e atualizados ).

configs no acbr:

já tentei com outro e LT_all, sempre retorna o mesmo erro para alguns estados e já outros funcionam normalmente.

 

código utilizado:

  dm5.ACBrNFe1.WebServices.ConsultaCadastro.CNPJ := DeixaSoNumero(mskCNPJ.text);
  dm5.ACBrNFe1.WebServices.ConsultaCadastro.UF   := CbEstado.Text;
  dm5.ACBrNFe1.WebServices.ConsultaCadastro.Executar;

  if (dm5.ACBrNFe1.WebServices.ConsultaCadastro.RetConsCad.cStat = 111) or (dm5.ACBrNFe1.WebServices.ConsultaCadastro.RetConsCad.cStat = 112) then
  begin
    EncontrouRegistro           := True;
    BtnUtilizarRegistro.Enabled := True;

    if (Length(Trim(dm5.ACBrNFe1.WebServices.ConsultaCadastro.RetConsCad.InfCad.Items[0].IE)) > 0) then
      lblIE.Caption := dm5.ACBrNFe1.WebServices.ConsultaCadastro.RetConsCad.InfCad.Items[0].IE;

    if (Length(Trim(dm5.ACBrNFe1.WebServices.ConsultaCadastro.RetConsCad.InfCad.Items[0].xNome)) > 0) then
      lblRazao.Caption := dm5.ACBrNFe1.WebServices.ConsultaCadastro.RetConsCad.InfCad.Items[0].xNome;

    if (Length(Trim(dm5.ACBrNFe1.WebServices.ConsultaCadastro.RetConsCad.InfCad.Items[0].xFant)) > 0) then
      lblFantasia.Caption := dm5.ACBrNFe1.WebServices.ConsultaCadastro.RetConsCad.InfCad.Items[0].xFant;

    if (Length(Trim(dm5.ACBrNFe1.WebServices.ConsultaCadastro.RetConsCad.InfCad.Items[0].xLgr)) > 0) then
      lblEndereco.Caption := dm5.ACBrNFe1.WebServices.ConsultaCadastro.RetConsCad.InfCad.Items[0].xLgr;

    if (Length(Trim(dm5.ACBrNFe1.WebServices.ConsultaCadastro.RetConsCad.InfCad.Items[0].nro)) > 0) then
      lblNumero.Caption := dm5.ACBrNFe1.WebServices.ConsultaCadastro.RetConsCad.InfCad.Items[0].nro;

    if (Length(Trim(dm5.ACBrNFe1.WebServices.ConsultaCadastro.RetConsCad.InfCad.Items[0].xCpl)) > 0) then
      lblComplemento.Caption := dm5.ACBrNFe1.WebServices.ConsultaCadastro.RetConsCad.InfCad.Items[0].xCpl;

    if (Length(Trim(dm5.ACBrNFe1.WebServices.ConsultaCadastro.RetConsCad.InfCad.Items[0].xBairro)) > 0) then
      lblBairro.Caption := dm5.ACBrNFe1.WebServices.ConsultaCadastro.RetConsCad.InfCad.Items[0].xBairro;

    if (Length(Trim(IntToStr(dm5.ACBrNFe1.WebServices.ConsultaCadastro.RetConsCad.InfCad.Items[0].CEP))) > 0) then
      lblCep.Caption := FormataCep(Trim(IntToStr(dm5.ACBrNFe1.WebServices.ConsultaCadastro.RetConsCad.InfCad.Items[0].CEP)));

    if (Length(Trim(DeixaSoNumero(DateToStr(dm5.ACBrNFe1.WebServices.ConsultaCadastro.RetConsCad.InfCad.Items[0].dIniAtiv)))) > 0) then
      lblDataAbertura.Caption := DateToStr(dm5.ACBrNFe1.WebServices.ConsultaCadastro.RetConsCad.InfCad.Items[0].dIniAtiv);

    if (Length(Trim(dm5.ACBrNFe1.WebServices.ConsultaCadastro.RetConsCad.InfCad.Items[0].xRegApur)) > 0) then
      lblTipoEmpresa.Caption := dm5.ACBrNFe1.WebServices.ConsultaCadastro.RetConsCad.InfCad.Items[0].xRegApur;

    if (dm5.ACBrNFe1.WebServices.ConsultaCadastro.RetConsCad.InfCad.Items[0].xMun <> '') then
    begin
      ConsultaDeCidades('consulta', ' WHERE (Nome_cida = "' + dm5.ACBrNFe1.WebServices.ConsultaCadastro.RetConsCad.InfCad.Items[0].xMun + '") AND (Uf_cida = "' + dm5.ACBrNFe1.WebServices.ConsultaCadastro.RetConsCad.InfCad.Items[0].UF + '") ', '', ' LIMIT 1');

      if (dm.Lcidades.RecordCount = 1) then
      begin
        lblCidade.Caption := dm.LCidadesNome_cida.Value + '/' + dm.LCidadesUf_cida.Value;
        lblIbge.Caption   := dm.LCidadesCodigo_Ibge.AsString;
      end
      else
      begin
        lblCidade.Caption := '';
        lblIbge.Caption   := '';
      end;

    end;

    BtnUtilizarRegistro.Click;
  end
  else
    MessageBox(handle, 'Não foi possivel localizar os dados na consulta !', 'Mensagem de aviso', mb_IconInformation + 0 + mb_DefButton4);

 

no componente ACBRNFe1, para consultar também pelo CNPJ no sintegra  ( já passei as configs todas do SSL de LT_all a todas existentes e retorna o mesmo erro citado no post inicial ), meu windows é original e está atualizado, minhas opcoes de SSL nas opções de internet estão como citadas acima.

[AlexBecker]

Na OPENSSL está funcionando corretamente

faz a consulta sem problemas, com a open eu tive alguns outros problema e não pude utilizar ela que agora não recordo quais foram, o probema ocorre quando utilizo a:

nesta config consigo emitir NFe, NFCe sem problemas porém quando consulto o cnpj por estado:

 dm5.ACBrNFe1.WebServices.ConsultaCadastro.CNPJ := DeixaSoNumero(mskCNPJ.text);
  dm5.ACBrNFe1.WebServices.ConsultaCadastro.UF   := CbEstado.Text;
  dm5.ACBrNFe1.WebServices.ConsultaCadastro.Executar;

me retorna erro em alguns estados somente.

 

Editado 20 Dezembro, 2021 por AlexBecker

[Juliomar Marchetti]

é somente TLS 1.2 e o windows tem que estar atualizado

[AlexBecker]

o TSL:  

O windows é original está sempre atualizando automatico, para NFe e NFCe com o Wincrypt vai tranquilo só esta consulta ai para SP ( e uns outros estados dá erro ), na open ssql funciona so que ela é bem mais lenta...

 

EDIT: (jogou a resposta direto aqui: )

Pessoal... deu certo aqui, atualizei certificados, atualizei de novo os MS redistri. reiniciei a máquina e usei direto somente a config LT_TLSv1_2 e foi agora com a libwincrypt corretamente, obrigado a todos!

Editado 20 Dezembro, 2021 por AlexBecker

[Juliomar Marchetti]

Obrigado por reportar.

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