Ir para conteúdo
  • Cadastre-se

dev botao

consulta do CPNJ ( sintegra ) pelo ACBRNFe


AlexBecker
Ver Solução Respondido por AlexBecker,
  • Este tópico foi criado há 829 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Estou com problema ao consultar o CPNJ da empresa pelo ACBRNFe

erro: image.png.1fd090306eb2fcd579a5e08f5ec5202a.png

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

configs do TSL

 

image.png.ab74f0a1ab00e17d471c8af73f921589.png 

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:

image.png.c0eb079de12ea49e567d1156f96b8cbd.png

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

image.png.0416a95bda856a24c6c81d13f8dd16ba.png

 

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.

Link para o comentário
Compartilhar em outros sites

Na OPENSSL está funcionando corretamente

image.png.b1741fd9ec67a552873456f68f4d8002.png

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:

image.png.7e49ce179d6a8af1b8cca91dfdc7da14.png

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 por AlexBecker
Link para o comentário
Compartilhar em outros sites

  • Solution

o TSL: image.png.19e033da5d1a13b0701f2577d3ad2b43.png 

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 por AlexBecker
Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 829 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.