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

-- option strict on

Browse Source
This commit is contained in:
rrene
2023-08-23 00:04:25 -07:00
parent 3bc4f72658
commit e5c000432f
28 changed files with 192 additions and 279 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Acumuladores/CatTiposDefecto.aspx.vb
View File

@@ -169,8 +169,7 @@ Partial Class Acumuladores_CatTiposDefecto
Dim objAcum As New ClsAcumuladores
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
Dim activo As Boolean = 0
Dim CveCapacitador As Integer = GvRow.DataKey("CveTipoDefecto")
Dim CveCapacitador As Integer = GvRow.DataKey("CveTipoDefecto").ToEntero
If objAcum.TiposDefectoRemove(CveCapacitador, UsuarioActual.CveEmpresa) Then
CargadatosGvTiposD()
@@ -192,12 +191,11 @@ Partial Class Acumuladores_CatTiposDefecto
Public Sub Edit_ClickTiposD(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
Dim activo As Boolean = 0
LtlTituloModalTiposD.Text = "Editar Tipo Defecto"
Actualizar = True
CveTipoDefecto = GvRow.DataKey("CveTipoDefecto")
CveTipoDefecto = GvRow.DataKey("CveTipoDefecto").ToEntero
TxtTiposD.Text = GvRow.DataKey("TipoDefecto")
ChkEstatus.Checked = If(GvRow.DataKey("Estatus") = "Activo", True, False)