diff --git a/PortalProveedor/PortalProveedor.aspx b/PortalProveedor/PortalProveedor.aspx
index a3ecb0e30..28c9c6951 100644
--- a/PortalProveedor/PortalProveedor.aspx
+++ b/PortalProveedor/PortalProveedor.aspx
@@ -757,72 +757,6 @@
- <%--02/07/2018 - TAB CAMBIO DE CONTRASENIAS--%>
-
-
-
-
-
-
-
-
-
-
- Cambio Contraseña
-
-
-
-
-
-
-
-
-
-
-
-
<%---2020/02/06 - Auditoria--%>
diff --git a/PortalProveedor/PortalProveedor.aspx.vb b/PortalProveedor/PortalProveedor.aspx.vb
index c9293c7b6..093cdb5ec 100644
--- a/PortalProveedor/PortalProveedor.aspx.vb
+++ b/PortalProveedor/PortalProveedor.aspx.vb
@@ -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