- VERSION 5.06.13.1

- Se cambio el SDK a 28 para que corra en Android 15.
- Se puso el nuevo servidor.
- Se corrigio que no guardaba el servidor.

Starter.bas

@@ -32,6 +32,7 @@ Sub Process_Globals
 	Public SharedFolder As String 'Para actualizar apk
 	Dim cedisLocation As Location
 	Dim reqManager As DBRequestManager
+	Dim server As String
 End Sub
 
 Sub Service_Create
@@ -98,7 +99,7 @@ Sub ENVIA_ULTIMA_GPS
 	Dim skmt As SQL
 	Dim cmd As DBCommand
 	Dim reqManager As DBRequestManager
-	reqManager.Initialize(Me, Main.server)
+	reqManager.Initialize(Me, server)
 	skmt.Initialize(ruta,"kmt.db", True)
 '	Log("server: "&Main.server)
 	

intmex_reparto.b4a

@@ -1,4 +1,4 @@
-Build1=Default,intmex_rep.keymon.com.mx
+Build1=Default,intmex_rep.keymon.com.mx,HU2_PUBLIC
 File1=alert2.png
 File10=foto.bal
 File11=guardagestion.bal
@@ -104,7 +104,7 @@ Library6=core
 Library7=fusedlocationprovider
 Library8=googlemaps
 Library9=googlemapsextras
-ManifestCode='This code will be applied to the manifest file during compilation.~\n~'You do not need to modify it in most cases.~\n~'See this link for for more information: http://www.basic4ppc.com/forum/showthread.php?p=78136~\n~AddManifestText(~\n~<uses-sdk android:minSdkVersion="4" android:targetSdkVersion="23"/>~\n~<supports-screens android:largeScreens="true" ~\n~    android:normalScreens="true" ~\n~    android:smallScreens="true" ~\n~    android:anyDensity="true"/>)~\n~SetApplicationAttribute(android:icon, "@drawable/icon")~\n~SetApplicationAttribute(android:label, "$LABEL$")~\n~'End of default text.~\n~~\n~''''' CAMBIA LA CLAVE API~\n~AddApplicationText(~\n~<meta-data~\n~  android:name="com.google.android.geo.API_KEY"~\n~   android:value="AIzaSyBlBnx3O-DncOSv3oFIp-12wgujOYYcl-U"/>~\n~  <meta-data android:name="com.google.android.gms.version"~\n~   android:value="@integer/google_play_services_version" />~\n~)~\n~'End of default text.~\n~	  ~\n~	  	  '''''''''''PUSH~\n~CreateResourceFromFile(Macro, FirebaseAnalytics.GooglePlayBase)~\n~~\n~SetApplicationAttribute(android:usesCleartextTraffic, "true")~\n~AddManifestText(<uses-permission android:name="android.permission.ACCESS_FINE_LOCATION" android:maxSdkVersion="23" />)~\n~AddPermission(android.permission.ACCESS_BACKGROUND_LOCATION)~\n~AddManifestText(<uses-permission android:name="android.permission.WRITE_EXTERNAL_STORAGE" android:maxSdkVersion="23" />)~\n~AddManifestText(<uses-permission android:name="android.permission.READ_PHONE_STATE" android:maxSdkVersion="19" />)~\n~AddManifestText(<uses-permission android:name="android.permission.READ_PRIVILEGED_PHONE_STATE" android:maxSdkVersion="19" />~\n~) 'in order to access the device non-resettable identifiers such as IMEI and serial number.~\n~AddManifestText(<uses-permission android:name="android.permission.BLUETOOTH_ADMIN" />)~\n~'///////////////  FLP y FBMessageing MOD Inicia /////////////////////~\n~'CreateResourceFromFile(Macro, FirebaseAnalytics.GooglePlayBase)~\n~'CreateResourceFromFile(Macro, FirebaseAnalytics.Firebase)~\n~'CreateResourceFromFile(Macro, FirebaseAnalytics.FirebaseAnalytics)~\n~'CreateResourceFromFile(Macro, FirebaseNotifications.FirebaseNotifications)~\n~SetServiceAttribute(Tracker, android:foregroundServiceType, "location")~\n~'///////////////  FLP y FBMessageing MOD Termina /////////////////////~\n~~\n~'///////////////////////  App Updating ////////////////~\n~		AddManifestText(<uses-permission~\n~		   android:name="android.permission.WRITE_EXTERNAL_STORAGE" android:maxSdkVersion="33" />~\n~		)~\n~		AddApplicationText(~\n~		  <provider~\n~		  android:name="android.support.v4.content.FileProvider"~\n~		  android:authorities="$PACKAGE$.provider"~\n~		  android:exported="false"~\n~		  android:grantUriPermissions="true">~\n~		  <meta-data~\n~		  android:name="android.support.FILE_PROVIDER_PATHS"~\n~		  android:resource="@xml/provider_paths"/>~\n~		  </provider>~\n~		)~\n~		CreateResource(xml, provider_paths,~\n~		<paths>~\n~		   <external-files-path name="name" path="" />~\n~		   <files-path name="name" path="" />~\n~		   <files-path name="name" path="shared" />~\n~		</paths>~\n~		)
+ManifestCode='This code will be applied to the manifest file during compilation.~\n~'You do not need to modify it in most cases.~\n~'See this link for for more information: http://www.basic4ppc.com/forum/showthread.php?p=78136~\n~AddManifestText(~\n~<uses-sdk android:minSdkVersion="4" android:targetSdkVersion="29"/>~\n~<supports-screens android:largeScreens="true" ~\n~    android:normalScreens="true" ~\n~    android:smallScreens="true" ~\n~    android:anyDensity="true"/>)~\n~SetApplicationAttribute(android:icon, "@drawable/icon")~\n~SetApplicationAttribute(android:label, "$LABEL$")~\n~'End of default text.~\n~~\n~''''' CAMBIA LA CLAVE API~\n~AddApplicationText(~\n~<meta-data~\n~  android:name="com.google.android.geo.API_KEY"~\n~   android:value="AIzaSyBlBnx3O-DncOSv3oFIp-12wgujOYYcl-U"/>~\n~  <meta-data android:name="com.google.android.gms.version"~\n~   android:value="@integer/google_play_services_version" />~\n~)~\n~'End of default text.~\n~	  ~\n~	  	  '''''''''''PUSH~\n~CreateResourceFromFile(Macro, FirebaseAnalytics.GooglePlayBase)~\n~~\n~SetApplicationAttribute(android:usesCleartextTraffic, "true")~\n~AddManifestText(<uses-permission android:name="android.permission.ACCESS_FINE_LOCATION" android:maxSdkVersion="23" />)~\n~AddPermission(android.permission.ACCESS_BACKGROUND_LOCATION)~\n~AddManifestText(<uses-permission android:name="android.permission.WRITE_EXTERNAL_STORAGE" android:maxSdkVersion="23" />)~\n~AddManifestText(<uses-permission android:name="android.permission.READ_PHONE_STATE" android:maxSdkVersion="19" />)~\n~AddManifestText(<uses-permission android:name="android.permission.READ_PRIVILEGED_PHONE_STATE" android:maxSdkVersion="19" />~\n~) 'in order to access the device non-resettable identifiers such as IMEI and serial number.~\n~AddManifestText(<uses-permission android:name="android.permission.BLUETOOTH_ADMIN" />)~\n~'///////////////  FLP y FBMessageing MOD Inicia /////////////////////~\n~'CreateResourceFromFile(Macro, FirebaseAnalytics.GooglePlayBase)~\n~'CreateResourceFromFile(Macro, FirebaseAnalytics.Firebase)~\n~'CreateResourceFromFile(Macro, FirebaseAnalytics.FirebaseAnalytics)~\n~'CreateResourceFromFile(Macro, FirebaseNotifications.FirebaseNotifications)~\n~SetServiceAttribute(Tracker, android:foregroundServiceType, "location")~\n~'///////////////  FLP y FBMessageing MOD Termina /////////////////////~\n~~\n~'///////////////////////  App Updating ////////////////~\n~		AddManifestText(<uses-permission~\n~		   android:name="android.permission.WRITE_EXTERNAL_STORAGE" android:maxSdkVersion="33" />~\n~		)~\n~		AddApplicationText(~\n~		  <provider~\n~		  android:name="android.support.v4.content.FileProvider"~\n~		  android:authorities="$PACKAGE$.provider"~\n~		  android:exported="false"~\n~		  android:grantUriPermissions="true">~\n~		  <meta-data~\n~		  android:name="android.support.FILE_PROVIDER_PATHS"~\n~		  android:resource="@xml/provider_paths"/>~\n~		  </provider>~\n~		)~\n~		CreateResource(xml, provider_paths,~\n~		<paths>~\n~		   <external-files-path name="name" path="" />~\n~		   <files-path name="name" path="" />~\n~		   <files-path name="name" path="shared" />~\n~		</paths>~\n~		)
 Module1=BatteryUtilities
 Module10=gestion
 Module11=Historico
@@ -136,7 +136,7 @@ Version=12.8
 #Region  Project Attributes 
 	#ApplicationLabel: Intmex-Reparto
 	#VersionCode: 1
-	#VersionName: 4.08.05
+	#VersionName: 5.06.13.1
 	'SupportedOrientations possible values: unspecified, landscape or portrait.
 	#SupportedOrientations: portrait
 	#CanInstallToExternalStorage: False
@@ -207,10 +207,10 @@ Sub Globals
 	Private b_regesar As Button
 	Private p_serverList As Panel
 	Public Provider As FileProvider
+	Private l_version As Label
 End Sub
 
 Sub Activity_Create(FirstTime As Boolean)
-	
 '	If File.ExternalWritable Then
 '		ruta = Starter.rp.GetSafeDirDefaultExternal("")
 '	Else
@@ -228,7 +228,14 @@ Sub Activity_Create(FirstTime As Boolean)
 	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS RUTAA (RUTAA TEXT)")
 	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS PAGARES (PA_ALMACEN TEXT, PA_RUTA_REP TEXT, PA_RUTAPREV TEXT, PA_FECHA_PREV TEXT, PA_CAPTURA TEXT, PA_MONTO TEXT, PA_USUARIO TEXT, PA_CLIENTE TEXT)")
 	Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS wayPoints (codigo TEXT, indice INT)")
-	Dim server As String = "http://187.189.244.154:1781"
+	Dim server As String = "http://keymon.net:1781"
+	Private s As Cursor = Starter.skmt.ExecQuery("select * from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'SERVER'")
+	Log(s.RowCount)
+	If s.RowCount > 0 Then
+		s.Position = 0
+		Log("Ponemos el servidor desde CAT_VARIABLES: " & s.GetString("CAT_VA_VALOR"))
+		server = s.GetString("CAT_VA_VALOR")
+	End If
 '	Dim server As String = "http://11.0.0.107:1781"
 '	server = "http://10.0.0.205:1782"
 '	server = "http://11.0.0.44:1782"
@@ -276,7 +283,6 @@ Sub Activity_Resume
 	Wait For Activity_PermissionResult (Permission As String, resultC As Boolean)
 	Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
 	Wait For Activity_PermissionResult (Permission As String, resultC As Boolean)
-
 '	CallSubDelayed(FirebaseMessaging, "SubscribeToTopics")
 End Sub
 
@@ -301,7 +307,6 @@ Sub Entrar_Click
 		'existe = 1
 		If existe = 0 Then
 			'skmt.ExecNonQuery("delete from usuarioa")
-
 			Dim cmd As DBCommand
 			cmd.Initialize
 			cmd.Name = "select_usuario_INTMEX_REPG"
@@ -338,13 +343,8 @@ Sub JobDone(Job As HttpJob)
 			Dim result As DBResult = reqManager.HandleJob(Job)
 			If result.Tag = "agencia" Then 'query tag
 				For Each records() As Object In result.Rows
-           
 					Dim ID_ALMACEN As String = records(result.Columns.Get("ID_ALMACEN"))
-			
-	      
-		   
 				Next
-        
 			End If
 		End If
 	 
@@ -392,8 +392,14 @@ Sub Activity_KeyPress (key As Int) As Boolean
 	Return False
 End Sub
 
-
 Private Sub i_engrane_Click
+	Private s As Cursor = Starter.skmt.ExecQuery("select * from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'SERVER'")
+	Log(s.RowCount)
+	If s.RowCount > 0 Then
+		s.Position = 0
+		Log(s.GetString("CAT_VA_VALOR"))
+		et_server.Text = s.GetString("CAT_VA_VALOR")
+	End If
 	p_appUpdate.Width = Activity.Width
 	p_appUpdate.Height = Activity.Height
 	Subs.centraPanel(p_serverList, Activity.Width)
@@ -403,8 +409,8 @@ Private Sub i_engrane_Click
 	Subs.centraBoton(b_regesar, Activity.Width)
 	Subs.centraBoton(b_server, p_serverList.Width)
 	lv_server.Clear
-	lv_server.AddSingleLine("http://keymon.lat:1782")
+	lv_server.AddSingleLine("http://keymon.net:1781")
-	If user.Text = "KMTS1" Then lv_server.AddSingleLine("http://10.0.0.205:1782")
+	If user.Text = "KMTS1" Then lv_server.AddSingleLine("http://192.99.93.204:1781")
 '	l_server.Text = Starter.server
 	et_server.Text = server
 	Subs.panelVisible(p_appUpdate, 0, 0)
@@ -438,15 +444,21 @@ Private Sub b_apk_Click
 End Sub
 
 Private Sub b_server_Click
-'	Log("Guardar servidor")
+	Log("Guardar servidor")
-'	Starter.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("SERVER"))
+	Starter.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("SERVER"))
-'	Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("SERVER",et_server.text))
+	Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("SERVER",et_server.text))
-'	Starter.server = et_server.text
+	Log(et_server.text)
-'	Starter.server = B4XPages.MainPage.server
+	Starter.server = et_server.text
-'	If logger Then Log("Inicializamos reqManager con " & B4XPages.MainPage.server)
+	server = et_server.text
-'	reqManager.Initialize(Me, B4XPages.MainPage.server)
+	If logger Then Log("Inicializamos reqManager con " & server)
-'	LogColor($"ReqServer = ${B4XPages.MainPage.server}"$, Colors.red)
+	reqManager.Initialize(Me, server)
+	LogColor($"ReqServer = ${server}"$, Colors.red)
 '	reinicializaReqManager
-'	p_appUpdate.Visible = False
+	p_appUpdate.Visible = False
-''	Entrar.Visible = True
+'	Entrar.Visible = True
+End Sub
+
+Private Sub lv_server_ItemClick (Position As Int, Value As Object)
+	Log(Value)
+	et_server.text = Value
 End Sub

intmex_reparto.b4a.meta

@@ -46,7 +46,7 @@ ModuleBreakpoints6=
 ModuleBreakpoints7=
 ModuleBreakpoints8=
 ModuleBreakpoints9=
-ModuleClosedNodes0=
+ModuleClosedNodes0=5,9,10
 ModuleClosedNodes1=
 ModuleClosedNodes10=
 ModuleClosedNodes11=
@@ -56,7 +56,7 @@ ModuleClosedNodes14=
 ModuleClosedNodes15=
 ModuleClosedNodes16=
 ModuleClosedNodes17=
-ModuleClosedNodes18=6,7,8,9
+ModuleClosedNodes18=3,6,7,8,9,10,11,13
 ModuleClosedNodes19=3,4,5,6,7,8
 ModuleClosedNodes2=
 ModuleClosedNodes20=
@@ -70,6 +70,6 @@ ModuleClosedNodes6=
 ModuleClosedNodes7=
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=seleccion,e_ruta_EnterPressed,1051,0,fila,ListView1_ItemLongClick,247,0,fila,Guardado,274,0,fila,b_cancred_Click,588,4,Main,Activity_Create,93,0,fila,b_acred_Click,627,2,fila,gest_Click,319,6,seleccion,Subir_Click,470,6,nopago,Activity_Create,50,0,nopago,Activity_Resume,65,6
+NavigationStack=Historico,Globals,29,0,Starter,Service_TaskRemoved,75,0,Main,Activity_Create,83,6,seleccion,connecta_Click,1079,2,seleccion,JobDone,1009,0,seleccion,Activity_Resume,190,3,seleccion,Activity_Create,171,5,Diseñador Visual,tarjeta.bal,-100,2,Diseñador Visual,seleccion.bal,-100,6,Main,b_server_Click,310,0
 SelectedBuild=0
-VisibleModules=19,23,20,18,4,5,8,15,6,9
+VisibleModules=19,23,20,18,4,5,8,15,6,9,13,11

seleccion.bas

@@ -96,12 +96,14 @@ Sub Globals
 	Private Btn_Ubicar_Ru As Button
 	Dim cargo As String
 	Private p_principal As Panel
+	Private l_version As Label
 End Sub
 
 Sub Activity_Create(FirstTime As Boolean)
 	EJECUTANDO=1
 	If FirstTime Then
 		reqManager.Initialize(Me, Main.server)
+		Log(Main.server)
 		'reqManager.Initialize(Me,"http://201.99.139.28:1782")
 		'reqManager.Initialize(Me,"http://177.244.63.54:1782")
 		'reqManager.Initialize(Me,"http://keymon.com.mx:1782")
@@ -191,6 +193,7 @@ End Sub
 
 Sub Activity_Resume
 	reqManager.Initialize(Me, Main.server)
+	Log("------->  " & Main.server)
 	Subs.centraPanel(p_principal, Activity.Width)
 	c=Starter.skmt.ExecQuery("select noversion from version")
 	c.Position=0
@@ -342,6 +345,8 @@ Sub Activity_Resume
 	If c.RowCount > 0 Then RUTA_T = c.GetString("RUTAA")
 	Main.rutaPreventa = RUTA_T
 	c.Close
+	l_version.Text = Application.VersionName
+	l_version.Left = Activity.Width - l_version.Width
 End Sub
 
 Sub IsConnectedToInternet As Boolean 'ignore
@@ -1066,7 +1071,7 @@ Sub Activity_KeyPress (key As Int) As Boolean
 End Sub
 
 Sub connecta_Click
-	imei = p.GetDeviceId
+	imei = "" ' p.GetDeviceId
 	conn = "1"
 	Dim cmd As DBCommand
 	cmd.Initialize