From 631ca259b84d95b56b14d3b1cd0075c0dbb612bd Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Fri, 22 Sep 2023 09:48:56 -0700 Subject: [PATCH] --- RH/CatAsistenciasInasistencias.aspx.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/RH/CatAsistenciasInasistencias.aspx.vb b/RH/CatAsistenciasInasistencias.aspx.vb index e46a468a1..6f2ff753a 100644 --- a/RH/CatAsistenciasInasistencias.aspx.vb +++ b/RH/CatAsistenciasInasistencias.aspx.vb @@ -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" Dim ObjAsistenciasInasistencias As New ClsRH 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 chkAplicaIncapacidad As Boolean = AplicaIncapacidad.Checked Dim chkAplicaRetardo As Boolean = AplicaRetardo.Checked @@ -154,7 +154,7 @@ Partial Class RH_CatAsistenciasInasistencias Dim Tipo As String = TipoTxt.Text.Trim Dim TipoCorto As String = TxtTipoCorto.Text.Trim 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 CveAsistenciasInasistencias As Integer = CveTipoAsisAEditar 'aquĆ­ obtenemos el valor de la propiedad que utilizamos en el metodo "GvDatos_RowEditing"