AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
MLopez
2022-12-22 19:26:13 -07:00
parent 2e4bfe761b
commit 5ef0983e77
260 changed files with 446 additions and 591 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
GPS/Rastreo.aspx.vb
View File

@@ -1688,8 +1688,8 @@ Partial Class GPS_Rastreo
ElseIf Opcion = "Speed" Then
RutaReporte = "Empresas/Grales/ReportesProgramados/RPVelocidad.rdlc"
NombreReporte = "ReporteExcesosVelocidad"
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 dtt As DataTable = GlobalDTUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, UsuarioActual.CveCliente).FiltraParametros("CveRol <> 1")
Dim nombreCliente As String = ""
For Each dr As DataRow In dtt.Rows
@@ -1711,11 +1711,7 @@ Partial Class GPS_Rastreo
RptParametro.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString))
RptParametro.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
RptParametro.Add(New ReportParameter("NombreEmpresa", nombreCliente))
If Imagen.Exists Then
RptParametro.Add(New ReportParameter("LogoPath", logouri))
Else
RptParametro.Add(New ReportParameter("LogoPath", ""))
End If
RptParametro.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
For Each row As GridViewRow In GvBarra.Rows
Dim DrNew = DtDatos.NewRow()
@@ -2002,7 +1998,7 @@ Partial Class GPS_Rastreo
worksheet.Rows(IndexEndTable).Cells(2).Value = "Fecha Impresión"
worksheet.Rows(IndexEndTable + 1).Cells(2).Value = DateTime.Now.ToString("dd/MM/yyyy")
'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")
'If Imagen.Exists Then
' Dim Ruta As String = String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)
@@ -2066,8 +2062,8 @@ Partial Class GPS_Rastreo
Private Sub ImprimirCrystal(NombreReporte As String, Format As String)
Dim RptParametro As New List(Of CrystalParametro)
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 dtt As DataTable = GlobalDTUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, UsuarioActual.CveCliente).FiltraParametros("CveRol <> 1")
Dim nombreCliente As String = ""
For Each dr As DataRow In dtt.Rows
@@ -2079,11 +2075,7 @@ Partial Class GPS_Rastreo
RptParametro.Add(New CrystalParametro("FechaImpresion", DateTime.Now.ToString))
RptParametro.Add(New CrystalParametro("KMRecorridos", $"{DtPosiciones.SUM("KMRecorridos").ToString} KM"))
RptParametro.Add(New CrystalParametro("NombreEmpresa", nombreCliente))
If Imagen.Exists Then
RptParametro.Add(New CrystalParametro("LogoPath", logouri))
Else
RptParametro.Add(New CrystalParametro("LogoPath", ""))
End If
RptParametro.Add(New CrystalParametro("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
Dim DtDatos As New DataTable()
DtDatos.Columns.Add("Vehiculo", GetType(String))
@@ -2250,7 +2242,7 @@ Partial Class GPS_Rastreo
worksheet.Rows(IndexEndTable).Cells(2).Value = "Fecha Impresión"
worksheet.Rows(IndexEndTable + 1).Cells(2).Value = DateTime.Now.ToString("dd/MM/yyyy")
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")
If Imagen.Exists Then
Dim Ruta As String = String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)

2
GPS/RepPuntosDeInteres.aspx.vb
View File

@@ -412,7 +412,7 @@ Partial Class GPS_RepPuntosDeInteres
worksheet.Rows(IndexEndTable).Cells(2).Value = "Fecha Impresión"
worksheet.Rows(IndexEndTable + 1).Cells(2).Value = DateTime.Now.ToString("dd/MM/yyyy")
'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")
'If Imagen.Exists Then
' Dim Ruta As String = String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)