Recargar global de roles al guardar rol

Sistemas/CatRoles.aspx.vb

@@ -148,6 +148,8 @@ Partial Class CatRoles
         Next
         Roles.Dispose()
         RegistraScript("$('#DivPermisos').modal('hide');")
+
+        RecargaGlobal()
     End Sub
 
     Protected Sub BtnGuardaProcesos_Click(sender As Object, e As EventArgs) Handles BtnGuardaProcesos.Click
@@ -157,6 +159,8 @@ Partial Class CatRoles
         Next
         Roles.Dispose()
         RegistraScript("$('#DivProcesos').modal('hide');")
+
+        RecargaGlobal()
     End Sub
 
 #Region "G V  D A T O S"
@@ -176,6 +180,12 @@ Partial Class CatRoles
         End If
         Rol.Dispose()
         CargaDatos()
+
+        RecargaGlobal()
+    End Sub
+
+    Private Sub RecargaGlobal()
+        GlobalDTRoles(UsuarioActual.CveEmpresa) = Nothing
     End Sub
 
 

Sistemas/RolesDetalle.aspx.vb

@@ -229,10 +229,14 @@ Partial Class Sistemas_RolesDetalle
         End If
 
         ObjEmpresa.Dispose()
+
+        RecargaGlobal()
     End Sub
 
 
-
+    Private Sub RecargaGlobal()
+        GlobalDTRoles(UsuarioActual.CveEmpresa) = Nothing
+    End Sub
 
 
 End Class