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