From 13e7345e04202ade4772cdf935f418963d946807 Mon Sep 17 00:00:00 2001 From: Jose Alberto Guerra Ugalde Date: Tue, 19 Mar 2024 08:50:26 -0600 Subject: [PATCH] .. --- B4A/C_Cliente.bas | 4 ++-- B4A/C_Principal.bas | 3 ++- B4A/C_Promos.bas | 2 +- B4A/Durakelo.b4a.meta | 4 ++-- 4 files changed, 7 insertions(+), 6 deletions(-) diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas index 53cfe20..86549fa 100644 --- a/B4A/C_Cliente.bas +++ b/B4A/C_Cliente.bas @@ -1732,10 +1732,10 @@ Sub cuest_preguntaContestada(m As Map) ToastMessageShow("Tiendajon / Ventana / Kiosko", False) cuest.agregaPregunta("6", "¿Cuenta con caja de salida para cobro con sistema de computo?", Array As String("Si, tiene sistema de computo para cobro", "No")) Else if m.Get("respuesta") = "Si se pude acceder" Then - cuest.agregaPregunta("2", "¿Tiene al menos 2 pasillos con acceso directo a la mercancía?", Array As String("Si tiene al menos 2 pasillos con acceso directo a la mercancía", "No tiene pasillos o solo uno central")) + cuest.agregaPregunta("2", "¿Tiene al menos 3 pasillos con acceso directo a la mercancía?", Array As String("Si tiene al menos 2 pasillos con acceso directo a la mercancía", "No tiene pasillos o solo uno central")) End If Case "2" - If m.Get("respuesta") = "Si tiene al menos 2 pasillos con acceso directo a la mercancía" Then + If m.Get("respuesta") = "Si tiene al menos 3 pasillos con acceso directo a la mercancía" Then Log("Mini-Super") ToastMessageShow("Mini-Super", False) cuest.agregaPregunta("6", "¿Cuenta con caja de salida para cobro con sistema de computo?", Array As String("Si, tiene sistema de computo para cobro", "No")) diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index 780fd1b..b061527 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -1102,7 +1102,6 @@ Sub JobDone(Job As HttpJob) End If LogColor(">>>>>> " & reqManager.reqsList.Size & " - " & reqManager.reqsList, Colors.red) End If - If RESULT.Tag = "kmt_datos" Then 'query tag skmt.BeginTransaction Try @@ -1920,6 +1919,8 @@ Sub JobDone(Job As HttpJob) Subs.logJobDoneResultados(RESULT) End If + If reqManager.reqsList.Size = 0 Then S_CP.Text = "LISTO" + Job.Release End If End Sub diff --git a/B4A/C_Promos.bas b/B4A/C_Promos.bas index f761b38..0ad56cd 100644 --- a/B4A/C_Promos.bas +++ b/B4A/C_Promos.bas @@ -83,7 +83,7 @@ End Sub Sub muestraPromo(promo As String, cliente As String) Log("muestraPromo:"&promo) - Private thisLog As Boolean = False + Private thisLog As Boolean = True ' If thisLog Then Log(promo) estaPromo = promo esteCliente = cliente diff --git a/B4A/Durakelo.b4a.meta b/B4A/Durakelo.b4a.meta index 38ac0e8..637947d 100644 --- a/B4A/Durakelo.b4a.meta +++ b/B4A/Durakelo.b4a.meta @@ -73,6 +73,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=C_Productos,clv_prods_ll_ItemLongClick,1091,0,C_Productos,p_rmi_Click,1418,0,C_Productos,l_prodX_LongClick,1167,6,Visual Designer,productos.bal,-100,3,C_Productos,b_terminar1_Click,872,0,C_Cuestionario,Initialize,19,0,C_Cuestionario,Class_Globals,0,0,C_Cliente,Class_Globals,0,0,C_Cliente,cuest_preguntaContestada,1721,0,C_Cuestionario,agregaColumna,171,0 +NavigationStack=C_Productos,b_terminar1_Click,872,0,C_Cuestionario,Initialize,19,0,C_Cuestionario,Class_Globals,0,0,C_Cliente,Class_Globals,0,0,C_Cuestionario,agregaColumna,171,0,C_Promos,muestraPromo,78,1,Main,Process_Globals,21,0,Main,Globals,25,0,C_Principal,JobDone,1914,2,C_Cliente,cuest_preguntaContestada,1730,0 SelectedBuild=0 -VisibleModules=1,2,10,4,5,6,8,9,11,24 +VisibleModules=1,2,10,4,5,6,8,9,11,24,12