diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb
index ce5d831ff..bb2f95516 100644
--- a/Contabilidad/RegPrePolizaS.aspx.vb
+++ b/Contabilidad/RegPrePolizaS.aspx.vb
@@ -668,7 +668,7 @@ Partial Class ContabilidadC_RegPrePolizaS
     End Sub
 
     Private Sub CargaCompras(CveProveedor As Integer)
-        If Not DdlConceptosContables.SelectedValue.ToEntero.Contiene(21) Then
+        If DdlConceptosContables.SelectedValue.ToEntero.Contiene(5, 17, 305, 308, 310, 311, 312) Then
             Dim ObjCompras As New ClsCompras
 
             DdlCompras.ClearSelection()
@@ -1265,7 +1265,7 @@ Partial Class ContabilidadC_RegPrePolizaS
         DdlProveedoresE.Items.Insert(0, New ListItem("  -  ", "-1"))
     End Sub
     Private Sub CargaComprasE(CveProveedor As Integer)
-        If Not DdlConceptosContablesE.SelectedValue.ToEntero.Contiene(21) Then
+        If DdlConceptosContables.SelectedValue.ToEntero.Contiene(5, 17, 305, 308, 310, 311, 312) Then
             Dim ObjCompras As New ClsCompras
 
             DdlComprasE.ClearSelection()