diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb
index bbbdfa257..d9849191d 100644
--- a/Ventas/ProductosServicios.aspx.vb
+++ b/Ventas/ProductosServicios.aspx.vb
@@ -282,7 +282,9 @@ Partial Class ProductosyServicios
'CargaFamilia(ViewState("CveSubFamilia").ToString.ToEntero)
CargaSucursaless()
CargaImpuestosLocales()
- CargaListaPrecios()
+ If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+ CargaListaPrecios()
+ End If
If UsuarioActual.TienePermisoProceso(122) Then
BtnEliminar.Visible = False
@@ -1724,7 +1726,7 @@ Partial Class ProductosyServicios
Next
End If
- If Not TieneError Then
+ If Not TieneError AndAlso UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
GuardarListasPrecios(ObjProductosServicios)
End If
@@ -2992,7 +2994,7 @@ Partial Class ProductosyServicios
GvMultiple.DataSource = DtPreciosMultiple
End If
objPS.Dispose()
-
+ DivListaPrecios.Visible = True
GvMultiple.DataBind()
End Sub