From b571df1faab3507a7a28b9b3377c1fff58afe28c Mon Sep 17 00:00:00 2001
From: Antonio Gonzalez <jose_antony11@hotmail.com>
Date: Thu, 3 Oct 2019 13:56:35 -0500
Subject: [PATCH] checkpoint

---
 OS/CatEstatusOrdenServicio.aspx.vb | 32 ++++++++++++++++++------------
 1 file changed, 19 insertions(+), 13 deletions(-)

diff --git a/OS/CatEstatusOrdenServicio.aspx.vb b/OS/CatEstatusOrdenServicio.aspx.vb
index e9445c1da..29d3154d0 100644
--- a/OS/CatEstatusOrdenServicio.aspx.vb
+++ b/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