cheveguerra/Salma_Venta-DESCONTINUADO
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Salma_Venta-DESCONTINUADO.git synced 2026-04-22 15:10:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

- VERSION 4.12.09

Browse Source 
- Se cambiaron los permisos de Activity a B4XPage
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-12-09 18:54:32 -06:00
parent a50d2319d1
commit aeae049d52
7 changed files with 33 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
B4A/B4XMainPage.bas
View File

@@ -246,7 +246,7 @@ Sub B4XPage_Appear
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)
Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
If Result Then
IMEN.Text = Phn.GetDeviceId
IMEI = Phn.GetDeviceId
@@ -254,7 +254,7 @@ Sub B4XPage_Appear
IMEI="" 'Pruebas
End If
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_ACCESS_FINE_LOCATION)
Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
If Result Then
StartService(Tracker)
Log("Start Tracker")
@@ -565,7 +565,7 @@ End Sub
Sub copiaDB
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
Dim theDir As String = ""
If Result Then
Dim theDir As String