PC Toledo

Código: Selecionar todos

//**********************************************************
function ValidCNHtg(cNro) // validação do número tipográfico
local d
if Val(cNro) = 0
   return .F.
end
d := 11-Val(Left(cNro,8))%11
return if(d<=9,d,0) = Val(Right(cNro,1))

Código: Selecionar todos

PARAMETERS xCnh
IF xCnh=NIL
   ? "Falta parƒmetro"
   QUIT
ELSE
   nCnh:=VAL(xCnh)
ENDIF
IF valida_new_cnh(nCnh) .or. valida_old_cnh(nCnh)
   ? "CNH OK"
ELSE
   ? "CNH INCORRETO"
ENDIF

function valida_new_cnh(nCnh)
Result := .F.
NumIguais := .T.
cCnh := strzero(nCnh,11,0)
Soma := 0
// Validando se todos o numeros sao iguais
for i := 2 to len(cCnh)-1
    if !(substr(cCnh,1,1) = substr(cCnh,i,1))
       NumIguais := .F.
    endif
next
if NumIguais
   RETURN Result
endif
for i := 1 to len(cCnh)-2
    Soma := Soma + (val(substr(cCnh,i,1)) * (i + 1))
next
Conta := (Soma / 11) * 11
if (Soma - Conta) < 2
   Dv := 0
else
   Dv := 11 - (Soma - Conta)
endif
Digito := val(substr(cCnh,10,1))
if Digito = Dv
   Result := .T.
endif
RETURN Result

function valida_old_cnh(nCnh)
Result := .F.
NumIguais := .T.
cCnh := strzero(nCnh,9,0)
Soma := 0

// Validando se todos o numeros sao iguais
for i := 2 to len(cCnh)-1
    if !(substr(cCnh,1,1) = substr(cCnh,i,1))
       NumIguais := .F.
    endif
next
if NumIguais
   RETURN Result
endif
for i := 1 to len(cCnh)-1
    Soma := Soma + (val(substr(cCnh,i,1)) * (i + 1))
next
Digito := val(substr(cCnh,9,1))
Conta := mod(Soma,11)
if Conta = 10
   Conta := 0
endif
if Digito = Conta
   result := .T.
endif
RETURN result

Código: Selecionar todos

/*
Autor......: cps.art - Membro Pleno do http://forum.devmedia.com.br/
Comentários: Só as CNHs novas, com número de registro de 11 dígitos.
*/
FUNCTION VRegCnh(PVRegCnh : string) : string; stdcall;

var
j, Mult, Soma, Digito1, Digito2, Incr_dig2: integer;
CNH_Forn, Dig_Forn, Dig_Enc : string;

begin
Result := 'F';

if length(Trim(PVRegCnh)) < 11 then
Exit;

CNH_Forn := Copy(PVRegCnh,1,9);

Dig_Forn := Copy(PVRegCnh,10,2);

Incr_Dig2 := 0;


Soma := 0;
Mult := 9;
for j := 1 to 9 do
begin
Soma := Soma + (StrToInt(CNH_Forn[j]) * Mult);
Mult := Mult - 1;
end;
Digito1 := Soma Mod 11;
if Digito1 = 10 then
begin
Incr_Dig2 := -2;
end;
if Digito1 > 9 then
begin
Digito1 := 0;
end;


Soma := 0;
Mult := 1;
for j := 1 to 9 do
begin
Soma := Soma + (StrToInt(CNH_Forn[j]) * Mult);
Mult := Mult + 1;
end;

if (Soma Mod 11) + Incr_Dig2 < 0 then
begin
Digito2 := 11 + (Soma Mod 11) + Incr_Dig2;
end;

if (Soma Mod 11) + Incr_Dig2 >= 0 then
begin
Digito2 := (Soma Mod 11) + Incr_Dig2;
end;


if Digito2 > 9 then
begin
Digito2 := 0;
end;

Dig_Enc := IntToStr(Digito1)+IntToStr(Digito2);

if Dig_Forn = Dig_enc then
begin
Result := 'V';
end;

if Dig_Forn <> Dig_enc then
begin
Result := 'F';
end;

end;

Código: Selecionar todos

/*
Autor......: cps.art - Membro Pleno do http://forum.devmedia.com.br/
Comentários: função para checar números de CNHs antigas, os PGUs.
*/

FUNCTION VPguCnh(PVPguCnh : string) : string; stdcall;

var
j, Mult, Soma, Digito : integer;
PGU_Forn, Dig_Forn, Dig_Enc : string;

begin

Result := 'F';

if length(Trim(PVPguCnh)) <> 9 then
Exit;

PGU_Forn := Copy(PVPguCnh,1,8);

Dig_Forn := Copy(PVPguCnh,9,1);


Soma := 0;
Mult := 2;
for j := 1 to 8 do
begin
Soma := Soma + (StrToInt(PGU_Forn[j]) * Mult);
Mult := Mult + 1;
end;
Digito := Soma Mod 11;

if Digito > 9 then
begin
Digito := 0;
end;


Dig_Enc := IntToStr(Digito);


if Dig_Forn = Dig_enc then
begin
Result := 'V';
end;

if Dig_Forn <> Dig_enc then
begin
Result := 'F';
end;

end;

Código: Selecionar todos

PARAMETERS xCnh
IF xCnh=NIL
   ? "Falta parametro"
   QUIT
ELSE
   xCnh:=SO_NUMEROS(xCnh)
ENDIF
IF VER_PGU(xCnh) .or. VER_CNH(xCnh)
   ? "CNH OK"
ELSE
   ? "CNH INCORRETO"
ENDIF



FUNCTION VER_PGU(cPgu)
Result := .F.
if !(len(alltrim(cPgu)) = 9)
   Return Result
endif
PGU_Forn := substr(cPgu,1,8)
Dig_Forn := substr(cPgu,9,1)
Soma := 0
Mult := 2
for j := 1 to 8
    Soma := Soma + (val(substr(PGU_Forn,j,1)) * Mult)
    Mult := Mult + 1
next
Digito := int(mod(Soma,11))
if Digito > 9
   Digito := 0
endif
Dig_Enc := alltrim(Str(Digito))
if Dig_Forn = Dig_enc
   Result := .T.
endif
if Dig_Forn <> Dig_enc
   Result := .F.
endif
Return Result

FUNCTION VER_CNH(cCnh)
Result := .F.
if !(len(alltrim(cCnh))) = 11
   Return Result
endif
CNH_Forn := substr(cCnh,1,9)
Dig_Forn := substr(cCnh,10,2)
Incr_Dig2 := 0
Soma := 0
Mult := 9
for j := 1 to 9
    Soma := Soma + (val(substr(CNH_Forn,j,1)) * Mult)
    Mult := Mult - 1
next
Digito1 := int(mod(Soma,11))
if Digito1 = 10
   Incr_Dig2 := -2
endif
if Digito1 > 9
   Digito1 := 0
endif
Soma := 0
Mult := 1
for j := 1 to 9
    Soma := Soma + (val(substr(CNH_Forn,j,1)) * Mult)
    Mult := Mult + 1
next
if int(mod(Soma,11)) + Incr_Dig2 < 0
   Digito2 := 11 + int(mod(Soma,11)) + Incr_Dig2
endif
if int(mod(Soma,11)) + Incr_Dig2 >= 0
   Digito2 := int(mod(Soma,11)) + Incr_Dig2
endif
if Digito2 > 9
   Digito2 := 0
endif
Dig_Enc := alltrim(str(Digito1))+alltrim(str(Digito2))
if Dig_Forn = Dig_enc
   Result := .T.
endif
if !(Dig_Forn = Dig_enc)
   Result := .F.
endif
Return Result

FUNCTION SO_NUMEROS(xCnh)
cNums:=""
for u=1 to len(xCnh)
    if isdigit(substr(xCnh,u,1))
       cNums:=cNums+substr(xCnh,u,1)
    endif
next
Return cNums