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

14/9/23 - Promos - Precio de fijos en variables

Browse Source 
Arregla el caso de que, si un producto esta en fijos y variables, el variable tomaba el precio del fijo.
This commit is contained in:
cheveguerra
2023-09-14 02:08:47 -06:00
parent 044c60c876
commit 5bdf238f3f
7 changed files with 105 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files

37
B4A/C_Principal.bas
View File

@@ -9,6 +9,7 @@ Sub Class_Globals
Private Root As B4XView 'ignore
Private xui As XUI 'ignore
Dim reqManager As DBRequestManager
Dim rp As RuntimePermissions
Dim t1 As Timer
Dim t2 As Timer
Private t3 As Timer
@@ -257,7 +258,9 @@ End Sub
Sub B4XPage_Appear
If Subs.traeUltimaActividadBD <> "principal" Then Subs.iniciaActividad(Subs.traeUltimaActividadBD)
Starter.btAdmin.Initialize("BlueTeeth")
Starter.btAdmin.Initialize("btAdmin")
Log("BTADMIN INICIALIZADO: "&Starter.btAdmin.IsEnabled)
Starter.btAdmin.Enable
If Not(Starter.btAdmin.IsEnabled) Then Starter.btAdmin.Enable
e_ruta.Enabled = True
Starter.rutaV = l_ruta.Text
@@ -369,6 +372,26 @@ Sub B4XPage_Appear
CallSub(Starter, "ENVIA_ULTIMA_GPS")
c.Close
' Subs.guardaUltimaActividadBD("principal")
Log("Check phone state: " & rp.Check(rp.PERMISSION_READ_PHONE_STATE))
Log("Pedimos permisos de estado del cel")
rp.CheckAndRequest(rp.PERMISSION_READ_PHONE_STATE)
Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
If Result Then
Dim Phn As PhoneId
' IMEN.Text = "" 'Phn.GetDeviceId
imei ="" ' Phn.GetDeviceId
If logger Then LogColor($"////////////////// IMEI: ${imei} ////////////////// "$, Colors.Blue)
End If
Log("Permisos cel terminados")
' Log("Permisos BT: " & rp.Check("android.permission.BLUETOOTH_CONNECT"))
' Log("REVISAMOS PERMISOS DE BT")
' rp.CheckAndRequest("android.permission.BLUETOOTH_CONNECT")
' Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
' If Result Then Log("Tenemos permisos de bluetooth.")
' Log("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
End Sub
Sub trabajar_Click
@@ -1881,6 +1904,15 @@ Sub Activity_KeyPress (key As Int) As Boolean
End Sub
Sub connecta_Click
Log("################# PERMISOS BT: " & Starter.rp.Check("android.permission.BLUETOOTH_CONNECT"))
Log("Permisos BT: " & Starter.rp.Check("android.permission.BLUETOOTH_CONNECT"))
Log("REVISAMOS PERMISOS DE BT")
Starter.rp.CheckAndRequest("android.permission.BLUETOOTH_CONNECT")
Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
If Result Then Log("Tenemos permisos de bluetooth.")
Log("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX")
' c=skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("RUTA"))
' c.Position =0
' If c.GetString("CAT_VA_VALOR") = l_ruta.Text Then
@@ -1899,11 +1931,14 @@ Sub connecta_Click
usuario = c.GetString("USUARIO")
c.Close
connecta1 = connecta1 + 1
Log("Pedimos permisos de Phone State")
Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_READ_PHONE_STATE)
Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
If Result Then
imei = "" 'p.GetDeviceId
End If
Log("Terminamos permisos")
conn = "1"
Dim cmd As DBCommand
cmd.Initialize