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

Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2021-03-30 10:21:37 -07:00
parent 4a092a64be 6a9161d7a4
commit d8891fefc9
17 changed files with 256 additions and 214 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
GPS/Rastreo.aspx.vb
View File

@@ -1629,6 +1629,11 @@ Partial Class GPS_Rastreo
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 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
nombreCliente = dr.Item("Cliente").ToString
Next
Dim RptParametro As New List(Of ReportParameter)
Dim DtDatos As New DataTable()
@@ -1642,10 +1647,9 @@ Partial Class GPS_Rastreo
RptParametro.Add(New ReportParameter("FechaInicio", FechaI.ToString))
RptParametro.Add(New ReportParameter("FechaFin", FechaF.ToString))
RptParametro.Add(New ReportParameter("MapaURL", ""))
RptParametro.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
RptParametro.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString))
RptParametro.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
RptParametro.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
RptParametro.Add(New ReportParameter("NombreEmpresa", nombreCliente))
If Imagen.Exists Then
RptParametro.Add(New ReportParameter("LogoPath", logouri))
Else
@@ -1695,7 +1699,6 @@ Partial Class GPS_Rastreo
RptParametro.Add(New ReportParameter("FechaInicio", FechaI.ToString))
RptParametro.Add(New ReportParameter("FechaFin", FechaF.ToString))
RptParametro.Add(New ReportParameter("MapaURL", ""))
RptParametro.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
RptParametro.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString))
RptParametro.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
@@ -1847,13 +1850,17 @@ Partial Class GPS_Rastreo
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 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
nombreCliente = dr.Item("Cliente").ToString
Next
RptParametro.Add(New CrystalParametro("FechaInicio", FechaI.ToString))
RptParametro.Add(New CrystalParametro("FechaFin", FechaF.ToString))
RptParametro.Add(New CrystalParametro("UsuarioImprimio", UsuarioActual.Usuario))
RptParametro.Add(New CrystalParametro("FechaImpresion", DateTime.Now.ToString))
RptParametro.Add(New CrystalParametro("KMRecorridos", $"{DtPosiciones.SUM("KMRecorridos").ToString} KM"))
RptParametro.Add(New CrystalParametro("NombreEmpresa", UsuarioActual.Empresa.Empresa))
RptParametro.Add(New CrystalParametro("NombreEmpresa", nombreCliente))
If Imagen.Exists Then
RptParametro.Add(New CrystalParametro("LogoPath", logouri))
Else