cheveguerra/Pusher_2.0
1
0
Fork 0
mirror of https://github.com/cheveguerra/Pusher_2.0.git synced 2026-04-17 19:37:05 +00:00
Code Issues Packages Projects Releases Wiki Activity

Cambios en las horas al seleccionar fechas para la ruta

Browse Source
This commit is contained in:
cheveguerra
2023-09-27 10:44:49 -06:00
parent 63ae2cda9e
commit 7e84eca0d0
2 changed files with 8 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
Files/logo_keymon.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 13 KiB

10
pusher.chv.com.b4a
View File

@@ -70,9 +70,9 @@ NumberOfModules=6
Version=12.5
@EndOfDesignText@
#Region Project Attributes
#ApplicationLabel: Pusher-ML
#ApplicationLabel: Pusher 2.0
#VersionCode: 1
#VersionName: 3.09.18
#VersionName: 3.09.27
'Ver. 3.09.18 - Se agregó la posibilidad de mostrar puntos internedios en la ruta y muestra icono diferente si esta en movimiento o parado.
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait
@@ -85,6 +85,9 @@ Version=12.5
'###################### PUSH #############################################################
'Ctrl + click ide://run?file=%WINDIR%\System32\WindowsPowerShell\v1.0\powershell.exe&Args=github&Args=..\..\
'###########################################################################################################
'###################### PUSH TORTOISE GIT #########################################################
'Ctrl + click ide://run?file=%WINDIR%\System32\WindowsPowerShell\v1.0\powershell.exe&Args=TortoiseGitProc&Args=/command:commit&Args=/path:"./../"&Args=/closeonend:2
'###########################################################################################################
#End Region
#AdditionalJar: com.android.support:support-v4
#AdditionalJar: com.google.android.gms:play-services-location
@@ -298,6 +301,7 @@ Sub JobDone(Job As HttpJob)
distanciaRecorrida = 0
cont = 0
For Each records() As Object In result.Rows
' Log(records(result.Columns.Get("FECHA")))
If cont = 0 Then
usuario = records(result.Columns.Get("RUTA"))
fechaInicioRutaGPS = Subs.fechaKMT2Ticks(records(result.Columns.Get("FECHA")))
@@ -683,6 +687,8 @@ Sub traeRutaGPS
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "seleccionaRutaGPS2"
' If et_final.Text = "0" Then hFinal = DateTime.now
calculaPeriodo
cmd.Parameters = Array As Object(Subs.fechaKMT(hInicio), Subs.fechaKMT(hFinal), rutaSeleccionada)
' Log($"Inicio: ${Subs.fechaKMT(hInicio)}, Fin: ${Subs.fechaKMT(hFinal)}, ${rutaSeleccionada}"$)
reqManager.ExecuteQuery(cmd , 0, "seleccionaRutaGPS2", 0)