Moderador: Moderadores
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 resultCó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