AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- activación de regitro para EMD por el día de hoy

Browse Source
This commit is contained in:
rrene
2025-01-09 12:06:28 -07:00
parent 0a578306f3
commit 6fd5c5bd26
2 changed files with 14 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
Compras/Compras.aspx.vb
View File

@@ -4313,16 +4313,16 @@ Partial Class Compras_Compras
'------------------ INICIA VALIDACIONES ------------------ '------------------ 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 AnioFactura As Integer = TxtFecha.Text.ToDate.Year
Dim Fecha28Dic As Date = New Date(2024, 12, 28) ' Dim Fecha28Dic As Date = New Date(2024, 12, 28)
If NowADS() >= Fecha28Dic AndAlso TxtFecha.Text.ToDate.Year < 2025 Then ' 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) ' Alert("A partir del 28 de diciembre de 2024 no se pueden registrar facturas de 2024.", TipoMensaje.MsgAdvertencia)
Exit Sub ' Exit Sub
End If ' End If
End If 'End If
If Not ValidaPresupuesto(2) Then If Not ValidaPresupuesto(2) Then
Exit Sub Exit Sub

12
Compras/eFacturas.aspx.vb
View File

@@ -1122,13 +1122,13 @@ Partial Class Compras_eFacturas
e.Row.FCCheckBox("chkRegistraFactura").Visible = False e.Row.FCCheckBox("chkRegistraFactura").Visible = False
End If 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) ' Dim Fecha28Dic As Date = New Date(2024, 12, 28)
If NowADS() >= Fecha28Dic AndAlso e.Row.DBCampo("FechaFactura").ToDate.Year < 2025 Then ' If NowADS() >= Fecha28Dic AndAlso e.Row.DBCampo("FechaFactura").ToDate.Year < 2025 Then
e.Row.FCHyperLink("HplAgregar").Visible = False ' e.Row.FCHyperLink("HplAgregar").Visible = False
End If ' End If
End If 'End If
End If End If
End Sub End Sub