Global de tipos de contrato

Contratos/CatContratosTipos.aspx.vb

@@ -17,7 +17,6 @@ Partial Class Contratos_CatContratosTipos
         Dim Objeto As New ClsContratos
         If Objeto.GetContratosTipos(UsuarioActual.CveEmpresa) Then
             GvContratos.DataSource = Objeto.DtResultados
-            GlobalDTContratosTipos(UsuarioActual.CveEmpresa) = Objeto.DtResultados
         End If
         GvContratos.DataBind()
         Objeto.Dispose()
@@ -40,9 +39,10 @@ Partial Class Contratos_CatContratosTipos
             UpDatos.Update()
         End If
 
-
         Objeto.Dispose()
+        RecargaGlobal()
         Alert("El Contrato se agregó correctamente.", TipoMensaje.MsgInformacion)
+
     End Sub
 
 
@@ -72,6 +72,7 @@ Partial Class Contratos_CatContratosTipos
         End If
         GvContratos.EditIndex = -1
         CargaDatos()
+        RecargaGlobal()
         UpDatos.Update()
     End Sub
 
@@ -92,6 +93,10 @@ Partial Class Contratos_CatContratosTipos
         Objeto.Dispose()
         GvContratos.EditIndex = -1
         CargaDatos()
+        RecargaGlobal()
+    End Sub
+    Private Sub RecargaGlobal()
+        GlobalDTContratosTipos(-1) = Nothing
     End Sub