Jonathan Alexis Perez Morales
0e41e4c959
--Venta.aspx quitar listas de precios al generar anticipos. --Venta.aspx al cargar el tipo docto "Ant" mostrar el PS de anticipo. --PVCobranza.aspx cuentas de transferencias a caja chica. --PVCobranza.aspx, Ventas.aspx agregar el subproyecto al pago. --CatContrasenia.aspx mejorar restricciones de contraseñas.
57 lines
1.9 KiB
VB.net
57 lines
1.9 KiB
VB.net
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()
|
|
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()
|
|
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()
|
|
GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing
|
|
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
|