01/07/2006, 18:29
|
| | | Fecha de Ingreso: marzo-2004 Ubicación: EN EL INFIERNO.....
Mensajes: 1.707
Antigüedad: 20 años, 7 meses Puntos: 7 | |
ya resolvi el problema era una cosa totalmente diferente, que es la persona que mando la funcion es muy chanta asi que habia que arreglar, asi que aqui va la respuesta de un validador de rut chileno ne pl/sql, por si ha alguien le sirve
create or replace function "VALIDARUT"
(p_dig_rut in VARCHAR2,
p_rut in VARCHAR2)
return VARCHAR2
is
v_rut varchar2(10) := substr(lpad(p_rut,9,'0'),1,10);
v_res number(2);
v_val varchar2(10);
v_dig varchar2(1);
begin
v_res := 11 - mod(to_number(substr(v_rut,1,1)) * 4 + to_number(substr(v_rut,2,1)) * 3 + to_number(substr(v_rut,3,1)) * 2 + to_number(substr(v_rut,4,1)) * 7 + to_number(substr(v_rut,5,1)) * 6 + to_number(substr(v_rut,6,1)) * 5 + to_number(substr(v_rut,7,1)) * 4 + to_number(substr(v_rut,8,1)) * 3 + to_number(substr(v_rut,9,1)) * 2, 11);
if v_res = 10 then
v_dig := 'K';
elsif v_res = 11 then
v_dig := '0';
else
v_dig := ltrim(v_res);
end if;
if v_dig = p_dig_rut then
v_val:='SI';
else
v_val:='NO';
end if;
return v_val;
exception
when others then
return 'NO';
end VALIDARUT;
-- validar
__________________ :-D "Que se libere del cielo confinado; que mi cuerpo sea la espada de hielo negro que nos lleve al abismo; que ningún poder pueda detenernos...Destructora de las almas de los dioses!!!":adios:
:pirata: |