cheveguerra/Durakelo
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Durakelo.git synced 2026-04-20 12:49:25 +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) 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")) 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 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 End If
Case "2" 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") Log("Mini-Super")
ToastMessageShow("Mini-Super", False) 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")) 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 End If
LogColor(">>>>>> " & reqManager.reqsList.Size & " - " & reqManager.reqsList, Colors.red) LogColor(">>>>>> " & reqManager.reqsList.Size & " - " & reqManager.reqsList, Colors.red)
End If End If
If RESULT.Tag = "kmt_datos" Then 'query tag If RESULT.Tag = "kmt_datos" Then 'query tag
skmt.BeginTransaction skmt.BeginTransaction
Try Try
@@ -1920,6 +1919,8 @@ Sub JobDone(Job As HttpJob)
Subs.logJobDoneResultados(RESULT) Subs.logJobDoneResultados(RESULT)
End If End If
If reqManager.reqsList.Size = 0 Then S_CP.Text = "LISTO"
Job.Release Job.Release
End If End If
End Sub End Sub

2
B4A/C_Promos.bas
View File

@@ -83,7 +83,7 @@ End Sub
Sub muestraPromo(promo As String, cliente As String) Sub muestraPromo(promo As String, cliente As String)
Log("muestraPromo:"&promo) Log("muestraPromo:"&promo)
Private thisLog As Boolean = False Private thisLog As Boolean = True
' If thisLog Then Log(promo) ' If thisLog Then Log(promo)
estaPromo = promo estaPromo = promo
esteCliente = cliente esteCliente = cliente

4
B4A/Durakelo.b4a.meta
View File

@@ -73,6 +73,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9= 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 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