20/11/23 - Se agregó etiqueta con version en principal y mapas

seleccion.bas

@@ -24,7 +24,7 @@ Sub Globals
 	'These global variables will be redeclared each time the activity is created.
 	'These variables can only be accessed from this module.
 	Dim trabajar As Button
-	dim ime as ime
+	Dim ime As IME
 	Dim c As Cursor
 	Dim d As Cursor
 	Dim b As Cursor
@@ -96,6 +96,7 @@ Sub Globals
 	Private p_cargando As Panel
 	Private p_cargando2 As Panel
 	Private l_cargando As Label
+	Private l_version As Label
 End Sub
 
 Sub Activity_Create(FirstTime As Boolean)
@@ -180,19 +181,18 @@ Sub Activity_Create(FirstTime As Boolean)
 	End If
 	DateTime.TimeFormat = "HH:mm:ss"
 	p_cargando2.Left = (Activity.Width / 2) - (p_cargando2.Width / 2)
+	l_version.Text = Application.VersionName
+	l_version.Left = Activity.Width - l_version.Width - 10
 End Sub
 
 Sub IsConnectedToInternet As Boolean
 	Dim r As Reflector
- 
 	r.Target = r.GetContext
 	r.Target = r.RunMethod2("getSystemService", "connectivity", "java.lang.String")
 	r.Target = r.RunMethod("getActiveNetworkInfo")
- 
 	If r.Target <> Null Then
 		Return r.RunMethod("isConnectedOrConnecting")
 	End If
- 
 	Return False
 End Sub