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

--actualizar global

Browse Source
This commit is contained in:
rrene
2023-08-16 11:12:28 -07:00
parent bff5296e6f
commit d1ffe06d2f
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
AF/CatMarcas.aspx.vb
View File

@@ -49,11 +49,12 @@ Partial Class AF_CatMarcas
If HdnModalidad.Value = "A" Then If HdnModalidad.Value = "A" Then
If ObjAF.AddMarcasActivosFijos(TxtMarca.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then If ObjAF.AddMarcasActivosFijos(TxtMarca.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
GlobalDTMarcaActivoFijo(UsuarioActual.CveEmpresa) = Nothing
Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion) Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion)
End If End If
ElseIf HdnModalidad.Value = "U" Then ElseIf HdnModalidad.Value = "U" Then
If ObjAF.UpdateMarcasActivosFijos(HdnID.Value.ToEntero, TxtMarca.Text.Trim, Estatus, UsuarioActual.CveEmpresa) Then If ObjAF.UpdateMarcasActivosFijos(HdnID.Value.ToEntero, TxtMarca.Text.Trim, Estatus, UsuarioActual.CveEmpresa) Then
GlobalDTMarcaActivoFijo(UsuarioActual.CveEmpresa) = Nothing
Alert("Actualizado Correctamente.", TipoMensaje.MsgInformacion) Alert("Actualizado Correctamente.", TipoMensaje.MsgInformacion)
End If End If
End If End If
@@ -85,6 +86,7 @@ Partial Class AF_CatMarcas
HdnID.Value = GvRow.DataKey("CveMarcaActivoFijo") HdnID.Value = GvRow.DataKey("CveMarcaActivoFijo")
UpDatos.Update() UpDatos.Update()
If ObjAF.RemoveMarcasActivosFijos(HdnID.Value.ToEntero) Then If ObjAF.RemoveMarcasActivosFijos(HdnID.Value.ToEntero) Then
GlobalDTMarcaActivoFijo(UsuarioActual.CveEmpresa) = Nothing
CargaDatos() CargaDatos()
Alert("Eliminado Correctamente.", TipoMensaje.MsgInformacion) Alert("Eliminado Correctamente.", TipoMensaje.MsgInformacion)
End If End If