henrique_cavalheiro

Forçando no código a versão para 4.0 resolveu ACBrNFe1.Configuracoes.Geral.VersaoDF:= ve400 ;

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.

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....