THAI INTER: Manage Instance case, change langs with helper, Set timeout

This commit is contained in:
Ittipat Lusuk 2025-04-30 15:39:36 +07:00
parent f9fea323bc
commit 8cae02a67a
13 changed files with 116 additions and 798 deletions

View file

@ -284,8 +284,13 @@
If MachineState_Result > 0 Then
Var SelectMenuBetweenBrewEnable1 = "Invisible"
Else
Var SelectMenuBetweenBrewEnable1 = "Enable"
Var EnableTopupCreditBetweenBrew = "Enable"
If SmoothieToPayment = 1 Then
Var SelectMenuBetweenBrewEnable1 = "Invisible"
Var SmoothieToPayment = 0
Else
Var SelectMenuBetweenBrewEnable1 = "Enable"
Var EnableTopupCreditBetweenBrew = "Enable"
EndIf
EndIf
If GetFreeFromError = 1 Then
@ -1140,7 +1145,7 @@
Else
Var SelectMenuBetweenBrewEnable1Blink = "Invisible"
Var SelectMenuBetweenBrewEnable1Text = "Invisible"
EndIf
DEBUGVAR CountUpBrewing

View file

@ -1318,6 +1318,7 @@
If CountryName = "Thailand" Then
; enable btn_change_langs
Var EnableBtnLangWithHelper = 1
Var LanguageButtonEnable = "Enable"
Var ButtonLanguageCurrentXPosition = 990
Var ButtonLanguageCurrentYPosition = 608
@ -1364,6 +1365,12 @@
Var InternationalShow = 1
EndIf
If BoxID = 105005 Then
Var SpiralOnline = "true"
Var SpiralModeFrozenFruit = 1
Var InternationalShow = 1
EndIf
; test payment
Var New_Payment = 1

View file

@ -384,8 +384,13 @@
If MachineState_Result > 0 Then
Var SelectMenuBetweenBrewEnable1 = "Invisible"
Else
Var SelectMenuBetweenBrewEnable1 = "Enable"
Var EnableTopupCreditBetweenBrew = "Enable"
If SmoothieToPayment = 1 Then
Var SelectMenuBetweenBrewEnable1 = "Invisible"
Var SmoothieToPayment = 0
Else
Var SelectMenuBetweenBrewEnable1 = "Enable"
Var EnableTopupCreditBetweenBrew = "Enable"
EndIf
EndIf
If GetFreeFromError = 1 Then
@ -1505,6 +1510,7 @@
Else
Var SelectMenuBetweenBrewEnable1Blink = "Invisible"
Var SelectMenuBetweenBrewEnable1Text = "Invisible"
EndIf
DEBUGVAR CountUpBrewing

View file

@ -1306,6 +1306,7 @@
Var X_CASH3 = 664 - 113
EndIf
; helper
Var FromSmoothieProcess = "Invisible"
Var FromPaymentCash = "Enable"
Var FromBrewingProcess = "Invisible"
@ -1316,6 +1317,9 @@
Var Showhelper = "Invisible"
EndIf
; langs
Var EnableBtnLangWithHelper = 0
</EventOpen>

View file

@ -14,8 +14,8 @@
Var ServiceCredit = "03-02-00-6001"
SPIRAL_SELL ServiceCredit SpiralRef
Var SmoothieToPayment = 0
Var TimeOutSmoothiesProcess = 120
DEBUGVAR SmoothieToPayment
</EventOpen>
<Timeout> 1000 </Timeout>
@ -98,6 +98,14 @@
EndIf
EndIf
If BoxID = 105005 Then
If Timeout > 10 Then
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
Open "ROOT/taobin_project/inter/tha/xml/page_smoothie_suggest_and_process.xml"
;Open "ROOT/taobin_project/xml/page_spiral_failed.xml"
EndIf
EndIf
If Timeout > 120 Then
Open "ROOT/taobin_project/xml/page_back_to_failed.xml"
EndIf