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