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

16
Contabilidad2/RepSituacionFinanciera.aspx.vb
View File

@@ -590,24 +590,12 @@ Partial Class AC2_SituacionFinanciera
Dim FechaF = DateAdd(DateInterval.Day, -1, DateAdd(DateInterval.Month, 1, CDate(FechaI))).ToString("dd/MM/yyyy")
Dim fileName As String = "EdoSituacionFinanciera"
Dim reportpath As String = "Contabilidad2/Reportes/RepSituacionFinanciera.rdlc"
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 ImgLogoInfo As New IO.FileInfo($"{UsuarioActual.Empresa.Ruta}\Logo.png")
If ImgLogoInfo.Exists Then
params.Add(New ReportParameter("pImg", $"file://{ImgLogoInfo.FullName}"))
Else
params.Add(New ReportParameter("pImg", ""))
End If
params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
params.Add(New ReportParameter("pFirma1", If(ChkFirma.Checked, String.Format("{0}", vbCrLf), "")))
params.Add(New ReportParameter("pFirma2", If(ChkFirma.Checked, String.Format("{0}l", vbCrLf), "")))
params.Add(New ReportParameter("pFechaFin", FechaF))