Consulta Cadastro RS

[henrique_cavalheiro]

Baixei o ACBR para automatizar a consulta de IE da empresa.
1 - Tive que alterar a URL de consulta para versão 4 que é a atual.
2 - fiz mais algumas alterações nas configurações do exemplo porém sempre recebo erro 500.

 

achei vários tópicos antigos do mesmo erro, porém nenhum resolveu meu erro.

 

[Window Title]
ACBrNFe_Exemplo

[Content]

Erro Interno: 0
Erro HTTP: 500
URL: https://cad.svrs.rs.gov.br/ws/cadconsultacadastro/cadconsultacadastro4.asmx
.

Press OK to ignore and risk data corruption.
Press Abort to kill the program.

[OK] [Abort]

 

 ACBrNFe1.Configuracoes.Geral.SSLLib :=  libCapicom;
  ACBrNFe1.Configuracoes.Certificados.NumeroSerie :=  'nossachave';
  ACBrNFe1.WebServices.ConsultaCadastro.Executar;    

 essas foram as alterações para poder rodar....

[Juliomar Marchetti]

Utiliza libWinCrypt

outra coisa você só configura isso acima no componente?

[henrique_cavalheiro]

5 minutos atrás, Juliomar Marchetti disse:

Utiliza libWinCrypt

outra coisa você só configura isso acima no componente?

Peguei o exemplo em lazarus abri pelo lazarus e fui configurando e buscando informações.
Sou novato no ACBR e acabei não achando muitas informações.

  UF := '';
  if not(InputQuery('WebServices Consulta Cadastro ', 'UF do Documento a ser Consultado:', UF)) then
    exit;

  Documento := '';
  if not(InputQuery('WebServices Consulta Cadastro ', 'Documento(CPF/CNPJ)', Documento)) then
    exit;

  Documento :=  Trim(OnlyNumber(Documento));

  ACBrNFe1.WebServices.ConsultaCadastro.UF := UF;

  if Length(Documento) > 11 then
     ACBrNFe1.WebServices.ConsultaCadastro.CNPJ := Documento
  else
     ACBrNFe1.WebServices.ConsultaCadastro.CPF := Documento;
  ACBrNFe1.Configuracoes.Geral.SSLLib :=  libWinCrypt;
  ACBrNFe1.Configuracoes.Certificados.NumeroSerie :=  'nossoA1';
  ACBrNFe1.WebServices.ConsultaCadastro.Executar;


  MemoResp.Lines.Text := ACBrNFe1.WebServices.ConsultaCadastro.RetWS;
  memoRespWS.Lines.Text := ACBrNFe1.WebServices.ConsultaCadastro.RetornoWS;
  LoadXML(MemoResp, WBResposta);

  pgRespostas.ActivePageIndex := 1;

  MemoDados.Lines.Add('');
  MemoDados.Lines.Add('Consulta Cadastro');
  MemoDados.Lines.Add('versao: ' + ACBrNFe1.WebServices.ConsultaCadastro.versao);
  MemoDados.Lines.Add('verAplic: ' + ACBrNFe1.WebServices.ConsultaCadastro.verAplic);
  MemoDados.Lines.Add('cStat: ' + IntToStr(ACBrNFe1.WebServices.ConsultaCadastro.cStat));
  MemoDados.Lines.Add('xMotivo: ' + ACBrNFe1.WebServices.ConsultaCadastro.xMotivo);
  MemoDados.Lines.Add('DhCons: ' + DateTimeToStr(ACBrNFe1.WebServices.ConsultaCadastro.DhCons));
  MemoDados.Lines.Add('IE: ' + ACBrNFe1.WebServices.ConsultaCadastro.IE);      

fiz pequenos ajustes como versão etc...direto no componente do NFe...

 

Alterei para libWinCrypt e não teve resultado.
 

<?xml version="1.0" encoding="UTF-8"?>

-<ConsCad versao="2.00" xmlns="http://www.portalfiscal.inf.br/nfe">


-<infCons>

<xServ>CONS-CAD</xServ>

<UF>SC</UF>

<CNPJ>03193274000132</CNPJ>

</infCons>

</ConsCad>

mesmo setando a versão 4 no componente ele acaba gerando a consulta utilizando a versão 2.

[henrique_cavalheiro]

Forçando no código a versão para 4.0 resolveu


 ACBrNFe1.Configuracoes.Geral.VersaoDF:= ve400 ; 

[Italo Giurizzato Junior]

Obrigado por reportar.

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