Emd RepOC, Emd valida no registra Compras de 2024 dede 28 de Diciembre

Compras/eFacturas.aspx.vb

@@ -24,10 +24,8 @@ Imports ADS.eFacturas
 Imports SharpCompress.Archive.Rar
 Imports SharpCompress.Common
 Imports SharpCompress.Reader
-Imports System.Drawing
-Imports Microsoft.Owin.Security.Provider
 Imports Telerik.Web.UI
-Imports Stimulsoft.Base.StiDbType
+
 
 'Imports Telerik.Web.UI
 
@@ -1121,9 +1119,18 @@ Partial Class Compras_eFacturas
 
 
             If Not e.Row.DataKey("CveProveedor").ToEntero > 0 Then
-
                 e.Row.FCCheckBox("chkRegistraFactura").Visible = False
+            End If
 
+            If UsuarioActual.CveEmpresa.Contiene(13, 83) Then
+
+                Dim FechaFactura As Date = e.Row.DataKey("FechaFactura").ToDate
+                Dim AnioFactura As Integer = FechaFactura.Year
+
+                Dim Fecha28Dic As Date = New Date(2024, 12, 28)
+                If NowADS() >= Fecha28Dic Then
+                    e.Row.FCHyperLink("HplAgregar").Visible = False
+                End If
             End If
 
         End If