cheveguerra/Kelloggs_v4
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Kelloggs_v4.git synced 2026-04-20 19:49:12 +00:00
Code Issues Packages Projects Releases Wiki Activity

4/10/23 - Actualización en el manifiesto y en el diseño.

Browse Source 
- Se modifico la declaracion de la libreria ReplyAuto para que incluya "android:exported="true"", esta modificación es necesaria para Android 12+
- Se cambian tamaños y posicion de paneles para que se adapten a la pantalla del movil (pantalla principal).
This commit is contained in:
cheveguerra
2023-10-04 20:28:32 -06:00
parent 52bb35dbdc
commit adab335f3e
7 changed files with 104 additions and 89 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
B4A/B4XMainPage.bas
View File

@@ -140,6 +140,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
B4XPages.AddPage("Historico", historico)
checklist.Initialize
B4XPages.AddPage("CheckList", checklist)
Panel1.Top = 0 : Panel1.left = 0
ruta = Starter.ruta
ruta = File.DirInternal
Starter.tiempos.Initialize
@@ -302,9 +303,11 @@ Private Sub B4XPage_Created (Root1 As B4XView)
' If Result Then Log("Tenemos permisos de bluetooth.")
' Log("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
' Log("Check phone state: " & rp.Check(rp.PERMISSION_READ_PHONE_STATE))
End Sub
Sub B4XPage_Appear
MES1.Initialize(Me, "MES1")
' get the device SDK version
' Get the device SDK version
Dim SdkVersion As Int = device.SdkVersion
' Choose which permission to request in order to access external storgage
If SdkVersion < 30 Then
@@ -317,18 +320,13 @@ Private Sub B4XPage_Created (Root1 As B4XView)
' Log("SDK = " & SdkVersion & " : Requesting MANAGE_EXTERNAL_STORAGE permission")
' Log("On Entry MANAGE_EXTERNAL_STORAGE = " & MES1.HasPermission)
If Not(MES1.HasPermission) Then
Dim r As String = Msgbox2("This app requires access to all files, please enable the option", "Manage All Files", "OK", "", "", Null)
If r = DialogResponse.POSITIVE Then
MES1.GetPermission
' Wait For Msgbox_Result(Res As Int)
MsgboxAsync("This app requires access to all files, please enable the option", "Manage All Files")
Wait For Msgbox_Result(Res As Int)
' Log("Getting permission")
Wait For MES_StorageAvailable
End If
MES1.GetPermission
Wait For MES_StorageAvailable
End If
End If
End Sub
Sub B4XPage_Appear
' server = "http://keymon.com.mx:1782"
' server = "http://201.99.139.28:1782"
' server = "http://177.244.63.54:1782"
@@ -387,6 +385,10 @@ End Sub
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
Sub pass_EnterPressed
Entrar_Click
End Sub
Sub Entrar_Click
DateTime.DateFormat = "yyyyMMdd"
If user.Text = "ALTERNO" Then
@@ -433,7 +435,7 @@ Sub Entrar_Click
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "select_version_KELL"
Starter.reqManager.ExecuteQuery(cmd , 0, "version")
reqManager.ExecuteQuery(cmd , 0, "version")
Else
Subs.iniciaActividad("Principal")
' B4XPages.ShowPage("Principal")