PopUpVerFactura logos de alamcen

2021-11-30 23:22:06 -07:00
parent d80c4076b3
commit ee9b1ebb90
7 changed files with 184 additions and 96 deletions
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -2110,9 +2110,11 @@ Partial Class PopUpVerFactura
                If Archivo.Exists Then
                    ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Inicial.rdlc", DtMovimientos, params, String.Format("Inventario Inicial - {0}", Folio), RDSName:="DsInventarios")
                Else
-                    Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
-                    If Imagen.Exists Then
-                        params.Add(New ReportParameter("LogoPath", logouri))
+                    'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
+                    If Imagen.Exists Then
+                        Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
+                        params.Add(New ReportParameter("LogoPath", LogoRuta))
                    Else
                        params.Add(New ReportParameter("LogoPath", ""))
                    End If
@@ -2144,9 +2146,11 @@ Partial Class PopUpVerFactura
                        params.Add(New ReportParameter("FacturadoA", If(CveCompra > 0, dr("RazonSocial").ToString, "")))
                    End If
                    If UsuarioActual.CveEmpresa = 119 Then
-                        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+                        'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
                        If Imagen.Exists Then
-                            params.Add(New ReportParameter("LogoPath", logouri))
+                            'params.Add(New ReportParameter("LogoPath", logouri))
+                            Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
+                            params.Add(New ReportParameter("LogoPath", LogoRuta))

                        Else
                            params.Add(New ReportParameter("LogoPath", ""))
@@ -2209,9 +2213,11 @@ Partial Class PopUpVerFactura

                        ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Entradas.rdlc", DtMovimientos, params, String.Format("Entrada de Almacen - {0}", Folio), RDSName:="DsInventarios")
                    ElseIf UsuarioActual.CveEmpresa = 140 Then
-                        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
-                        If Imagen.Exists Then
-                            params.Add(New ReportParameter("LogoPath", logouri))
+                        'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+                        If Imagen.Exists Then
+                            'params.Add(New ReportParameter("LogoPath", logouri))
+                            Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
+                            params.Add(New ReportParameter("LogoPath", LogoRuta))
                        Else
                            params.Add(New ReportParameter("LogoPath", ""))
                        End If
@@ -2269,11 +2275,13 @@ Partial Class PopUpVerFactura
                    End If


-                Else
-
-                    Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
-                    If Imagen.Exists Then
-                        params.Add(New ReportParameter("LogoPath", logouri))
+                Else
+
+                    ' Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+                    If Imagen.Exists Then
+                        'params.Add(New ReportParameter("LogoPath", logouri))
+                        Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
+                        params.Add(New ReportParameter("LogoPath", LogoRuta))
                    Else
                        params.Add(New ReportParameter("LogoPath", ""))
                    End If
@@ -2448,9 +2456,11 @@ Partial Class PopUpVerFactura
                            ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Salidas.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
                        ElseIf UsuarioActual.CveEmpresa = 140 Then

-                            Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
-                            If Imagen.Exists Then
-                                params.Add(New ReportParameter("LogoPath", logouri))
+                            'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+                            If Imagen.Exists Then
+                                'params.Add(New ReportParameter("LogoPath", logouri))
+                                Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
+                                params.Add(New ReportParameter("LogoPath", LogoRuta))
                            Else
                                params.Add(New ReportParameter("LogoPath", ""))
                            End If
@@ -2488,9 +2498,11 @@ Partial Class PopUpVerFactura

                    Else
                        Dim A As New System.IO.FileInfo(String.Format("{0}Formatos/EntradaSalida.rdlc", 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)
-                        If Imagen.Exists Then
-                            params.Add(New ReportParameter("LogoPath", logouri))
+                        'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+                        If Imagen.Exists Then
+                            'params.Add(New ReportParameter("LogoPath", logouri))
+                            Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
+                            params.Add(New ReportParameter("LogoPath", LogoRuta))
                        Else
                            params.Add(New ReportParameter("LogoPath", ""))
                        End If
@@ -2568,9 +2580,11 @@ Partial Class PopUpVerFactura
                Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
                Dim params As New List(Of ReportParameter)

-                Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
-                If Imagen.Exists Then
-                    params.Add(New ReportParameter("LogoPath", logouri))
+                'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+                If Imagen.Exists Then
+                    'params.Add(New ReportParameter("LogoPath", logouri))
+                    Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
+                    params.Add(New ReportParameter("LogoPath", LogoRuta))
                Else
                    params.Add(New ReportParameter("LogoPath", ""))
                End If
@@ -2597,9 +2611,11 @@ Partial Class PopUpVerFactura
                Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
                Dim params As New List(Of ReportParameter)

-                Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
-                If Imagen.Exists Then
-                    params.Add(New ReportParameter("LogoPath", logouri))
+                'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+                If Imagen.Exists Then
+                    'params.Add(New ReportParameter("LogoPath", logouri))
+                    Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
+                    params.Add(New ReportParameter("LogoPath", LogoRuta))
                Else
                    params.Add(New ReportParameter("LogoPath", ""))
                End If
@@ -2667,9 +2683,11 @@ Partial Class PopUpVerFactura
                        Archivo = "Empresas/Grales/Formatos/PrestamoProductos.rdlc"
                    End If

-                    Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
-                    If Imagen.Exists Then
-                        params.Add(New ReportParameter("LogoPath", logouri))
+                    'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+                    If Imagen.Exists Then
+                        'params.Add(New ReportParameter("LogoPath", logouri))
+                        Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
+                        params.Add(New ReportParameter("LogoPath", LogoRuta))
                    Else
                        params.Add(New ReportParameter("LogoPath", ""))
                    End If
@@ -2752,9 +2770,11 @@ Partial Class PopUpVerFactura
                        Archivo = "Empresas/Grales/Formatos/PrestamoProductos.rdlc"
                    End If

-                    Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
-                    If Imagen.Exists Then
-                        params.Add(New ReportParameter("LogoPath", logouri))
+                    'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+                    If Imagen.Exists Then
+                        'params.Add(New ReportParameter("LogoPath", logouri))
+                        Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
+                        params.Add(New ReportParameter("LogoPath", LogoRuta))
                    Else
                        params.Add(New ReportParameter("LogoPath", ""))
                    End If
@@ -2901,10 +2921,12 @@ Partial Class PopUpVerFactura
                Dim Archivo As New System.IO.FileInfo(String.Format(RutaFormato, UsuarioActual.Empresa.Ruta))
                If Archivo.Exists Then
                    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 logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)

                    If Imagen.Exists Then
-                        params.Add(New ReportParameter("LogoPath", logouri))
+                        'params.Add(New ReportParameter("LogoPath", logouri))
+                        Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
+                        params.Add(New ReportParameter("LogoPath", LogoRuta))
                    Else
                        params.Add(New ReportParameter("LogoPath", ""))
                    End If
@@ -2953,10 +2975,13 @@ Partial Class PopUpVerFactura
                    ImprimirPDF(String.Format(RutaFormato, UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Aviso de Traslado - {0}", Folio), RDSName:="DsInventarios")
                Else
                    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 logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)

-                    If Imagen.Exists Then
-                        params.Add(New ReportParameter("LogoPath", logouri))
+                    If Imagen.Exists Then
+                        ' params.Add(New ReportParameter("LogoPath", logouri))
+                        Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
+                        params.Add(New ReportParameter("LogoPath", LogoRuta))
+
                    Else
                        params.Add(New ReportParameter("LogoPath", ""))
                    End If
@@ -3000,11 +3025,13 @@ Partial Class PopUpVerFactura
                    ElseIf UsuarioActual.CveEmpresa = 140 Then
                        params.Add(New ReportParameter("CantidadProductos", "500"))
                        params.Add(New ReportParameter("CantidadUsados", "500"))
-                        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)
-
-                        If Imagen.Exists Then
-                            params.Add(New ReportParameter("LogoPath", logouri))
+                        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)
+
+                        If Imagen.Exists Then
+                            'params.Add(New ReportParameter("LogoPath", logouri))
+                            Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
+                            params.Add(New ReportParameter("LogoPath", LogoRuta))
                        Else
                            params.Add(New ReportParameter("LogoPath", ""))
                        End If
@@ -3018,10 +3045,12 @@ Partial Class PopUpVerFactura
                        params.Add(New ReportParameter("FolioRelacionado", FolioRelacionado))
                    ElseIf UsuarioActual.CveEmpresa = 153 Then
                        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 logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)

-                        If Imagen.Exists Then
-                            params.Add(New ReportParameter("LogoPath", logouri))
+                        If Imagen.Exists Then
+                            'params.Add(New ReportParameter("LogoPath", logouri))
+                            Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
+                            params.Add(New ReportParameter("LogoPath", LogoRuta))
                        Else
                            params.Add(New ReportParameter("LogoPath", ""))
                        End If
@@ -3037,10 +3066,12 @@ Partial Class PopUpVerFactura
                    ImprimirPDF(String.Format("{0}Formatos\Traslado.rdlc", UsuarioActual.Empresa.Ruta), DtMovimientos, params, String.Format("Recepción de Traslado - {0}", Folio), RDSName:="DsInventarios")
                Else
                    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 logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)

-                    If Imagen.Exists Then
-                        params.Add(New ReportParameter("LogoPath", logouri))
+                    If Imagen.Exists Then
+                        'params.Add(New ReportParameter("LogoPath", logouri))
+                        Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
+                        params.Add(New ReportParameter("LogoPath", LogoRuta))
                    Else
                        params.Add(New ReportParameter("LogoPath", ""))
                    End If
@@ -3152,7 +3183,7 @@ Partial Class PopUpVerFactura
            Case 13 'D E V O L U C I O N  D E  P R O V E E D O R
                Dim params As New List(Of ReportParameter)
                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 logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
                Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/DevolucionProveedor.rdlc", UsuarioActual.Empresa.Ruta))

                params.Add(New ReportParameter("Folio", Folio))
@@ -3199,8 +3230,10 @@ Partial Class PopUpVerFactura

                If Not Archivo.Exists Then

-                    If Imagen.Exists Then
-                        params.Add(New ReportParameter("LogoPath", logouri))
+                    If Imagen.Exists Then
+                        'params.Add(New ReportParameter("LogoPath", logouri))
+                        Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
+                        params.Add(New ReportParameter("LogoPath", LogoRuta))
                    Else
                        params.Add(New ReportParameter("LogoPath", ""))
                    End If
@@ -3347,10 +3380,12 @@ Partial Class PopUpVerFactura
                    End If
                    ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/DevolucionCliente.rdlc", DtMovimientos, params, String.Format("Devolucion del Cliente - {0}", Folio.ToString), RDSName:="DsInventarios")
                    'End If
-                Else
-                    Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
-                    If Imagen.Exists Then
-                        params.Add(New ReportParameter("LogoPath", logouri))
+                Else
+                    ' Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+                    If Imagen.Exists Then
+                        'params.Add(New ReportParameter("LogoPath", logouri))
+                        Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
+                        params.Add(New ReportParameter("LogoPath", LogoRuta))
                    Else
                        params.Add(New ReportParameter("LogoPath", ""))
                    End If
@@ -3384,9 +3419,11 @@ Partial Class PopUpVerFactura
                Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
                Dim params As New List(Of ReportParameter)

-                Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
-                If Imagen.Exists Then
-                    params.Add(New ReportParameter("LogoPath", logouri))
+                'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+                If Imagen.Exists Then
+                    'params.Add(New ReportParameter("LogoPath", logouri))
+                    Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
+                    params.Add(New ReportParameter("LogoPath", LogoRuta))
                Else
                    params.Add(New ReportParameter("LogoPath", ""))
                End If
@@ -3411,11 +3448,13 @@ Partial Class PopUpVerFactura

            Case 20 'DESARMADO DE PAQUETE
                Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-                Dim params As New List(Of ReportParameter)
-
-                Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
-                If Imagen.Exists Then
-                    params.Add(New ReportParameter("LogoPath", logouri))
+                Dim params As New List(Of ReportParameter)
+
+                ' Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+                If Imagen.Exists Then
+                    'params.Add(New ReportParameter("LogoPath", logouri))
+                    Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
+                    params.Add(New ReportParameter("LogoPath", LogoRuta))
                Else
                    params.Add(New ReportParameter("LogoPath", ""))
                End If
@@ -3447,9 +3486,11 @@ Partial Class PopUpVerFactura
                    Archivo = "Empresas/Grales/Formatos/EntradaSalida.rdlc"
                End If

-                Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
-                If Imagen.Exists Then
-                    params.Add(New ReportParameter("LogoPath", logouri))
+                'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+                If Imagen.Exists Then
+                    'params.Add(New ReportParameter("LogoPath", logouri))
+                    Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
+                    params.Add(New ReportParameter("LogoPath", LogoRuta))
                Else
                    params.Add(New ReportParameter("LogoPath", ""))
                End If
@@ -3519,11 +3560,13 @@ Partial Class PopUpVerFactura

                    If Not ArchivoRuta.Exists Then
                        Archivo = "Empresas/Grales/Formatos/EntradaSalidaUniforme.rdlc"
-                    End If
-
-                    Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
-                    If Imagen.Exists Then
-                        params.Add(New ReportParameter("LogoPath", logouri))
+                    End If
+
+                    ' Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+                    If Imagen.Exists Then
+                        'params.Add(New ReportParameter("LogoPath", logouri))
+                        Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
+                        params.Add(New ReportParameter("LogoPath", LogoRuta))
                    Else
                        params.Add(New ReportParameter("LogoPath", ""))
                    End If
@@ -3568,9 +3611,11 @@ Partial Class PopUpVerFactura
                        Archivo = "Empresas/Grales/Formatos/PrestamoProductos.rdlc"
                    End If

-                    Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
-                    If Imagen.Exists Then
-                        params.Add(New ReportParameter("LogoPath", logouri))
+                    'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+                    If Imagen.Exists Then
+                        'params.Add(New ReportParameter("LogoPath", logouri))
+                        Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
+                        params.Add(New ReportParameter("LogoPath", LogoRuta))
                    Else
                        params.Add(New ReportParameter("LogoPath", ""))
                    End If
@@ -3611,9 +3656,11 @@ Partial Class PopUpVerFactura
                Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
                Dim params As New List(Of ReportParameter)

-                Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
-                If Imagen.Exists Then
-                    params.Add(New ReportParameter("LogoPath", logouri))
+                'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+                If Imagen.Exists Then
+                    'params.Add(New ReportParameter("LogoPath", logouri))
+                    Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
+                    params.Add(New ReportParameter("LogoPath", LogoRuta))
                Else
                    params.Add(New ReportParameter("LogoPath", ""))
                End If
@@ -3635,7 +3682,7 @@ Partial Class PopUpVerFactura
                Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/Salidas.rdlc", UsuarioActual.Empresa.Ruta))
                Dim Archivo2 As New System.IO.FileInfo(String.Format("{0}Formatos/ConsumoInterno.rdlc", UsuarioActual.Empresa.Ruta))
                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 logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
                Dim params As New List(Of ReportParameter)

                'If UsuarioActual.CveEmpresa.Contiene(72, 80) Then
@@ -3671,8 +3718,10 @@ Partial Class PopUpVerFactura
                params.Add(New ReportParameter("NombreEntrego", Capturo))
                params.Add(New ReportParameter("NombreRecibio", Recibio))

-                If Imagen.Exists Then
-                    params.Add(New ReportParameter("LogoPath", logouri))
+                If Imagen.Exists Then
+                    'params.Add(New ReportParameter("LogoPath", logouri))
+                    Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
+                    params.Add(New ReportParameter("LogoPath", LogoRuta))
                Else
                    params.Add(New ReportParameter("LogoPath", ""))
                End If
@@ -3855,10 +3904,12 @@ Partial Class PopUpVerFactura
                        End If

                    Else
-                        Dim A As New System.IO.FileInfo(String.Format("{0}Formatos/EntradaSalida.rdlc", 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)
-                        If Imagen.Exists Then
-                            params.Add(New ReportParameter("LogoPath", logouri))
+                        Dim A As New System.IO.FileInfo(String.Format("{0}Formatos/EntradaSalida.rdlc", 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)
+                        If Imagen.Exists Then
+                            'params.Add(New ReportParameter("LogoPath", logouri))
+                            Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
+                            params.Add(New ReportParameter("LogoPath", LogoRuta))
                        Else
                            params.Add(New ReportParameter("LogoPath", ""))
                        End If