From 7c766941ccbebee19a308ccf98dc00029bc66099 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Mon, 12 Oct 2020 16:49:09 -0700
Subject: [PATCH] Correcion en PS SAT

---
 Ventas/ProductosServicios.aspx.vb | 17 +++++++++--------
 Ventas/Ventas.aspx.vb             |  2 +-
 2 files changed, 10 insertions(+), 9 deletions(-)

diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb
index 6a56b6f1a..a32a8d933 100644
--- a/Ventas/ProductosServicios.aspx.vb
+++ b/Ventas/ProductosServicios.aspx.vb
@@ -2019,17 +2019,18 @@ Partial Class ProductosyServicios
 #Region "SELECTED INDEX CHANGE"
     Public Sub DdlClasificacion_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlClasificacion.SelectedIndexChanged
         If DdlClasificacion.SelectedValue.ToEntero > 0 Then
-            If Not CveSATPS > 0 Or CveSATPS = 46920 Then
+            If Me.CvePS <= 0 AndAlso (Not CveSATPS > 0 Or CveSATPS = 46920) Then
                 Dim Dr = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveClasificacion={0}", DdlClasificacion.SelectedValue.ToEntero()))(0)
 
-                DdlSATPS.SelectedValue = Dr("CveSATPS").ToString
-                DdlSATPS.SelectedText = Dr("SATClaveProductoServicio").ToString
-
-
-
-                If UsuarioActual.CveEmpresa.Contiene(72, 80) Then
-                    VerificaRequiereSerieLote()
+                If Dr IsNot Nothing Then
+                    DdlSATPS.SelectedValue = Dr("CveSATPS").ToString
+                    DdlSATPS.SelectedText = Dr("SATClaveProductoServicio").ToString
                 End If
+
+            End If
+
+            If UsuarioActual.CveEmpresa.Contiene(72, 80) Then
+                VerificaRequiereSerieLote()
             End If
             ' CargaClasificacionesDetalles()
         End If
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 0ee215ce3..c34bd0649 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -7081,7 +7081,7 @@ Partial Class Ventas
                 Dim DtNoEncontrados As DataTable = TmpDT.FiltraParametros("ISNULL(SATClaveProdServ,'') = '01010101' ")
                 If DtNoEncontrados IsNot Nothing AndAlso DtNoEncontrados.Rows.Count > 0 Then
                     Dim StrNoEncontrados As New StringBuilder
-                    StrNoEncontrados.Append("Los siguientes productos no tiene asignado la clave Producto SAT o Unidad Medida SAT<br/><br/>")
+                    StrNoEncontrados.Append("Los siguientes productos no existen en el catálogo del SAT<br/><br/>")
                     For Each drt As DataRow In DtNoEncontrados.Rows
                         StrNoEncontrados.AppendFormat("{0} <br/>", drt("CodigoPS"))
                     Next