Antonio Gomes Postado 8 Abril Compartilhar Postado 8 Abril @Victor H. Gonzales - Panda [*]TK-5131 ACBrConsultaCNPJ Adicionado Proxy / #TMSFixInsight Removido Código Legado Tratamento de Erros HTTP > 299 por Victor H Gonzales / Daniel Moraes Com relação a essa remoção, é possivel expor a função ParserWS, para sessao public ? pelo menos para gente conseguir alimentar o objeto, com o html que antigamente existia, pois ate o evento de solicitacao externa, voces removeram, repara abaixo, o retorno dela, é um possivel entrada de dados para a funcao ParserWS procedure TFConsultaCnpjCpfReceitaFederal.ACBrConsultaCNPJ1SolicitarCaptcha(var AHtml: string); var CNPJ: string; Url : string; begin inherited; CNPJ := TFuncoesString.SoNumero(EditCNPJ_Cpf.Text); Url := 'https://solucoes.receita.fazenda.gov.br/Servicos/cnpjreva/Cnpjreva_Solicitacao.asp?cnpj=' + CNPJ; AHtml := TFNavegarEdge.NavegarEdge(Url); // << retorno para ParserWS end; Link para o comentário Compartilhar em outros sites More sharing options...
Fundadores Daniel Simoes Postado 8 Abril Fundadores Compartilhar Postado 8 Abril Se você criar uma classe nova, poderia fazer um Override desse método Daniel Simões de Almeida O melhor TEF, é com o Projeto ACBr - Clique e Conheça Ajude o Projeto ACBr crescer - Assine o SAC (15) 2105-0750 (15)99790-2976. Link para o comentário Compartilhar em outros sites More sharing options...
Consultores Victor H. Gonzales - Panda Postado 8 Abril Consultores Compartilhar Postado 8 Abril já que você está alterando o comportamento padrão do componente, porque tu não extende ele ou faz um helper class? dai essas modificações você faz na sua classe, porque se amanhã tiver alguma mudança do genero na classe não tem impactos tão severos Victor H Gonzales - Pandaaa Ajude o Projeto ACBr crescer - Assine o SAC (15) 2105-0750 (15)99790-2976. Discord Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !! "Aprender é a única coisa que a mente nunca se cansa, nunca tem medo e nunca se arrepende” - Leonardo da Vinci "Ter sucesso é falhar repetidamente, mas sem perder o entusiasmo" Link para o comentário Compartilhar em outros sites More sharing options...
Antonio Gomes Postado 8 Abril Autor Compartilhar Postado 8 Abril 17 minutos atrás, Victor H. Gonzales - Panda disse: já que você está alterando o comportamento padrão do componente, porque tu não extende ele ou faz um helper class? dai essas modificações você faz na sua classe, porque se amanhã tiver alguma mudança do genero na classe não tem impactos tão severos Pensei nisso, mas os tipos atrapalham, tem um if Self.Provedor <> cwsNenhum then Logo, caso possa, eu criaria um tipo para ReceitaViaHtml. Mas, por hora, copiei do fonte anterior, voltei o fonte, e peguei as funcoes LerCampo, pq pifou no cliente, para resolver de imediato. Pode fechar o topico. Link para o comentário Compartilhar em outros sites More sharing options...
Consultores Daniel InfoCotidiano Postado 8 Abril Consultores Compartilhar Postado 8 Abril Obrigado por reportar. Fechando. Para novas dúvidas, criar um novo tópico. Daniel de Morais (Infocotidiano) Ajude o Projeto ACBr crescer - Assine o SAC (15) 2105-0750 (15)99790-2976. Discord Link para o comentário Compartilhar em outros sites More sharing options...
Consultores Solution Victor H. Gonzales - Panda Postado 8 Abril Consultores Solution Compartilhar Postado 8 Abril 1 hora atrás, Antonio Gomes disse: Pensei nisso, mas os tipos atrapalham, tem um if Self.Provedor <> cwsNenhum then Logo, caso possa, eu criaria um tipo para ReceitaViaHtml. Mas, por hora, copiei do fonte anterior, voltei o fonte, e peguei as funcoes LerCampo, pq pifou no cliente, para resolver de imediato. Pode fechar o topico. voce pode criar uma classe e sobre escrever o comportamento do metodo. TMyConstultaCNPJ = class(TACBrConsultaCNPJ) ou somente um class helper no metodo especifico, lembrando que precisa estar a unit por ultimo. http://docwiki.embarcadero.com/RADStudio/Athens/en/Class_and_Record_Helpers_(Delphi) https://www.devmedia.com.br/class-helpers-no-delphi-modificando-componentes-da-vcl/36773 Victor H Gonzales - Pandaaa Ajude o Projeto ACBr crescer - Assine o SAC (15) 2105-0750 (15)99790-2976. Discord Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil Participe de nosso canal no Discord e fique ainda mais próximo da Comunidade !! "Aprender é a única coisa que a mente nunca se cansa, nunca tem medo e nunca se arrepende” - Leonardo da Vinci "Ter sucesso é falhar repetidamente, mas sem perder o entusiasmo" Link para o comentário Compartilhar em outros sites More sharing options...
Recommended Posts