RH/CatAsistenciasInasistencias.aspx.vb

@@ -6,7 +6,7 @@ Imports System.Linq
 Imports Extensiones
 
 Partial Class RH_CatAsistenciasInasistencias
-	Inherits ClsPaginas
+    Inherits ClsPaginas
 
 #Region " PROPIEDADES "
     Public Property PuedeEditar As Boolean
@@ -63,7 +63,13 @@ Partial Class RH_CatAsistenciasInasistencias
         BtnEditarTiposDModal.Visible = False
         BtnAgregarTiposDModal.Visible = True
         CheckActiveSection.Visible = False
-        saltoDeLinea.Visible = False
+        AplicaNoAplica.Checked = False
+        AplicaFalta.Checked = False
+        AplicaVacacion.Checked = False
+        AplicaIncapacidad.Checked = False
+        AplicaRetardo.Checked = False
+        AplicaAguinaldo.Checked = False
+        AplicaUtilidades.Checked = False
         TipoTxt.Text = ""
         UpModalTiposD.Update()
         RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarTiposD"))
@@ -72,7 +78,16 @@ 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
-        If ObjAsistenciasInasistencias.AddAsistenciasInasistencias(TipoTxt.Text.Trim, Not AplicaNoAplica.Checked, AplicaNoAplica.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+        Dim chkAplicaNoAplica As Boolean = Not AplicaNoAplica.Checked
+        Dim chkAplicaVacacion As Boolean = AplicaVacacion.Checked
+        Dim chkAplicaIncapacidad As Boolean = AplicaIncapacidad.Checked
+        Dim chkAplicaRetardo As Boolean = AplicaRetardo.Checked
+        Dim chkAplicaAguinaldo As Boolean = AplicaAguinaldo.Checked
+        Dim chkAplicaUtilidades As Boolean = AplicaUtilidades.Checked
+
+
+        If ObjAsistenciasInasistencias.AddAsistenciasInasistencias(TipoTxt.Text.Trim, chkAplicaNoAplica, chkAplicaNoAplica, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
+chkAplicaVacacion, chkAplicaIncapacidad, chkAplicaRetardo, chkAplicaAguinaldo, chkAplicaUtilidades) Then
             TipoTxt.Text = ""
             Alert("El nuevo Tipo Asistencias/Inasistencias se guardó correctamente.", TipoMensaje.MsgInformacion)
             UpTitulos.Update()
@@ -100,11 +115,18 @@ Partial Class RH_CatAsistenciasInasistencias
         BtnAgregarTiposDModal.Visible = False
         BtnEditarTiposDModal.Visible = True
         CheckActiveSection.Visible = True
-        saltoDeLinea.Visible = True
-
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) 'obtenemos el renglon que acabamos de seleccionar
         TipoTxt.Text = GvRow.DataKey("Tipo")
         AplicaNoAplica.Checked = If(GvRow.DataKey("AplicaAsistencia") = "Aplica", True, False)
+
+
+        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)
+        AplicaAguinaldo.Checked = If(GvRow.DataKey("AplicaAguinaldo") = "Aplica", True, False)
+        AplicaUtilidades.Checked = If(GvRow.DataKey("AplicaUtilidades") = "Aplica", True, False)
+
         ChkEstatus.Checked = If(GvRow.DataKey("Estatus") = "Activo", True, False)
         CveTipoAsisAEditar = Convert.ToInt32(GvRow.DataKey("CveAsistenciasInasistencias")) 'Guardamos en una propiedad el id del registro del cual haremos cambios, se guarda y se utiliza en el metodo "GvDatos_RowUpdating"
 
@@ -124,7 +146,17 @@ Partial Class RH_CatAsistenciasInasistencias
         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"
 
-        If ObjAsistenciasInasistencias.UpdateAsistenciasInasistencias(Tipo, AplicaFalta, AplicaAsistencia, Estatus, CveAsistenciasInasistencias) Then
+
+
+        Dim chkAplicaVacacion As Boolean = AplicaVacacion.Checked
+        Dim chkAplicaIncapacidad As Boolean = AplicaIncapacidad.Checked
+        Dim chkAplicaRetardo As Boolean = AplicaRetardo.Checked
+        Dim chkAplicaAguinaldo As Boolean = AplicaAguinaldo.Checked
+        Dim chkAplicaUtilidades As Boolean = AplicaUtilidades.Checked
+
+
+        If ObjAsistenciasInasistencias.UpdateAsistenciasInasistencias(Tipo, AplicaFalta, AplicaAsistencia, Estatus, CveAsistenciasInasistencias,
+                    chkAplicaVacacion, chkAplicaIncapacidad, chkAplicaRetardo, chkAplicaAguinaldo, chkAplicaUtilidades) Then
             GvDatos.EditIndex = -1
             ViewState("DTAsistenciasInasistencias") = ObjAsistenciasInasistencias.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
             GlobalDTAsistenciasInasistencias = ObjAsistenciasInasistencias.DtResultados