boton actualizar app y permisos Bluetooth para android 13 v4.01.16

B4A/B4XMainPage.bas

@@ -30,7 +30,7 @@ Sub Class_Globals
 	Public clientes As C_Clientes  'Antes Colonia
 	Public cliente As C_Cliente 'Antes fila
 	Public productos As C_Productos 'Antes colonia2
-'	Public updateAvailable As C_updateAvailable
+	Public updateAvailable As C_updateAvailable
 ''	Public mapas As C_Mapas
 ''	Public nuevoCliente As C_NuevoCliente
 	Public ticketsDia As C_TicketsDia 'Antes buscar
@@ -123,6 +123,8 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	B4XPages.AddPage("NoVenta", noVenta)
 	nota.Initialize
 	B4XPages.AddPage("Nota", nota)
+	updateAvailable.Initialize
+	B4XPages.AddPage("updateAvailable", updateAvailable)
 	promos.Initialize
 	B4XPages.AddPage("Promos", promos)
 	historico.Initialize
@@ -186,6 +188,10 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 End Sub
 
 Sub B4XPage_Appear
+	If Starter.muestraProgreso = 1 Then
+		muestraProgreso("Descargando actualización")
+		Starter.muestraProgreso = 0
+	End If
 	l_version.Text = Application.VersionName
 '	server = "http://10.0.0.205:1782"
 
@@ -496,4 +502,17 @@ Private Sub b_envioBD_Click
 	Dim in As Intent = email.GetIntent
 	in.Flags = 1 'FLAG_GRANT_READ_URI_PERMISSION
 	StartActivity(in)
+End Sub
+
+Sub b_apk_Click
+	StartService(appUpdater)
+End Sub
+
+Sub muestraProgreso(mensaje As String)
+	ProgressDialogShow(mensaje)
+End Sub
+
+'appUpdater - Ocultamos el anuncio de que se esta descargando el nuevo apk
+Sub ocultaProgreso
+	ProgressDialogHide
 End Sub