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

Durakelo_reparto.b4a

@@ -115,7 +115,7 @@ Version=12.5
 #Region  Project Attributes 
 	#ApplicationLabel: Durakelo-Reparto
 	#VersionCode: 1
-	#VersionName: 3.11.16
+	#VersionName: 3.11.19
 	'SupportedOrientations possible values: unspecified, landscape or portrait.
 	#SupportedOrientations: portrait
 	#CanInstallToExternalStorage: False
@@ -167,6 +167,7 @@ Sub Globals
 	Dim paso1 As String
 	Private IMEN As Label
 	Dim IMEI As String
+	Private l_version As Label
 End Sub
 
 Sub Activity_Create(FirstTime As Boolean)
@@ -191,12 +192,12 @@ Sub Activity_Create(FirstTime As Boolean)
 '		"http://keymon.com.mx:1782"
 	End If
 	Activity.LoadLayout("login")
+	l_version.Text = Application.VersionName
 	Dim P As PhoneId
 	IMEN.Text = "" 'P.GetDeviceId
 	IMEI = "" 'P.GetDeviceId
 	
 	skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS RUTAA (RUTAA TEXT)")
-	
 End Sub
 
 Sub Activity_Resume