From 0172e5711ce2dffb9b423efac66275676ea64f7c Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Wed, 17 Apr 2024 10:56:43 -0700
Subject: [PATCH] =?UTF-8?q?Compras=20c=C3=B3digos=20no=20se=20ve=20al=20as?=
 =?UTF-8?q?ignar=20alias?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Compras/Compras.aspx.vb             | 2 +-
 RH/RepChecadorPreAsistencia.aspx.vb | 7 +++++++
 2 files changed, 8 insertions(+), 1 deletion(-)

diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 0b165f698..2effb9bda 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -9897,7 +9897,7 @@ Partial Class Compras_Compras
                         e.Row.FCLabel("LtlUnidadMedida").Attributes.Add("title", "Unidad de medida SIN registrar")
                     End If
 
-                    If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then e.Row.FCHyperLink("HplPS").Text = e.Row.DBCampo("PSCodigo")
+                    'If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then e.Row.FCHyperLink("HplPS").Text = e.Row.DBCampo("PSCodigo")
 
                     'EQUIVALENCIA
                     If e.Row.DBCampo("CveUM").ToString.ToEntero > 0 And e.Row.DBCampo("CveTipoPS").ToString.ToEntero = 2 Then
diff --git a/RH/RepChecadorPreAsistencia.aspx.vb b/RH/RepChecadorPreAsistencia.aspx.vb
index 05177136f..321280968 100644
--- a/RH/RepChecadorPreAsistencia.aspx.vb
+++ b/RH/RepChecadorPreAsistencia.aspx.vb
@@ -1686,6 +1686,8 @@ Partial Class RH_RepChecadorPreAsistencia
             Dim separador As Char()
             Dim arrayComands As String()
 
+            Dim Fecha As Date = FechaInicioPeriodo
+
             For x As Integer = 3 To 33
 
                 NombreLink = "LnkFecha" & CountFecha
@@ -1695,6 +1697,10 @@ Partial Class RH_RepChecadorPreAsistencia
                 arrayComands = lnkLink.Text.Split(separador)
                 Instruccion = arrayComands(0)
 
+                If Fecha >= NowADS() Then
+                    lnkLink.Visible = False
+                End If
+
                 If arrayComands.Length > 1 Then Filtro = arrayComands(1) Else Filtro = ""
 
                 lnkLink.CommandArgument = $"{lnkLink.Text}|{e.Row.DataKey("CvePersonal")}|{e.Row.DataKey("NombreCompleto")}"
@@ -1827,6 +1833,7 @@ Partial Class RH_RepChecadorPreAsistencia
                     AddHandler lnkLink.Click, AddressOf Me.DetalleDia_Click
                 End If
                 CountFecha = CountFecha + 1
+                Fecha = Fecha.AddDays(1)
             Next
 
             If ContadorFaltas > 0 Then