From 1ab7543b1e9892e4140dd6507447ae8c2025029d Mon Sep 17 00:00:00 2001
From: RPimienta <dany_pimi@hotmail.com>
Date: Sun, 22 Sep 2024 02:49:05 -0600
Subject: [PATCH] Al crear o editar un producto poder introducir el precio de
 lista de cada una pt.2

---
 Ventas/ProductosServicios.aspx    | 2 +-
 Ventas/ProductosServicios.aspx.vb | 8 +++++---
 2 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/Ventas/ProductosServicios.aspx b/Ventas/ProductosServicios.aspx
index b8664feb2..dda8acbec 100644
--- a/Ventas/ProductosServicios.aspx
+++ b/Ventas/ProductosServicios.aspx
@@ -724,7 +724,7 @@
                                     </div>
                                 </div>
                                 <div class="row">
-                                    <div class="col-md-12" id="DivListaPrecios" runat="server" >
+                                    <div class="col-md-12" id="DivListaPrecios" runat="server" visible="false">
                                         <div class="portlet xspadding light bordered">
                                             <div class="portlet-title">
                                                 <div class="caption font-green">
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