Fix recommend not auto open

This commit is contained in:
wanlop run 2025-05-13 00:01:29 +07:00
parent c9ae570ef0
commit 3eacf4e3f7
16 changed files with 1102 additions and 1082 deletions

View file

@ -1269,7 +1269,7 @@
1300003 Beans module ชุดเมล็ดกาแฟ
1300004 Bean tray ถาดใส่เมล็ดกาแฟ
1300005 Switch tray : สวิตซ์ถาด :
1300006 Check tray shutter ตรวจสอบชัตเตอร์ของถาด
1300006 Check tray shutter ตรวจสอบชัตเตอร์ถาด
1300007 Pay beans จ่ายถั่ว
1300008 1. Select beans 1. เลือกเมล็ดกาแฟ
1300009 2. Select direction 2. เลือกทิศทาง

Can't render this file because it has a wrong number of fields in line 22.

View file

@ -1,4 +1,4 @@
Var NextPage = "-"
DEBUGVAR ICE_PROCESS_STATUS
DEBUGVAR ICE_PROCESS_TXT
@ -179,6 +179,3 @@
DEBUGVAR MenuVSelected2
EndIf

View file

@ -51,7 +51,7 @@
EndIf
DEBUGVAR Menu0Selected
DEBUGVAR NextPage
</EventOpen>
<Timeout> 10000 </Timeout>
<EventTimeout>

View file

@ -12,7 +12,7 @@
Var Menu1Selected = "PressForever"
Var Timeout = 0
Var RecommendTimeOut = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/tab_menu_show_and_refresh.lxml"
SetInstanceIgnoreTouch
@ -27,9 +27,7 @@
TRY "ROOT/taobin_project/inter/tha/show_lang.ev"
RefreshAll
DEBUGVAR NextPage
</EventOpen>
<EventOnShow>
@ -64,18 +62,22 @@
If NextPage = "-" Then
Else
If CupOnArm = "true" Then
If Timeout > 9 Then
If RecommendTimeOut > 9 Then
SAVELOG "COA9"
Var NextPage = "-"
Open NextPage
EndIf
Else
If Timeout > 30 Then
If RecommendTimeOut > 30 Then
SAVELOG "COA30"
Var NextPage = "-"
Open NextPage
EndIf
EndIf
EndIf
Var RecommendTimeOut = RecommendTimeOut + 1
TimerReset
</EventTimeout>

View file

@ -126,23 +126,6 @@
<MenuUnavailableLabel> 000013 </MenuUnavailableLabel>
</Configuration>
<Menus>
<Banner>
<State> BoostEnergyProState </State>
<Type> IMAGE </Type>
<Media>
eval(
If show_eng = "true" Then
Var return = "ROOT/taobin_project/image/event/boost_energy/boost_energy.png"
Else
Var return = "ROOT/taobin_project/image/event/boost_energy/boost_energy.png"
EndIf
)
</Media>
<EventOnClick>
RootLayoutVisible 10 "hide"
OpenInst 2 "ROOT/taobin_project/inter/tha/xml/multi/v3/page_catalog_group_pro_boost_energy.lxml"
</EventOnClick>
</Banner>
; ==================> Len = 3
; - 12-05-02-0133 -

View file

@ -12,7 +12,7 @@
Var Menu1Selected = "PressForever"
Var Timeout = 0
Var RecommendTimeOut = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/tab_menu_show_and_refresh.lxml"
SetInstanceIgnoreTouch
@ -27,9 +27,7 @@
TRY "ROOT/taobin_project/inter/tha/show_lang.ev"
RefreshAll
DEBUGVAR NextPage
</EventOpen>
<EventOnShow>
@ -61,6 +59,25 @@
EndIf
EndIf
If NextPage = "-" Then
Else
If CupOnArm = "true" Then
If RecommendTimeOut > 9 Then
SAVELOG "COA9"
Var NextPage = "-"
Open NextPage
EndIf
Else
If RecommendTimeOut > 30 Then
SAVELOG "COA30"
Var NextPage = "-"
Open NextPage
EndIf
EndIf
EndIf
Var RecommendTimeOut = RecommendTimeOut + 1
TimerReset
</EventTimeout>

View file

@ -14,7 +14,7 @@
Var Menu1Selected = "PressForever"
Var Timeout = 0
Var RecommendTimeOut = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/tab_menu_show_and_refresh.lxml"
SetInstanceIgnoreTouch
@ -29,9 +29,7 @@
TRY "ROOT/taobin_project/inter/tha/show_lang.ev"
RefreshAll
DEBUGVAR NextPage
</EventOpen>
<EventOnShow>
@ -63,6 +61,25 @@
EndIf
EndIf
If NextPage = "-" Then
Else
If CupOnArm = "true" Then
If RecommendTimeOut > 9 Then
SAVELOG "COA9"
Var NextPage = "-"
Open NextPage
EndIf
Else
If RecommendTimeOut > 30 Then
SAVELOG "COA30"
Var NextPage = "-"
Open NextPage
EndIf
EndIf
EndIf
Var RecommendTimeOut = RecommendTimeOut + 1
TimerReset
</EventTimeout>

View file

@ -1269,7 +1269,7 @@
1300003 Beans module ชุดเมล็ดกาแฟ
1300004 Bean tray ถาดใส่เมล็ดกาแฟ
1300005 Switch tray : สวิตซ์ถาด :
1300006 Check tray shutter ตรวจสอบชัตเตอร์ของถาด
1300006 Check tray shutter ตรวจสอบชัตเตอร์ถาด
1300007 Pay beans จ่ายถั่ว
1300008 1. Select beans 1. เลือกเมล็ดกาแฟ
1300009 2. Select direction 2. เลือกทิศทาง

Can't render this file because it has a wrong number of fields in line 22.

Binary file not shown.

Binary file not shown.

View file

@ -57,6 +57,9 @@ Else
EndIf
If CatalogLayoutV3 = 1 Then
DEBUGVAR NextPage
SAVELOG " CatalogLayoutV3 CatalogLayoutV3 CatalogLayoutV3 CatalogLayoutV3 CatalogLayoutV3 CatalogLayoutV3"
TRY "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/v3/event/script_open_promotion_v3.ev"
EndIf
@ -81,3 +84,4 @@ If OpenFromMulti = 1 Then
TabMenuVisibleInst 99
EndIf
Var OpenFromMulti = 0

View file

@ -2581,7 +2581,7 @@ PRICE "Reset" "-"
<EventClick>
Var NextPage = "ROOT/taobin_project/xml/page_back_to_main.xml"
SAVELOG " NEXT PAGE NEXT PAGE NEXT PAGE "
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert2.xml"
If DoorCupPosition = "bottom" Then

View file

@ -228,6 +228,7 @@
If Seeker.SmoothieToPayment = 1 Then
Open "ROOT/taobin_project/xml/page_spiral_before_conti.xml"
EndIf
Open "ROOT/taobin_project/xml/page_brewing3Conti.xml"
EndIf
@ -247,7 +248,7 @@
EndIf
Else
; seeker is curr ent
; seeker currr
DEBUGVAR ChangeFlag2
@ -267,12 +268,8 @@
If New_Payment = 1 Then
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/process/payment.ev"
EndIf
If Seeker.SmoothieToPayment = 1 Then
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
Open "ROOT/taobin_project/inter/tha/xml/page_smoothie_suggest_and_process.xml"
Else
Open "ROOT/taobin_project/xml/page_brewing3.xml"
EndIf
Open "ROOT/taobin_project/xml/page_brewing3.xml"
Else
Var Brew3Inter = CountryRootPath + "/xml/page_brewing3.lxml"
Open Brew3Inter
@ -282,13 +279,8 @@
If New_Payment = 1 Then
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/process/payment.ev"
EndIf
If Seeker.SmoothieToPayment = 1 Then
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
Open "ROOT/taobin_project/inter/tha/xml/page_smoothie_suggest_and_process.xml"
Else
Open "ROOT/taobin_project/xml/page_brewing3.xml"
EndIf
Open "ROOT/taobin_project/xml/page_brewing3.xml"
EndIf
Else
If UsePepsiTheme = 1 Then

View file

@ -6,6 +6,7 @@
;<Sound> "ROOT/taobin_project/sounds/chaching.mp3" </Sound>
<Volume> SoundVolume </Volume>
<EventOpen>
SAVELOG " spiral sell v3"
Var Timeout = 0
Var LastMakeSpiralResult = 0
@ -17,8 +18,7 @@
SPIRAL_SELL ServiceCredit SpiralRef
Var TimeOutSmoothiesProcess = 120
Var Seeker.SmoothieToPayment = SmoothieToPayment
Var NextSmoothie = 0
DEBUGVAR Seeker.SmoothieToPayment
</EventOpen>
@ -54,7 +54,15 @@
DEBUGVAR SpiralPayDetail
Var Seeker.sprial_pay_detail = SpiralPayDetail
Open "ROOT/taobin_project/xml/page_thankyou.xml"
If Seeker = "next" Then
Var NextOrder = "true"
Var NextSmoothie = 1
Open "ROOT/taobin_project/xml/page_spiral_before_conti.xml"
EndIf
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
Open "ROOT/taobin_project/inter/tha/xml/page_smoothie_suggest_and_process.xml"
EndIf
If LastMakeSpiralResult = 2 Then

View file

@ -147,7 +147,7 @@
Var buttonRemoveCup = "Invisible"
SAVELOG "Thank you conti version TCT8"
SAVELOG "Thank you conti version TCV9"
SAVELOG "Support NextSmoothie and fix bug next"
DEBUGVAR NextSmoothie
@ -355,17 +355,15 @@
EndIf
; smoothie next
If NextSmoothie = 1 Then
DEBUGVAR Seeker
DEBUGVAR Seeker.SmoothieToPayment
Var NextSmoothie = 0
If Seeker.SmoothieToPayment = 1 Then
Var TimeOutSmoothiesProcess = 120
DEBUGVAR Seeker
DEBUGVAR Seeker.SmoothieToPayment
Var NextSmoothie = 0
If Seeker.SmoothieToPayment = 1 Then
Var TimeOutSmoothiesProcess = 120
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
Open "ROOT/taobin_project/inter/tha/xml/page_smoothie_suggest_and_process.xml"
EndIf
EndIf
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
Open "ROOT/taobin_project/inter/tha/xml/page_smoothie_suggest_and_process.xml"
EndIf
MakeDrinkV1 Seeker.selected_a_drink SelectSugarID

View file

@ -19,8 +19,10 @@ Else
Var DrinkPaid = SelectDrink
Var PaidPaymentFromNextStage = 1
EndIf
If Seeker.SmoothieToPayment = 1 Then
Open "ROOT/taobin_project/xml/page_spiral_sell.xml"
Else
Open "ROOT/taobin_project/xml/page_thankyou.xml"
EndIf