Logotipos correciones

2022-10-20 16:37:49 -07:00
parent 24fe7abcc0
commit 4af6c5483a
143 changed files with 320 additions and 330 deletions
--- a/Contratos/Contrato.aspx.vb
+++ b/Contratos/Contrato.aspx.vb
@@ -2856,9 +2856,9 @@ Partial Class Contratos_Default
            Exit Sub
        End If

-        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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+
+
        Dim params As New List(Of ReportParameter)

        params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
@@ -2871,7 +2871,7 @@ Partial Class Contratos_Default
        params.Add(New ReportParameter("Tipo", "-1"))

        If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
        Else
            params.Add(New ReportParameter("LogoPath", ""))
        End If
@@ -3646,9 +3646,9 @@ Partial Class Contratos_Default
    End Sub
    Private Sub GenerarPDF(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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+
+
        Dim dt As DataTable = DtAvanceDocumento.FiltraParametros("CveVenta > 0")
        Dim params As New List(Of ReportParameter)
        params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
@@ -3662,8 +3662,8 @@ Partial Class Contratos_Default
        params.Add(New ReportParameter("FechaFin", TxtFechaFinal.Text.Trim))
        params.Add(New ReportParameter("TipoContrato", TipoDocumento))
        params.Add(New ReportParameter("TotalContrato", LblImporte.Text))
-        If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", logouri))
+        If Imagen.Exists Then
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
        Else
            params.Add(New ReportParameter("LogoPath", ""))
        End If
@@ -3671,9 +3671,9 @@ Partial Class Contratos_Default
        ImprimirPDF("Empresas/Grales/Formatos/RepContratoAvanceDocumento.rdlc", dt, params, $"{Nombre}-AvanceDocumento", Formato:=Formato)
    End Sub
    Private Sub LBImprimirInformacionG_Click(sender As Object, e As EventArgs) Handles LBImprimirInformacionG.Click
-        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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+
+
        Dim dt As DataTable = DtAvanceDocumento
        Dim params As New List(Of ReportParameter)
        params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
@@ -3714,7 +3714,7 @@ Partial Class Contratos_Default
        params.Add(New ReportParameter("FechaVencimiento", txtFechaVenc.Text.Trim))

        If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
        Else
            params.Add(New ReportParameter("LogoPath", ""))
        End If
@@ -3731,8 +3731,8 @@ Partial Class Contratos_Default
    End Sub
    Private Sub GenerarPDFGastos(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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+
        Dim UtilidadGastos As String = IIf(LblUtilidad.Text <> "", LblUtilidad.Text, "-").ToString


@@ -3752,7 +3752,7 @@ Partial Class Contratos_Default
        params.Add(New ReportParameter("Utilidad", UtilidadGastos))

        If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
        Else
            params.Add(New ReportParameter("LogoPath", ""))
        End If
@@ -3775,9 +3775,9 @@ Partial Class Contratos_Default
        GenerarPDFSuministros()
    End Sub
    Private Sub GenerarPDFSuministros(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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+
+
        Dim dt As DataTable = DtSuministros
        Dim params As New List(Of ReportParameter)
        params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
@@ -3792,7 +3792,7 @@ Partial Class Contratos_Default
        params.Add(New ReportParameter("TipoContrato", TipoDocumento))
        params.Add(New ReportParameter("TotalContrato", LblImporte.Text))
        If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
        Else
            params.Add(New ReportParameter("LogoPath", ""))
        End If
@@ -3806,9 +3806,9 @@ Partial Class Contratos_Default
        GenerarPDFAvance()
    End Sub
    Private Sub GenerarPDFAvance(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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+
+
        Dim dt As DataTable = DtAvance
        Dim params As New List(Of ReportParameter)
        params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
@@ -3823,8 +3823,8 @@ Partial Class Contratos_Default
        params.Add(New ReportParameter("TipoContrato", TipoDocumento))
        params.Add(New ReportParameter("TotalContrato", LblImporte.Text))

-        If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", logouri))
+        If Imagen.Exists Then
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
        Else
            params.Add(New ReportParameter("LogoPath", ""))
        End If
@@ -3841,9 +3841,9 @@ Partial Class Contratos_Default
        GenerarPDFPPresupuesto(Formato:="EXCEL")
    End Sub
    Private Sub GenerarPDFPPresupuesto(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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+
+
        Dim dt As DataTable = DtPresupuestos
        Dim params As New List(Of ReportParameter)
        params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
@@ -3859,7 +3859,7 @@ Partial Class Contratos_Default
        params.Add(New ReportParameter("TotalContrato", LblImporte.Text))

        If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
        Else
            params.Add(New ReportParameter("LogoPath", ""))
        End If
@@ -3876,9 +3876,9 @@ Partial Class Contratos_Default
        GenerarPDFActivosFijos("Excel")
    End Sub
    Private Sub GenerarPDFActivosFijos(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(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+
+
        Dim dt As DataTable = Nothing

        Select Case RBLAlmacen.SelectedValue
@@ -3913,7 +3913,7 @@ Partial Class Contratos_Default
        params.Add(New ReportParameter("FiltroContratos", Filtro))

        If Imagen.Exists Then
-            params.Add(New ReportParameter("LogoPath", logouri))
+            params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
        Else
            params.Add(New ReportParameter("LogoPath", ""))
        End If