movimeintos permanentes

RH/Personal.aspx.vb

@@ -8103,5 +8103,22 @@ Partial Class RH_Personal
         UpDatos.Update()
     End Sub
 
+
+
+    Protected Sub cvCadena_ServerValidate(source As Object, args As ServerValidateEventArgs)
+        Dim retorno As Boolean = True
+        ' Verifica que la longitud de la cadena sea 5
+        If Len(args.Value) <> 5 Then
+            retorno = False
+        End If
+
+        ' Verifica que la cadena sea numérica
+        If Not IsNumeric(args.Value) Then
+            retorno = False
+        End If
+
+        args.IsValid = retorno
+    End Sub
+
 End Class