GeneXus - URGENTE ¡¡validar rut en genexus

Necesito validar los rut en una subrutina en genexus 7.5..Por favor la necesito urgente...Quien me ayude se lo agradesco...Chauup

-----------------------------------------------------------------------------------------------
SOURCE:
--------------
&Rut = &r
&Dife = 0
&suma = 0
&I = 2
Do While &Rut <> 0
&R10 = &Rut / 10
&R10 = int(&R10)
&Char = &Rut - &R10 * 10
&R10 = &Rut / 10
&R10 = int(&R10 )
&Rut = &R10
&suma = &suma + &I * &Char
&I = &I + 1
If &I = 8
&I = 2
Endif
Enddo

&R10 = &suma / 11
&R10 = int(&R10)
&Dife = &suma - &R10 * 11
&Dife = 11 - &Dife

If &Dife < 10
&Dv = str(&Dife ,1,0)
Endif

If &Dife = 10
&Dv = 'K'
Endif

If &Dife = 11
&Dv = '0'
Endif
------------------------------------------------------------------------------------
RULES:
---
parm(&r, out:&Dv);
------------------------------------------------------------------------------------

estimados
intente hacer correr correr este codigo en genexus y no pasa nada
quisas yo lo estoy aplicando de mala forma
soy nuevo en esto
cree el procedimiento
lo copie
inserte la regla q aparece
y no se ejecuta
me aparece un error
al momento de presionar F5

este es el erros q me aparece

Specifying Procedure1 (1 of 1) ...
error: Type mismatch in assignment: &Dv = str(&Dife,1,0) (Numeric=Character).
error: Type mismatch in assignment: &Dv = 'K' (Numeric=Character).
error: Type mismatch in assignment: &Dv = '0' (Numeric=Character).
Processing inferred calls...
Specification Failed


saludos foristas

Hola hector, yo estoy con el mismo problema que tu, te pido si lo solucionas me ayudes porfavor, Saludos

Mi correo es : [email protected]

jajaja. ok ricardo
si llego a solucionar esto te envio lo q tengo para q tu tambien soluciones el tuyo
no se xq %$&/((%#" me meti en esto de la programacion jajaj,saludos