ACBrConsultaCNPJ - IE

[Luiz Carlos de Lima]

Boa tarde,

Temos alguma ferramenta para consultar  Insc. Estadual e se é optante do Simples, visto que o ACBrConsultaCNPJ nao nos traz.

[Diego Foliene]

2 minutos atrás, Luiz Carlos de Lima disse:

Boa tarde,

Temos alguma ferramenta para consultar  Insc. Estadual e se é optante do Simples, visto que o ACBrConsultaCNPJ nao nos traz.

Você pode usar a consulta de cadastro do ACBrNFe.

ACBrNFe1.WebServices.ConsultaCadastro.Executar;

A classe de resposta tem os seguintes campos:

property versao: String read Fversao;
property verAplic: String read FverAplic;
property cStat: integer read FcStat;
property xMotivo: String read FxMotivo;
property DhCons: TDateTime read FdhCons;
property cUF: integer read FcUF;
property UF: String read FUF write FUF;
property IE: String read FIE write SetIE;
property CNPJ: String read FCNPJ write SetCNPJ;
property CPF: String read FCPF write SetCPF;
property RetConsCad: TRetConsCad read FRetConsCad;

Para mais detalhes, por favor, consulte o fonte do botão Consulta Cadastro na aba consultar do programa exemplo disponível em \ACBr\Exemplos\ACBrDFe\ACBrNFe\Delphi

[Luiz Carlos de Lima]

1 - Oi Diego, não retorna nada. Será que é necessário que o CNPJ tenha movimentação ou estou fazendo algo errado.

 2 - Também parece que não tem a informação se é participante do Simples nesta Classe.

  Documento := '12026383000156';
  ACBrNFe.WebServices.ConsultaCadastro.UF := 'SP';
  ACBrNFe.WebServices.ConsultaCadastro.CNPJ := Documento;

  IE := ACBrNFe.WebServices.ConsultaCadastro.IE;
  teste := ACBrNFe.WebServices.ConsultaCadastro.xMotivo;
  teste := ACBrNFe.WebServices.ConsultaCadastro.versao;
 

Observação: passei toda a configuração para o componente igual ao envio da NFe e nada.

[Diego Foliene]

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

1 - Oi Diego, não retorna nada. Será que é necessário que o CNPJ tenha movimentação ou estou fazendo algo errado.

 2 - Também parece que não tem a informação se é participante do Simples nesta Classe.

  Documento := '12026383000156';
  ACBrNFe.WebServices.ConsultaCadastro.UF := 'SP';
  ACBrNFe.WebServices.ConsultaCadastro.CNPJ := Documento;

  IE := ACBrNFe.WebServices.ConsultaCadastro.IE;
  teste := ACBrNFe.WebServices.ConsultaCadastro.xMotivo;
  teste := ACBrNFe.WebServices.ConsultaCadastro.versao;
 

Observação: passei toda a configuração para o componente igual ao envio da NFe e nada.

Bom dia.
Não vi no exemplo que você disponibilizou, por favor, você chamou o método Executar?
Veja como é feito no programa exemplo

// Preenche as informações
ACBrNFe1.WebServices.ConsultaCadastro.UF := UF;

if Length(Documento) > 11 then
  ACBrNFe1.WebServices.ConsultaCadastro.CNPJ := Documento
else
  ACBrNFe1.WebServices.ConsultaCadastro.CPF := Documento;

//Chama o método para executar a consulta
ACBrNFe1.WebServices.ConsultaCadastro.Executar;

//lê as propertys do resultado.
IE := ACBrNFe1.WebServices.ConsultaCadastro.IE;
...

 

[Luiz Carlos de Lima]

Bom dia,

Realmente Faltava, mas continua não carregando. Veja este CNPJ abaixo, consulta pelo portal da NFe traz as informações:

Nome da Empresa: RIO BRANCO ALIMENTOS S/A

UF: MG - 31

CNPJ: 05.017.780/0016-82

Inscrição Estadual (IE):   4811767451053

Situação IE:    Habilitado

Tipo IE:     IE Normal

CNAE Principal:    154700

 

Pelo Componente:

  Documento := '05.017.780/0016-82';
  ACBrNFe.WebServices.ConsultaCadastro.UF := 'MG';
  ACBrNFe.WebServices.ConsultaCadastro.CNPJ := Documento;
  ACBrNFe.WebServices.ConsultaCadastro.Executar;
  IE := ACBrNFe.WebServices.ConsultaCadastro.IE;
  teste := ACBrNFe.WebServices.ConsultaCadastro.xMotivo;
 

Retorno: 

IE='' 

xMotivo = 'Consulta cadastro com uma ocorrencia'

[Diego Foliene]

10 minutos atrás, Luiz Carlos de Lima disse:

Bom dia,

Realmente Faltava, mas continua não carregando. Veja este CNPJ abaixo, consulta pelo portal da NFe traz as informações:

Nome da Empresa: RIO BRANCO ALIMENTOS S/A

UF: MG - 31

CNPJ: 05.017.780/0016-82

Inscrição Estadual (IE):   4811767451053

Situação IE:    Habilitado

Tipo IE:     IE Normal

CNAE Principal:    154700

 

Pelo Componente:

  Documento := '05.017.780/0016-82';
  ACBrNFe.WebServices.ConsultaCadastro.UF := 'MG';
  ACBrNFe.WebServices.ConsultaCadastro.CNPJ := Documento;
  ACBrNFe.WebServices.ConsultaCadastro.Executar;
  IE := ACBrNFe.WebServices.ConsultaCadastro.IE;
  teste := ACBrNFe.WebServices.ConsultaCadastro.xMotivo;
 

Retorno: 

IE='' 

xMotivo = 'Consulta cadastro com uma ocorrencia'

Por favor, marque na aba Webservice do programa exemplo a opção "Salvar Envelope Soap" e faça um novo teste.
Ao fazer isso, ele deve gerar para você o arquivo de envelope de resposta que o componente lê para pegar as informações.
É possível que a IE não esteja vindo na resposta.
Por favor, tente também ler a informação da IE de

ACBrNFe.WebServices.ConsultaCadastro.RetConsCad.IE

 

[Luiz Carlos de Lima]

Aqui carregou > ACBrNFe.WebServices.ConsultaCadastro.RetConsCad.IE

Quanto a segunda questao para ver se a empresa é do simples, alguma sugestão?