cheveguerra/Kelloggs_v4
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Kelloggs_v4.git synced 2026-04-17 18:26:11 +00:00
Code Issues Packages Projects Releases Wiki Activity

- VERSION 5.09.10

Browse Source 
- Se escondio el boton de NoVenta en cliente hata tener ubicacion.
- Se habilitó los clientes nuevos POR RUTA, en la tabla "CLIENTES_NUEVOS_X_RUTA", y si ya llegaron a limite, se "deshabilita" el boton en principal.
- Se corrige que para Trade Spending, estaba todavia la ruta y almacen en duro.
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-09-17 18:51:37 -06:00
parent d54ebd7994
commit ae8ac63b1d
9 changed files with 369 additions and 76 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
B4A/C_Cliente.bas
View File

@@ -405,6 +405,7 @@ End Sub
Sub B4XPage_Appear
indicePregunta = 0
b_noVenta.Enabled = False
Log("NoVenta False")
' Log(kh.traeTotalCliente)
If kh.traeTotalCliente = 0 Then b_noVenta.Enabled = True
clienteId = kh.traeCliente
@@ -414,6 +415,7 @@ Sub B4XPage_Appear
' Log($"TOTAL VENTA: ${kh.traeTotalCliente}"$)
B_VENTA.Visible = False
b_noVenta.Visible = False
Log("NoVenta False")
If clienteId.StartsWith("N") Then b_noVenta.Visible = False
l_doe.Text = "HAY PEDIDO DOE"
' Log(Starter.rp.Check("android.permission.BLUETOOTH_CONNECT"))
@@ -545,9 +547,13 @@ Sub B4XPage_Appear
End If
If kh.traeTotalCliente < 0.01 And kh.traeTotalClienteDOE < 0.01 Then
If Not(clienteId.StartsWith("N")) And la_cuenta.Text <> "0" Then b_noVenta.Visible = True 'Ni cliente nuevo, ni abordo.
If Not(clienteId.StartsWith("N")) And la_cuenta.Text <> "0" Then
' b_noVenta.Visible = True 'Ni cliente nuevo, ni abordo. ... Si apagan el GPS, y este esta habilitado, les da tiempo de meter NoVenta aun estando fuera de la geocerca.
' Log("NoVenta True")
End If
Else
b_noVenta.Visible = False
Log("NoVenta False")
If la_cuenta.text = 0 Then
CREDITO_DISPONIBLE = 10000000
CREDITO = 0
@@ -681,7 +687,10 @@ Sub B4XPage_Appear
c = Starter.skmt.ExecQuery("select count(*) as conNoVenta FROM NOVENTA WHERE NV_CLIENTE IN (Select CUENTA from cuentaa)")
c.Position = 0
If c.GetString("conNoVenta") = 1 Then b_noVenta.Visible = False 'Si ya tiene NoVenta, ocultamos el boton.
If c.GetString("conNoVenta") = 1 Then
b_noVenta.Visible = False 'Si ya tiene NoVenta, ocultamos el boton.
Log("NoVenta False")
End If
c.Close
Else
RutaBoleta=Starter.rutaV
@@ -899,10 +908,14 @@ Sub GPS_LocationChanged (Location1 As Location)
' If gps_boton_doe = "1" And clienteConPromo = "0" And revisaExistenciasDOE Then b_whats.Visible = True
If Not(clienteDeudor) Then B_VENTA.Visible = True 'Si el cliente no tiene adeudo, habilitamos el boton de venta
If Not(clienteId.StartsWith("N")) And la_cuenta.Text <> "0" Then b_noVenta.Visible = True 'Ni cliente nuevo, ni abordo.
If Not(clienteId.StartsWith("N")) And la_cuenta.Text <> "0" Then
b_noVenta.Visible = True 'Ni cliente nuevo, ni abordo.
Log("NoVenta False")
End If
If Not(p_rechazoDOE.Visible) Then pedido_doe_muestra
Else
b_noVenta.Visible = False
Log("NoVenta False")
B_VENTA.Visible = False
b_whats.Visible = False
End If