-- recarga globaldt

Sistemas/CatModulos.aspx.vb

@@ -50,6 +50,7 @@ Partial Class CatModulos
                             UsuarioActual.CveUsuario, DdlPlataforma.SelectedValue.ToEntero) Then
                 RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalModulos"))
                 Alert("El nuevo Módulo se guardó correctamente.", TipoMensaje.MsgInformacion)
+                GlobalDTModulos = Nothing
                 CargaDatos()
                 UpDatos.Update()
             End If
@@ -58,6 +59,7 @@ Partial Class CatModulos
                                    TxtOrden.Text.Trim().ToEntero(), TxtEstilo.Text.Trim(), CboIncluye.SelectedValue, CboAgrupacion.SelectedValue, UsuarioActual.CveUsuario, HdnID.Value.ToEntero, DdlPlataforma.SelectedValue.ToEntero) Then
                 RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalModulos"))
                 Alert("El Módulo se actualizó correctamente.", TipoMensaje.MsgInformacion)
+                GlobalDTModulos = Nothing
                 CargaDatos()
                 UpDatos.Update()
             End If
@@ -129,12 +131,10 @@ Partial Class CatModulos
         Dim Modulo As New ClsModulos
         If Modulo.RemoveModulo(GvDatos.DataKeys(e.RowIndex).Value.ToString().ToEntero()) Then
             GvDatos.EditIndex = -1
+            GlobalDTModulos = Nothing
             CargaDatos()
         End If
-
         Modulo.Dispose()
-
-
     End Sub
 #End Region
 
@@ -198,6 +198,7 @@ Partial Class CatModulos
         LbAgregar.Text = "Actualizar"
         UpModal.Update()
         RegistraScript("$('#ModalModulos').modal();")
+        GlobalDTModulos = Nothing
     End Sub