cheveguerra/ADM2
1
0
Fork 0
mirror of https://github.com/KeymonSoft/ADM2.git synced 2026-04-20 04:39:14 +00:00
Code Issues Packages Projects Releases Wiki Activity

VERSION 5.12.04

Browse Source 
- Cambios en el timer del envio de ubicacion en tiempo real
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-12-26 14:17:13 -06:00
parent 8b5dc8a2a9
commit 7f18e3e8ea
6 changed files with 19 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
B4A/Starter.bas
View File

@@ -25,7 +25,7 @@ Sub Process_Globals
' Dim DBReqServer As String = "http://10.0.0.205:1783"
' Dim DBReqServer As String = "http://192.168.100.10:1781"
Dim Timer1 As Timer
Dim Interval As Int = 10
Dim Interval As Int = 300
Dim ruta As String = File.DirInternal
'Para los Logs
Private logs As StringBuilder
@@ -148,9 +148,9 @@ Sub JobDone(Job As HttpJob)
If reqManager.reqsList.IsInitialized Then 'Si tenemos lista de requests, la procesamos.
If reqManager.reqsList.IndexOf(Job.tag) <> -1 Then
reqManager.reqsList.RemoveAt(reqManager.reqsList.IndexOf(Job.tag))
LogColor($">>>>>> Quitamos ${Job.tag}"$, Colors.Blue)
' LogColor($">>>>>> Quitamos ${Job.tag}"$, Colors.Blue)
End If
LogColor(">>>>>> " & reqManager.reqsList.Size & " - " & reqManager.reqsList, Colors.Blue)
' LogColor(">>>>>> " & reqManager.reqsList.Size & " - " & reqManager.reqsList, Colors.Blue)
End If
If Job.Success = False Then
LogColor("############################################", Colors.red)
@@ -188,7 +188,7 @@ Sub JobDone(Job As HttpJob)
End If
End If
End If
Log(">>>>> Job.Release Starter")
' Log(">>>>> Job.Release Starter")
Job.Release
Catch
Log(LastException)