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

- comentar candado EMD registro 2024

Browse Source
This commit is contained in:
rrene
2025-02-27 12:25:38 -07:00
parent df21e26eab
commit 6eeea91134
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Compras/eFacturas.aspx.vb
View File

@@ -1156,12 +1156,12 @@ 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) AndAlso UsuarioActual.CveUsuario <> 1803 Then 'If UsuarioActual.CveEmpresa.Contiene(13, 83) AndAlso UsuarioActual.CveUsuario <> 1803 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
e.Row.FCCheckBox("chkRegistraFactura").Attributes.Add("onclick", "ChkRegsitraFacturas()") e.Row.FCCheckBox("chkRegistraFactura").Attributes.Add("onclick", "ChkRegsitraFacturas()")