-- ver istas de precio con permiso

Ventas/ProductosServicios.aspx.vb

@@ -282,9 +282,7 @@ Partial Class ProductosyServicios
             'CargaFamilia(ViewState("CveSubFamilia").ToString.ToEntero)
             CargaSucursaless()
             CargaImpuestosLocales()
-            If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
-                CargaListaPrecios()
-            End If
+            CargaListaPrecios()
 
             If UsuarioActual.TienePermisoProceso(122) Then
                 BtnEliminar.Visible = False
@@ -2986,16 +2984,18 @@ Partial Class ProductosyServicios
 #Region "LISTA PRECIOS"
 
     Private Sub CargaListaPrecios()
-
-        Dim objPS As New ClsProductosServicios
-        If objPS.GetPSPreciosLista(UsuarioActual.CveEmpresa, -1, CveClasificacion:=-1, CvePS:=CvePS,
-                                   CveProveedor:=-1, Estado:=-1, Marcas:="-1", CveModelo:=-1) Then
-            DtPreciosMultiple = objPS.DtResultados.Copy()
-            GvMultiple.DataSource = DtPreciosMultiple
+        If UsuarioActual.TienePermisoProceso(389) Then 'si puede actualizar precios se muestra
+            Dim objPS As New ClsProductosServicios
+            If objPS.GetPSPreciosLista(UsuarioActual.CveEmpresa, -1, CveClasificacion:=-1, CvePS:=CvePS,
+                                       CveProveedor:=-1, Estado:=-1, Marcas:="-1", CveModelo:=-1) Then
+                DtPreciosMultiple = objPS.DtResultados.Copy()
+                GvMultiple.DataSource = DtPreciosMultiple
+            End If
+            objPS.Dispose()
+            DivListaPrecios.Visible = True
+            GvMultiple.DataBind()
         End If
-        objPS.Dispose()
-        DivListaPrecios.Visible = True
-        GvMultiple.DataBind()
+
     End Sub
 
     Protected Sub GvMultiple_RowDataBound(sender As Object, e As GridViewRowEventArgs)