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

ClsContPAQI Funcion AddMovmientosImpuestos

Browse Source
This commit is contained in:
rakcsle
2025-05-02 08:25:13 -07:00
parent 405af0aea3
commit dab0743a23
3 changed files with 125 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Compras/Compras.aspx.vb
View File

@@ -1779,7 +1779,7 @@ Partial Class Compras_Compras
DdlTipoComprobante.SelectedValueExist("DEV")
End If
If Not CveCompra > 0 Then
If Not CveCompra > 0 Or (CveCompra > 0 And UsuarioActual.CveEmpresa = 141) Then
LnkProrrateoGasolina.Visible = True
InicializaDTProrrateoGasolina()
End If

2
Compras/eFacturas.aspx.vb
View File

@@ -1168,7 +1168,7 @@ Partial Class Compras_eFacturas
'End If
Dim Funcionalidad123 As Integer = UsuarioActual.Empresa.Funcionalidad(123).ToEntero
If Funcionalidad123 > 0 AndAlso Not e.Row.DataKey("CveFactura").ToEntero.Contiene(1223188) Then
If Funcionalidad123 > 0 And Not UsuarioActual.TienePermisoProceso(156) Then
If NowADS().Day >= Funcionalidad123 Then
Dim FechaLimite As Date = New Date(NowADS().Year, NowADS().Month, 1)
If e.Row.DBCampo("FechaFactura").ToDate < FechaLimite Then