ACBRConsultaCNPJ retorno Situação Especial

[Aurino]

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

Editado 14 Março, 2022 por Aurino

[Aurino]

ajuste da data da situacao especial, para deixar = 0;

ACBrConsultaCNPJ.pas

[Juliomar Marchetti]

#TK-2474

No SVN.

não precisa colocar comentário em cada linha que fizer, precisei fazer limpeza deles antes de subir.