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

11
Acumuladores/CatTiposUso.aspx.vb
View File

@@ -170,8 +170,7 @@ Partial Class Acumuladores_CatTiposUso
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("CveTipoUso")
Dim CveCapacitador As Integer = GvRow.DataKey("CveTipoUso").ToEntero
If objAcum.TiposUsoRemove(CveCapacitador, UsuarioActual.CveEmpresa) Then
CargadatosGvTiposUso()
@@ -193,12 +192,10 @@ Partial Class Acumuladores_CatTiposUso
Public Sub Edit_ClickTiposUso(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
Dim activo As Boolean = 0
LtlTituloModalTiposUso.Text = "Editar Tipo Uso"
Actualizar = True
CveTipoUso = GvRow.DataKey("CveTipoUso")
CveTipoUso = GvRow.DataKey("CveTipoUso").ToEntero
TxtTiposUso.Text = GvRow.DataKey("TipoUso")
ChkEstatus.Checked = If(GvRow.DataKey("Estatus") = "Activo", True, False)
@@ -216,10 +213,6 @@ Partial Class Acumuladores_CatTiposUso
End Sub
#End Region
End Class