From 6fd36f54b4b8cb3994e8e704f8cedc8a7bbb56df Mon Sep 17 00:00:00 2001
From: Jose Alberto Guerra Ugalde <cheveguerra@gmail.com>
Date: Thu, 4 Jan 2024 03:35:45 -0600
Subject: [PATCH] 4/1/2024 - Permisos

---
 FLP_2.0.b4a      | 20 +++++++++++++++++++-
 FLP_2.0.b4a.meta |  4 ++--
 2 files changed, 21 insertions(+), 3 deletions(-)

diff --git a/FLP_2.0.b4a b/FLP_2.0.b4a
index e9e0bb8..5f14bdf 100644
--- a/FLP_2.0.b4a
+++ b/FLP_2.0.b4a
@@ -38,7 +38,7 @@ Version=12.5
 #Region  Project Attributes 
 	#ApplicationLabel: FLP 2.0
 	#VersionCode: 1
-	#VersionName: 3.11.11
+	#VersionName: 4.01.04
 	'SupportedOrientations possible values: unspecified, landscape or portrait.
 	#SupportedOrientations: unspecified
 	#CanInstallToExternalStorage: False
@@ -105,6 +105,8 @@ End Sub
 Sub Activity_Resume
 	chkPermisosUbicacion 'Permisos de ubicacion para Tracker
 	chkPermisosAlmacenamientoExterno
+	chkPermisosLeerLlamadas 'Permisos de telefono para registrar llamadas
+	chkPermisosEstadoTelefono
 	Subs.getPhnId
 	et_id.Text = Starter.devModel.Trim
 	getSSID
@@ -148,6 +150,7 @@ Sub b_pong_LongClick
 	Wait For WiFi_ScanDone (Results() As String, Count As Int)
 End Sub
 
+'Obtenemos permisos de almacenamiento.
 Sub chkPermisosAlmacenamientoExterno
 	Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
 	Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
@@ -158,6 +161,7 @@ Sub chkPermisosAlmacenamientoExterno
 	End If
 End Sub
 
+'Obtenemos permisos de ubicacion.
 Sub chkPermisosUbicacion
 '	If Starter.logger Then Log("Revisamos permisos de ubicación.")
 	Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_ACCESS_FINE_LOCATION)
@@ -170,6 +174,20 @@ Sub chkPermisosUbicacion
 	End If
 End Sub
 
+'Obtenemos permisos de llamadas.
+Sub chkPermisosLeerLlamadas
+	Starter.rp.CheckAndRequest("android.permission.READ_CALL_LOG")
+	wait for Activity_PermissionResult(permission As String, result As Boolean)
+	Log("READ_CALL_LOG: " & result)
+End Sub
+
+'Obtenemos permisos de estado de telefono.
+Sub chkPermisosEstadoTelefono
+	Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_READ_PHONE_STATE)
+	wait for Activity_PermissionResult(permission As String, result As Boolean)
+	Log("READ_PHONE_STATE: " & result)
+End Sub
+
 Sub getSSID
 	If wifi.isWifiConnected Then
 		Subs.ssid = wifi.WifiSSID
diff --git a/FLP_2.0.b4a.meta b/FLP_2.0.b4a.meta
index a3f0082..fe4a998 100644
--- a/FLP_2.0.b4a.meta
+++ b/FLP_2.0.b4a.meta
@@ -16,7 +16,7 @@ ModuleBreakpoints5=
 ModuleBreakpoints6=
 ModuleBreakpoints7=
 ModuleBreakpoints8=
-ModuleClosedNodes0=12,13
+ModuleClosedNodes0=
 ModuleClosedNodes1=
 ModuleClosedNodes2=6,9,10
 ModuleClosedNodes3=1
@@ -25,6 +25,6 @@ ModuleClosedNodes5=
 ModuleClosedNodes6=
 ModuleClosedNodes7=2,5,6,7,9,11,13,14,16,19,20
 ModuleClosedNodes8=8,11,12
-NavigationStack=Tracker,StartFLP,107,0,Main,b_pong_Click,92,0,Starter,Service_Start,31,0,Starter,Application_Error,56,0,Starter,Timer1_Tick,49,0,Starter,Service_TaskRemoved,53,0,Starter,Service_Create,37,0,Starter,Process_Globals,26,0,Starter,restartTracker,84,0,Starter,PE_PhoneStateChanged,90,6
+NavigationStack=Starter,Service_Create,37,0,Starter,Process_Globals,26,0,Starter,restartTracker,84,0,Starter,PE_PhoneStateChanged,101,6,Main,b_pong_Click,92,0,Main,chkPermisosAlmacenamientoExterno,124,0,Main,b_pong_LongClick,114,0,Main,chkPermisosLeerLlamadas,145,0,Main,chkPermisosUbicacion,138,0,Main,chkPermisosEstadoTelefono,146,3,Main,Activity_Resume,71,0
 SelectedBuild=0
 VisibleModules=6,2,8,3,7,4,5