RH/CatAsistenciasInasistencias.aspx.vb

@@ -64,7 +64,7 @@ Partial Class RH_CatAsistenciasInasistencias
         BtnAgregarTiposDModal.Visible = True
         CheckActiveSection.Visible = False
         AplicaNoAplica.Checked = False
-        AplicaFalta.Checked = False
+        AplicaFalta.Checked = True
         AplicaVacacion.Checked = False
         AplicaIncapacidad.Checked = False
         AplicaRetardo.Checked = False
@@ -78,6 +78,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 chkAplicaVacacion As Boolean = AplicaVacacion.Checked
         Dim chkAplicaIncapacidad As Boolean = AplicaIncapacidad.Checked
@@ -86,7 +87,7 @@ Partial Class RH_CatAsistenciasInasistencias
         Dim chkAplicaUtilidades As Boolean = AplicaUtilidades.Checked
 
 
-        If ObjAsistenciasInasistencias.AddAsistenciasInasistencias(TipoTxt.Text.Trim, chkAplicaNoAplica, chkAplicaNoAplica, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
+        If ObjAsistenciasInasistencias.AddAsistenciasInasistencias(TipoTxt.Text.Trim, chkAplicaFalta, chkAplicaNoAplica, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
 chkAplicaVacacion, chkAplicaIncapacidad, chkAplicaRetardo, chkAplicaAguinaldo, chkAplicaUtilidades) Then
             TipoTxt.Text = ""
             Alert("El nuevo Tipo Asistencias/Inasistencias se guardó correctamente.", TipoMensaje.MsgInformacion)
@@ -121,6 +122,7 @@ chkAplicaVacacion, chkAplicaIncapacidad, chkAplicaRetardo, chkAplicaAguinaldo, c
 
 
         AplicaFalta.Checked = If(GvRow.DataKey("AplicaFalta") = "Aplica", True, False)
+
         AplicaVacacion.Checked = If(GvRow.DataKey("AplicaVacacion") = "Aplica", True, False)
         AplicaIncapacidad.Checked = If(GvRow.DataKey("AplicaIncapacidad") = "Aplica", True, False)
         AplicaRetardo.Checked = If(GvRow.DataKey("AplicaRetardo") = "Aplica", True, False)
@@ -142,7 +144,7 @@ chkAplicaVacacion, chkAplicaIncapacidad, chkAplicaRetardo, chkAplicaAguinaldo, c
         Dim ObjAsistenciasInasistencias As New ClsRH
         Dim Tipo As String = TipoTxt.Text.Trim
         Dim Estatus As Boolean = ChkEstatus.Checked
-        Dim AplicaFalta As Boolean = Not AplicaNoAplica.Checked
+        Dim ckAplicaFalta As Boolean = Not 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"
 
@@ -155,7 +157,7 @@ chkAplicaVacacion, chkAplicaIncapacidad, chkAplicaRetardo, chkAplicaAguinaldo, c
         Dim chkAplicaUtilidades As Boolean = AplicaUtilidades.Checked
 
 
-        If ObjAsistenciasInasistencias.UpdateAsistenciasInasistencias(Tipo, AplicaFalta, AplicaAsistencia, Estatus, CveAsistenciasInasistencias,
+        If ObjAsistenciasInasistencias.UpdateAsistenciasInasistencias(Tipo, ckAplicaFalta, AplicaAsistencia, Estatus, CveAsistenciasInasistencias,
                     chkAplicaVacacion, chkAplicaIncapacidad, chkAplicaRetardo, chkAplicaAguinaldo, chkAplicaUtilidades) Then
             GvDatos.EditIndex = -1
             ViewState("DTAsistenciasInasistencias") = ObjAsistenciasInasistencias.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)