- VERSION 4.10.02

- Se agregó el almacen a todas las tablas necesarias y a los queries de envio de información.

B4A/Starter.bas

@@ -37,6 +37,9 @@ Sub Process_Globals
 '	Dim server As String = "http://11.0.0.222:1782"
 	Dim muestraProgreso = 0
 	Dim c As Cursor
+	Dim inicioMapa As Boolean = False
+	Dim inicioLat As Double = 0
+	Dim inicioLon As Double = 0
 End Sub
 
 Sub Service_Create
@@ -130,11 +133,6 @@ Sub ENVIA_ULTIMA_GPS
 	End If
 End Sub
 
-
-
-
-
-
 Sub IsConnectedToInternet As Boolean 'ignore
 	Dim r As Reflector
 	r.Target = r.GetContext
@@ -147,7 +145,7 @@ Sub IsConnectedToInternet As Boolean 'ignore
 End Sub
 
 Sub JobDone(Job As HttpJob)
-'	LogColor("starter jobdone", Colors.Red)
+	Log("JobDone Starter: " & Job.Success)
 '	Log(Job.ErrorMessage)
 '	Private r As DBResult = reqManager.HandleJob(Job)
 	If Job.Success = False Then