ACBrConsultaCNPJ - Código legado

[Antonio Gomes]

@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;

[Daniel Simoes]

Se você criar uma classe nova, poderia fazer um Override desse método

[Victor H. Gonzales - Panda]

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

[Antonio Gomes]

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.

[Daniel InfoCotidiano]

Obrigado por reportar.

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

[Victor H. Gonzales - Panda]

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