Global de tipos de contrato

Contratos/CatContratosTipos.aspx.vb

@@ -16,8 +16,7 @@ Partial Class Contratos_CatContratosTipos
     Private Sub CargaDatos()
         Dim Objeto As New ClsContratos
         If Objeto.GetContratosTipos(UsuarioActual.CveEmpresa) Then
-            GvContratos.DataSource = Objeto.DtResultados
-            GlobalDTContratosTipos(UsuarioActual.CveEmpresa) = Objeto.DtResultados
+            GvContratos.DataSource = Objeto.DtResultados
         End If
         GvContratos.DataBind()
         Objeto.Dispose()
@@ -40,9 +39,10 @@ Partial Class Contratos_CatContratosTipos
             UpDatos.Update()
         End If
 
-
         Objeto.Dispose()
-        Alert("El Contrato se agregó correctamente.", TipoMensaje.MsgInformacion)
+        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,10 +93,14 @@ Partial Class Contratos_CatContratosTipos
         Objeto.Dispose()
         GvContratos.EditIndex = -1
         CargaDatos()
-    End Sub
-
-
+        RecargaGlobal()
+    End Sub
+    Private Sub RecargaGlobal()
+        GlobalDTContratosTipos(-1) = Nothing
+    End Sub
+
+
 #End Region
-
-
+
+
 End Class