Re: [delphi-br] Validação CPF e CNPJ

2004-12-03 Por tôpico Florentino - Agrosoft 


Tá na mão

- Original Message - 
From: "Valcir José Tasquim" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Wednesday, December 01, 2004 1:17 PM
Subject: [delphi-br] Validação CPF e CNPJ



Boa Tarde

Será que alguem teria a programação para validação de CPF e CNPJ.

Grato

Tasquim

Verifica validade de CGC e CPF

unit CPFeCGC;

interface
function cpf(num: string): boolean;
function cgc(num: string): boolean;

implementation

uses SysUtils;

function cpf(num: string): boolean;
var
 n1,n2,n3,n4,n5,n6,n7,n8,n9: integer;
 d1,d2: integer;
 digitado, calculado: string;
begin
 n1:=StrToInt(num[1]);
 n2:=StrToInt(num[2]);
 n3:=StrToInt(num[3]);
 n4:=StrToInt(num[4]);
 n5:=StrToInt(num[5]);
 n6:=StrToInt(num[6]);
 n7:=StrToInt(num[7]);
 n8:=StrToInt(num[8]);
 n9:=StrToInt(num[9]);
 d1:=n9*2+n8*3+n7*4+n6*5+n5*6+n4*7+n3*8+n2*9+n1*10;
 d1:=11-(d1 mod 11);
 if d1>=10 then d1:=0;
 d2:=d1*2+n9*3+n8*4+n7*5+n6*6+n5*7+n4*8+n3*9+n2*10+n1*11;
 d2:=11-(d2 mod 11);
 if d2>=10 then d2:=0;
 calculado:=inttostr(d1)+inttostr(d2);
 digitado:=num[10]+num[11];
 if calculado=digitado then
   cpf:=true
  else
   cpf:=false;
end;

function cgc(num: string): boolean;
var
 n1,n2,n3,n4,n5,n6,n7,n8,n9,n10,n11,n12: integer;
 d1,d2: integer;
 digitado, calculado: string;
begin
 n1:=StrToInt(num[1]);
 n2:=StrToInt(num[2]);
 n3:=StrToInt(num[3]);
 n4:=StrToInt(num[4]);
 n5:=StrToInt(num[5]);
 n6:=StrToInt(num[6]);
 n7:=StrToInt(num[7]);
 n8:=StrToInt(num[8]);
 n9:=StrToInt(num[9]);
 n10:=StrToInt(num[10]);
 n11:=StrToInt(num[11]);
 n12:=StrToInt(num[12]);
 d1:=n12*2+n11*3+n10*4+n9*5+n8*6+n7*7+n6*8+n5*9+n4*2+n3*3+n2*4+n1*5;
 d1:=11-(d1 mod 11);
 if d1>=10 then d1:=0;
 d2:=d1*2+n12*3+n11*4+n10*5+n9*6+n8*7+n7*8+n6*9+n5*2+n4*3+n3*4+n2*5+n1*6;
 d2:=11-(d2 mod 11);
 if d2>=10 then d2:=0;
 calculado:=inttostr(d1)+inttostr(d2);
 digitado:=num[13]+num[14];
 if calculado=digitado then
   cgc:=true
  else
   cgc:=false;
end;

end.







-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

Re: RES: [delphi-br] Validação CPF e CNPJ

2004-12-03 Por tôpico \[> Mutuka <\] 
;
  n4 := StrToInt(num[4]);
  n5 := StrToInt(num[5]);
  n6 := StrToInt(num[6]);
  n7 := StrToInt(num[7]);
  n8 := StrToInt(num[8]);
  n9 := StrToInt(num[9]);
  d1 := n9 * 2 + n8 * 3 + n7 * 4 + n6 * 5 +
n5 * 6 + n4 * 7 + n3 * 8 +
n2 * 9 + n1 * 10;
  d1 := 11-(d1 mod 11);
  if d1 >= 10 then
 d1 := 0;
  d2 := d1 * 2 + n9 * 3 + n8 * 4 + n7 * 5 +
n6 * 6 + n5 * 7 + n4 * 8 +
n3 * 9 + n2 * 10 + n1 * 11;
  d2 := 11 - (d2 mod 11);
  if d2 >= 10 then
 d2 := 0;
  calculado := IntToStr(d1) + IntToStr(d2);
  digitado  := num[10] + num[11];
  if calculado = digitado then
 ValidaCPF := True
  else
  begin
 ValidaCPF := False;
 messagebox(application.handle,'CPF
inválido!','Erro', MB_OK or
MB_ICONERROR);
  end;
   end;
end;

  -Mensagem original-
  De: Valcir José Tasquim
[mailto:[EMAIL PROTECTED]
  Enviada em: quarta-feira, 1 de dezembro de 2004
13:18
  Para: [EMAIL PROTECTED]
  Assunto: [delphi-br] Validação CPF e CNPJ


  Boa Tarde

  Será que alguem teria a programação para
validação de CPF e CNPJ.

  Grato

  Tasquim


  [As partes desta mensagem que não continham
texto foram removidas]



  --
  <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER
ESTA MENSAGEM >>>>>

  Para ver as mensagens antigas, acesse:
 
http://br.groups.yahoo.com/group/delphi-br/messages

  Para falar com o moderador, envie um e-mail
para:
  [EMAIL PROTECTED] ou
[EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por:

São Paulo Rio de Janeiro
Curitiba Porto Alegre Belo
Horizonte Brasília





--
  Links do Yahoo! Grupos

a.. Para visitar o site do seu grupo na web,
acesse:
http://br.groups.yahoo.com/group/delphi-br/

b.. Para sair deste grupo, envie um e-mail
para:
[EMAIL PROTECTED]

c.. O uso que você faz do Yahoo! Grupos está
sujeito aos Termos do
Serviço do Yahoo!.



---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system
(http://www.grisoft.com).
Version: 6.0.789 / Virus Database: 534 - Release
Date: 07/11/2004


[As partes desta mensagem que não continham texto
foram removidas]



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA
MENSAGEM >>>>>

Para ver as mensagens antigas, acesse:

http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou
[EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por: 


   function
SearchComboBox() { if
(document.form_combo.keyword.value.length==0){ 
alert("Por favor, digite algo.");  return false;
}else {  document.form_combo.action
="http://br.rd.yahoo.com/SIG=12acjc6oj/M=264105.3931087.6562589.1588051/D=brclubs/S=2137111264:HM/EXP=1102012619/A=2361264/R=0/SIG=11uaou2jn/*http://www.bondfaro.com/bondfaro/in/combosearch_in.jsp?sk=11";;
} return true;}  
   [input]   
[input][input]   
   

-
Links do Yahoo! Grupos

   Para visitar o site do seu grupo na web,
acesse:
http://br.groups.yahoo.com/group/delphi-br/
 
   Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
 
   O uso que você faz do Yahoo! Grupos está
sujeito aos Termos do Serviço do Yahoo!.
 

=

   Leandro...

[> Mutuka <]  






___ 
Yahoo! Mail - Agora com 250MB de espaço gratuito. Abra 
uma conta agora! http://br.info.mail.yahoo.com/


-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

RES: [delphi-br] Validação CPF e CNPJ

2004-12-01 Por tôpico Eduardo Silva ® 

function ValidaCPF(num:string): Boolean;
var
   n1,n2,n3,n4,n5,n6,n7,n8,n9 : integer;
   d1,d2  : integer;
   digitado, calculado: String;
begin
   if num = '000' then
   begin
  ValidaCPF := False;
  messagebox(application.handle,'CPF inválido!','Erro', MB_OK or
MB_ICONERROR);
   end
   else
   if num = '111' then
   begin
  ValidaCPF := False;
  messagebox(application.handle,'CPF inválido!','Erro', MB_OK or
MB_ICONERROR);
   end
   else
   if num = '222' then
   begin
  ValidaCPF := False;
  messagebox(application.handle,'CPF inválido!','Erro', MB_OK or
MB_ICONERROR);
   end
   else
   if num = '333' then
   begin
  ValidaCPF := False;
  messagebox(application.handle,'CPF inválido!','Erro', MB_OK or
MB_ICONERROR);
   end
   else
   if num = '444' then
   begin
  ValidaCPF := False;
  messagebox(application.handle,'CPF inválido!','Erro', MB_OK or
MB_ICONERROR);
   end
   else
   if num = '555' then
   begin
  ValidaCPF := False;
  messagebox(application.handle,'CPF inválido!','Erro', MB_OK or
MB_ICONERROR);
   end
   else
   if num = '666' then
   begin
  ValidaCPF := False;
  messagebox(application.handle,'CPF inválido!','Erro', MB_OK or
MB_ICONERROR);
   end
   else
   if num = '777' then
   begin
  ValidaCPF := False;
  messagebox(application.handle,'CPF inválido!','Erro', MB_OK or
MB_ICONERROR);
   end
   else
   if num = '888' then
   begin
  ValidaCPF := False;
  messagebox(application.handle,'CPF inválido!','Erro', MB_OK or
MB_ICONERROR);
   end
   else
   if num = '999' then
   begin
  ValidaCPF := False;
  messagebox(application.handle,'CPF inválido!','Erro', MB_OK or
MB_ICONERROR);
   end
   else
   begin
  n1 := StrToInt(num[1]);
  n2 := StrToInt(num[2]);
  n3 := StrToInt(num[3]);
  n4 := StrToInt(num[4]);
  n5 := StrToInt(num[5]);
  n6 := StrToInt(num[6]);
  n7 := StrToInt(num[7]);
  n8 := StrToInt(num[8]);
  n9 := StrToInt(num[9]);
  d1 := n9 * 2 + n8 * 3 + n7 * 4 + n6 * 5 + n5 * 6 + n4 * 7 + n3 * 8 +
n2 * 9 + n1 * 10;
  d1 := 11-(d1 mod 11);
  if d1 >= 10 then
 d1 := 0;
  d2 := d1 * 2 + n9 * 3 + n8 * 4 + n7 * 5 + n6 * 6 + n5 * 7 + n4 * 8 +
n3 * 9 + n2 * 10 + n1 * 11;
  d2 := 11 - (d2 mod 11);
  if d2 >= 10 then
 d2 := 0;
  calculado := IntToStr(d1) + IntToStr(d2);
  digitado  := num[10] + num[11];
  if calculado = digitado then
 ValidaCPF := True
  else
  begin
 ValidaCPF := False;
         messagebox(application.handle,'CPF inválido!','Erro', MB_OK or
MB_ICONERROR);
  end;
   end;
end;

  -Mensagem original-
  De: Valcir José Tasquim [mailto:[EMAIL PROTECTED]
  Enviada em: quarta-feira, 1 de dezembro de 2004 13:18
  Para: [EMAIL PROTECTED]
  Assunto: [delphi-br] Validação CPF e CNPJ


  Boa Tarde

  Será que alguem teria a programação para validação de CPF e CNPJ.

  Grato

  Tasquim


  [As partes desta mensagem que não continham texto foram removidas]



  --
  <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

  Para ver as mensagens antigas, acesse:
  http://br.groups.yahoo.com/group/delphi-br/messages

  Para falar com o moderador, envie um e-mail para:
  [EMAIL PROTECTED] ou [EMAIL PROTECTED]



Yahoo! Grupos, um serviço oferecido por:

São Paulo Rio de Janeiro Curitiba Porto Alegre Belo
Horizonte Brasília





--
  Links do Yahoo! Grupos

a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.



---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.789 / Virus Database: 534 - Release Date: 07/11/2004


[As partes desta mensagem que não continham texto foram removidas]



-- 
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html

[delphi-br] Validação CPF e CNPJ

2004-12-01 Por tôpico Valcir José Tasquim 

Boa Tarde

Será que alguem teria a programação para validação de CPF e CNPJ.

Grato

Tasquim


[As partes desta mensagem que não continham texto foram removidas]



-- 
< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >

Para ver as mensagens antigas, acesse:
 http://br.groups.yahoo.com/group/delphi-br/messages

Para falar com o moderador, envie um e-mail para:
 [EMAIL PROTECTED] ou [EMAIL PROTECTED]
 
Links do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/

<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html