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

Compilacion correciones

Browse Source
This commit is contained in:
rakcsle
2023-08-24 11:23:50 -07:00
parent d094d993a2
commit e36f1786ed
23 changed files with 115 additions and 114 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
MF/CatOperadores.aspx.vb
View File

@@ -21,7 +21,7 @@ Partial Class MF_CatOperadores
Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion)
End If
ElseIf HdnModalidad.Value = "U" Then
If ObjMF.UpdateOperador(HdnID.Value, TxtOperador.Text, Estatus) Then
If ObjMF.UpdateOperador(HdnID.Value.ToEntero, TxtOperador.Text, Estatus) Then
CargaDatos()
Alert("Actualizado Correctamente.", TipoMensaje.MsgInformacion)
End If
@@ -75,7 +75,7 @@ Partial Class MF_CatOperadores
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
HdnID.Value = GvRow.DataKey("CveOperador")
UpDatos.Update()
If ObjMF.RemoveOperador(HdnID.Value) Then
If ObjMF.RemoveOperador(HdnID.Value.ToEntero) Then
CargaDatos()
Alert("Eliminado Correctamente.", TipoMensaje.MsgInformacion)
End If
@@ -90,7 +90,7 @@ Partial Class MF_CatOperadores
Private Sub GvOperador_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvOperador.RowDataBound
If e.Row.RowType = DataControlRowType.DataRow Then
If e.Row.DBCampo("Estatus") = True Then
If Boolean.Parse(e.Row.DBCampo("Estatus")) = True Then
e.Row.FCLabel("LblEstatus").Text = "Activo"
e.Row.FCLabel("LblEstatus").ForeColor = Drawing.Color.Green