ACBrNFe.WebServices.ConsultaCadastro.Executar

[Luiz Carlos de Lima]

Boa tarde,

Estava com problema no ACBrCEP1.BuscarPorCEP, atualizei o ACBr e comecei a ter alguns problemas que foram corrigidos, mas este ainda não consegui solucionar:

Utilizo o ConsultaCadastro.Executar para buscar a IE, agora começou a dar Argument of ranger. Tentei outros campos para testar mas todos estão com este erro.

  wInscEstado := ACBrNFe.WebServices.ConsultaCadastro.RetConsCad.InfCad[0].IE;  wNome := ACBrNFe.WebServices.ConsultaCadastro.RetConsCad.InfCad[0].xNome;
  wLogr := ACBrNFe.WebServices.ConsultaCadastro.RetConsCad.InfCad[0].xLgr;

 

[Italo Giurizzato Junior]

Boa tarde @Luiz Carlos de Lima,

O programa exemplo tem um botão para o ConsultaCadastro.

Por favor faça um teste com o programa exemplo e veja se ocorre o mesmo erro.

[Victor H. Gonzales - Panda]

Se está ocorrendo Argumento fora da Faixa, quer dizer que o indice que está sendo lido não é válido.

Lembrando que nem todas as UF tem o serviço de consulta, e para funcionar precisa a IE estar no CCC.

Tambem vale lembrar que não são todos CNPJ que possuem IE vinculadas

então é recomendado testar o index antes de acessar o indice 0 prontamente

[Luiz Carlos de Lima]

Em 09/03/2024 at 23:48, Victor H. Gonzales - Panda disse:

Se está ocorrendo Argumento fora da Faixa, quer dizer que o indice que está sendo lido não é válido.

Lembrando que nem todas as UF tem o serviço de consulta, e para funcionar precisa a IE estar no CCC.

Tambem vale lembrar que não são todos CNPJ que possuem IE vinculadas

então é recomendado testar o index antes de acessar o indice 0 prontamente

Victor, desculpe mas não consegui fazer o teste no index, pode me ajudar.

[Victor H. Gonzales - Panda]

if ACBrNFe1.WebServices.ConsultaCadastro.RetConsCad.InfCad.Count > 0 then

[Luiz Carlos de Lima]

Todos CNPJ que testo recorda o erro, já verifiquei e eles tem IE

ACBrNFe.Configuracoes.WebServices.TimeOut    := 20000;
  ACBrNFe.Configuracoes.Geral.SSLLib           := libWinCrypt;
  ACBrNFe.Configuracoes.Geral.SSLCryptLib      := cryWinCrypt;
  ACBrNFe.Configuracoes.Geral.SSLHttpLib       := httpWinHttp;
  ACBrNFe.Configuracoes.Geral.SSLXmlSignLib    := xsLibXml2;
  ACBrNFe.SSL.SSLType := LT_TLSv1_2;

  ACBrNFe.SSL.CarregarCertificado;

  Documento := EditCNPJ_Fornecedor_Pagar.Text;
  ACBrNFe.Configuracoes.WebServices.UF       := 'MT';
  ACBrNFe.Configuracoes.WebServices.Salvar   := true;
  ACBrNFe.WebServices.ConsultaCadastro.UF    := 'MT';
  ACBrNFe.WebServices.ConsultaCadastro.CNPJ  := '03658968000602';
  ACBrNFe.WebServices.ConsultaCadastro.Executar;

  vMotivo := ACBrNFe.WebServices.ConsultaCadastro.xMotivo;
  vCstat  := ACBrNFe.WebServices.ConsultaCadastro.cStat;

  wInscEstado := ACBrNFe.WebServices.ConsultaCadastro.RetConsCad.InfCad[0].IE;

 

[Renato Rubinho]

12 horas atrás, Luiz Carlos de Lima disse:

ACBrNFe.Configuracoes.Geral.SSLLib           := libWinCrypt;
  ACBrNFe.Configuracoes.Geral.SSLCryptLib      := cryWinCrypt;

Tente mudar as configurações para OpenSSL.

Em 08/03/2024 at 16:21, Italo Giurizzato Junior disse:

programa exemplo tem um botão para o ConsultaCadastro.

Por favor faça um teste com o programa exemplo e veja se ocorre o mesmo erro.

Teste com o programa de exemplo para verificar se existe algo de errado na sua aplicação.

12 horas atrás, Luiz Carlos de Lima disse:

wInscEstado := ACBrNFe.WebServices.ConsultaCadastro.RetConsCad.InfCad[0].IE;

Se sua consulta não retorna registros o InfCad[0] não existe e dessa forma você está gerando o AV.

21 horas atrás, Victor H. Gonzales - Panda disse:

if ACBrNFe1.WebServices.ConsultaCadastro.RetConsCad.InfCad.Count > 0 then

Verifique se o índice existe antes de tentar acessar.

[Victor H. Gonzales - Panda]

TK-5209

[Victor H. Gonzales - Panda]

Por favor atualize seus fontes, pelo SVN do ACBr... 

Já subimos para o nosso repositório de fontes, modificações que podem corrigir algum dos itens referentes a esse tópico...

Por favor atualize seus fontes, faça testes, e se possível comente em uma nova resposta, se o problema foi resolvido...

Dúvidas, sobre o uso do SVN ?  Clique aqui e veja um vídeo

[Luiz Carlos de Lima]

Resolvido, Grato pessoal.

 

[Juliomar Marchetti]

Obrigado por reportar.

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