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

cambio de servidor

Browse Source
This commit is contained in:
cvaldes1201
2025-06-04 13:50:10 -06:00
parent c1df998ed6
commit cfe90f8b53
861 changed files with 122055 additions and 24055 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
B4A/Starter.bas
View File

@@ -12,6 +12,8 @@ Version=9.85
Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Public gps As GPS
Public distanciaGeo As String = 0
Public rp As RuntimePermissions
Public FLP As FusedLocationProvider
Private flpStarted As Boolean
@@ -33,7 +35,7 @@ Sub Process_Globals
Public SharedFolder As String 'Para actualizar apk
Dim cedisLocation As Location
Dim reqManager As DBRequestManager
Dim server As String = "http://187.189.244.154:1781"
Dim server As String = "http://keymon.net:1781"
' Dim server As String = "http://192.168.100.10:1781"
' Dim server As String = "http://keymon.lat:9000"
' Dim server = "http://192.168.100.10:1781"
@@ -99,12 +101,12 @@ Private Sub Timer1_Tick
End Sub
Sub ENVIA_ULTIMA_GPS
Dim reqManager As DBRequestManager
reqManager.Initialize(Me, server)
If IsConnectedToInternet Then
Log("Con internet, enviamos UTR!")
Dim skmt As SQL
Dim cmd As DBCommand
Dim reqManager As DBRequestManager
reqManager.Initialize(Me, server)
' LogColor($"ReqServer = ${server}"$, Colors.red)
skmt.Initialize(ruta,"kmt.db", True)
' Log("server: "&Main.server)