From 6266f9c5f75a608834f6c1dcf7a6faf0a6f9f661 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 18 Feb 2025 08:05:55 -0700
Subject: [PATCH] =?UTF-8?q?--=20correcci=C3=B3n=20sino=20se=20visualiza=20?=
 =?UTF-8?q?la=20lista=20de=20precio,=20que=20no=20pida=20el=20dato?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Ventas/ProductosServicios.aspx.vb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb
index a58c1e71d..170bc75b1 100644
--- a/Ventas/ProductosServicios.aspx.vb
+++ b/Ventas/ProductosServicios.aspx.vb
@@ -1456,7 +1456,7 @@ Partial Class ProductosyServicios
             Exit Sub
         End If
 
-        If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+        If UsuarioActual.Empresa.Funcionalidad(382) = "1" AndAlso ChkAplicaParaVenta.Checked Then
             Dim tcontador As Integer = 0
             For Each GvRow As GridViewRow In GvPLMultiple.Rows
                 Dim CvePrecioLista As Integer = GvRow.DataKey("CvePrecioLista").ToEntero()