-- ocultar el importe, sino tienes los permisos

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