Power Builder - validar rut en power builder

necesito el codigo para la validacion de rut en power bulderi

funciona asi ingreso el rut en dle_.text y despues presiono en boton para manadarlo a datawindows

Supongo que te refieres al ruc (11 dígitos)

Primero te recomiendo que utilices un EditMask y le das una mascara '00000000000' de esta manera siempre habra 11 dígitos para que lo puedas pasar a tu dw

Suerte!

Una aclaracion : el RUT es para Chile, y el RUC para Peru.
En Chile , RUT Nº 12000000-0, su equivalente en Peru es RUC Nº 120000000, la diferencia es que el dv de chile se añade al numero en Peru.
No se que sucede cuando el dv de Chile es K.

// Parametro de entrada --> rut de tipo string (ej. Para el rut 12000000-0,
// lo que se manda a esta funcion es 12000000 )
// retorna --> dv de tipo string

integer resto,i
string factor, dv
integer suma

if len(string(rut))=8 then
factor='32765432';
else
factor='2765432';
end if

i=1;
suma=0;

do while i<=10
suma=suma+integer(mid(string(rut),i,1))*integer(mid(factor,i,1))
i=i+1
loop
resto=MOD(suma,11)
if resto=1 then
dv='K'
else
if resto=0 then
dv='0'
else
dv=string(11 - resto)
end if
end if
if dv <> "" then
ib_rutok=true
//MessageBox("Error", dv)
return dv

else
//MessageBox("Error", "DV no válido.", StopSign!, OK!)
ib_rutok=false
return ''

end if
//// FIN

Saludos