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

Se agrego el descuento de las condiciones comerciales, de acuerdo al tipo (salty snacks, ping y rtec) y por sku.

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-02-01 02:21:38 -06:00
parent 8e095d8bff
commit 4e56e0456f
7 changed files with 61 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
B4A/kms_helperSubs.bas
View File

@@ -1031,4 +1031,28 @@ Private Sub StartActivityForResult(i As Intent)
ion = jo.CreateEvent("anywheresoftware.b4a.IOnActivityResult", "ion", Null)
jo.RunMethod("startActivityForResult", Array As Object(ion, i))
End Sub
'################ TERMINA ENABLE BLUETOOTH #########################
'################ TERMINA ENABLE BLUETOOTH #########################
'Regresa el descuento de condiciones comerciales por TIPO.
Sub traeDescXTipo(clienteId As String, tipo As String) As String 'ignore
Private desc As String = "0"
Private c As Cursor = khdb.ExecQuery($"Select * from DESC_CLIENTES where DC_CL_CLIENTE = '${clienteId}'"$)
If c.RowCount > 0 Then
c.Position = 0
If tipo = "PING" Then desc = c.GetString("CAT_CL_DESCUENTO_PING")
If tipo = "RTEC" Then desc = c.GetString("CAT_CL_DESCUENTO_RTEC")
If tipo = "SALTY SNACKS" Then desc = c.GetString("CAT_CL_DESCUENTO_SS")
End If
Return desc
End Sub
'Regresa el descuento de condiciones comerciales por SKU.
Sub traeDescXSku(clienteId As String, prodId As String) As String 'ignore
Private desc As String = "0"
Private c As Cursor = khdb.ExecQuery($"Select * from CAT_DESCUENTOS_SKU where CAT_DS_CLIENTE = '${clienteId}' and CAT_DS_PRODID = '${prodId}'"$)
If c.RowCount > 0 Then
c.Position = 0
desc = c.GetString("CAT_DS_PORCENTAJE")
End If
Return desc
End Sub