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
 

Compras/PopUpVerFactura.aspx.vb

@@ -3058,7 +3058,7 @@ Partial Class PopUpVerFactura
                     If CveConcepto = 33 Then ConceptoFormato = "ENTRADA MANUAL"
 
                     'IMPRESION ESPECIAL SALIDA DE COMPUPROVEEDORES y VSH
-                    If UsuarioActual.CveEmpresa.Contiene(72, 80, 119, 4, 145, 146, 186, 193) Then
+                    If UsuarioActual.CveEmpresa.Contiene(72, 80, 119, 4, 145, 146, 186, 193, 189) Then
                         params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                         params.Add(New ReportParameter("Concepto", ConceptoFormato))
                         params.Add(New ReportParameter("Almacen", Almacen))
@@ -3080,7 +3080,7 @@ Partial Class PopUpVerFactura
 
                         params.Add(New ReportParameter("Observaciones", Observaciones))
 
-                        If UsuarioActual.CveEmpresa.Contiene(186) Then
+                        If UsuarioActual.CveEmpresa.Contiene(186, 189, 193) Then
                             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
                             params.Add(New ReportParameter("NombreProveedor", If(CveCompra > 0, dr("RazonSocial").ToString, "")))
                         End If

Compras/eFacturas.aspx

@@ -408,7 +408,7 @@
 
                         <div class="row">
                             <div class="col-md-12">
-                                <asp:GridView ID="GvD" runat="server" Width="100%" AutoGenerateColumns="False" DataKeyNames="CveFactura,CveCompra,CveProveedor,SerieFolio,NombreProveedor,UUID,RFCDe,RFCPara,TipoFactura,FueValidado,TipoComprobante,Version,RFCde,XML,PDF,BloquePorComplemento,Total,CveTipoProveedor"
+                                <asp:GridView ID="GvD" runat="server" Width="100%" AutoGenerateColumns="False" DataKeyNames="CveFactura,CveCompra,CveProveedor,SerieFolio,NombreProveedor,UUID,RFCDe,RFCPara,TipoFactura,FueValidado,TipoComprobante,Version,RFCde,XML,PDF,BloquePorComplemento,Total,CveTipoProveedor,FechaFactura"
                             EmptyDataText="No se encontraron Registros con el filtro actual" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" data-sort="true" GridLines="None">
                             <Columns>
 

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