From f51e1ed226b79bce915791e894e60f9f174f66ad Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 22 May 2023 11:49:04 -0700 Subject: [PATCH] -- mejora visual, falta mandar el parametro de tipocorto --- RH/CatAsistenciasInasistencias.aspx | 44 ++++++++++++++------------ RH/CatAsistenciasInasistencias.aspx.vb | 1 + 2 files changed, 24 insertions(+), 21 deletions(-) diff --git a/RH/CatAsistenciasInasistencias.aspx b/RH/CatAsistenciasInasistencias.aspx index 1a45620ae..de3bb5b88 100644 --- a/RH/CatAsistenciasInasistencias.aspx +++ b/RH/CatAsistenciasInasistencias.aspx @@ -31,11 +31,11 @@ - + - + @@ -43,7 +43,8 @@ - + + @@ -51,7 +52,7 @@ - + @@ -59,46 +60,42 @@ - - - + - + - + - + - + - + - + - - - - + + a @@ -106,17 +103,17 @@ - + - + <%-- - - + --%> + <%----%> @@ -159,6 +156,11 @@ +
+ + + +
diff --git a/RH/CatAsistenciasInasistencias.aspx.vb b/RH/CatAsistenciasInasistencias.aspx.vb index 99337a21a..e5e7cc5f8 100644 --- a/RH/CatAsistenciasInasistencias.aspx.vb +++ b/RH/CatAsistenciasInasistencias.aspx.vb @@ -120,6 +120,7 @@ chkAplicaVacacion, chkAplicaIncapacidad, chkAplicaRetardo, chkAplicaAguinaldo, c CheckActiveSection.Visible = True Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) 'obtenemos el renglon que acabamos de seleccionar TipoTxt.Text = GvRow.DataKey("Tipo") + TxtTipoCorto.Text = GvRow.DataKey("TipoCorto") AplicaNoAplica.Checked = If(GvRow.DataKey("AplicaAsistencia") = "Aplica", True, False)