checkpoint

OS/CatEstatusOrdenServicio.aspx.vb

@@ -106,6 +106,7 @@ Partial Class OS_CatEstatusOrdenServicio
         If HdnModalidad.Value = "I" Then
             If ObjEstatusOrdenServicios.AddEstatusOrdenServicio(TxtEstatusOS.Text.Trim, DdlTipoEstatus.SelectedValue.ToEntero, If(ChkEstatus.Checked, 1, 0), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
                 CargaDatos()
+                Alert("Estatus agregado")
             End If
         Else
             If HdnID.Value.ToEntero <> -1 Then
@@ -117,20 +118,20 @@ Partial Class OS_CatEstatusOrdenServicio
             If Not TieneError Then
                 GvDatos.EditIndex = -1
                 CargaDatos()
+                Alert("Estatus actualizado")
             Else
                 Alert("Ocurrio un error al actualizar los datos", TipoMensaje.MsgAdvertencia)
             End If
         End If
 
         ObjEstatusOrdenServicios.Dispose()
-        '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)
+        EstatusUsuariosGridActualizar()
+        AsociarEstatusUsuarios()
+        CargarUsuarioConEstatus()
+        UpDatos.Update()
+        'UpPrueba.Update()
+        '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)
@@ -168,9 +169,9 @@ Partial Class OS_CatEstatusOrdenServicio
         End If
 
         ObjEstatusOrdenServicios.Dispose()
-        'CargaDatos()
-        'UpDatos.Update()
-        Response.Redirect(HttpContext.Current.Request.Url.ToString(), True)
+        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
@@ -208,9 +209,6 @@ 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
@@ -268,5 +266,13 @@ Partial Class OS_CatEstatusOrdenServicio
         End If
         objEstatusOC.Dispose()
     End Sub
+
+    Private Sub EstatusUsuariosGridActualizar()
+        DtEstatusUsuariosAsociados = Nothing
+        Prueba.DataBind()
+        For Contador As Integer = (Prueba.Columns.Count - 1) To 1 Step -1
+            Prueba.Columns.RemoveAt(Contador)
+        Next
+    End Sub
 #End Region
 End Class