César Arrais

Poderia postar então o progresso para que todos possam utilizar?

nao dei mais prosseguimento, por pura falta de tempo.

Renato, não dei mais prosseguimento, pois nao consegui passar do ponto que falei acima. Se puder dar continuidade será bem vinda. Obrigado.

Tentei, mas não deu certo ainda.

Galera, dei uma avançada, graças a orientação do Datilas sobre o Firefox com o DEBUG. Ainda falta ajustar, está dando rerro na URL, mas já foi um avanço. Segue em anexo o que já fiz. ACBrConsultaSIMPLES.pas

Alguém conseguiu avançar? Travei na hora da consulta. Nao sei o que devo informar na função abaixo: function TACBrConsultaSIMPLES.Consulta(const ACNPJ, ACaptcha: String; ARemoverEspacosDuplos: Boolean): Boolean; var Post: TStringStream; Erro: String; Resposta : TStringList; begin Erro := ACBrValidadorValidarCNPJ( ACNPJ ) ; if Erro <> '' then raise EACBrConsultaSIMPLESException.Create(Erro); Clear; Post:= TStringStream.Create(''); try Post.WriteString('Consultar'); Post.WriteString('ctl00_ContentPlaceHolderConteudo_'+FSessao+'='+OnlyNumber(ACNPJ)+'&'); Post.WriteString('ctl00_ContentPlaceHolderConteudo_txtTexto_captcha_serpro_gov_br='+Trim(ACaptcha)+'&'); Post.WriteString('opcao=Limpar&'); Post.WriteString('submit=Consultar&'); Post.WriteString('search_type=cnpj'); Post.Position:= 0; { http://www8.receita.fazenda.gov.br/SIMPLESNACIONAL/APLICACOES/ATBHE/CONSULTAOPTANTES.APP/WebResource.axd?d=ATCgXPXk_gbQN-SGRAo957kIm-2Gy56XUQBevvJToDAxMcGVUNbxUgWFrt6JFo6vVbYc2RVxzkdzKEH_SJCMJv8DUgGt1QKbPkAW-phLKFc1&t=635170580427401264 <script src="/SIMPLESNACIONAL/APLICACOES/ATBHE/CONSULTAOPTANTES.APP/WebResource.axd?d=CBKsGwIRkIfXWC1K4WmgwnsCrSIhzP52ZzDkKuc50-uS4h0gpuSPkuQRfMxfemPIOhN710MyWFuTahunxrNFAwQjGrhGKCWos2sgX-CkmGM1&amp;t=635068628482349769" type="text/javascript"></script> <script src="/SIMPLESNACIONAL/APLICACOES/ATBHE/CONSULTAOPTANTES.APP/WebResource.axd?d=CBKsGwIRkIfXWC1K4WmgwnsCrSIhzP52ZzDkKuc50-uS4h0gpuSPkuQRfMxfemPIOhN710MyWFuTahunxrNFAwQjGrhGKCWos2sgX-CkmGM1&amp;t=635068628482349769" type="text/javascript"></script> <script src="/SIMPLESNACIONAL/APLICACOES/ATBHE/CONSULTAOPTANTES.APP/WebResource.axd?d=1kjdyw1HYJyqkkIOzczA_VqJa4nlLwJ1DqDPRGXDnUPDeamSQ_S5GE6mQxg6yglvSy3qj3UE_9xU32LfU76kW7AoMQu-O1H7LTjI_jTPwXc1&amp;t=635170580768019343" type="text/javascript"></script> <script src="/SIMPLESNACIONAL/APLICACOES/ATBHE/CONSULTAOPTANTES.APP/WebResource.axd?d=bxcSQBG970UytOA_qY2uIpSk-6HatekNYTiVn-57t_K4f6u5N1BGPLbrYCT_3z378oNcERJfT4Wi3jTX5-JFrO3pZB64n0z1e8pdu4Uhrv81&amp;t=635170580362868269" type="text/javascript"></script> <script src="/SIMPLESNACIONAL/APLICACOES/ATBHE/CONSULTAOPTANTES.APP/WebResource.axd?d=Iy2iZAPv8y_CWqAD3SsLsSFBPxS6k6YE8n8uMrdjan2V7Sk3z3qL8-RsLQw-yKV2k0-xoyDtKe-RrmyEWDsghACd7KvkQOEqgLVIG6BzVHw1&amp;t=635068628482349769" type="text/javascript"></script> <script src="/SIMPLESNACIONAL/APLICACOES/ATBHE/CONSULTAOPTANTES.APP/WebResource.axd?d=Iy2iZAPv8y_CWqAD3SsLsSFBPxS6k6YE8n8uMrdjan2V7Sk3z3qL8-RsLQw-yKV2k0-xoyDtKe-RrmyEWDsghACd7KvkQOEqgLVIG6BzVHw1&amp;t=635068628482349769" type="text/javascript"></script> } HttpSend.Clear; HttpSend.Document.Position:= 0; HttpSend.Document.CopyFrom(Post, Post.Size); HTTPSend.MimeType := 'application/x-www-form-urlencoded; charset=utf-8'; HTTPPost('http://www8.receita.fazenda.gov.br/SIMPLESNACIONAL/APLICACOES/ATBHE/CONSULTAOPTANTES.APP/WebResource.axd?d='+FViewState+'&amp;t='+FSessao); Erro := VerificarErros(RespHTTP.Text); if Erro = '' then begin Result:= True; Resposta := TStringList.Create; try Resposta.Text := StripHTML(RespHTTP.Text); RemoveEmptyLines( Resposta ); //DEBUG: //Resposta.SaveToFile('d:\SIMPLES.txt'); FDataConsulta := LerCampo(Resposta,'Data da consulta'); FCNPJ := LerCampo(Resposta,'CNPJ'); FRazaoSocial := LerCampo(Resposta,'Nome Empresarial'); FSituacaoSIMPLESNacional := LerCampo(Resposta,'Situação no Simples Nacional'); FSituacaoSIMEI := LerCampo(Resposta,'Situação no SIMEI'); FSituacaoSIMPLESNacionalAnterior:= LerCampo(Resposta,'Opções pelo Simples Nacional em Períodos Anteriores'); FSituacaoSIMEIAnterior := LerCampo(Resposta,'Opções pelo SIMEI em Períodos Anteriores'); FAgendamentosSIMPLESNacional := LerCampo(Resposta,'Agendamentos no Simples Nacional'); FEventosFuturosSIMPLESNacional := LerCampo(Resposta,'Eventos Futuros no Simples Nacional'); FEventosFuturosSIMEI := LerCampo(Resposta,'Eventos Futuros no SIMEI'); finally Resposta.Free; end ; if Trim(FRazaoSocial) = '' then raise EACBrConsultaSIMPLESException.Create('Não foi possível obter os dados.'); if ARemoverEspacosDuplos then begin FRazaoSocial := RemoverEspacosDuplos(FRazaoSocial); end; end else begin Result:= False; raise EACBrConsultaSIMPLESException.Create(Erro); end; finally Post.Free; end; end; Segue em anexo o que já consegui avançar. ACBrConsultaSIMPLES.pas

Pessoal, estou meio off estes dias. Estou fora de casa, dando uma relaxada em Gramado/RS. Terça-feira volto à ativa com as baterias recarregadas e vamos ver se consigo terminar este componente.

Já consegui buscar a imagem. Minha dificuldade agora está no POST da consulta. Informar os dados para a consulta e buscar os resultados. Segue em anexo o que já fiz até agora. Não entendo nada de java nem de asp, mas estou caminhando. Toda ajuda é bem vinda. ACBrConsultaSIMPLES.pas

Já consegui fazer o download do captcha. Agora vou implementar a consulta. Valeu pela dica Juliomar. Alguém disposto a ajudar?

Não estou conseguindo pegar a URL da imagem. Já tentei aqui de todas as formas que eu pude imaginar.

Fiz algumas modificações, e agora estou obtendo a seguinte resposta: Bad Request (Invalid URL)

Pois foi exatamente de onde retirei a idéia, só que não estou conseguindo pegar o endereço do captcha. Creio que o problema está aqui: function TACBrConsultaSIMPLES.GetCaptchaURL : String ; var URL, Html: String; begin try Self.HTTPGet('http://www8.receita.fazenda.gov.br/simplesnacional/aplicacoes/atbhe/consultaoptantes.app/consultaropcao.aspx'); Html := Self.RespHTTP.Text; URL := 'http://www8.receita.fazenda.gov.br/simplesnacional/aplicacoes/atbhe/consultaoptantes.app/'+ StrEntreStr(Html, '<img id="img-captcha2" alt="Imagem captcha 2" src="', '">'); FViewState := StrEntreStr(Html, '<input type=hidden name="__VIEWSTATE" id="__VIEWSTATE" value='+'''', ''''); Result := StringReplace(URL, 'amp;', '', []); except on E: Exception do begin raise EACBrConsultaSIMPLESException.Create('Erro na hora de obter a URL do captcha.'+#13#10+E.Message); end; end; end;

Boa tarde Pessoal, Estou tendo uma necessidade que creio outros colegas também terão: Saber se a empresa é optante pelo SIMPLES Nacional. Andei pesquisando e achei este link, onde pode ser consultado se a empresa é optante ou não. http://www8.receita.fazenda.gov.br/simplesnacional/aplicacoes/atbhe/consultaoptantes.app/consultaropcao.aspx Daí pensei: porque não criar um componente tipo o consulta CNPJ, o Consulta SIMPLES Nacional. Então resolvi por a mão na massa, mas estou tendo uma certa dificuldade: não estou conseguindo trazer a imagem do captcha. Vou anexar o que já fiz e se alguém puder ajudar.... Creio que será útil para todos nós. Segue o que já fiz, baseado no ACBrConsultaCNPJ. U_Principal.pasConsultaSIMPLES.dprU_Principal.txtACBrConsultaSIMPLES.pas Desde já agradecido pela atenção. Fraternal abraço. César Arrais U_Principal.pas ConsultaSIMPLES.dpr U_Principal.txt ACBrConsultaSIMPLES.pas

Creio que o Indy tenha um componente para fazer essa conversão... IdDecoderMIME1.DecodeString(stringVariavel); Vou dar uma pesquisada.

Também estou com o mesmo problema. utilizo o RAVE 5.0 também. Voltei uma versao do NotaFiscalEletronica.rav e funcionou. Vou fazer a alteração no RAVE 5 e depois posto um link para a nova versão. César Arrais