Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

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

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