Fix Logos Empresas RDLCs

2022-12-22 16:11:06 -07:00
parent 67b56392a0
commit b2a6ad203d
56 changed files with 137 additions and 106 deletions
--- a/Contabilidad2/MovimientosconProveedores.aspx.vb
+++ b/Contabilidad2/MovimientosconProveedores.aspx.vb
@@ -277,7 +277,8 @@ 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))
-        params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri))
+        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("pFechaFin", FechaFin.ToString("dd/MM/yyyy")))

        ImprimirPDF(reportpath, DtDatos, params, fileName, Formato)
--- a/Contabilidad2/RepAnexoCatalogo.aspx.vb
+++ b/Contabilidad2/RepAnexoCatalogo.aspx.vb
@@ -297,14 +297,8 @@ 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))
-        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}", "")))
        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,8 @@ 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))
-        params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri))
+        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("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,8 @@ 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))
-        params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri))
+        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("pFechaFin", FechaFin.ToString("dd/MM/yyyy")))

        ImprimirPDF(reportpath, DtDatos, params, fileName, Formato)
--- a/Contabilidad2/RepBalanceGeneral.aspx.vb.exclude
+++ b/Contabilidad2/RepBalanceGeneral.aspx.vb.exclude
@@ -971,7 +971,8 @@ Partial Class Contabilidad2_RepBalanceGeneral
        'parametros a enviar al reporte                     
        Dim params As New List(Of ReportParameter)
        params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
-        params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri))
+        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("pFirma1", ""))
        params.Add(New ReportParameter("pFirma2", ""))
        params.Add(New ReportParameter("pFechaFin", FechaF))
--- a/Contabilidad2/RepBalanceGeneralHorizontal.aspx.vb
+++ b/Contabilidad2/RepBalanceGeneralHorizontal.aspx.vb
@@ -836,7 +836,8 @@ Partial Class Contabilidad_RepBalanceGeneralHorizontal
        'parametros a enviar al reporte                     
        Dim params As New List(Of ReportParameter)
        params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
-        params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri))
+        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("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/RepBalanzaComprobacion.aspx.vb
+++ b/Contabilidad2/RepBalanzaComprobacion.aspx.vb
@@ -204,7 +204,8 @@ Partial Class Contabilidad2_RepBalanzaComprobacion
        'parametros a enviar al reporte                     
        Dim params As New List(Of ReportParameter)
        params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
-        params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri))
+        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("pFechaFin", FechaFin.ToString("dd/MM/yyyy")))
        params.Add(New ReportParameter("pFechaIni", FechaInicio.ToString("dd/MM/yyyy")))
        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
--- a/Contabilidad2/RepBalanzaComprobacionSAT.aspx.vb.exclude
+++ b/Contabilidad2/RepBalanzaComprobacionSAT.aspx.vb.exclude
@@ -234,7 +234,8 @@ Partial Class Contabilidad2_RepBalanzaComprobacion
        'parametros a enviar al reporte                     
        Dim params As New List(Of ReportParameter)
        params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
-        params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri))
+        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("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,8 @@ 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))
-        params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri))
+        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("pFirma1", String.Format("C.P. Izelda Angulo Peraza{0} Subdirector de Contabilidad", vbCrLf)))
        params.Add(New ReportParameter("pFirma2", String.Format("Lic. Juan Fortino Leon Robinson{0} Director General", vbCrLf)))
--- a/Contabilidad2/RepEstadoActividadesSAT.aspx.vb.exclude
+++ b/Contabilidad2/RepEstadoActividadesSAT.aspx.vb.exclude
@@ -316,7 +316,8 @@ 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))
-        params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri))
+        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("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", String.Format("{0} al {1}", FechaI, FechaF)))
--- a/Contabilidad2/RepFlujoEfectivo.aspx.vb
+++ b/Contabilidad2/RepFlujoEfectivo.aspx.vb
@@ -222,7 +222,8 @@ 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))
-        params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri))
+        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("pAl", FechaAl))
        params.Add(New ReportParameter("pTotalActual", TotalActual.ToString.FormatoNumero))
        params.Add(New ReportParameter("pTotalAnterior", TotalAnterior.ToString.FormatoNumero))
--- a/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb
+++ b/Contabilidad2/RepMovimientosAuxiliaresCatalogo.aspx.vb
@@ -473,7 +473,8 @@ 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))
-        params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri))
+        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("pFechaFin", FechaFin.ToString("dd/MM/yyyy")))
        params.Add(New ReportParameter("pFechaInicio", FechaInicio.ToString("dd/MM/yyyy")))
        params.Add(New ReportParameter("CveMoneda", DdlMoneda.SelectedValue))
--- a/Contabilidad2/RepSituacionFinanciera.aspx.vb_old
+++ b/Contabilidad2/RepSituacionFinanciera.aspx.vb_old
@@ -591,7 +591,12 @@ Partial Class AC2_SituacionFinanciera
        'parametros a enviar al reporte                     
        Dim params As New List(Of ReportParameter)
        params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
-        params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri))
+        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("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,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))
-        params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri))
+        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("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/RepVariacionHaciendaPublica.aspx.vb
+++ b/Contabilidad2/RepVariacionHaciendaPublica.aspx.vb
@@ -385,7 +385,8 @@ Partial Class AC_RepVariacionHaciendaPublica
        Dim params As New List(Of ReportParameter)

        params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
-        params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri))
+        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("pFechaIni", TxtFechaDel.Text))
        params.Add(New ReportParameter("pFechaFin", TxtFechaAl.Text))
        params.Add(New ReportParameter("pFirma1", String.Format("C.P. Izelda Angulo Peraza{0} Subdirector de Contabilidad", vbCrLf)))