Amigos, una vez mas recurro a su valiosa ayuda, he generado un formulario dinamico , ahora necesito validar que se completen los campos, para esto tengo una funcion que valida , pero necesito poner el valor del campo de forma dinamica cada vez que se genere un campo nuevo.
este es el script :
Text_<%=REG_ALT("Alt_Id")%>=Campo variable ==> viene de una base de datos
Formulario
<textarea name="Text_<%=REG_ALT("Alt_Id")%>" cols="120" rows="5" class="lista" id="Text_<%=REG_ALT("Alt_Id")%>"></textarea>
validacion
<script Language="VBScript">
function valida_ingreso(campo,Formulario,OK,largo,flag)
select case flag
case 0 ' no nulo
Valida=(campo.value = "" )
t_msg="Ingrese un valor"
case 1 ' largo minimo
Valida=(Len(campo.value) < largo )
t_msg="Ingrese un valor mayor a "&largo&" caracteres "
case 3 ' seleccion de opcion no nulo
Valida=(campo.value = "")
t_msg="Debe elejir una de las Opciones... "
end select
If (valida) Then
MsgBox t_msg&" para "&campo.name, 0, "Error de Ingreso"
campo.focus()
OK=true
End If
End function
'==============*** validaciones por tipo de campos **===============
Function Valida_Tipo_Ingreso(Campo,Formulario,OK,otro_str,f lag)
select case flag
case 0 ' solo numeros
campo.value=(campo.value)
str_campo = campo.value
str_Ok = "0123456789"&otro_str
decimales = 0
Solo_numero = ""
t_msg="Ingrese solo Numeros - " & otro_str
case 1 ' solo letras
campo.value=(campo.value)
str_campo = campo.value
str_Ok = "ABCDEFGHIJKLMNOPQRSTUVWXYZ " & otro_str
t_msg="Ingrese solo Letras - "&otro_str
case 2 ' alfanumericos
campo.value=(campo.value)
str_campo = campo.value
str_Ok = "abcdefghijklmnñopqrstuvwxyzáéíóúABCDEFGHIJKLMNÑOP QRSTUVWXYZ0123456789|!#$%/()=?¡\¿+*~{[]}<>,;:.-_"" " & otro_str
t_msg="Ingrese Caracteres validos - "&otro_str
case 3 ' direcciones Internet
str_campo = campo.value
str_Ok = "abcdefghijklmnñopqrstuvwxyzáéíóúABCDEFGHIJKLMNÑOP QRSTUVWXYZabcdefghijklmnopqrstuvwxyz123456790@-_." & otro_str
t_msg="Ingrese Caracteres validos - "&otro_str
case 4 ' solo letras mayusculas y minusculas
campo.value = campo.value
str_campo = campo.value
str_Ok = "abcdefghijklmnñopqrstuvwxyzáéíóúABCDEFGHIJKLMNÑOP QRSTUVWXYZabcdefghijklmnopqrstuvwxyz " & otro_str
t_msg="Ingrese solo Letras - "&otro_str
end select
Todo_ok = True
pos=0
For pos = 1 to len(str_campo)
ch = Mid(str_campo, pos, 1)
If (InStr(str_Ok, ch) = 0) Then
Todo_ok = False
Exit For
End If
Next
If (Not Todo_ok) Then
MsgBox t_msg&" para "&campo.name, 0, "Error de Ingreso"
campo.focus()
OK=true
End If
End function
</script>
<script LANGUAGE="vbscript">
Function dtr_frm_onsubmit()
OK=False
Set formulario=document.dtr_frm
obligatorio=0
Set campo=formulario.Text_<%=(Alt)%>
campo.name = "Text_<%=REG_ALT("Alt_Id")%>"
if len(trim(obligatorio)) = 0 then
obligatorio=0
end if
CALL valida_ingreso(campo,Formulario,OK,2,obligatorio)
campo.name = "Text_<%=REG_ALT("Alt_Id")%>"
if ok then
campo.focus()
dtr_frm_onsubmit=false
Exit function
end If
otro_str = "": campo.name = "Text_<%=(Alt)%>"
CALL valida_Tipo_ingreso(campo,Formulario,OK,otro_str,2 )
campo.name = "Text_<%=(Alt)%>"
if ok then
campo.focus()
dtr_frm_onsubmit=false
Exit function
end If
dtr_frm_onsubmit = true
end Function
</script>
creo que hay que recorrer el dato, para que se vaya completando el dato variable , pero no se como.
les agradezco su ayuda
