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