From 6fd5c5bd266766654d87d1bd5c7d897c276bc84e Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 9 Jan 2025 12:06:28 -0700 Subject: [PATCH] =?UTF-8?q?--=20activaci=C3=B3n=20de=20regitro=20para=20EM?= =?UTF-8?q?D=20por=20el=20d=C3=ADa=20de=20hoy?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Compras/Compras.aspx.vb | 16 ++++++++-------- Compras/eFacturas.aspx.vb | 12 ++++++------ 2 files changed, 14 insertions(+), 14 deletions(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 43418882f..d7e1240dd 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -4313,16 +4313,16 @@ Partial Class Compras_Compras '------------------ INICIA VALIDACIONES ------------------ - If UsuarioActual.CveEmpresa.Contiene(13, 83) 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 AndAlso TxtFecha.Text.ToDate.Year < 2025 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 + ' Dim AnioFactura As Integer = TxtFecha.Text.ToDate.Year + ' Dim Fecha28Dic As Date = New Date(2024, 12, 28) + ' If NowADS() >= Fecha28Dic AndAlso TxtFecha.Text.ToDate.Year < 2025 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 diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb index 641e5d482..ac6c94e32 100644 --- a/Compras/eFacturas.aspx.vb +++ b/Compras/eFacturas.aspx.vb @@ -1122,13 +1122,13 @@ Partial Class Compras_eFacturas e.Row.FCCheckBox("chkRegistraFactura").Visible = False End If - If UsuarioActual.CveEmpresa.Contiene(13, 83) Then + 'If UsuarioActual.CveEmpresa.Contiene(13, 83) Then - Dim Fecha28Dic As Date = New Date(2024, 12, 28) - If NowADS() >= Fecha28Dic AndAlso e.Row.DBCampo("FechaFactura").ToDate.Year < 2025 Then - e.Row.FCHyperLink("HplAgregar").Visible = False - End If - End If + ' Dim Fecha28Dic As Date = New Date(2024, 12, 28) + ' If NowADS() >= Fecha28Dic AndAlso e.Row.DBCampo("FechaFactura").ToDate.Year < 2025 Then + ' e.Row.FCHyperLink("HplAgregar").Visible = False + ' End If + 'End If End If End Sub