From a50d2319d1a4821cd70b25c8032d58cd4b1e0c94 Mon Sep 17 00:00:00 2001 From: Jose Alberto Guerra Ugalde Date: Mon, 26 Aug 2024 10:05:52 -0600 Subject: [PATCH] =?UTF-8?q?-=20VERSION=204.08.26=20-=20Se=20movi=C3=B3=20l?= =?UTF-8?q?a=20solicitud=20de=20permisos=20al=20final=20del=20"Appear"=20d?= =?UTF-8?q?e=20Mainpage=20para=20que=20no=20estorben=20con=20la=20iniciali?= =?UTF-8?q?zacion=20del=20DBReqManger?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- B4A/B4XMainPage.bas | 38 +++++++++++++++++++------------------- B4A/Salma_Venta.b4a | 4 ++-- B4A/Salma_Venta.b4a.meta | 4 ++-- 3 files changed, 23 insertions(+), 23 deletions(-) diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas index e75527b..d44f88d 100644 --- a/B4A/B4XMainPage.bas +++ b/B4A/B4XMainPage.bas @@ -203,26 +203,8 @@ Sub B4XPage_Appear End If Dim ph As Phone 'Get Id Device Dim DeviceID As String = ph.GetSettings("android_id").ToUpperCase - LogColor($"////////////////// DeviceID: ${DeviceID} ////////////////// "$, Colors.Blue) - LogColor("Revisa permisos Phone_State", Colors.Green) - Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_READ_PHONE_STATE) - Wait For Activity_PermissionResult (Permission As String, Result As Boolean) - If Result Then - IMEN.Text = Phn.GetDeviceId - IMEI = Phn.GetDeviceId - LogColor($"////////////////// IMEI: ${IMEI} ////////////////// "$, Colors.Blue) - IMEI="" 'Pruebas - End If - Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_ACCESS_FINE_LOCATION) - Wait For Activity_PermissionResult (Permission As String, Result As Boolean) - If Result Then - StartService(Tracker) - Log("Start Tracker") - Else - ToastMessageShow("No permission", True) - End If If Not(reqManager.IsInitialized) Then - Log(Starter.server) + Log("MAINPAGE - " & Starter.server) reqManager.Initialize(Me, Starter.server) End If tgl.Initialize() @@ -261,6 +243,24 @@ Sub B4XPage_Appear 'Obtenemos el usuario registrado ' CallSubDelayed(FirebaseMessaging, "SubscribeToTopics") dameUsuario + LogColor($"////////////////// DeviceID: ${DeviceID} ////////////////// "$, Colors.Blue) + LogColor("Revisa permisos Phone_State", Colors.Green) + Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_READ_PHONE_STATE) + Wait For Activity_PermissionResult (Permission As String, Result As Boolean) + If Result Then + IMEN.Text = Phn.GetDeviceId + IMEI = Phn.GetDeviceId + LogColor($"////////////////// IMEI: ${IMEI} ////////////////// "$, Colors.Blue) + IMEI="" 'Pruebas + End If + Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_ACCESS_FINE_LOCATION) + Wait For Activity_PermissionResult (Permission As String, Result As Boolean) + If Result Then + StartService(Tracker) + Log("Start Tracker") + Else + ToastMessageShow("No permission", True) + End If End Sub 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage. diff --git a/B4A/Salma_Venta.b4a b/B4A/Salma_Venta.b4a index e6d1d2e..70be1ce 100644 --- a/B4A/Salma_Venta.b4a +++ b/B4A/Salma_Venta.b4a @@ -176,12 +176,12 @@ Module9=C_NoVenta NumberOfFiles=60 NumberOfLibraries=31 NumberOfModules=21 -Version=12.5 +Version=12.8 @EndOfDesignText@ #Region Project Attributes #ApplicationLabel: Salma Venta #VersionCode: 1 - #VersionName: 3.01.13 + #VersionName: 4.08.26 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: portrait #CanInstallToExternalStorage: False diff --git a/B4A/Salma_Venta.b4a.meta b/B4A/Salma_Venta.b4a.meta index e7dec11..b4c74d6 100644 --- a/B4A/Salma_Venta.b4a.meta +++ b/B4A/Salma_Venta.b4a.meta @@ -46,7 +46,7 @@ ModuleClosedNodes0= ModuleClosedNodes1=5,7,8,9,10,11,12,13,14 ModuleClosedNodes10= ModuleClosedNodes11=6 -ModuleClosedNodes12=1,2,3 +ModuleClosedNodes12=2,3 ModuleClosedNodes13= ModuleClosedNodes14= ModuleClosedNodes15= @@ -64,6 +64,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=Subs,traeProdIdDeBD,1072,0,C_Principal,B4XPage_Created,299,0,C_Principal,Subir_Click,538,0,C_Principal,B4XPage_Appear,319,3,C_Principal,B4XPage_CloseRequest,1597,0,C_Principal,cargar_Click,819,0,C_Principal,connecta_Click,1654,5,Diseñador Visual,principal.bal,-100,1,C_Principal,JobDone,1527,6,B4XMainPage,i_engrane_Click,602,0,Starter,Process_Globals,14,0 +NavigationStack=C_Principal,JobDone,1527,6,B4XMainPage,i_engrane_Click,602,0,Starter,Process_Globals,14,0,Main,Process_Globals,21,0,Main,Globals,25,0,C_Principal,b_mapa_Click,1681,0,C_Principal,Class_Globals,223,0,C_Principal,B4XPage_Appear,304,3,C_Principal,connecta_Click,1622,6,B4XMainPage,B4XPage_Appear,243,3 SelectedBuild=0 VisibleModules=19,2,20,12,13,4,21,17