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

Compras/Compras.aspx.vb

@@ -4253,7 +4253,18 @@ Partial Class Compras_Compras
 
         '------------------ INICIA VALIDACIONES ------------------
 
-        If Not ValidaPresupuesto(2) Then
+        If UsuarioActual.CveEmpresa.Contiene(13, 83) Then
+
+
+            Dim AnioFactura As Integer = TxtFecha.Text.ToDate.Year
+            Dim Fecha28Dic As Date = New Date(2024, 12, 28)
+            If NowADS() >= Fecha28Dic Then
+                Alert("A partir del 28 de diciembre de 2024 no se pueden registrar facturas de 2024.", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+        End If
+
+            If Not ValidaPresupuesto(2) Then
             Exit Sub
         End If