diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb
index daa018d47..671b08e60 100644
--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -6463,7 +6463,7 @@ Partial Class PV
         Else
             'TxtPUFactura.Enabled = True
             'TxtPUFactura.Text = ""
-            DdlPSAjuste.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa)
+            DdlPSAjuste.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, AplicaParaVenta:=1)
         End If
         DdlPSAjuste.DataBind()
         ' DdlPSAjuste.Items.Insert(0, New ListItem("Seleccione", "-1"))