cheveguerra/Durakelo
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Durakelo.git synced 2026-04-17 19:36:12 +00:00
Code Issues Packages Projects Releases Wiki Activity

..

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-03-19 08:50:26 -06:00
parent 7bb30676f6
commit 13e7345e04
4 changed files with 7 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
B4A/C_Cliente.bas
View File

@@ -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"))

3
B4A/C_Principal.bas
View File

@@ -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

2
B4A/C_Promos.bas
View File

@@ -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

4
B4A/Durakelo.b4a.meta
View File

@@ -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