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

Simplificar referencias a logos en RDLC y más limpieza de código

Browse Source
This commit is contained in:
MLopez
2022-12-22 19:26:13 -07:00
parent 2e4bfe761b
commit 5ef0983e77
260 changed files with 446 additions and 591 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
AC/RepPresupuestoEgresos.aspx.vb
View File

@@ -219,10 +219,10 @@ Partial Class AC_RepPresupuestoEgresos
#Region "I M P R I M I R "
Protected Sub ImprimiReporte(Optional Formato As String = "PDF")
Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
Dim params As New List(Of ReportParameter)
params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
params.Add(New ReportParameter("pEjercicio", DdlEjercicio.SelectedValue.ToString))
params.Add(New ReportParameter("pFechaCorte", txtFechaF.Text))
@@ -232,25 +232,19 @@ Partial Class AC_RepPresupuestoEgresos
'Dim rds As New ReportDataSource
'rds.Name = "DataSet1"
'rds.Value = DtPresupuestoEgresos
'Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
'MasterReporteador.LocalReport.DataSources.Clear()
'MasterReporteador.LocalReport.DataSources.Add(rds)
'MasterReporteador.LocalReport.ReportPath = "AC/Reportes/RepPresupuestoEgresos.rdlc"
'MasterReporteador.ProcessingMode = ProcessingMode.Local
'MasterReporteador.LocalReport.EnableExternalImages = True
'Dim params As New List(Of ReportParameter)
'Dim params As New List(Of ReportParameter)
'params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
'Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
'If Imagen.Exists Then
' params.Add(New ReportParameter("pImg", $"file://{Imagen.FullName}"))
'Else
' params.Add(New ReportParameter("pImg", ""))
'End If
'params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
'MasterReporteador.LocalReport.SetParameters(params)
'MasterReporteador.LocalReport.Refresh()
'Dim warnings As Warning() = Nothing