From c9383dd152860c4535e5d9a6dfc6339a70d67b17 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 22 Jul 2021 20:29:52 -0700
Subject: [PATCH] globaldtcontratos y dispose

---
 Compras/Compras.aspx.vb | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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