Validação De Dados E Limpeza De Dados

[marcelosantos]

Olá a Todos,   este é meu segundo post.

 

No banco de dados da aplicação a qual estou trabalhando os campos cnpj, telefone, etc, são do tipo strings, e os dados estão gravados assim CNPJ = xx.xxx.xxx/xxxx-xx, telefone (xx) xxxx-xxxx, ou seja esta com "parentes, hifem, ponto, etc). dessa forma os dados não atendem a regra do edoc (pis-cofins também)

 

crei a seguinte função na minha aplicação

 

Function limpaVariavel (sTexto: String):String;
begin
sTexto := StringReplace(sTexto, '.', '',[rfReplaceAll, rfIgnoreCase]); //remover .
sTexto := StringReplace(sTexto, '-', '',[rfReplaceAll, rfIgnoreCase]); //remover -
sTexto := StringReplace(sTexto, '/', '',[rfReplaceAll, rfIgnoreCase]); //remover /
sTexto := StringReplace(sTexto, '(', '',[rfReplaceAll, rfIgnoreCase]); //remover (
sTexto := StringReplace(sTexto, ')', '',[rfReplaceAll, rfIgnoreCase]); //remover )
sTexto := StringReplace(sTexto, ' ', '',[rfReplaceAll, rfIgnoreCase]); // revomer '  '
Result := sTexto;
end;

 

Varrendo toda a string a procura desses caracteres, minha pergunta é, há alguam função em ACBR que resolva isto e já valide cpnj, telefone etc?

[Juliomar Marchetti]

Como é seu segundo post dei uma ajuda, primeiro dúvida nova tópico novo veja nas

Também convido a tentar usar a pesquisa que tem no canto superior direito que geralmente irá achar 

e com certeza iria achar as seguintes respostas

uses ACBrUtil 

 

OnlyNumber()

 

e uses ACBrValidador

ACBrValidadorValidarCNPJ()

 

Olá a Todos,   este é meu segundo post.

 

No banco de dados da aplicação a qual estou trabalhando os campos cnpj, telefone, etc, são do tipo strings, e os dados estão gravados assim CNPJ = xx.xxx.xxx/xxxx-xx, telefone (xx) xxxx-xxxx, ou seja esta com "parentes, hifem, ponto, etc). dessa forma os dados não atendem a regra do edoc (pis-cofins também)

 

crei a seguinte função na minha aplicação

 

Function limpaVariavel (sTexto: String):String;
begin
sTexto := StringReplace(sTexto, '.', '',[rfReplaceAll, rfIgnoreCase]); //remover .
sTexto := StringReplace(sTexto, '-', '',[rfReplaceAll, rfIgnoreCase]); //remover -
sTexto := StringReplace(sTexto, '/', '',[rfReplaceAll, rfIgnoreCase]); //remover /
sTexto := StringReplace(sTexto, '(', '',[rfReplaceAll, rfIgnoreCase]); //remover (
sTexto := StringReplace(sTexto, ')', '',[rfReplaceAll, rfIgnoreCase]); //remover )
sTexto := StringReplace(sTexto, ' ', '',[rfReplaceAll, rfIgnoreCase]); // revomer '  '
Result := sTexto;
end;

 

Varrendo toda a string a procura desses caracteres, minha pergunta é, há alguam função em ACBR que resolva isto e já valide cpnj, telefone etc?