From 4e262d53d78e365b6d0cae85a58099bc62b5ff0a Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 28 Jan 2025 19:53:24 -0700
Subject: [PATCH] =?UTF-8?q?--=20validaci=C3=B3n=20de=20que=20si=20tiene=20?=
 =?UTF-8?q?aplica=20para=20venta,=20requiere=20c=C3=B3digo=20SAT=20--=20si?=
 =?UTF-8?q?=20FNC382,=20debe=20de=20tener=20cuando=20menos=20un=20precio?=
 =?UTF-8?q?=20establecido?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Ventas/ProductosServicios.aspx.vb | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb
index 2823b43e7..a58c1e71d 100644
--- a/Ventas/ProductosServicios.aspx.vb
+++ b/Ventas/ProductosServicios.aspx.vb
@@ -1451,6 +1451,27 @@ Partial Class ProductosyServicios
             Exit Sub
         End If
 
+        If ChkAplicaParaVenta.Checked AndAlso DdlSATPS.SelectedValue.Contiene("46920", "0", "-1", "") Then
+            Alert("El Producto Servicio SAT no es válido, por favor especificarlo.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+        If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+            Dim tcontador As Integer = 0
+            For Each GvRow As GridViewRow In GvPLMultiple.Rows
+                Dim CvePrecioLista As Integer = GvRow.DataKey("CvePrecioLista").ToEntero()
+                Dim Precio As Decimal = GvRow.FCTextBox("TxtPrecio").Text.ToDecimal()
+                If Precio <> 0 Then
+                    tcontador += 1
+                End If
+            Next
+            If tcontador = 0 Then
+                Alert("Debe de especificar cuando menos un precio en el listado.", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+
+        End If
+
         Dim CveClasificacion2 As Integer = DdlClasificacion2.SelectedValue.ToEntero
 
         If (TxtCodigo.Text = TxtCodigoBarras.Text AndAlso TxtCodigo.Text <> "") Then