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

cambio de RMI y promocion variable v_4_01_17_3

Browse Source
This commit is contained in:
cvaldes1201
2024-01-18 00:02:28 -06:00
parent 98ee54f753
commit 745adb86ca
8 changed files with 51 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
B4A/kms_helperSubs.bas
View File

@@ -543,6 +543,17 @@ Sub StartBluetooth 'ignore
Log($"BTADMIN: ${btAdmin.IsEnabled}"$)
End Sub
'Regresa el total de RMI de un producto dado.
Sub traeRMIdePedido(idProd As String) As String
Private cant As String = 0
Private c As Cursor = Starter.skmt.ExecQuery($"select PE_CANT from pedido where PE_CEDIS = 'DUR' and PE_PROID = '${idProd}' and PE_CLIENTE in (select CUENTA from CUENTAA)"$)
If c.RowCount > 0 Then
c.Position = 0
cant = c.GetString("PE_CANT")
End If
Return cant
End Sub
Sub EnableBluetooth As ResumableSub
ToastMessageShow("Enabling Bluetooth adapter...", False)
Private ph As Phone