- 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.

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