diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 699a08d12..4c47d5360 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -18103,7 +18103,7 @@ Partial Class Compras_Compras
         Dim ObjContratos As New ClsContratos
         Dim TieneError As Boolean = False
         Dim Mensaje As String = ""
-        Dim dttemp As DataTable = Nothing ' GlobalDTContratos().FiltraParametros(String.Format("CveSubProyecto = {0}", DdlSubProyecto.SelectedValue.ToString))
+        Dim dttemp As DataTable = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveSubProyecto = {0}", DdlSubProyecto.SelectedValue.ToString))
         If dttemp IsNot Nothing AndAlso dttemp.Rows.Count > 0 Then
             Dim drContrato As DataRow = dttemp.Rows(0)
             If ObjContratos.GetContratosDetalle(drContrato("CveContrato").ToString.ToEntero) Then
@@ -18136,6 +18136,7 @@ Partial Class Compras_Compras
 
             End If
         End If
+        ObjContratos.Dispose()
         If Not TieneError Then
             Select Case Modalidad
                 Case "A" 'ADD