From bf633eac7e7fec5fe91d89e8b1679ca3a0e47f3a Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 5 Nov 2024 09:12:50 -0700 Subject: [PATCH] -- ocultar el importe, sino tienes los permisos --- Inventarios/KardexAlmacenHorizontal.aspx.vb | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/Inventarios/KardexAlmacenHorizontal.aspx.vb b/Inventarios/KardexAlmacenHorizontal.aspx.vb index 61a191dec..7547ddfe2 100644 --- a/Inventarios/KardexAlmacenHorizontal.aspx.vb +++ b/Inventarios/KardexAlmacenHorizontal.aspx.vb @@ -158,10 +158,15 @@ Partial Class Inventarios_KardexAlmacenHorizontal If ObjMovimientos.GetKardexAlmacenHorizontal(CvePS, FechaF, -1, DdlUnidadMedida.SelectedValue.ToEntero, CveProveedorCompra, DdlTipoAlmacen.SelectedValue.ToEntero(), IncluyeTransitorios, DdlClasificacion.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CondicionExistencias:=DdlExistencia.SelectedValue.ToEntero, Orden:=DdlOrden.SelectedValue.ToEntero(), Marcas:=Marcas, IncluyeProyectado:=DdlProyeccionFiltro.SelectedValue.ToEntero, CveAlmacenes:=CveAlmacenes, GPO:=GPO, CodigoPS:=TxtPS.Text) Then + Dim TienePermisoImportes As Boolean = UsuarioActual.TienePermisoProceso(201) '.limitar los importes If ObjMovimientos.DtResultados IsNot Nothing AndAlso ObjMovimientos.DtResultados.Rows.Count > 0 Then dt = ObjMovimientos.DtResultados Dim ListaBorrar As New List(Of DataColumn) + If Not TienePermisoImportes Then + dt.Columns.RemoveAt(dt.Columns.Count - 1) 'CP-quito columna de importe total + dt.Columns.RemoveAt(dt.Columns.Count - 1) 'Valor-quito columna de importe total + End If For index As Integer = 3 To dt.Columns.Count - 1 Dim TotColumna As Double = 0 For Each Dr As DataRow In dt.Rows @@ -170,6 +175,7 @@ Partial Class Inventarios_KardexAlmacenHorizontal If Not TotColumna > 0 Then ListaBorrar.Add(dt.Columns(index)) End If + Next For Each item As DataColumn In ListaBorrar dt.Columns().Remove(item) @@ -187,13 +193,12 @@ Partial Class Inventarios_KardexAlmacenHorizontal Alert("Ocurrió un error al consultar el Kardex.", TipoMensaje.MsgError) Exit Sub End If - - GvDatos.DataBind() For index = 4 To GvDatos.Rows(0).Cells.Count - 1 GvDatos.HeaderRow.Cells(index).Text = GvDatos.HeaderRow.Cells(index).Text.Split("|"c)(0) Next + End Sub Protected Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound