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

Simplificar/limpiar código logos reportes RDLC

Browse Source
This commit is contained in:
MLopez
2022-12-22 19:49:13 -07:00
parent b2a6ad203d
commit 2e4bfe761b
141 changed files with 237 additions and 1158 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Compras/RepProductosServicios.aspx.vb
View File

@@ -496,10 +496,6 @@ Partial Class Compras_RepProductosServicios
End Sub
Protected Sub GeneraPDF(Optional Formato As String = "PDF")
Dim params As List(Of ReportParameter) = New List(Of ReportParameter)()
Dim Imagen As System.IO.FileInfo = New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
Dim Proveedor = If(DdlProveedor.SelectedValue = "-1", "", $"&emsp;<b>Proveedor:</b>&nbsp;{DdlProveedor.SelectedText}")
Dim FechaInicio = If(txtFechaI.Text = "", "", $"&emsp;<b>Fecha Inicio:</b>&nbsp;{txtFechaI.Text}")
Dim FechaFin = If(txtFechaF.Text = "", "", $"&emsp;<b>Fecha Fin:</b>&nbsp;{txtFechaF.Text}")
@@ -515,6 +511,8 @@ Partial Class Compras_RepProductosServicios
Dim SubTipoAF = If(DdlSubTipoAF.GetSelectedText = "", "", $"&emsp;<b>SubTipo AF:</b>&nbsp;{DdlSubTipoAF.GetSelectedText}")
Dim AF = If(DdlAF.SelectedValue = "-1", "", $"&emsp;<b>Activo Fijo:</b>&nbsp;{DdlAF.SelectedItem.Text}")
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
Dim params As New List(Of ReportParameter)()
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString()))
@@ -535,11 +533,7 @@ Partial Class Compras_RepProductosServicios
'params.Add(New ReportParameter("SubTipoAF", IIf(DdlSubTipoAF.GetSelectedText = "", "Todos", DdlSubTipoAF.GetSelectedText).ToString()))
'params.Add(New ReportParameter("AF", IIf(DdlAF.SelectedItem.Text = "", "Todos", DdlAF.SelectedItem.Text).ToString()))
If Imagen.Exists Then
params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
Else
params.Add(New ReportParameter("LogoPath", ""))
End If
params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
ImprimirPDF("Empresas/Grales/Formatos/RepProductosServiciosCompras.rdlc", DtDatos, params, "Reporte de Productos Servicios", Formato)
End Sub