detalles aplicados a catEstatusOS

OS/CatEstatusOrdenServicio.aspx.vb

@@ -63,10 +63,8 @@ Partial Class OS_CatEstatusOrdenServicio
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
-            DTUsuarios = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
+            'DTUsuarios = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
             CargaDatos()
-            'CreaGrid()
-            'CargaGridEstatusUsuarios()
             AsociarEstatusUsuarios()
             CargarUsuarioConEstatus()
             CveEstatuOS = -1
@@ -74,6 +72,7 @@ Partial Class OS_CatEstatusOrdenServicio
     End Sub
 
     Public Sub CargaDatos()
+        DTUsuarios = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa)
         Using ObjEstatusOrdenServicios As New ClsOS
             If ObjEstatusOrdenServicios.GetEstatusOrdenServicio() Then
 
@@ -95,10 +94,12 @@ Partial Class OS_CatEstatusOrdenServicio
 
     Private Sub BtnAgregarEstatus_Click(sender As Object, e As EventArgs) Handles BtnAgregarEstatus.Click
         BtnAgregarEstatusOS.Text = "Agregar"
+        divChkEstatus.Visible = False
+        UpBodyEstatus.Update()
         UpFooter.Update()
         RegistraScript("$('#divAddEstatusOS').modal();LimpiaModal()")
     End Sub
-    Private Sub BtnAgregarEstatusOS_Click(sender As Object, e As EventArgs) Handles BtnAgregarEstatusOS.Click
+    Protected Sub BtnAgregarEstatusOS_Click(sender As Object, e As EventArgs) Handles BtnAgregarEstatusOS.Click
         Dim ObjEstatusOrdenServicios As New ClsOS
         Dim TieneError = False
 
@@ -121,11 +122,15 @@ Partial Class OS_CatEstatusOrdenServicio
             End If
         End If
 
-
         ObjEstatusOrdenServicios.Dispose()
-        CargaDatos()
-        UpDatos.Update()
-        RegistraScript("$('#divAddEstatusOS').modal('hide');")
+        'CargaDatos()
+        'AsociarEstatusUsuarios()
+        'CargarUsuarioConEstatus()
+        'UpDatos.Update()
+        'UpPrueba.Update()
+        Alert("Estatus agregado")
+        RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddEstatusOS"))
+        Response.Redirect(HttpContext.Current.Request.Url.ToString(), True)
     End Sub
     Public Sub Edit_Click(sender As Object, e As EventArgs)
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
@@ -134,6 +139,8 @@ Partial Class OS_CatEstatusOrdenServicio
         ChkEstatus.Checked = If(GvRow.DataKey("Estado").ToString = "Activo", True, False)
         CveEstatuOS = GvRow.DataKey("CveEstatusOrdenServicio").ToEntero
         BtnAgregarEstatusOS.Text = "Actualizar"
+        divChkEstatus.Visible = True
+        UpBodyEstatus.Update()
         UpAddEstatus.Update()
         RegistraScript(String.Format("$('#{0}').modal();", "divAddEstatusOS"))
     End Sub
@@ -161,8 +168,9 @@ Partial Class OS_CatEstatusOrdenServicio
         End If
 
         ObjEstatusOrdenServicios.Dispose()
-        CargaDatos()
-        UpDatos.Update()
+        'CargaDatos()
+        'UpDatos.Update()
+        Response.Redirect(HttpContext.Current.Request.Url.ToString(), True)
     End Sub
     Protected Sub GvDatos_RowUpdating(sender As Object, e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvDatos.RowUpdating
         Dim ObjEstatusOrdenServicios As New ClsOS
@@ -200,6 +208,9 @@ Partial Class OS_CatEstatusOrdenServicio
     End Sub
 
     Private Sub CargarUsuarioConEstatus()
+        'For Contador As Integer = (Prueba.Columns.Count - 1) To 1 Step -1
+        '    Prueba.Columns.RemoveAt(Contador)
+        'Next
         For Each Estatus As DataRow In DtEstatusOS.Rows
             Dim test As New CheckBoxField
             test.HeaderText = Estatus.Item("EstatusOrdenServicio").ToString