From 9dcd512779d90e588a174c35048fea489f827ed0 Mon Sep 17 00:00:00 2001 From: Oscar Irigoyen Date: Wed, 26 Jul 2023 17:45:46 -0700 Subject: [PATCH] Personal Vacaiones controles visibles segun forma de pago --- RH/Personal.aspx | 15 ++++++++------- RH/Personal.aspx.vb | 25 +++++++++++++++---------- 2 files changed, 23 insertions(+), 17 deletions(-) diff --git a/RH/Personal.aspx b/RH/Personal.aspx index e09bf5383..25b70e88d 100644 --- a/RH/Personal.aspx +++ b/RH/Personal.aspx @@ -3065,6 +3065,7 @@ +
Periodo
@@ -3076,9 +3077,9 @@
- + -
+
@@ -3106,7 +3107,7 @@ -
+
@@ -3122,8 +3123,8 @@
-
-
+
+
Días feriados
@@ -3133,9 +3134,9 @@ - + -
+
diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb index beb4760dd..69430a788 100644 --- a/RH/Personal.aspx.vb +++ b/RH/Personal.aspx.vb @@ -5457,37 +5457,42 @@ Partial Class RH_Personal Protected Sub DdlFormapagovacaciones_SelectedIndexChanged(sender As Object, e As EventArgs) PnlVacfechas.Visible = False + PnlVacfechas2.Visible = False PnlVacDias.Visible = False 'PnlVacFechapago.Visible = False - PnlVacDiasPago.Visible = False + ' PnlVacDiasPago.Visible = False PnlVacChecks.Visible = False TxtVacDiasPago.Text = "0" + PnlVacDiasFeriados.Visible = False Select Case DdlFormapagovacaciones.SelectedValue.ToEntero() Case 1 PnlVacfechas.Visible = True + PnlVacfechas2.Visible = True PnlVacDias.Visible = True - 'PnlVacFechapago.Visible = True - PnlVacDiasPago.Visible = True PnlVacChecks.Visible = True + PnlVacDiasFeriados.Visible = True Case 2 PnlVacfechas.Visible = True - PnlVacDias.Visible = True + PnlVacfechas2.Visible = True PnlVacChecks.Visible = True + PnlVacDiasFeriados.Visible = True Case 3 PnlVacfechas.Visible = True + PnlVacfechas2.Visible = True PnlVacDias.Visible = True - PnlVacDiasPago.Visible = False - 'PnlVacFechapago.Visible = True + PnlVacDiasFeriados.Visible = True Case 4 - ' PnlVacFechapago.Visible = True - PnlVacDiasPago.Visible = True + PnlVacDias.Visible = True PnlVacChecks.Visible = True + Case 5 PnlVacfechas.Visible = True + PnlVacfechas2.Visible = True + PnlVacDias.Visible = True + PnlVacDiasFeriados.Visible = True Case 6 - 'PnlVacFechapago.Visible = True - PnlVacDiasPago.Visible = True + PnlVacDias.Visible = True End Select End Sub #End Region