AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

quitar la parte de cabmiar contraseña y metodos

Browse Source
This commit is contained in:
HECTOR RODRIGUEZ
2021-06-24 09:07:51 -07:00
parent c12a3100a6
commit c14794983e
2 changed files with 12 additions and 103 deletions
Download Patch File Download Diff File Expand all files Collapse all files

49
PortalProveedor/PortalProveedor.aspx.vb
View File

@@ -293,7 +293,6 @@ Partial Class Portal_PortalProveedor
End If
'CARGA TAB CONTRASENIA PARA TODOS LOS USUARIOS
If UsuarioActual.CvePlataforma = 7 Then TabContraseña.Visible = True
End If
@@ -521,11 +520,15 @@ Partial Class Portal_PortalProveedor
End If
If e.Row.DBCampo("CveCompraNC").ToEntero > 0 Then
e.Row.FCHyperLink("HplNC").Visible = True
e.Row.FCHyperLink("HplNC").ImageUrl = "/Imagenes/flag_green.png"
e.Row.FCHyperLink("HplNC").ToolTip = "Notas de Crédito Aplicadas"
End If
Dim asdas2 As Integer = e.Row.DBCampo("CveCompraNC").ToEntero
Dim asdas As String = e.Row.DBCampo("AplicaNotaCredito").ToString
If e.Row.DBCampo("AplicaNotaCredito").ToString = "True" Then
e.Row.FCHyperLink("HplNC").Visible = True
e.Row.FCHyperLink("HplNC").ImageUrl = "/Imagenes/flag_green.png"
e.Row.FCHyperLink("HplNC").ToolTip = "Notas de Crédito Aplicadas"
End If
End If
If CType(sender, GridView).ID = "GvCxPHistorial" Then
If e.Row.DBCampo("CveCompra") = "" Then
e.Row.BackColor = Drawing.Color.LightGray
@@ -1375,39 +1378,11 @@ Partial Class Portal_PortalProveedor
End If
ObjMovtos.Dispose()
Return retorno
End Function
End Function
#End Region
#Region "TAB CONTRASENIA"
Protected Sub BtnGuardarContraseña_Click(sender As Object, e As EventArgs) Handles BtnGuardarContraseña.Click
If Decripta(UsuarioActual.Contraseña) = TxtContraseniaActual.Text Then
Dim ObjUsuario As New ClsSisUsuarios
Dim Usuario As Usuario = Nothing
If ObjUsuario.GetUsuariosPortal(UsuarioActual.CveUsuario, -1, -1) Then
Dim dr As DataRow = ObjUsuario.DtResultados.FiltroPrimero("")
If ObjUsuario.UpdateUsuarioPortal(dr("Usuario").ToString, dr("Nombre").ToString, dr("Correo").ToString, True, Encripta(TxtContrasenia1.Text), dr("CveCliente").ToString.ToEntero, dr("CveProveedor").ToString.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveUsuario) Then
UsuarioActual.Contraseña = Encripta(TxtContrasenia1.Text)
Alert("Contraseña Modificada.", TipoMensaje.MsgInformacion)
End If
End If
ObjUsuario.Dispose()
Else
Alert("La Contraseña Actual es incorrecta.", TipoMensaje.MsgAdvertencia)
End If
End Sub
#End Region
#Region "AUDITORIA"
Property DTDocumentacion As DataTable
Get
If ViewState("DTDocumentacion") Is Nothing Then