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

10/1/2024 - Codigo para que ordene los productos de acuerdo a los portafolios

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-01-10 04:50:21 -06:00
parent 01194a1488
commit 770e01144a
7 changed files with 40 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
B4A/B4XMainPage.bas
View File

@@ -141,8 +141,8 @@ Private Sub B4XPage_Created (Root1 As B4XView)
ruta = Starter.ruta
Provider.Initialize
Subs.borraArribaDe100Errores ' Para Websockets
Subs.borraArribaDe600RenglonesBitacora ' Para Websockets
' Subs.borraArribaDe100Errores ' Para Websockets
' Subs.borraArribaDe600RenglonesBitacora ' Para Websockets
If File.Exists(ruta, "kmt.db") = False Then
File.Copy(File.DirAssets, "kmt.db", ruta, "kmt.db")
End If
@@ -238,7 +238,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
@@ -246,7 +246,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")
@@ -298,6 +298,7 @@ Sub Entrar_Click
Dim r As Reflector
Dim Api As Int
Dim PP As Phone
user.Text = user.Text.trim
Api = r.GetStaticField("android.os.Build$VERSION", "SDK_INT")
If Api < 9 Then
'Old device
@@ -594,7 +595,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