ActiveDelphi

[mr.solutions]

Olá pessoal, eu sei que ja tem esse topico no site, umas das duvidas mais procuradas, o meu problema e o seguinte e uso uma função apenas para preencher os campos CNPJ/CPF na minha tabela
ou seja se for cliente CNPJ ele fica 00.000.000/0000-00 e se for CPF ele fica 000.000.000-00, bom até ai tudo bem...ele trabalha certinho mas na hora de verificar se o cpf´ou cnpj e valido ai nao funciona...o que quero colocar é que preciso validar os dois com essa formatação no mesmo edit...

eis a função que estou usando

function DeletaCaract(texto, excluir : string ) : string;
begin

while Pos(excluir, texto) > 0 do
Delete(texto, Pos(excluir, texto), 1);
result := texto;

end;
{formata CNPJ/CPF inserindo simbolos necessários}
Function Formata_CNPJ_CPF(Texto: String): String;
Begin

// Limpar simbolos padrões do CNPJ e CPF
Texto:=DeletaCaract(Texto,'-');
Texto:=DeletaCaract(Texto,'/');
Texto:=DeletaCaract(Texto,'.');

// 14 digitos significa CNPJ
If length(Texto)=14 then
begin

result :=
copy(Texto, 1, 2) + '.' +
copy(Texto, 3, 3) + '.' +
copy(Texto, 6, 3) + '/' +
copy(Texto, 9, 4) + '-' +
copy(Texto, 13, 2);
end;

// 11 digitos significa CPF
If length(Texto)=11 then
begin

result := copy(Texto, 1, 3) + '.' +
copy(Texto, 4, 3) + '.' +
copy(Texto, 7, 3) + '-' +
copy(Texto, 10, 2);



End;
{ excluir caractere especifico }

end;


e no evento onexit do EDIT para formatação estou usando assimmm.....

dm.table1.FieldByName('CPFCNPJ').AsString := Formata_CNPJ_CPF(dm.table1.FieldByName('CPFCNPJ').AsString);


ele formata correto...agora so falta verificar os dois se são validos...aguardo a ajuda...de vcs....


Att mr.solutions.

[naldosouza]

coloque um Combobox1 e um MaskEdit
no combobox1 coloque FISICA
JURIDICA
--------------------------------------------------------------------------------
function TestaCNPJ(const cCNPJ: string): boolean;
var
i, soma, mult: integer;
CGC: string;
begin
ChkCNPJ := false;
CGC := LimpaString(cCNPJ);
if Length(CGC) <14> 9 then mult := 2;
end;
mult := soma mod 11;
if mult <= 1 then mult := 0 else mult := 11 - mult;
if mult <CharToInt> 9 then mult := 2;
end;
mult := soma mod 11;
if mult <= 1 then mult := 0 else mult := 11 - mult;
ChkCNPJ := mult = CharToInt(CGC[14]);
end;

--------------------------------------------------------------
function TestaCpf( xCPF:String ):Boolean;
{Testa se o CPF é válido ou não}
Var
d1,d4,xx,nCount,resto,digito1,digito2 : Integer;
Check : String;
Begin
d1 := 0; d4 := 0; xx := 1;
for nCount := 1 to Length( xCPF )-2 do
begin
if Pos( Copy( xCPF, nCount, 1 ), '/-.' ) = 0 then
begin
d1 := d1 + ( 11 - xx ) * StrToInt( Copy( xCPF, nCount, 1 ) );
d4 := d4 + ( 12 - xx ) * StrToInt( Copy( xCPF, nCount, 1 ) );
xx := xx+1;
end;
end;
resto := (d1 mod 11);
if resto < 2 then
begin
digito1 := 0;
end
else
begin
digito1 := 11 - resto;
end;
d4 := d4 + 2 * digito1;
resto := (d4 mod 11);
if resto < 2 then
begin
digito2 := 0;
end
else
begin
digito2 := 11 - resto;
end;
Check := IntToStr(Digito1) + IntToStr(Digito2);
if Check <> copy(xCPF,succ(length(xCPF)-2),2) then
begin
Result := False;
end
else
begin
Result := True;
end;
end;

-----------------------------------------------------------------------------
if combobox1.Text='FISICA' then
begin
MaskEdit1.EditMask:='999.999.999-99;0;_';
MaskEdit1.Text:=DadoCPFCNPJ.ASString;
TestaCpf(MaskEdit1.Text);
abort;
end;
if combobox1.Text='JURIDICA' then
begin
MaskEdit1.EditMask:='99999999/9999-99;0;_';
MaskEdit1.Text:=DadoCPFCNPJ.ASString;
TestaCNPJ(MaskEdit1.Text);
abort;
end;

-----------------------------------------------------------------

[mr.solutions]

[mr.solutions]

[mr.solutions]

[valdoedri]

Formatar CPF

[mr.solutions]

[mr.solutions]

ola pessoal ninguem tem nenhum exemplo não???

[Tusa]

Como faço para usar uma function.

Em qual evento devo incluir.