Pesquisar na Comunidade

Olá pessoal, O programa de exemplo da ConsultaCNPJ em PHP foi refatorado (Rev-36889), seguindo os padrões que foram adotados nos novos programas que estão sendo desenvolvidos: Incorporado ACBrComum.php que contém métodos gerais que podem ser utilizados por todas as bibliotecas, removendo a redundância dos métodos Removidos arquivos individuais por método e centralizadas chamadas no ACBrConsultaCNPJServicos**.php (** = MT ou ST) Unificada página principal em ACBrConsultaCNPJBase.php centralizando o código e removendo redundância entre MT e ST ..\ACBr\Projetos\ACBrLib\Demos\PHP\ConsultaCNPJ\ACBrConsultaCNPJDemoST.php ..\ACBr\Projetos\ACBrLib\Demos\PHP\ConsultaCNPJ\ACBrConsultaCNPJDemoMT.php Até mais!!!

Bom dia Senhores, Um cliente me relatou um "erro 404 - not in cache" ao consultar o CNPJ, o que pode ser? provedor = CWSRECEITAWS Meu código: If not ValidarCNPJ(MeCPFCli.Text) Then Begin If not ValidarCPF(MeCPFCli.Text) Then KDialog('O CNPJ inválido.'#13'Favor fazer a correção e tentar novamente','Alerta','INFO') else KDialog('Esta pesquisa é somente para CNPJ.'#13'Ação cancelada','Alerta','INFO'); MeCPFCli.SetFocus; exit; end; Try // MANDA COMANDO E FICA AGARRADO EM ONSOLICITA CAPTCHA If Not ACBrConsultaCNPJ1.Consulta(MeCPFCli.Text, '', False) Then Begin Consultar_cnpj(); Exit; End; if ACBrConsultaCNPJ1.Situacao <> '' then Begin //EditTipo.Text := ACBrConsultaCNPJ1.EmpresaTipo; EditRazaoCli.Text := Copy(ACBrConsultaCNPJ1.RazaoSocial,1,50); EditFantCli.Text := Copy(ACBrConsultaCNPJ1.Fantasia,1,40); if (EditFantCli.Text = '') or (Copy(EditFantCli.Text,1,4) = '****') then EditFantCli.Text := Copy(EditRazaoCli.Text,1,40); if ACBrConsultaCNPJ1.Situacao = 'ATIVA' then Begin RDGAtivo.ItemIndex := 0; deDataCadastro.Text := DateToStr( ACBrConsultaCNPJ1.Abertura); MECepCli.Text := FormataCEP(ACBrConsultaCNPJ1.CEP); LocalizaCidade(MECepCli.Text, True); EditEndCli.Text := Copy(Trim(ACBrConsultaCNPJ1.Endereco)+' '+ Trim(ACBrConsultaCNPJ1.Complemento),1,50); txtNum.Text := ACBrConsultaCNPJ1.Numero; cbUF.ItemIndex := cbUF.Items.IndexOf(ACBrConsultaCNPJ1.UF); EditBairroCli.Text := Copy(RemoveEspacos(ACBrConsultaCNPJ1.Bairro),1,30); carrega_cid(cbUF.Text); txtCidade.ItemIndex := txtCidade.Items.IndexOf(Trim(ACBrConsultaCNPJ1.Cidade)); If Loc_Cidade(cbUF.Text,txtCidade.Text) Then edIBGE.Text := AchaCid[0]; EditEMailCli.text := LowerCase(ACBrConsultaCNPJ1.EndEletronico); EditFoneCli.text := ACBrConsultaCNPJ1.Telefone; EditInscEstCli.SetFocus; End else Begin RDGAtivo.ItemIndex := 1; KDialog('O Cadastro deste cliente esta inativo na Receita Federal','Informação','erro'); End; End; Except on e : Exception do KDialog('Não consegui fazer a pesquisa'#13#13'Motivo: '+e.Message,'Alerta','erro'); End;

Fala pessoal, bom dia! Quando eu estou consultando um CNPJ (46.548.327/0003-65) o CEP deveria ser 04332110 porém no retorno do componente está retornando "4332110" ou seja, retirando o primeiro zero. Como conversado com o @Diego Foliene e o @Alexandre de Paula pelo discord está com esse problema na API da "cwsBrasilAPI". O problema está no código FResposta.CEP := IntToStr( LJsonObject.AsInteger['cep']);

Bom dia, quero compartilhar uma pequena alteração referente a situação do CNPJ para casos com situação especial. Em anexo o arquivo ACBrConsultaCNPJ.pas com o ajuste testado no lazarus e delphi; exemplo, ao consultar o CNPJ o 45.170.289/0001-25 - DARUMA TELECOMUNICACOES E INFORMATICA S/A SITUAÇÃO CADASTRAL ATIVA SITUAÇÃO ESPECIAL FALIDO exemplo de uso: exemplo 1: if ACBrConsultaCNPJ1.SituacaoEspecial <> '********' then EditSituacao.Text :=ACBrConsultaCNPJ1.SituacaoEspecial else EditSituacao.Text := ACBrConsultaCNPJ1.Situacao ; adicionado a unit: descricao da situacao especial data da situacao especial exemplo 2: EditSituacao.Text := ACBrConsultaCNPJ1.Situacao; EditSituacaoEspecial.Text := ACBrConsultaCNPJ1.SituacaoEspecial ; ACBrConsultaCNPJ.pas

Teve algumas modificações no site da receita que seria bom ser atualizado nos fontes, que ira alterar o "CURL_REFER" e alguns parâmetros do "PostStr" que não são mais necessários. Segue em anexo a alteração. ACBrConsultaCNPJ.pas

Durante alguns de meus testes em nosso sistema, identifiquei que a URL de consulta de CNPJ no site da Receita foi alterado para: http://servicos.receita.fazenda.gov.br/Servicos/cnpjreva/Cnpjreva_Solicitacao_CS.asp Deixando de ser a antiga: https://servicos.receita.fazenda.gov.br/Servicos/cnpjreva/Cnpjreva_solicitacao3.asp Realizei o ajuste e recompilei o pacote, logo voltou a funcionar normalmente. Anexei os arquivos com a nova mudança para serem verificados. ACBrConsultaCNPJ.pas

Coders, Publiquei hoje componente para consultar CNPJ validando o Google reCaptcha que a RFB implantou no site de consulta. Utilizei alguns códigos do ACBr e espero tê-lo feito citando de forma correta. O código está em https://github.com/suicidecoder/ConsultaCNPJ/ Não incorporei o componente ao ACBr por acreditar que precise ser refatorado antes que isso ocorra. Contributions are welcome! [email protected]

Bom dia. Algum dos senhores poderia me informar se a rotina de consulta de CNPJ está funcionando? Pois aqui não consigo. Estava funcionando normalmente até semana passada. Agora fica dando mensagem de erro fazendo download da figura captcha.

Ola Estou tentando copilar "ConsultaCNPJ" e da erro na atualização do "LabAtualizarCaptcha" conforme imagem1 em anexo e outra imagem da quando eu copilo meu profeto dando mensagem de erro conforme imagem2, deviso que ja utilizo componentes ACBrCEP1 e ACBrIBGE1 para consulta de código de cidades ibge, porem ja existe ja ssleay32.dll em caminho indicado pela imagem, coletada nas dll do arquivos do profeto.

Segue anexo ACBrConsultaCNPJ.pas