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

Saldos Menores, EMD - impresión de presupuestos, en base a OC autorizadas

Browse Source
This commit is contained in:
rakcsle
2024-06-22 12:07:26 -07:00
parent 5b6e0eea44
commit ec753bf3dc
5 changed files with 27 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
Contratos/RepPresupuestos.aspx.vb
View File

@@ -602,11 +602,21 @@ Partial Class Contratos_RepPresupuestos
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
params.Add(New ReportParameter("AgrupadoPor", $"{FechaIn}{FechaFn}{Agrupador}{Proyecto}{SubProyecto}{Clasificacion}{TipoGasto}"))
params.Add(New ReportParameter("Autorizado", LtlAutorizado.Text.FormatoNumero()))
params.Add(New ReportParameter("Ejercido", LtlEjercido.Text.FormatoNumero()))
params.Add(New ReportParameter("Autorizado", LtlAutorizado.Text.FormatoNumero()))
params.Add(New ReportParameter("PorEjercer", LtlPorEjercer.Text.FormatoNumero()))
params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
If UsuarioActual.Empresa.Funcionalidad(532) = "2" Then
Dim DrPresupuesto = DtPresupuestos.FiltroPrimero("Tipo = 0 AND CveAgrupador IS NULL")
Dim Comprometido = DrPresupuesto("Comprometido").ToString.ToDecimal
params.Add(New ReportParameter("Ejercido", Comprometido.ToString.FormatoNumero()))
Else
params.Add(New ReportParameter("Ejercido", LtlEjercido.Text.FormatoNumero()))
End If
params.Add(New ReportParameter("PresupuestoRestrictivo", UsuarioActual.Empresa.Funcionalidad(532)))