Merge branch 'master' of http://192.168.10.111:8383/SIG

Sistemas/CatContrasenia.aspx.vb

@@ -13,6 +13,10 @@ Partial Class CatContrasenia
     End Sub
 
     Public Sub GuardaDatos()
+        If TxtContrasenia1.Text.Length < 7 Then
+            Alert("La contraseña debe ser de al menos 8 caracteres.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
 
         Dim Usuario As New ClsSisUsuarios
         Usuario.IniciaTransacSQL()
@@ -41,9 +45,9 @@ Partial Class CatContrasenia
         Usuario.Dispose()
 
 
-    End Sub
-
-   
+    End Sub
+
+
     Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click
 
         GuardaDatos()