diff --git a/RH/CatAsistenciasInasistencias.aspx.vb b/RH/CatAsistenciasInasistencias.aspx.vb
index 6f2ff753a..e280abb9a 100644
--- a/RH/CatAsistenciasInasistencias.aspx.vb
+++ b/RH/CatAsistenciasInasistencias.aspx.vb
@@ -69,6 +69,9 @@ Partial Class RH_CatAsistenciasInasistencias
AplicaRetardo.Checked = False
AplicaAguinaldo.Checked = False
AplicaUtilidades.Checked = False
+ ChkAplicaPagoDoble.Checked = False
+ ChkAplicaPrimaDominical.Checked = False
+
TipoTxt.Text = ""
TxtTipoCorto.Text = ""
UpModalTiposD.Update()
@@ -88,10 +91,11 @@ Partial Class RH_CatAsistenciasInasistencias
Dim aplicaPago As Integer = If(ChkAplicaPago.Checked, 1, 0)
Dim aplicaPagoDoble As Integer = If(ChkAplicaPagoDoble.Checked, 1, 0)
Dim aplicaPrimaVac As Integer = If(ChkAplicaPrimaVac.Checked, 1, 0)
+ Dim AplicaPrimaDominical As Integer = If(ChkAplicaPrimaDominical.Checked, 1, 0)
If ObjAsistenciasInasistencias.AddAsistenciasInasistencias(TipoTxt.Text.Trim, chkAplicaFalta, chkAplicaNoAplica, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
- chkAplicaVacacion, chkAplicaIncapacidad, chkAplicaRetardo, chkAplicaAguinaldo, chkAplicaUtilidades, aplicaPago, aplicaPagoDoble, aplicaPrimaVac, TxtTipoCorto.Text) Then
+ chkAplicaVacacion, chkAplicaIncapacidad, chkAplicaRetardo, chkAplicaAguinaldo, chkAplicaUtilidades, aplicaPago, aplicaPagoDoble, aplicaPrimaVac, TxtTipoCorto.Text, AplicaPrimaDominical) Then
TipoTxt.Text = ""
Alert("El nuevo Tipo Asistencias/Inasistencias se guardó correctamente.", TipoMensaje.MsgInformacion)
UpTitulos.Update()
@@ -136,7 +140,7 @@ Partial Class RH_CatAsistenciasInasistencias
ChkAplicaPago.Checked = If(GvRow.DataKey("AplicaPago") = "Aplica", True, False)
ChkAplicaPagoDoble.Checked = If(GvRow.DataKey("AplicaPagoDoble") = "Aplica", True, False)
ChkAplicaPrimaVac.Checked = If(GvRow.DataKey("AplicaPrimaVac") = "Aplica", True, False)
-
+ ChkAplicaPrimaDominical.Checked = If(GvRow.DataKey("AplicaPrimaDominical") = "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"
@@ -170,12 +174,13 @@ Partial Class RH_CatAsistenciasInasistencias
Dim aplicaPagoDoble As Integer = If(ChkAplicaPagoDoble.Checked, 1, 0)
Dim aplicaPrimaVac As Integer = If(ChkAplicaPrimaVac.Checked, 1, 0)
+ Dim AplicaPrimaDominical As Integer = If(ChkAplicaPrimaDominical.Checked, 1, 0)
If ObjAsistenciasInasistencias.UpdateAsistenciasInasistencias(Tipo, ckAplicaFalta, AplicaAsistencia, Estatus, CveAsistenciasInasistencias,
chkAplicaVacacion, chkAplicaIncapacidad, chkAplicaRetardo, chkAplicaAguinaldo, chkAplicaUtilidades, aplicaPago, aplicaPagoDoble,
- aplicaPrimaVac, TxtTipoCorto.Text) Then
+ aplicaPrimaVac, TxtTipoCorto.Text, AplicaPrimaDominical) Then
GvDatos.EditIndex = -1
ViewState("DTAsistenciasInasistencias") = ObjAsistenciasInasistencias.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
GlobalDTAsistenciasInasistencias(UsuarioActual.CveEmpresa) = Nothing
diff --git a/RH/Personal.aspx b/RH/Personal.aspx
index 9053f04f4..eeef32c5e 100644
--- a/RH/Personal.aspx
+++ b/RH/Personal.aspx
@@ -2177,6 +2177,7 @@
+