diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index b98c6e2e8..7746f79d5 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -18303,6 +18303,12 @@ Partial Class Compras_Compras
             If Not DdlTipoCompra.SelectedValue.Contiene("12") AndAlso DrPS("AplicaSerie").ToString = "True" Then
                 Row("CveMetodoInventario") = "1"
             End If
+            If (DrPS("CvePSCargo").ToString <> "") Then 'si es un producto de usado. que se registre contablemente como alamcen(como producto)
+                CveTipoPS = 2
+            End If
+            Row("AplicaSerie") = DrPS("AplicaSerie")
+            Row("AplicaLote") = DrPS("AplicaLote")
+            Row("AplicaCaducidad") = DrPS("AplicaCaducidad")
         Else
             Row("PSCodigo") = PSCodigo
             Row("CveMetodoInventario") = 0
@@ -18316,36 +18322,17 @@ Partial Class Compras_Compras
 
         If (Version = "3.3" Or Version = "4.0") And CveSATPS > 0 Then
             Dim DrPSSAT As DataRow = Nothing
-            If CargaXml Then
-                DrPSSAT = GlobalDTPSATPS("-1", CveSATPS.ToString).FiltroPrimero("")
-                'If GlobalDTPSATPS().FiltraParametros(String.Format("SATClavePS={0}", CveSATPS)).Rows.Count > 0 Then
-                '    DrPSSAT = GlobalDTPSATPS().FiltraParametros(String.Format("SATClavePS={0}", CveSATPS)).Rows(0)
-                'End If
-            Else
-                DrPSSAT = GlobalDTPSATPS("-1", CveSATPS.ToString).FiltroPrimero("") '= GlobalDTPSATPS().FiltroPrimero(String.Format("SATClavePS={0}", CveSATPS))
-                'If GlobalDTPSATPS().FiltraParametros(String.Format("CveSATPS={0}", CveSATPS)).Rows.Count > 0 Then
-                '    DrPSSAT = GlobalDTPSATPS().FiltraParametros(String.Format("CveSATPS={0}", CveSATPS)).Rows(0)
-                'End If
-            End If
+            DrPSSAT = GlobalDTPSATPS("-1", CveSATPS.ToString).FiltroPrimero("")
             If DrPSSAT IsNot Nothing Then
                 Row("SATClaveProductoServicio") = DrPSSAT("SATClaveProductoServicio").ToString
                 Row("CveSATPS") = DrPSSAT("CveSATPS").ToString
                 If CveSATPSActualizado Then
                     Row("CveSATPSActualizado") = 1
-
                 Else
                     Row("CveSATPSActualizado") = 0
-
                 End If
             End If
         End If
-        Try
-            If (DrPS("CvePSCargo").ToString <> "") Then 'si es un producto de usado. que se registre contablemente como alamcen(como producto)
-                CveTipoPS = 2
-            End If
-        Catch ex As Exception
-
-        End Try
 
         Dim DecimalesPermitidos As Integer = 6
 
@@ -18435,10 +18422,6 @@ Partial Class Compras_Compras
 
         Row("CveContratoDetalle") = CveContratoDetalle
 
-        Row("AplicaSerie") = DrPS("AplicaSerie")
-        Row("AplicaLote") = DrPS("AplicaLote")
-        Row("AplicaCaducidad") = DrPS("AplicaCaducidad")
-
         Row("CveCultivoCuadroDetalle") = CveCultivoCuadroDetalle
         Row("TemporadaCuadro") = TemporadaCuadro
         If CveAlmacen > 0 Then Row("CveAlmacen") = CveAlmacen
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()