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

Browse Source
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2023-09-22 09:48:56 -07:00
parent 531b270a00
commit 631ca259b8
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
RH/CatAsistenciasInasistencias.aspx.vb
View File

@@ -79,7 +79,7 @@ Partial Class RH_CatAsistenciasInasistencias
Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles BtnAgregarTiposDModal.Click 'esta funcion es la que agrega un nuevo motivo de baja se activa con el boton "Agregar" de la ventana modal" Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles BtnAgregarTiposDModal.Click 'esta funcion es la que agrega un nuevo motivo de baja se activa con el boton "Agregar" de la ventana modal"
Dim ObjAsistenciasInasistencias As New ClsRH Dim ObjAsistenciasInasistencias As New ClsRH
Dim chkAplicaFalta As Boolean = AplicaFalta.Checked Dim chkAplicaFalta As Boolean = AplicaFalta.Checked
Dim chkAplicaNoAplica As Boolean = Not AplicaNoAplica.Checked Dim chkAplicaNoAplica As Boolean = AplicaNoAplica.Checked
Dim chkAplicaVacacion As Boolean = AplicaVacacion.Checked Dim chkAplicaVacacion As Boolean = AplicaVacacion.Checked
Dim chkAplicaIncapacidad As Boolean = AplicaIncapacidad.Checked Dim chkAplicaIncapacidad As Boolean = AplicaIncapacidad.Checked
Dim chkAplicaRetardo As Boolean = AplicaRetardo.Checked Dim chkAplicaRetardo As Boolean = AplicaRetardo.Checked
@@ -154,7 +154,7 @@ Partial Class RH_CatAsistenciasInasistencias
Dim Tipo As String = TipoTxt.Text.Trim Dim Tipo As String = TipoTxt.Text.Trim
Dim TipoCorto As String = TxtTipoCorto.Text.Trim Dim TipoCorto As String = TxtTipoCorto.Text.Trim
Dim Estatus As Boolean = ChkEstatus.Checked Dim Estatus As Boolean = ChkEstatus.Checked
Dim ckAplicaFalta As Boolean = Not AplicaFalta.Checked Dim ckAplicaFalta As Boolean = AplicaFalta.Checked
Dim AplicaAsistencia As Boolean = AplicaNoAplica.Checked Dim AplicaAsistencia As Boolean = AplicaNoAplica.Checked
Dim CveAsistenciasInasistencias As Integer = CveTipoAsisAEditar 'aquí obtenemos el valor de la propiedad que utilizamos en el metodo "GvDatos_RowEditing" Dim CveAsistenciasInasistencias As Integer = CveTipoAsisAEditar 'aquí obtenemos el valor de la propiedad que utilizamos en el metodo "GvDatos_RowEditing"