AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

detalles pulidos

Browse Source
This commit is contained in:
Antonio Gonzalez
2019-10-04 11:47:46 -05:00
parent d3c75a15b8
commit 73a48bd376
1 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
OS/CatEstatusOrdenServicio.aspx.vb
View File

@@ -105,7 +105,7 @@ Partial Class OS_CatEstatusOrdenServicio
If HdnModalidad.Value = "I" Then If HdnModalidad.Value = "I" Then
If ObjEstatusOrdenServicios.AddEstatusOrdenServicio(TxtEstatusOS.Text.Trim, DdlTipoEstatus.SelectedValue.ToEntero, If(ChkEstatus.Checked, 1, 0), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then If ObjEstatusOrdenServicios.AddEstatusOrdenServicio(TxtEstatusOS.Text.Trim, DdlTipoEstatus.SelectedValue.ToEntero, If(ChkEstatus.Checked, 1, 0), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
CargaDatos() 'CargaDatos()
Alert("Estatus agregado") Alert("Estatus agregado")
End If End If
Else Else
@@ -117,12 +117,13 @@ Partial Class OS_CatEstatusOrdenServicio
If Not TieneError Then If Not TieneError Then
GvDatos.EditIndex = -1 GvDatos.EditIndex = -1
CargaDatos() 'CargaDatos()
Alert("Estatus actualizado") Alert("Estatus actualizado")
Else Else
Alert("Ocurrio un error al actualizar los datos", TipoMensaje.MsgAdvertencia) Alert("Ocurrio un error al actualizar los datos", TipoMensaje.MsgAdvertencia)
End If End If
End If End If
CargaDatos()
ObjEstatusOrdenServicios.Dispose() ObjEstatusOrdenServicios.Dispose()
RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddEstatusOS")) RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddEstatusOS"))
@@ -171,6 +172,10 @@ Partial Class OS_CatEstatusOrdenServicio
ObjEstatusOrdenServicios.Dispose() ObjEstatusOrdenServicios.Dispose()
CargaDatos() CargaDatos()
UpDatos.Update() UpDatos.Update()
EstatusUsuariosGridActualizar()
AsociarEstatusUsuarios()
CargarUsuarioConEstatus()
UpPrueba.Update()
'Response.Redirect(HttpContext.Current.Request.Url.ToString(), True) 'Response.Redirect(HttpContext.Current.Request.Url.ToString(), True)
End Sub End Sub
Protected Sub GvDatos_RowUpdating(sender As Object, e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvDatos.RowUpdating Protected Sub GvDatos_RowUpdating(sender As Object, e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvDatos.RowUpdating