diff --git a/Contratos/ModificarPresupuesto.aspx.vb b/Contratos/ModificarPresupuesto.aspx.vb
index 7eba861ad..f26d46780 100644
--- a/Contratos/ModificarPresupuesto.aspx.vb
+++ b/Contratos/ModificarPresupuesto.aspx.vb
@@ -319,7 +319,7 @@ Partial Class Contratos_ModificarPresupuesto
     Private Sub CargaAccionesDdlclasificaciones()
 
         Dim dtClasificaciones As DataTable = Me.DtClasificaciones.Copy
-        Dim globalDtClasificacionesn As DataTable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros("Tipo = 1").Copy
+        Dim globalDtClasificacionesn As DataTable = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros("Tipo = 1 AND Estado = 1 ").Copy
 
 
         Dim filteredRecords = From globalRow In globalDtClasificacionesn.AsEnumerable()