RDcheck 2.7
Componente para validação de documentos

RDcheck  Programa exemplo demonstrando todas as funções              

Vantagens:

1) Muito simples e prático de usar
2) não necessita DLL,
3) mais fácil distribuir diminuindo o tamanho final do Executável
4) Você pode atualiza-lo pois terá os fontes disponível

Recursos:

a) Valida os seguintes documentos:  CGC, CPF, PIS, INSCRIÇÃO ESTADUAL (Todos os Estados), Estado (UF)
b) Você pode informar o número a ser validado com ou sem máscara

Retorna:

a) Validade: se o número é valido ou não;
b) Mascara : O número com a MÁSCARA padrão para cada estado
c) Mensagem: Texto com o erro encontrado na validação

Funções e Propriedades:

Function ChkUF (UF : string) : boolean;
Function ChkIE (Numero, UF : string) : boolean;
Function ChkCGC(Numero : string) : boolean;
Function ChkCPF(Numero : string) : boolean;
Function ChkPIS(Numero : string) : boolean;

property Numero : string = Número do documento validado;
property Estado : string = Estado
property Mascara : string = Retorno do Numero Formatado;
property Mensagem: string = Retorno do ERRO
property Valido : boolean = Retorno da validade;

Observações de uso:

a) Para Validar Estado basta informar a Sigla
b) Para Validar Inscrição Estadual é necessário informar o Número e o Estado, pois a validação e formato da mascara difere para cada estado.
c) Para Validar CGC, CPF e PIS basta informar o número
d) Você deve chamar a função correspondente para cada validação e poderá checar a validade diretamente na função ou na propriedade "Valido"

Ex: Validação da Inscrição estadual:

if rdcheck1.ChkIE(Numero_Inscricao.TEXT, Estado.TEXT) then
    shomessage('Inscrição Ok')
else
    showmessage('Inscrição estadual incorreta...');
label3.caption := rdcheck1.Mascara; // Numero ormatado
label4.caption := rdcheck1.Mensagem; // Mensagem de Erro
checkbox1.checked := rdcheck1.Valido; // Resultado

 
Histórico das Versões:
2.0a -  Lançamento versão final
2.0b - 07/11/00 - Alteração no CheckDigit ACRE
2.0c - 19/03/01 - Alteração no CheckDigit DF
2.0d - 15/10/01 - Alteração no CheckDigit RONDONIA
2.0e - 31/01/02 - Alteração no CheckDigit ALAGOAS -  Novo Tipo de Empresa 0-1 Normal
2.0f  - 05/02/02 - Alteração no CheckDigit SERGIPE -  Acrescentou 1 digito na IE
2.1   - 01/10/02 - Alteração no CheckDigit SERGIPE  - Quantidade de dígitos (correto é 9)
 **  Revisão Geral **
2.2 - 10/02/03 - Alteração no CheckDigit TOCANTINS - Quantidade de dígitos (correto é 9)
2.3 - 12/07/04 - Alteração no CheckDigit ALAGOAS     - Novo Tipo 6 - Empresa Pequeno Porte
2.4 - 01/12/04 - Alteração no CheckDigit RS - Removido a validação do Cód. Município
2.5 - 10/12/05 - Alteração no CheckDigit Alagoas - Removido a validação do Cód. Município
2.6 -05/08/08 - NOVO validação de EMail (Bonus) e Introdução da validação do CEI
2.7 -29/08/08 - NOVO validação da Inscrição de Pernambuco Portaria SF Nº 087 de 03/07/2007
CHKPE_Old - Opção para validar IE antigas para PE
ChkPE_Converte - Converte Inscrições PE p/ novo Formato
 

 

Deltress Informática Ltda
Av. República, 948   -   Centro
17509-031 - Marília - SP  -   Fone/Fax (14) 3454-7880
www.deltress.com.br         deltress@deltress.com.br