Correcion en PS SAT

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

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