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

Compilación

Browse Source
This commit is contained in:
rakcsle
2023-08-24 17:53:05 -07:00
parent e0800e68d2
commit 435a92dea3
12 changed files with 86 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
RH/CatCursosTemas.aspx.vb
View File

@@ -95,8 +95,8 @@ Partial Class RH_CatCursosTemas
Public Sub Remove_ClickTema(sender As Object, e As EventArgs)
Dim objRH As New ClsRH
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
Dim activo As Boolean = 0
Dim CveTema As Integer = GvRow.DataKey("CveTema")
Dim activo As Boolean = False
Dim CveTema As Integer = GvRow.DataKey("CveTema").ToEntero
If objRH.TemasRemove(CveTema) Then
CargadatosGvTemas()
@@ -109,14 +109,14 @@ Partial Class RH_CatCursosTemas
Public Sub Edit_ClickTema(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
Dim activo As Boolean = 0
Dim activo As Boolean = False
LtlTituloModalTema.Text = "Editar Tema"
HdModalTemaModalidad.Value = "U"
HdCveTema.Value = GvRow.DataKey("CveTema")
TxtTema.Text = GvRow.DataKey("Tema")
ChkEstatusTema.Checked = GvRow.DataKey("Estatus")
ChkEstatusTema.Checked = Boolean.Parse(GvRow.DataKey("Estatus"))
BtnAgregarTemaModal.Text = "Actualizar"
LoadComboTemas()
UpModalTema.Update()
@@ -173,8 +173,8 @@ Partial Class RH_CatCursosTemas
Public Sub Remove_ClickSubtema(sender As Object, e As EventArgs)
Dim objRH As New ClsRH
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
Dim activo As Boolean = 0
Dim CveTema As Integer = GvRow.DataKey("CveSubtema")
Dim activo As Boolean = False
Dim CveTema As Integer = GvRow.DataKey("CveSubtema").ToEntero
If objRH.SubtemaRemove(CveTema) Then
CargadatosGvTemas()
@@ -244,7 +244,7 @@ Partial Class RH_CatCursosTemas
HdCveSubtema.Value = GvRow.DataKey("CveSubtema")
DDlTema.SelectedValueExist(GvRow.DataKey("CveTema"))
TxtSubtema.Text = GvRow.DataKey("Subtema")
ChkEstatusSubtema.Checked = GvRow.DataKey("Estatus")
ChkEstatusSubtema.Checked = Boolean.Parse(GvRow.DataKey("Estatus"))
LtlTituloModalSubtema.Text = "Editar Subtema"
BtnAgregarSubtemaModal.Text = "Actualizar"