Código: Selecionar todos
// onde vg é o RUC digitado com 9 digitos
nBaseMax := 11
cNumero_al:= left(vg,8)
nDicer := substr(vg,9,1)
k := 2
aux:= 0
v_total:= 0
for i:= len(cNumero_al) to 1 step -1
if k > nBaseMax
k:= 2
endif
aux:= val(substr(cNumero_al, i, 1))
v_total:= v_total + (aux * k)
k:= k + 1
next i
resto:= mod(v_total, 11)
dv:= 0
if resto > 1
dv:= 11 - resto
endif
if nDicer # strzero(int(dv),1)
alert("RUC incorreto.")
endif
Código: Selecionar todos
cNumero_al:= left(vg,8)
nDicer := substr(vg,9,1)
Código: Selecionar todos
//
lRUCFisica := iif( len(alltrim(vg))=8, .t., .f. )
//
cNumero_al:= left(vg,iif( lRUCFisica, 7, 8 ))
nDicer := substr(vg,iif( lRUCFisica, 8, 9 ),1)
Código: Selecionar todos
if nDicer # strzero(int(dv),1)
alert("RUC "+iif( lRUCFisica, "Fisico", "Juridico" )+" incorreto.")
endif
Código: Selecionar todos
resto:= mod(v_total, 11)
dv:= 0
if resto > 1
dv:= 11 - resto
endif
Código: Selecionar todos
// Funcion para calcular el digito verificador de un ruc - py
// @author en PL/SQL: www.set.gov.py
// @author en Power Builder: Robert Galeano Fernandez - rgfpy - www.sourcepy.com
/*
ARGUMENTOS
Arg1(string): vruc: numero de cedula o numero de ruc sin dv
Arg2(integer): vbase_max: numero max que puede obtener el digito verificador
Return: retorna el numero de digito verificador
*/
double vnuevo_ruc_aux = 0
double vresto
long i1
long k = 2
string vnuevo_ruc
string vletra_ruc
integer vdigito
// generamos nuevo ruc, comprobamos si el caracter obtenido es numerico o string si es string convertimos en su valor ascii
FOR i1 = 1 to len(vruc)
vletra_ruc = upper(mid(vruc,i1,1))
IF not (vletra_ruc >= "0" and vletra_ruc <= "9") then
vnuevo_ruc += string(asc(vletra_ruc))
ELSE
vnuevo_ruc += vletra_ruc
END IF
NEXT
// generamos el nuevo numero de ruc aux partiendo en orden DESC de acuerdo al nuevo ruc generado, tomando cada letra en el ciclo y multiplicarlo por el acumulador k
FOR i1 = len(vnuevo_ruc) to 1 step -1
IF k > vbase_max then k = 2
vnuevo_ruc_aux += integer(mid(vnuevo_ruc,i1,1)) * k
k += 1
NEXT
// obtener el resto de la division de vnuevo_ruc_aux entre 11
vresto = mod(vnuevo_ruc_aux, 11)
// si el resto es mayor a 1 restamos con 11 sino igualamos a 0
IF vresto > 1 then
vdigito = 11 - vresto
ELSE
vdigito = 0
END IF
return vdigito