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

Empresas Zona Horaria

Browse Source
This commit is contained in:
rakcsle
2023-10-09 11:54:42 -07:00
parent 2df7c3976c
commit f43b7759a8
649 changed files with 11445 additions and 11105 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
asmx/WSGPSApp.asmx
View File

@@ -665,8 +665,8 @@ Public Class WSGPSApp
Dim Estructura = New With
{
Key .[CveDispositivo] = -1,
Key .[FechaI] = DateTime.Now,
Key .[FechaF] = DateTime.Now,
Key .[FechaI] = ClsPaginas.NowADS(),
Key .[FechaF] = ClsPaginas.NowADS(),
Key .[Ticks] = ""
}
Dim jsonParams As String = Decripta(params)
@@ -719,8 +719,8 @@ Public Class WSGPSApp
Dim Estructura = New With
{
Key .[CveDispositivo] = -1,
Key .[FechaI] = DateTime.Now,
Key .[FechaF] = DateTime.Now,
Key .[FechaI] = ClsPaginas.NowADS(),
Key .[FechaF] = ClsPaginas.NowADS(),
Key .[Ticks] = ""
}
Dim jsonParams As String = Decripta(params)
@@ -1004,8 +1004,8 @@ Public Class WSGPSApp
Dim Estructura = New With
{
Key .[CveCliente] = -1,
Key .[FechaI] = DateTime.Now,
Key .[FechaF] = DateTime.Now,
Key .[FechaI] = ClsPaginas.NowADS(),
Key .[FechaF] = ClsPaginas.NowADS(),
Key .[Ticks] = ""
}
Dim json As String = Decripta(encriptDatos)
@@ -1245,7 +1245,7 @@ Public Class WSGPSApp
dash.Panicos = ObjGPS.DtResultados(0)("BotonPanico").ToString.ToDouble
dash.DesconexionBateria = ObjGPS.DtResultados(0)("DesconexionBateria").ToString.ToDouble
End If
If ObjGPS.GetRalentiDashboard(CveCliente, FechaI.Add(Now.TimeOfDay).ToDateTime, FechaF.Add(Now.TimeOfDay).ToDateTime) AndAlso ObjGPS.DtResultados.Rows.Count > 0 Then
If ObjGPS.GetRalentiDashboard(CveCliente, FechaI.Add(ClsPaginas.NowADS().TimeOfDay).ToDateTime, FechaF.Add(ClsPaginas.NowADS().TimeOfDay).ToDateTime) AndAlso ObjGPS.DtResultados.Rows.Count > 0 Then
dash.Ralenti = ObjGPS.DtResultados(0)("Ralenti").ToString.ToDouble
End If
If ObjGPS.GetUnidadesReportando(CveCliente) AndAlso ObjGPS.DtResultados.Rows.Count > 0 Then
@@ -1347,7 +1347,7 @@ Public Class WSGPSApp
Return serializer.Serialize(rows)
End Function
Private Function IsCurrentDate(StrFecha As String) As Boolean
Return True '(ReturnTimeOnServer(StrFecha) > (DateTime.Now).AddMinutes(-15) And ReturnTimeOnServer(StrFecha) < (DateTime.Now).AddMinutes(15))
Return True '(ReturnTimeOnServer(StrFecha) > (ClsPaginas.NowADS()).AddMinutes(-15) And ReturnTimeOnServer(StrFecha) < (ClsPaginas.NowADS()).AddMinutes(15))
End Function
Public Function ReturnTimeOnServer(clientString As String) As DateTime
Dim format As String = "dd/MM/yyyy H:m:s zzz"