cheveguerra/Kelloggs_V3
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Kelloggs_V3.git synced 2026-04-20 06:09:32 +00:00
Code Issues Packages Projects Releases Wiki Activity

4/11/23 - Código para que el boton de whatsapp solo aparezca si al cliente no se le ha ofrecido la promo

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2023-11-04 15:01:57 -06:00
parent d019952e12
commit fe724ecba2
2 changed files with 14 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
B4A/C_Cliente.bas
View File

@@ -430,7 +430,7 @@ Sub B4XPage_Appear
s.Position=0 s.Position=0
S1=Starter.skmt.ExecQuery("select count(*) as CUANTOS FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)") S1=Starter.skmt.ExecQuery("select count(*) as CUANTOS FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
S1.Position=0 S1.Position=0
Log("hhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhh "&c.RowCount) ' Log("hhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhh "&c.RowCount)
cursorprueba = Starter.skmt.ExecQuery2("select PE_COSTO_TOT from pedido where PE_CEDIS <> PE_PROID and pe_cliente in (Select CUENTA from cuentaa) AND PE_CEDIS <> ?", Array As String("DOE")) cursorprueba = Starter.skmt.ExecQuery2("select PE_COSTO_TOT from pedido where PE_CEDIS <> PE_PROID and pe_cliente in (Select CUENTA from cuentaa) AND PE_CEDIS <> ?", Array As String("DOE"))
For i= 0 To cursorprueba.RowCount -1 For i= 0 To cursorprueba.RowCount -1
cursorprueba.Position = i cursorprueba.Position = i
@@ -612,7 +612,7 @@ Sub B4XPage_Appear
If S1.IsInitialized Then S1.Close If S1.IsInitialized Then S1.Close
If logger Then Log("===================== Traemos EXHIBIDORES " & la_cuenta.Text & " =================" ) If logger Then Log("===================== Traemos EXHIBIDORES " & la_cuenta.Text & " =================" )
c=Starter.skmt.ExecQuery2("select * FROM HIST_EXHIBIDORES2 where hist_ex_id_cliente = ?", Array As String (la_cuenta.Text)) c=Starter.skmt.ExecQuery2("select * FROM HIST_EXHIBIDORES2 where hist_ex_id_cliente = ?", Array As String (la_cuenta.Text))
Log("uuuuuuuuuuuuuuuuuuuuuuuuuuuuu "&c.RowCount) ' Log("uuuuuuuuuuuuuuuuuuuuuuuuuuuuu "&c.RowCount)
If c.RowCount > 0 Then If c.RowCount > 0 Then
Private exhibs As String = "" Private exhibs As String = ""
Private separador As String = "" Private separador As String = ""
@@ -729,9 +729,18 @@ Sub GPS_LocationChanged (Location1 As Location)
gps_boton_doe = c.GetString("CAT_CL_EMAIL") gps_boton_doe = c.GetString("CAT_CL_EMAIL")
End If End If
' LogColor($"Distancia actual: ${distance}"$, Colors.Blue) ' LogColor($"Distancia actual: ${distance}"$, Colors.Blue)
' Log(">>>>>>>>>>> " & distance & "|" & gps_boton_doe)
If distance <= 50 Or usuario = "KMTSKLL1" Then If distance <= 50 Or usuario = "KMTSKLL1" Then
Private clienteConPromo As Int = 0
'Revisamos si el cliente ya existe en HIST_PROMO_WHATS.
Private x As Cursor = Starter.skmt.ExecQuery("select count(HIST_CLIENTE) as clienteConPromo from HIST_PROMO_WHATS where HIST_CLIENTE in (Select CUENTA from cuentaa)")
If x.RowCount > 0 Then
x.Position = 0
clienteConPromo = x.GetString("clienteConPromo")
End If
' If pgs_boton_noventa = "1" Then Tels.Visible = True ' If pgs_boton_noventa = "1" Then Tels.Visible = True
If gps_boton_doe ="1" Then b_whats.Visible = True ' Log(clienteConPromo)
If gps_boton_doe = "1" And clienteConPromo = "0" Then b_whats.Visible = True
B_VENTA.Visible = True B_VENTA.Visible = True
Tels.Visible = True Tels.Visible = True
If l_total.Text <> Null And l_total.Text <> "null" Then If l_total.Text <> Null And l_total.Text <> "null" Then

4
B4A/KelloggsV3.b4a.meta
View File

@@ -82,6 +82,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9= ModuleClosedNodes9=
NavigationStack=Diseñador Visual,cliente.bal,-100,4,C_Cliente,b_aceptarrpomo_Click,2918,0,C_Cliente,GPS_LocationChanged,723,6,C_Clientes,Initialize,28,0,C_Clientes,ListView1_ItemClick,89,0,C_Clientes,B4XPage_Appear,70,0,B4XMainPage,B4XPage_Created,169,0,C_Principal,cargar_Click,765,0,C_Principal,JobDone,1811,2,B4XMainPage,B4XPage_Appear,318,0 NavigationStack=B4XMainPage,B4XPage_Created,169,0,C_Principal,cargar_Click,765,0,C_Principal,JobDone,1811,2,B4XMainPage,B4XPage_Appear,318,0,C_Cliente,Mods,0,0,Visual Designer,cliente.bal,-100,1,C_Cliente,b_aceptarrpomo_Click,2928,0,C_Cliente,ListView1_ItemLongClick,748,0,C_Cliente,B4XPage_Appear,608,0,C_Cliente,GPS_LocationChanged,735,6
SelectedBuild=0 SelectedBuild=0
VisibleModules=1,2,3,4,5,6,7,8,9,10,11 VisibleModules=1,2,3,4,5,6,7,8,9,10