Calendario de Viajes AF Codigo Descripcion, orden cronograma por sub tipo activo fijo

Ventas/ActualizarPrecios.aspx.vb

@@ -108,8 +108,16 @@ Partial Class Ventas_ActualizarPrecios
             If UsuarioActual.CveEmpresa.Contiene(189, 190, 192, 193) Then
                 LblModalidad.Visible = True
                 DivModalidad.Visible = True
+            End If
+
+            If UsuarioActual.TienePermisoProceso(282) Then
+                PermisoEdicionLista = False
+                DivActualizarPrecio.Visible = False
+                HlAgregarExcel.Visible = False
             End If
+
             CargaCombos()
+
         End If
     End Sub
     Public Sub CargaCombos()
@@ -256,7 +264,13 @@ Partial Class Ventas_ActualizarPrecios
 
             dvDatos.Visible = True
             dvMultiple.Visible = False
+
             DivActualizarPrecio.Visible = True
+
+            If UsuarioActual.TienePermisoProceso(282) Then
+                DivActualizarPrecio.Visible = False
+            End If
+
             GVPrecios.DataBind()
         End If
 
@@ -1010,6 +1024,9 @@ Partial Class Ventas_ActualizarPrecios
 
         dvDatos.Visible = DdlModalidad.SelectedValue = "1"
         DivActualizarPrecio.Visible = DdlModalidad.SelectedValue = "1"
+        If UsuarioActual.TienePermisoProceso(282) Then
+            DivActualizarPrecio.Visible = False
+        End If
         dvMultiple.Visible = DdlModalidad.SelectedValue = "2"
 
         UPPrecioLista.Update()