diff --git a/Contabilidad/RegPrePolizaS.aspx b/Contabilidad/RegPrePolizaS.aspx
index f07c5a356..b10065036 100644
--- a/Contabilidad/RegPrePolizaS.aspx
+++ b/Contabilidad/RegPrePolizaS.aspx
@@ -717,6 +717,7 @@
                                                 <asp:RequiredFieldValidator ID="RfvDdlComprasE" InitialValue="-1" runat="server" ControlToValidate="DdlComprasE" Display="None" ErrorMessage="El campo <b>''Compra''</b> es requerido por la aplicación, por favor ingrese uno." ValidationGroup="GrpMocalConceptoGuardar"></asp:RequiredFieldValidator>
                                                 <ajax:ValidatorCalloutExtender ID="CeRfvDdlComprasE" runat="server" HighlightCssClass="vco" TargetControlID="RfvDdlComprasE" Width="350px"></ajax:ValidatorCalloutExtender>
                                                 <i></i>
+                                                <asp:HiddenField ID="HdnCveCompra" runat="server" Value="-1" />
                                             </div>
                                         </div>
 
diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb
index 06d12c20c..b3d2be37d 100644
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -1309,7 +1309,7 @@ Partial Class ContabilidadC_RegPrePolizaS
         TxtME.Text = GvPrePoliza.Rows(IndiceGrid).DataKey("ImporteME").ToDecimal.FormatoNumero
 
         DdlPorcentajeIVAE.SelectedValueExist(PorcentajeImpuesto)
-
+        HdnCveCompra.Value = CveCompra.ToString
         DdlProveedoresE.SelectedValueExist(CveProveedor)
         DdlProveedoresE_SelectedIndexChanged(DdlProveedoresE, e)
         DdlComprasE.SelectedValueExist(CveCompra)
@@ -1551,13 +1551,13 @@ Partial Class ContabilidadC_RegPrePolizaS
         DdlProveedoresE.DataBind()
         DdlProveedoresE.Items.Insert(0, New ListItem("  -  ", "-1"))
     End Sub
-    Private Sub CargaComprasE(CveProveedor As Integer)
+    Private Sub CargaComprasE(CveProveedor As Integer, Optional tCveCompra As Integer = -1)
         If DdlConceptosContablesE.SelectedValue.ToEntero.Contiene(5, 17, 305, 308, 310, 311, 312) Then
             Dim ObjCompras As New ClsCompras
 
             DdlComprasE.ClearSelection()
-            If ObjCompras.GetCompras(-1, "-1", "-1", CveProveedor, -1, UsuarioActual.CveEmpresa) Then
-                DdlComprasE.DataSource = ObjCompras.DtResultados.FiltraParametros("Saldo > 0")
+            If ObjCompras.GetCompras(tCveCompra, "-1", "-1", CveProveedor, -1, UsuarioActual.CveEmpresa) Then
+                DdlComprasE.DataSource = ObjCompras.DtResultados.FiltraParametros($"Saldo > 0 OR CveCompra = {tCveCompra}")
                 DdlComprasE.DataBind()
                 DdlComprasE.Items.Insert(0, New ListItem("  -  ", "-1"))
             Else
@@ -1618,7 +1618,7 @@ Partial Class ContabilidadC_RegPrePolizaS
         DdlClasificacionesE.Items.Insert(0, New ListItem("  -  ", "-1"))
     End Sub
     Private Sub DdlProveedoresE_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProveedoresE.SelectedIndexChanged
-        CargaComprasE(DdlProveedoresE.SelectedValue.ToEntero)
+        CargaComprasE(DdlProveedoresE.SelectedValue.ToEntero, HdnCveCompra.Value.ToEntero)
     End Sub
     Private Sub DdlClientesE_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlClientesE.selectedindexchange