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

8/12/23 - Cambios a poductos para que solo paarezca el mensaje del limite abordo cuando el cliete sea CERO

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2023-12-08 11:09:06 -06:00
parent 854a9e8c43
commit 1911003145
8 changed files with 33 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
B4A/kms_helperSubs.bas
View File

@@ -616,10 +616,10 @@ Sub traeRuta(db As SQL) As String 'ignore
End Sub
'Regresa el cliente actual de la base de dtos (CUENTAA).
Sub traeCliente(db As SQL) As String 'ignore
Sub traeCliente As String 'ignore
Private c As Cursor
Private cl As String
c = db.ExecQuery("Select CUENTA from cuentaa")
c = khdb.ExecQuery("Select CUENTA from cuentaa")
c.Position=0
cl = c.GetString("CUENTA")
c.Close
@@ -700,7 +700,7 @@ End Sub
'Regresa verdadero si hay pedido en la tabla "PEDIDO" del cliente actual.
Sub hayPedido(db As SQL) As Boolean 'ignore
Private thisC As Cursor = skmt.ExecQuery($"select count(PE_CLIENTE) as hayPedido from PEDIDO where PE_CLIENTE = '${traeCliente(db)}'"$)
Private thisC As Cursor = skmt.ExecQuery($"select count(PE_CLIENTE) as hayPedido from PEDIDO where PE_CLIENTE = '${traeCliente}'"$)
thisC.Position = 0
Private hay As Boolean = False
If thisC.GetInt("hayPedido") > 0 Then hay = True