Commit inicial Ventas Productivo

Sistemas/CatContrasenia.aspx.vb

@@ -0,0 +1,51 @@
+Imports System.Data
+Imports Extensiones
+
+
+Partial Class CatContrasenia
+    Inherits ClsPaginas
+
+    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
+        If Not Page.IsPostBack Then
+            'oculto el menu
+            CType(Me.Master, BaseMasterPage).EsPopup = True
+        End If
+    End Sub
+
+    Public Sub GuardaDatos()
+
+        Dim Usuario As New ClsSisUsuarios
+        Usuario.IniciaTransacSQL()
+        If Usuario.GetUsuarios(UsuarioActual.CveUsuario) Then
+            Dim db As DataRow = Usuario.DtResultados.FiltroPrimero("")
+
+            If db("contraseña").ToString = Encripta(TxtContraseniaActual.Text) Then
+                If Usuario.UpdateUsuarioContrasenia(Encripta(TxtContrasenia1.Text), db("CveUsuario").ToString.ToEntero, db("CveEmpresa").ToString.ToEntero) Then
+
+                    Alert("Contraseña Modificada.", TipoMensaje.MsgInformacion, JSBtnAceptar:=If(TxtContraseniaActual.Text = ContraseñaPredeterminada, "location.href=""/Inicio.aspx""", ""))
+                    'redirecciona, cuando es el primer cambio de contraseña
+                    UsuarioActual.Contraseña = TxtContrasenia1.Text
+                    Usuario.Commit()
+                Else
+                    Usuario.RollBack()
+                    Alert("Contraseña Incorrecta.", TipoMensaje.MsgAdvertencia)
+                End If
+            Else
+                Usuario.RollBack()
+                Alert("Contraseña Incorrecta.", TipoMensaje.MsgError)
+            End If
+
+        End If
+
+        Usuario.Dispose()
+
+
+    End Sub
+
+   
+    Protected Sub BtnGuardar_Click(sender As Object, e As System.EventArgs) Handles BtnGuardar.Click
+
+        GuardaDatos()
+
+    End Sub
+End Class