....

B4A/Starter.bas

@@ -19,7 +19,7 @@ Sub Process_Globals
 	Public FLP As FusedLocationProvider
 '	Private flpStarted As Boolean
 	Dim reqManager As DBRequestManager
-	Dim server As String = "http://187.189.244.154:1782"
+	Dim server As String = "http://keymon.net:1782"
 '	Dim server As String = "http://10.0.0.205:1782"
 	Dim Timer1 As Timer
 	Dim Interval As Int = 300
@@ -40,6 +40,7 @@ Sub Process_Globals
 	Dim idCliente As String = ""
 	Dim encuesta As String = 0
 	Public fFileProvider As FileProvider
+	Dim tabla As String
 End Sub
 
 Sub Service_Create