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

2022-12-22 19:26:13 -07:00
parent 2e4bfe761b
commit 5ef0983e77
260 changed files with 446 additions and 591 deletions
--- a/Contabilidad2/MovimientosconProveedores.aspx.vb
+++ b/Contabilidad2/MovimientosconProveedores.aspx.vb
@@ -277,7 +277,7 @@ Partial Class MovimientosconProveedores
        Dim params As New List(Of ReportParameter)
        params.Add(New ReportParameter("IdCuenta", IdCuenta.ToString))
        params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
-        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
        params.Add(New ReportParameter("pFechaFin", FechaFin.ToString("dd/MM/yyyy")))

--- a/Contabilidad2/RepAnexoCatalogo.aspx.vb
+++ b/Contabilidad2/RepAnexoCatalogo.aspx.vb
@@ -297,7 +297,7 @@ Partial Class AC2_RepAnexoCatalogo
        params.Add(New ReportParameter("IdCuenta", IdCuenta.ToString))
        params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
        params.Add(New ReportParameter("usuarioImprimio", UsuarioActual.Nombre))
-        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
        params.Add(New ReportParameter("pFechaFin", FechaFin.ToString("dd/MM/yyyy")))
        params.Add(New ReportParameter("pFechaInicio", FechaInicio.ToString("dd/MM/yyyy")))
--- a/Contabilidad2/RepAnexoCatalogoMensualHorizontal.aspx.vb
+++ b/Contabilidad2/RepAnexoCatalogoMensualHorizontal.aspx.vb
@@ -293,7 +293,7 @@ Partial Class Contabilidad_RepAnexoCatalogoMensualHorizontal
        params.Add(New ReportParameter("IdCuenta", IdCuenta.ToString))
        params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
        params.Add(New ReportParameter("usuarioImprimio", UsuarioActual.Nombre))
-        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
        params.Add(New ReportParameter("pFechaFin", FechaFin.ToString("dd/MM/yyyy")))
        params.Add(New ReportParameter("pFechaInicio", FechaInicio.ToString("dd/MM/yyyy")))
--- a/Contabilidad2/RepAnexoCatalogoSAT.aspx.vb.exclude
+++ b/Contabilidad2/RepAnexoCatalogoSAT.aspx.vb.exclude
@@ -277,7 +277,7 @@ Partial Class FinanzasSAT_RepAnexoCatalogo
        Dim params As New List(Of ReportParameter)
        params.Add(New ReportParameter("IdCuenta", IdCuenta.ToString))
        params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
-        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
        params.Add(New ReportParameter("pFechaFin", FechaFin.ToString("dd/MM/yyyy")))

--- a/Contabilidad2/RepBalanceGeneral.aspx.vb.exclude
+++ b/Contabilidad2/RepBalanceGeneral.aspx.vb.exclude
@@ -971,7 +971,7 @@ Partial Class Contabilidad2_RepBalanceGeneral
        'parametros a enviar al reporte                     
        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))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
        params.Add(New ReportParameter("pFirma1", ""))
        params.Add(New ReportParameter("pFirma2", ""))
--- a/Contabilidad2/RepBalanceGeneralHorizontal.aspx.vb
+++ b/Contabilidad2/RepBalanceGeneralHorizontal.aspx.vb
@@ -836,7 +836,7 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal
        'parametros a enviar al reporte                     
        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))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
        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), "")))
--- a/Contabilidad2/RepBalanzaComprobacion.aspx.vb
+++ b/Contabilidad2/RepBalanzaComprobacion.aspx.vb
@@ -204,7 +204,7 @@ Partial Class Contabilidad2_RepBalanzaComprobacion
        'parametros a enviar al reporte                     
        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))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
        params.Add(New ReportParameter("pFechaFin", FechaFin.ToString("dd/MM/yyyy")))
        params.Add(New ReportParameter("pFechaIni", FechaInicio.ToString("dd/MM/yyyy")))
--- a/Contabilidad2/RepBalanzaComprobacionSAT.aspx.vb.exclude
+++ b/Contabilidad2/RepBalanzaComprobacionSAT.aspx.vb.exclude
@@ -234,7 +234,7 @@ Partial Class Contabilidad2_RepBalanzaComprobacion
        'parametros a enviar al reporte                     
        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))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
        params.Add(New ReportParameter("pFechaFin", FechaFin.ToString("dd/MM/yyyy")))
        params.Add(New ReportParameter("pFechaIni", FechaInicio.ToString("dd/MM/yyyy")))
--- a/Contabilidad2/RepCambiosSituacionFinanciera.aspx.vb
+++ b/Contabilidad2/RepCambiosSituacionFinanciera.aspx.vb
@@ -255,7 +255,7 @@ Partial Class AC2_RepCambiosSituacionFinanciera
    Private Sub ImprimirReporte(Optional Formato As String = "PDF")
        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))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
        params.Add(New ReportParameter("pEjercicio", DdlEjercicio.SelectedValue.ToString))
        params.Add(New ReportParameter("pFirma1", String.Format("C.P. Izelda Angulo Peraza{0} Subdirector de Contabilidad", vbCrLf)))
--- a/Contabilidad2/RepEstadoActividades.aspx.vb
+++ b/Contabilidad2/RepEstadoActividades.aspx.vb
@@ -319,7 +319,7 @@ Partial Class AC_RepEstadoActividades
        params.Add(New ReportParameter("lbTotalActual", LbTotalActual.Text))
        params.Add(New ReportParameter("lbTotalAnterior", LbTotalAnterior.Text))
        params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
-        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
        params.Add(New ReportParameter("pFirma1", ""))
        params.Add(New ReportParameter("pFirma2", ""))
--- a/Contabilidad2/RepEstadoActividadesSAT.aspx.vb.exclude
+++ b/Contabilidad2/RepEstadoActividadesSAT.aspx.vb.exclude
@@ -316,7 +316,7 @@ Partial Class AC_RepEstadoActividades
        params.Add(New ReportParameter("lbTotalActual", LbTotalActual.Text))
        params.Add(New ReportParameter("lbTotalAnterior", LbTotalAnterior.Text))
        params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
-        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
        params.Add(New ReportParameter("pFirma1", If(ChkFirma.Checked, String.Format("C.P. Izelda Angulo Peraza{0} Subdirector de Contabilidad", vbCrLf), "")))
        params.Add(New ReportParameter("pFirma2", If(ChkFirma.Checked, String.Format("Lic. Juan Fortino Leon Robinson{0} Director General", vbCrLf), "")))
--- a/Contabilidad2/RepFlujoEfectivo.aspx.vb
+++ b/Contabilidad2/RepFlujoEfectivo.aspx.vb
@@ -222,7 +222,7 @@ Partial Class AC2_RepFlujoEfectivo
    Private Sub ImprimirReporte(Optional Formato As String = "PDF")
        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))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
        params.Add(New ReportParameter("pAl", FechaAl))
        params.Add(New ReportParameter("pTotalActual", TotalActual.ToString.FormatoNumero))
--- a/Contabilidad2/RepLibroDiario.aspx.vb
+++ b/Contabilidad2/RepLibroDiario.aspx.vb
@@ -170,20 +170,15 @@ Partial Class Contabilidad2_RepLibroDiario
    End Sub

    Private Sub ImprimirReporte(Optional Formato As String = "PDF")
-        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+        'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)

        Dim lista = New List(Of CrystalParametro)
        lista.Add(New CrystalParametro("Empresa", UsuarioActual.Empresa.Empresa))
        lista.Add(New CrystalParametro("FechaInicio", FechaInicio.ToString("dd/MM/yyyy")))
        lista.Add(New CrystalParametro("FechaFin", FechaFin.ToString("dd/MM/yyyy")))
        lista.Add(New CrystalParametro("UsuarioImprimio", UsuarioActual.Nombre))
-
-        If Imagen.Exists Then
-            lista.Add(New CrystalParametro("LogoPath", logouri))
-        Else
-            lista.Add(New CrystalParametro("LogoPath", ""))
-        End If
+        lista.Add(New CrystalParametro("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))

        ImprimirbytesPDF(ImprimirPDFCrystal(Server.MapPath("~/Empresas/Grales/Formatos/LibroDiario.rpt"), DtDatos, lista, "LibroDiario", Formato), "LibroDiario", Formato)
    End Sub
--- a/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb
+++ b/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb
@@ -473,7 +473,7 @@ Partial Class Conta_RepMovimientosAuxiliaresCatalogo
    Private Sub ImprimirReporte(Optional Formato As String = "PDF")
        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))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
        params.Add(New ReportParameter("pFechaFin", FechaFin.ToString("dd/MM/yyyy")))
        params.Add(New ReportParameter("pFechaInicio", FechaInicio.ToString("dd/MM/yyyy")))
--- a/Contabilidad2/RepSituacionFinanciera.aspx.vb
+++ b/Contabilidad2/RepSituacionFinanciera.aspx.vb
@@ -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))
--- a/Contabilidad2/RepSituacionFinanciera.aspx.vb_old
+++ b/Contabilidad2/RepSituacionFinanciera.aspx.vb_old
@@ -591,12 +591,8 @@ Partial Class AC2_SituacionFinanciera
        'parametros a enviar al reporte                     
        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
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
+        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
        params.Add(New ReportParameter("pFirma1", If(ChkFirma.Checked, String.Format("C.P. Izelda Angulo Peraza{0} Subdirector de Contabilidad", vbCrLf), "")))
        params.Add(New ReportParameter("pFirma2", If(ChkFirma.Checked, String.Format("Lic. Juan Fortino Leon Robinson{0} Director General", vbCrLf), "")))
        params.Add(New ReportParameter("pFechaFin", FechaF))
--- a/Contabilidad2/RepSituacionFinancieraSAT.aspx.vb.exclude
+++ b/Contabilidad2/RepSituacionFinancieraSAT.aspx.vb.exclude
@@ -589,7 +589,7 @@ Partial Class AC2_SituacionFinanciera
        'parametros a enviar al reporte                     
        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))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
        params.Add(New ReportParameter("pFirma1", If(ChkFirma.Checked, String.Format("C.P. Izelda Angulo Peraza{0} Subdirector de Contabilidad", vbCrLf), "")))
        params.Add(New ReportParameter("pFirma2", If(ChkFirma.Checked, String.Format("Lic. Juan Fortino Leon Robinson{0} Director General", vbCrLf), "")))
--- a/Contabilidad2/RepVariacionHaciendaPublica.aspx.vb
+++ b/Contabilidad2/RepVariacionHaciendaPublica.aspx.vb
@@ -385,7 +385,7 @@ Partial Class AC_RepVariacionHaciendaPublica
        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))
+        Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
        params.Add(New ReportParameter("pImg", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
        params.Add(New ReportParameter("pFechaIni", TxtFechaDel.Text))
        params.Add(New ReportParameter("pFechaFin", TxtFechaAl.Text))