Compras Anticipos retenciones, PopUp Ver facturas logos, Clspaginas Logos
This commit is contained in:
rakcsle
@@ -1212,15 +1212,15 @@ Partial Class PopUpVerFactura
|
||||
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
||||
|
||||
|
||||
'params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, ImageToBase64(Drawing.Image.FromFile(Imagen.FullName), Drawing.Imaging.ImageFormat.Png), "")))
|
||||
Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
|
||||
|
||||
|
||||
Dim params As New List(Of ReportParameter)
|
||||
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
||||
params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
||||
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
|
||||
params.Add(New ReportParameter("AgrupoPor", $"{FechaCorte}{Usuario}"))
|
||||
If Imagen.Exists Then
|
||||
params.Add(New ReportParameter("LogoPath", LogoRuta))
|
||||
params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
|
||||
Else
|
||||
params.Add(New ReportParameter("LogoPath", ""))
|
||||
End If
|
||||
@@ -1326,7 +1326,6 @@ Partial Class PopUpVerFactura
|
||||
Private Sub ImprimeGastoContrato(CveContrato As Integer, CveContratoGasto As Integer)
|
||||
|
||||
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 Dr As DataRow = Nothing
|
||||
Dim ObjContratos As New ClsContratos
|
||||
@@ -1359,13 +1358,13 @@ Partial Class PopUpVerFactura
|
||||
SumaGasto = ObjContratos.DtResultados.SUM("Importe", "CveContratoGasto IS NULL")
|
||||
End If
|
||||
params.Add(New ReportParameter("Utilidad", $"$ {(SumaUtilidad - SumaGasto).ToString.FormatoNumero()}"))
|
||||
If Imagen.Exists Then
|
||||
|
||||
Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
|
||||
params.Add(New ReportParameter("LogoPath", LogoRuta))
|
||||
If Imagen.Exists Then
|
||||
params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
|
||||
Else
|
||||
params.Add(New ReportParameter("LogoPath", ""))
|
||||
End If
|
||||
|
||||
ImprimirPDF("Empresas/Grales/Formatos/ContratoGasto.rdlc", dt, params, $"{Nombre}-Gastos", Formato:="PDF")
|
||||
End Sub
|
||||
#End Region
|
||||
@@ -1510,11 +1509,10 @@ Partial Class PopUpVerFactura
|
||||
If Dt.Rows.Count > 0 Then
|
||||
Dim params As New List(Of ReportParameter)
|
||||
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
||||
'params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, ImageToBase64(Drawing.Image.FromFile(Imagen.FullName), Drawing.Imaging.ImageFormat.Png), "")))
|
||||
Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
|
||||
|
||||
|
||||
If Imagen.Exists Then
|
||||
params.Add(New ReportParameter("LogoPath", LogoRuta))
|
||||
params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
|
||||
Else
|
||||
params.Add(New ReportParameter("LogoPath", ""))
|
||||
End If
|
||||
@@ -1932,11 +1930,9 @@ Partial Class PopUpVerFactura
|
||||
If DtConceptos.Rows.Count > 0 Then
|
||||
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)
|
||||
|
||||
If Imagen.Exists Then
|
||||
Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
|
||||
params.Add(New ReportParameter("LogoPath", LogoRuta))
|
||||
params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
|
||||
Else
|
||||
params.Add(New ReportParameter("LogoPath", ""))
|
||||
End If
|
||||
@@ -2938,11 +2934,8 @@ 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
|
||||
Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
|
||||
params.Add(New ReportParameter("LogoPath", LogoRuta))
|
||||
params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
|
||||
Else
|
||||
params.Add(New ReportParameter("LogoPath", ""))
|
||||
End If
|
||||
@@ -2974,11 +2967,9 @@ 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)
|
||||
|
||||
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))
|
||||
params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
|
||||
|
||||
Else
|
||||
params.Add(New ReportParameter("LogoPath", ""))
|
||||
@@ -3041,11 +3032,9 @@ 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 LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
|
||||
params.Add(New ReportParameter("LogoPath", LogoRuta))
|
||||
params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
|
||||
Else
|
||||
params.Add(New ReportParameter("LogoPath", ""))
|
||||
End If
|
||||
@@ -3105,11 +3094,9 @@ Partial Class PopUpVerFactura
|
||||
|
||||
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))
|
||||
params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
|
||||
Else
|
||||
params.Add(New ReportParameter("LogoPath", ""))
|
||||
End If
|
||||
@@ -3284,11 +3271,9 @@ 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 LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
|
||||
params.Add(New ReportParameter("LogoPath", LogoRuta))
|
||||
params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
|
||||
Else
|
||||
params.Add(New ReportParameter("LogoPath", ""))
|
||||
End If
|
||||
@@ -3326,11 +3311,9 @@ 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 LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
|
||||
params.Add(New ReportParameter("LogoPath", LogoRuta))
|
||||
params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
|
||||
Else
|
||||
params.Add(New ReportParameter("LogoPath", ""))
|
||||
End If
|
||||
@@ -3408,11 +3391,9 @@ 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 LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
|
||||
params.Add(New ReportParameter("LogoPath", LogoRuta))
|
||||
params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
|
||||
Else
|
||||
params.Add(New ReportParameter("LogoPath", ""))
|
||||
End If
|
||||
@@ -3439,11 +3420,9 @@ 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 LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
|
||||
params.Add(New ReportParameter("LogoPath", LogoRuta))
|
||||
params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
|
||||
Else
|
||||
params.Add(New ReportParameter("LogoPath", ""))
|
||||
End If
|
||||
@@ -3476,11 +3455,10 @@ Partial Class PopUpVerFactura
|
||||
params.Add(New ReportParameter("NombreEntrego", Personal))
|
||||
params.Add(New ReportParameter("Responsable", Personal))
|
||||
params.Add(New ReportParameter("NombreRecibio", Capturo.ToUpper))
|
||||
'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))
|
||||
If Imagen.Exists Then
|
||||
Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
|
||||
params.Add(New ReportParameter("LogoPath", LogoRuta))
|
||||
params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
|
||||
Else
|
||||
params.Add(New ReportParameter("LogoPath", ""))
|
||||
End If
|
||||
@@ -3518,11 +3496,9 @@ 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 LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
|
||||
params.Add(New ReportParameter("LogoPath", LogoRuta))
|
||||
params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
|
||||
Else
|
||||
params.Add(New ReportParameter("LogoPath", ""))
|
||||
End If
|
||||
@@ -3569,11 +3545,10 @@ Partial Class PopUpVerFactura
|
||||
params.Add(New ReportParameter("NombreEntrego", Capturo.ToUpper))
|
||||
params.Add(New ReportParameter("Responsable", Personal))
|
||||
params.Add(New ReportParameter("NombreRecibio", Personal))
|
||||
'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))
|
||||
If Imagen.Exists Then
|
||||
Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
|
||||
params.Add(New ReportParameter("LogoPath", LogoRuta))
|
||||
params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
|
||||
Else
|
||||
params.Add(New ReportParameter("LogoPath", ""))
|
||||
End If
|
||||
@@ -3611,11 +3586,9 @@ 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 LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
|
||||
params.Add(New ReportParameter("LogoPath", LogoRuta))
|
||||
params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
|
||||
Else
|
||||
params.Add(New ReportParameter("LogoPath", ""))
|
||||
End If
|
||||
@@ -3765,12 +3738,10 @@ 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)
|
||||
|
||||
|
||||
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))
|
||||
params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
|
||||
Else
|
||||
params.Add(New ReportParameter("LogoPath", ""))
|
||||
End If
|
||||
@@ -3819,13 +3790,10 @@ 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)
|
||||
|
||||
|
||||
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))
|
||||
|
||||
params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
|
||||
Else
|
||||
params.Add(New ReportParameter("LogoPath", ""))
|
||||
End If
|
||||
@@ -3870,12 +3838,10 @@ Partial Class PopUpVerFactura
|
||||
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 LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
|
||||
params.Add(New ReportParameter("LogoPath", LogoRuta))
|
||||
params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
|
||||
Else
|
||||
params.Add(New ReportParameter("LogoPath", ""))
|
||||
End If
|
||||
@@ -3889,12 +3855,9 @@ 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)
|
||||
|
||||
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))
|
||||
params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
|
||||
Else
|
||||
params.Add(New ReportParameter("LogoPath", ""))
|
||||
End If
|
||||
@@ -3910,12 +3873,9 @@ 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)
|
||||
|
||||
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))
|
||||
params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
|
||||
Else
|
||||
params.Add(New ReportParameter("LogoPath", ""))
|
||||
End If
|
||||
@@ -4075,9 +4035,7 @@ Partial Class PopUpVerFactura
|
||||
If Not Archivo.Exists Then
|
||||
|
||||
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))
|
||||
params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
|
||||
Else
|
||||
params.Add(New ReportParameter("LogoPath", ""))
|
||||
End If
|
||||
@@ -4225,14 +4183,13 @@ Partial Class PopUpVerFactura
|
||||
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))
|
||||
Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
|
||||
params.Add(New ReportParameter("LogoPath", LogoRuta))
|
||||
params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
|
||||
Else
|
||||
params.Add(New ReportParameter("LogoPath", ""))
|
||||
End If
|
||||
|
||||
Dim CiudadSucursal As String = ""
|
||||
Dim DomicilioSucursal As String = ""
|
||||
|
||||
@@ -4263,11 +4220,9 @@ 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 LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
|
||||
params.Add(New ReportParameter("LogoPath", LogoRuta))
|
||||
params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
|
||||
Else
|
||||
params.Add(New ReportParameter("LogoPath", ""))
|
||||
End If
|
||||
@@ -4294,11 +4249,9 @@ 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 LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
|
||||
params.Add(New ReportParameter("LogoPath", LogoRuta))
|
||||
params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
|
||||
Else
|
||||
params.Add(New ReportParameter("LogoPath", ""))
|
||||
End If
|
||||
@@ -4330,11 +4283,8 @@ 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 LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
|
||||
params.Add(New ReportParameter("LogoPath", LogoRuta))
|
||||
params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
|
||||
Else
|
||||
params.Add(New ReportParameter("LogoPath", ""))
|
||||
End If
|
||||
@@ -4406,11 +4356,8 @@ Partial Class PopUpVerFactura
|
||||
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))
|
||||
Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
|
||||
params.Add(New ReportParameter("LogoPath", LogoRuta))
|
||||
params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
|
||||
Else
|
||||
params.Add(New ReportParameter("LogoPath", ""))
|
||||
End If
|
||||
@@ -4455,11 +4402,9 @@ 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 LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
|
||||
params.Add(New ReportParameter("LogoPath", LogoRuta))
|
||||
params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
|
||||
Else
|
||||
params.Add(New ReportParameter("LogoPath", ""))
|
||||
End If
|
||||
@@ -4500,11 +4445,9 @@ 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 LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
|
||||
params.Add(New ReportParameter("LogoPath", LogoRuta))
|
||||
params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
|
||||
Else
|
||||
params.Add(New ReportParameter("LogoPath", ""))
|
||||
End If
|
||||
@@ -4526,7 +4469,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 params As New List(Of ReportParameter)
|
||||
|
||||
'If UsuarioActual.CveEmpresa.Contiene(72, 80) Then
|
||||
@@ -4563,9 +4506,7 @@ Partial Class PopUpVerFactura
|
||||
params.Add(New ReportParameter("NombreRecibio", Recibio))
|
||||
|
||||
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))
|
||||
params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
|
||||
Else
|
||||
params.Add(New ReportParameter("LogoPath", ""))
|
||||
End If
|
||||
@@ -4754,11 +4695,8 @@ 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 LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
|
||||
params.Add(New ReportParameter("LogoPath", LogoRuta))
|
||||
params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
|
||||
Else
|
||||
params.Add(New ReportParameter("LogoPath", ""))
|
||||
End If
|
||||
@@ -5014,8 +4952,6 @@ Partial Class PopUpVerFactura
|
||||
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 logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
||||
|
||||
If Not ReporteEmpresa.Exists Then
|
||||
params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
|
||||
@@ -5023,8 +4959,7 @@ Partial Class PopUpVerFactura
|
||||
params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
|
||||
|
||||
If Imagen.Exists Then
|
||||
Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
|
||||
params.Add(New ReportParameter("LogoPath", LogoRuta))
|
||||
params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
|
||||
Else
|
||||
params.Add(New ReportParameter("LogoPath", ""))
|
||||
End If
|
||||
@@ -5221,8 +5156,7 @@ Partial Class PopUpVerFactura
|
||||
|
||||
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
||||
If Imagen.Exists Then
|
||||
Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
|
||||
params.Add(New ReportParameter("LogoPath", LogoRuta))
|
||||
params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
|
||||
Else
|
||||
params.Add(New ReportParameter("LogoPath", ""))
|
||||
End If
|
||||
@@ -5830,7 +5764,7 @@ Partial Class PopUpVerFactura
|
||||
params.Add(New ReportParameter("TotAbono", DtComprobacion.SUM("Abonado").ToString))
|
||||
|
||||
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
|
||||
@@ -5877,17 +5811,7 @@ Partial Class PopUpVerFactura
|
||||
Dim paramList As New List(Of ReportParameter)
|
||||
With paramList
|
||||
|
||||
|
||||
Dim logouri As String = ""
|
||||
Dim RutaLogo As String = String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)
|
||||
|
||||
Dim Imagen As New System.IO.FileInfo(RutaLogo)
|
||||
|
||||
If Imagen.Exists Then
|
||||
logouri = String.Format("file://{0}", RutaLogo)
|
||||
Else
|
||||
logouri = ""
|
||||
End If
|
||||
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
|
||||
|
||||
.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
|
||||
.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
|
||||
@@ -5902,7 +5826,7 @@ Partial Class PopUpVerFactura
|
||||
|
||||
|
||||
If Imagen.Exists Then
|
||||
.Add(New ReportParameter("LogoPath", logouri))
|
||||
.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
|
||||
Else
|
||||
.Add(New ReportParameter("LogoPath", ""))
|
||||
End If
|
||||
@@ -6310,9 +6234,7 @@ Partial Class PopUpVerFactura
|
||||
params.Add(New ReportParameter("CodigoTD", CodigoTD))
|
||||
|
||||
If Imagen.Exists Then
|
||||
|
||||
Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
|
||||
params.Add(New ReportParameter("LogoPath", LogoRuta))
|
||||
params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
|
||||
Else
|
||||
params.Add(New ReportParameter("LogoPath", ""))
|
||||
End If
|
||||
@@ -6449,9 +6371,7 @@ Partial Class PopUpVerFactura
|
||||
params.Add(New ReportParameter("CodigoTD", CodigoTD))
|
||||
|
||||
If Imagen.Exists Then
|
||||
|
||||
Dim LogoRuta As String = String.Format("file://{0}", Imagen.FullName)
|
||||
params.Add(New ReportParameter("LogoPath", LogoRuta))
|
||||
params.Add(New ReportParameter("LogoPath", $"file://{Imagen.FullName}"))
|
||||
Else
|
||||
params.Add(New ReportParameter("LogoPath", ""))
|
||||
End If
|
||||
|
||||
Reference in New Issue
Block a user