Chilenos¡¡ Alguien sabe el ASP para RUT

malex6 · #1 (**permalink**) 22/01/2002, 16:23

perdon por personalizar solo a los chilenos,
la razon es que en chile la mejor forma de validar a una usuario es por su RUT ya que es unico,,asi es que:

¿QUIEN SABE EL CODIGO PARA VALIDAR EL RUT?

de antemano gracias

y VIVA Chile M...

legolas · #2 (**permalink**) 22/01/2002, 16:27

Hola,
no lo tengo en ASP, pero tal vez te sirva este en C (lo puedes adaptar):

int main()
{
int resta,n1,n2,n3,n4,n5,n6,n7,n8,sum,resto,n;
char dv;
printf("Ingrese Rut de 8 digitos, si es de menor cantidad anteponga 0 : \n");
scanf("%d",&n1);scanf("%d" ,&n2);scanf("%d",&n3);scanf(&quo t;%d",&n4);scanf("%d",&n5);
scanf("%d",&n6);scanf("%d" ,&n7);scanf("%d",&n8);
scanf("%s",&dv);n = atoi(&dv);
sum = ((n1*3)+(n2*2)+(n3*7)+(n4*6)+(n5*5)+(n6*4)+(n7*3)+ (n8*2));
resta = 11-(sum%11);
if (resta > 10) {
if (n == 0) printf("RUT CORRECTO\n");
else printf("RUT INCORRECTO\n"); }
if (resta < 10) {
if (n == resta) printf("RUT CORRECTO\n");
else printf("RUT INCORRECTO\n"); }
if (resta == 10) {
if (dv == 'k'|| dv =='K') printf("RUT CORRECTO\n");
else printf("RUT INCORRECTO\n"); }
system("PAUSE");
return 0;

Espero que sirva ;)

malex6 · #3 (**permalink**) 22/01/2002, 16:33

perdon la ignorancia, que es "C"?

gracias

legolas · #4 (**permalink**) 22/01/2002, 16:50

un lenguaje de programación, del cual "derivan" java, javascript y otros. Si no entiendes la sintaxis, puedo tratar de modificarlo a ASP, pero seguramente te lo podré pasar mañana.

Saludos ;)

malex6 · #5 (**permalink**) 22/01/2002, 16:54

seria extraordinario,
dime tu como te ubico o lo colocas Aqui?

legolas · #6 (**permalink**) 22/01/2002, 16:55

ubícame por icq o ami correo, aunque lo publicaré a penas tenga el código ;)

malex6 · #7 (**permalink**) 22/01/2002, 16:59

y cual es tu correo?

el mio es [email protected]

GRANDE LEGOLAS TE MERECERIAS UNA BUENA BOTELLA DE VINO...

malex6 · #8 (**permalink**) 22/01/2002, 17:07

PERDON, con la emocion se me olvida que esta en tus datos de usuario del foro,
por si las moscas¡¡¡
esta bien ese?

legolas · #9 (**permalink**) 22/01/2002, 17:08

son correctos :)

Cain69 · #10 (**permalink**) 22/01/2002, 19:20

ese código se puede emplear en visual Basic??

Se despide, un amigo.

*<embed width="200HEIGHT=50" height="50" quality="high" bgcolor="#ffffff" src="http://galeon.com/cain81/cain1.swf"></embed>

bakanzipp · #11 (**permalink**) 23/01/2002, 10:02

aunke este no es un foro de visual basic, no esta demas brindarle la mano a un colega chileno que lo necesite...espero ke lo aproveches.

Son dos text, en el primero va el rut (sin digito verificar) y el segundo text va el digito verificador. Se activa usando el keypress y el lostfocus de los text

<pre>
Private Sub Tex_DvCli_KeyPress(KeyAscii As Integer)
Dim q As Control
Dim d As String
Dim LC_Digito

If KeyAscii <> 8 Then
LC_Digito = Tex_RutCli.Text & "-" & Chr(KeyAscii)
If Len(LC_Digito) >= 12 Then
d = ""
For i = 1 To 12
If Mid(LC_Digito, i, 1) <> "." Then
d = d & Mid(LC_Digito, i, 1)
End If
Next i
If Valida_Rut(d, q) = 3 Then
MsgBox "Error, RUT no Válido", vbCritical, "Maestro Cliente"
Tex_RutCli.Text = ""
Tex_DvCli.Text = ""
KeyAscii = 0
Tex_RutCli.SetFocus
End If
End If
End If
End Sub
</pre>

De ahi viene la 2da parte

bakanzipp · #12 (**permalink**) 23/01/2002, 10:03

2da parte:

Private Sub Tex_RutCli_LostFocus()
If Tex_RutCli.Text <> "" Then
LC_Rut = CLng(Tex_RutCli)
Select Case Len(Tex_RutCli.Text)
Case 1
Tex_RutCli.Text = "00.000.00" & Tex_RutCli.Text
Tex_RutCli.SelStart = Len(Tex_RutCli.Text)
Case 2
Tex_RutCli.Text = "00.000.0" & Tex_RutCli.Text
Tex_RutCli.SelStart = Len(Tex_RutCli.Text)
Case 3
Tex_RutCli.Text = "00.000." & Tex_RutCli.Text
Tex_RutCli.SelStart = Len(Tex_RutCli.Text)
Case 4
Tex_RutCli.Text = "00.00" & Mid$(Tex_RutCli.Text, 1, 1) _
& "." & Mid$(Tex_RutCli.Text, 2, Len(Tex_RutCli.Text))
Tex_RutCli.SelStart = Len(Tex_RutCli.Text)
Case 5
Tex_RutCli.Text = "00.0" & Mid$(Tex_RutCli.Text, 1, 2) _
& "." & Mid$(Tex_RutCli.Text, 3, Len(Tex_RutCli.Text))
Tex_RutCli.SelStart = Len(Tex_RutCli.Text)
Case 6
Tex_RutCli.Text = "00." & Mid$(Tex_RutCli.Text, 1, 3) _
& "." & Mid$(Tex_RutCli.Text, 4, Len(Tex_RutCli.Text))
Tex_RutCli.SelStart = Len(Tex_RutCli.Text)
Case 7
Tex_RutCli.Text = "0" & Mid$(Tex_RutCli.Text, 1, 1) _
& "." & Mid$(Tex_RutCli.Text, 2, 3) & "." & Mid$(Tex_RutCli.Text, 5, Len(Tex_RutCli.Text))
Tex_RutCli.SelStart = Len(Tex_RutCli.Text)
Case 8
Tex_RutCli.Text = Mid$(Tex_RutCli.Text, 1, 2) & "." & Mid$(Tex_RutCli.Text, 3, 3) _
& "." & Mid$(Tex_RutCli.Text, 6, Len(Tex_RutCli.Text))
Tex_RutCli.SelStart = Len(Tex_RutCli.Text)
End Select
End If
End Sub

;) nos vimos

malex6 · #13 (**permalink**) 23/01/2002, 10:48

gracisa amigo ya lo estoy imprimiendo haber que puedo hacer con el...

de paso busco a Legolas haber si nos puede ayudar con el de ASP.

VIVA CHILE M... :P

bakanzipp · #14 (**permalink**) 23/01/2002, 11:05

legolas....fue compañero de carrera...
keris el valida rut en asp tambien...aki va..
(parece ke te sacaste el premio hoy dia)
1ra parte:

<pre>
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<html>

<head>
<script>
function validaDV( strDV )

{
dv = strDV + ""
if ( dv != '0' && dv != '1' && dv != '2' && dv != '3' && dv != '4' && dv != '5' && dv != '6' && dv != '7' && dv != '8' && dv != '9' && dv != 'k' && dv != 'K')
return false;

return true;
}
function chequeaDV(thisRut)

{

var strRut = quitaFormatoRut(thisRut.value);
var i;

if (thisRut.value =="")
return false;

largo = strRut.length;

if ( largo < 2 )
{
alert("Debe ingresar el rut completo")
thisRut.focus();
thisRut.select();
return false;
}

if ( largo > 2 )
strRutSD = strRut.substring(0, largo - 1);
else
strRutSD = strRut.charAt(0);

strDv = strRut.charAt(largo-1);
if (!validaDV( strDv ))
{
alert("Su digito validador del rut " + thisRut.value + " es incorrecto")
thisRut.focus();
thisRut.select();
return false
}

if ( strRutSD == null || strDv == null )
return 0

var dvr = '0'

intSuma = 0
intFactor = 2

for (i= strRutSD.length -1 ; i >= 0; i--)
{
intSuma = intSuma + strRutSD.charAt(i) * intFactor
if (intFactor == 7)
intFactor = 2
else
intFactor++
}

intResto = intSuma % 11
if (intResto == 1)
dvr = 'k'
else if (intResto == 0)
dvr = '0'
else
{
dvi = 11 - intResto
dvr = dvi + ""
}

if ( dvr != dv.toLowerCase() )
{
alert("EL rut " + thisRut.value + " es incorrecto")
thisRut.focus();
thisRut.select();
return false
}

return true

}

</pre>

bakanzipp · #15 (**permalink**) 23/01/2002, 11:06

2da parte:

<pre>
function formateaRut(thisRut)

{
var tmpstr = "";
var strRut = thisRut.value
var i

//alert(thisRut.value)
if (thisRut.value == "")
return false;
for ( i=0; i < strRut.length ; i++ )
if ( strRut.charAt(i) != ' ' && strRut.charAt(i) != '.' && strRut.charAt(i) != '-' )
tmpstr = tmpstr + strRut.charAt(i);
strRut = tmpstr;
largo = strRut.length;

if ( largo < 2 )
{
alert("Debe ingresar el rut completo");
thisRut.focus();
thisRut.select();
return false;
}

for (i=0; i < largo ; i++ )
{
if ( strRut.charAt(i) !="0" && strRut.charAt(i) != "1" && strRut.charAt(i) !="2" && strRut.charAt(i) != "3" && strRut.charAt(i) != "4" && strRut.charAt(i) !="5" && strRut.charAt(i) != "6" && strRut.charAt(i) != "7" && strRut.charAt(i) !="8" && strRut.charAt(i) != "9" && strRut.charAt(i) !="k" && strRut.charAt(i) != "K" )
{
alert("El valor ingresado no corresponde a un R.U.T valido");
thisRut.focus();
thisRut.select();
return false;
}
}

var invertido = "";

for ( i=(largo-1),j=0; i>=0; i--,j++ )
invertido = invertido + strRut.charAt(i);

var dtexto = "";

dtexto = dtexto + invertido.charAt(0);
dtexto = dtexto + '-';
cnt = 0;

for ( i=1,j=2; i<largo; i++,j++ )
{
if ( cnt == 3 )
{
dtexto = dtexto + '.';
j++;
dtexto = dtexto + invertido.charAt(i);
cnt = 1;
}
else
{
dtexto = dtexto + invertido.charAt(i);
cnt++;
}
}

invertido = "";

for ( i=(dtexto.length-1),j=0; i>=0; i--,j++ )
invertido = invertido + dtexto.charAt(i);

thisRut.value = invertido;

if ( validaDV(strRut) )
return true;

return false;
}

</script>
</pre>

bakanzipp · #16 (**permalink**) 23/01/2002, 11:07

3ra parte:

<pre>
<title>Pagina de Pruebas</title>
</head>

<body>

<table border=0 align=right width=180>
<tr>
<td bgcolor=orange><font face=verdana size=1>Rut&nbsp;</font></td>
<td bgcolor=orange><font face=verdana size=1><INPUT type="text" id=text1 name=rut onchange="formateaRut(this); chequeaDV(this);" maxlength=15 size=12></font></td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>

</pre>

Buen Provecho.... :P

malex6 · #17 (**permalink**) 23/01/2002, 13:26

bakan Viejo Bakan...

legolas · #18 (**permalink**) 23/01/2002, 13:37

Viste.... te salvó mi cumpa bakanzipp. :)

malex6 · #19 (**permalink**) 23/01/2002, 13:44

Bakan gracias,

pero tengo una duda, tu codigo esta genial pero es mas parecido a javascript que a ASP,
me podrias aclarar?

gracias

bakanzipp · #20 (**permalink**) 23/01/2002, 14:24

jaaaa!!!...

sera porke sera javascrit.

generalmente se usa javascript ó vbscript (diferente a ASP) para validaciones y cosas asi, tu pediste un validar rut o consultar un rut en la b.d?...no lo tengo claro ahora ke hiciste esa acotacion.

Asp se utiliza para realizar transacciones sobre las bases de datos.

Sea vbscript ó javascript para validaciones da lo mismo, yo prefiero javascript porke es mas versátil y mas standard ...si quieres el validar rut en vbscript tendrás que poner de tu parte compadre....ahi es cuando empiezan a salir las canas verdes.
:P

malex6 · #21 (**permalink**) 23/01/2002, 14:42

este codigo esta super bueno y creo que me va a servir, y rectifico. no creo, estoy seguro me va a servir.

al mirar tu codigo el javascript no debiera empesar con <script language="javascript">, y si yo lo hiciera asi me funcionaria?, es decir si yo le colocara la frase language="javascript">
solo esta duda me quedo

agradecido

Malex6

bakanzipp · #22 (**permalink**) 23/01/2002, 14:52

si quieres asegurarte colocale language=javascript.

la verdad hace poco me di cuenta que basta colocar el javascript entre etiquetas que digan <script></script> para que funcionara.

no se si sera siempre o el compilador detecte que es codigo javscript y no vbscript, la verdad eso no lo se, quizas uno mas entendido del tema te pueda aclarar esa duda pero a mi asi como te lo envie me funciona de maravilla..

nos vimos

pd:a todo esto esta wendi lo de seguridad en internet, yo tb andaba buscando eso...lata ke dazuaga lo haya cambiado de foro.

saludos ;) (ke mala perdio el chino)

malex6 · #23 (**permalink**) 23/01/2002, 15:13

mala, pata la del chino...
pero que guevá
VIVA CHILE M...

Sir Matrix · #24 (**permalink**) 31/05/2002, 10:54

Cita:

la verdad hace poco me di cuenta que basta colocar el javascript entre etiquetas que digan <script></script> para que funcionara.

no se si sera siempre o el compilador detecte que es codigo javscript y no vbscript, la verdad eso no lo se,

Hola, está muy bueno el código felicidades, pero una aclaración. No está echo en ASP, sino en lenguaje de script (Javascript), del lado del cliente, es decir lo ejecuta el navegador de los visitantes. El ASP también puede estar hecho en Javascript o VBscript, pero ejecutado por el servidor, y va entre <% y %>.

saludos y gracias por el código

bakanzipp · #25 (**permalink**) 31/05/2002, 11:07

buena acotacion sir matrix...

aunke yo todavia me quedo con las validaciones usando codigo del cliente para no sobrecargar el servidor con estas peticiones y ASP para transacciones a la b.d.

;)

Sir Matrix · #26 (**permalink**) 31/05/2002, 11:19

hola, estuve probando el código y me da un error al inicio del javascript, en esta línea:

var strRut = quitaFormatoRut(thisRut.value);

Estuve tratando de meterme en el código pero me compliqué entero, alguien sabe porké no funciona.

salu2

bakanzipp · #27 (**permalink**) 31/05/2002, 11:33

jejejee...sorry por eso...sera porque no postee esa funcion?...

por la chuc....lo malo es ke ese codigo no lo tengo aqui...voy a ver si logro encontrarlo por aki...one moment...

bakanzipp · #28 (**permalink**) 31/05/2002, 14:11

uufff...

aki esta la funcion que faltaba,...sorry por el exabrupto...jejee..

Código:

  
function quitaFormatoRut(strVal)
	
	{
		var strTmp = ''
		var i;
		
		if (strVal.charAt(0) =='0') {
			for ( i=1; i &lt; strVal.length ; i++ )
				if ( strVal.charAt(i) != ' ' &amp;&amp; strVal.charAt(i) != '.' &amp;&amp; strVal.charAt(i) != '-' &amp;&amp; strVal.charAt(i) != ',' )
					strTmp = strTmp + strVal.charAt(i);
		}
		else
			for ( i=0; i &lt; strVal.length ; i++ )
				if ( strVal.charAt(i) != ' ' &amp;&amp; strVal.charAt(i) != '.' &amp;&amp; strVal.charAt(i) != '-' &amp;&amp; strVal.charAt(i) != ',' )
					strTmp = strTmp + strVal.charAt(i);
		
		
		return strTmp;
	}

:P

Sir Matrix · #29 (**permalink**) 31/05/2002, 14:51

Muchas gracias Bakanzipp, lo voy a probar

Sir Matrix · #30 (**permalink**) 01/06/2002, 11:04

hola, ahí funcionó bien, coloqué esa función al principio del Script.

Muchas gracias