-- ver istas de precio con permiso

Ventas/ProductosServicios.aspx

@@ -2017,7 +2017,7 @@
             <ContentTemplate>
                 <asp:Button ID="BtnGuardar" runat="server" Text="Guardar" ValidationGroup="GrpGuardar" class="btn btn-primary" />
                 <asp:Button ID="BtnEliminar" runat="server" Text="Eliminar" class="btn btn-danger" data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea eliminar el Producto/Servicio?" data-btn-ok-label="si" />
-                <asp:HyperLink Text="Cancelar" runat="server" NavigateUrl="/OS/RepOrdenesServicios.aspx" CssClass="btn default" />
+                <asp:HyperLink Text="Cancelar" runat="server" NavigateUrl="/Ventas/CatPS.aspx" CssClass="btn default" />
                 <%--<input type="button" value="Cancelar" onclick="javascript: window.close();" class="btn btn-Default" />--%>
                 <asp:ValidationSummary ID="VS" runat="server" DisplayMode="BulletList" ShowSummary="true" ValidationGroup="GrpGuardar" />
             </ContentTemplate>

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)