diff --git a/Contratos/ContratoObra.aspx.vb b/Contratos/ContratoObra.aspx.vb
index 14edb0b72..18d959c83 100644
--- a/Contratos/ContratoObra.aspx.vb
+++ b/Contratos/ContratoObra.aspx.vb
@@ -1115,9 +1115,7 @@ Partial Class Contratos_ContratoObra
         Else
             ObjContratos.Commit()
 
-            If ObjContratos.GetContratos(-1, -1) Then
-                Application("GlobalDTContratos") = ObjContratos.DtResultados
-            End If
+            GlobalDTContratos(UsuarioActual.CveEmpresa) = Nothing
 
             Limpiar()
             If Modificado Then