cheveguerra/Mariana
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Mariana.git synced 2026-04-19 21:59:15 +00:00
Code Issues Packages Projects Releases Wiki Activity

- Logo nuevo

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-03-19 15:55:34 -06:00
parent f84d3e87c9
commit 53486aabbe
2 changed files with 12 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
B4A/C_NuevoCliente.bas
View File

@@ -70,22 +70,22 @@ Private Sub B4XPage_Created (Root1 As B4XView)
' frontCamera = camEx2.Front
Log("inicializamos Camara")
Else
ToastMessageShow("No permission!!!", True)
ToastMessageShow("Sin permisos de camara!!!", True)
End If
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
If Result Then
Log("conpermisos para escritura")
Log("Con permisos para escritura")
Else
ToastMessageShow("No permission!!!", True)
ToastMessageShow("Sin permisos de escritura!!!", True)
End If
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_READ_EXTERNAL_STORAGE)
Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
If Result Then
Log("conpermisos para escritura")
Log("Con permisos para escritura")
Else
ToastMessageShow("No permission!!!", True)
ToastMessageShow("Sin permisos de lectura!!!", True)
End If
End Sub
@@ -250,22 +250,22 @@ Private Sub InitializeCamera2
frontCamera = camEx2.Front
Log("inicializamos Camara")
Else
ToastMessageShow("No permission!!!", True)
ToastMessageShow("Sin permisos de camara!!!", True)
End If
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
If Result Then
Log("conpermisos para escritura")
Log("con permisos para escritura")
Else
ToastMessageShow("No permission!!!", True)
ToastMessageShow("Sin permisos de escritura!!!", True)
End If
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_READ_EXTERNAL_STORAGE)
Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
If Result Then
Log("conpermisos para escritura")
Log("con permisos para escritura")
Else
ToastMessageShow("No permission!!!", True)
ToastMessageShow("Sin permisos de lectura!!!", True)
End If
End Sub