pakin/taobin_project
1
0
Fork 0
Code Issues Pull requests Projects 1 Releases 1 Packages Wiki Activity Actions

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

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

2
inter/tha/configure.ev
View file

@ -8,7 +8,7 @@
Var EnableMultiInstanceFromBoxID = 1 Var EnableMultiInstanceFromBoxID = 1
EndIf EndIf
If BoxID = 105005 Then If BoxID = 105005 Then
Var EnableMultiInstanceFromBoxID = 1
EndIf EndIf
If BoxID = 176277 Then If BoxID = 176277 Then

409
inter/tha/xml/page_help_center.lxml
View file

@ -37,397 +37,24 @@
Var Problem_Process_State[0] = "Enable" Var Problem_Process_State[0] = "Enable"
Var Problem_Process_State[1] = "Enable" Var Problem_Process_State[1] = "Enable"
Var Timeout = 0
</EventOpen> </EventOpen>
<EventOnShow>
Var Timeout = 0
SetInstanceIgnoreTouch
DEBUGVAR SlientRefreshIndex
</EventOnShow>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
If ReadyForBrew = "false" Then
SAVELOG "Back to main1"
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
EndIf
DEBUGVAR Timeout DEBUGVAR Timeout
DEBUGVAR PayOK
DEBUGVAR ChangeOK
DEBUGVAR CancelFlag
If CreditCardButtonState = "Invisible" Then If Timeout > 120 Then
SAVELOG "Timeout"
OpenInst 15 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/page_instance_empty.lxml"
Else
Var X_CASH1 = 216 - 113
Var X_CASH2 = 439 - 113
Var X_CASH3 = 664 - 113
EndIf
If CamFlag = 1 Then
Var CamCount = CamCount + 1
If CamCount > 2 Then
facecompare 10
Var CamFlag = 0
Var CamCount = 0
EndIf
EndIf
If AdultState2 = "Enable" Then
Var countAdultS2 = countAdultS2 + 1
If countAdultS2 > 60 Then
Var AdultState2 = "Invisible"
Var AdultState3 = "Enable"
EndIf
Else
Var countAdultS2 = 0
EndIf
Var Timeout = Timeout + 1
If Timeout >= 120 Then
Var alphaState = "Invisible"
Var cancelButtonQRPopupState = "Invisible"
Var PopupTimeoutEnable = "Invisible"
Var QRCodeImageState = "Invisible"
If RoadShow = "true" Then
Else
Var TaobinCreditButtonState = "Disable"
Var EWalletButtonState = "Disable"
EndIf
Var LOADING_STATE = "Invisible"
Var QRErrorState = "Invisible"
EndIf
If Timeout > 210 Then
If ActionOKCase = 1 Then
Var PayInfoCFlag = 1
EndIf
EndIf EndIf
Var Timeout = Timeout + 1
If PayInfoCFlag = 1 Then
If Seeker.CodeChannel = 1 Then
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + Seeker.ExtendData
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
Var TelephoneNumber = "0899999999"
Var ServiceType = "coffee"
Var ECommerce = ""
Var ECommerce = ECommerce + PriceDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + DiscountDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SessionID2
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SelectDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + Seeker.VendingCode
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + Seeker.CodeNumber
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + "C:"
Var ECommerce = ECommerce + Seeker.IntVendingCampaign
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var AccountType = "new"
Var testservice = "kbank"
Var tc = ""
Var GetScore = ""
Var OperatorName = ""
Var SessionID = ""
GetPayInfo TelephoneNumber ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
;Var Timeout = 0
EndIf
If Seeker = "curr" Then
If PressCancel_CashPopup = 2 Then
Open "ROOT/taobin_project/xml/page_payment.xml"
EndIf
Open "ROOT/taobin_project/xml/page_catalog.xml"
Else
If PressCancel_CashPopup = 2 Then
Open "ROOT/taobin_project/xml/page_payment.xml"
EndIf
Open "ROOT/taobin_project/xml/page_brewing3Conti.xml"
EndIf
EndIf
If TestLoopMakeDrink = 1 Then
MakeDrinkV1 SelectDrink SelectSugarID
Open "ROOT/taobin_project/xml/page_thankyou.xml"
EndIf
If CoinInOK = 1 Then
Var CoinInCounter = CoinInCounter + 1
If CoinInCounter = 1 Then
SAVELOG "CoinInOk OK"
;Var ChangeOK = 1
Var Timeout = 180
Var PayOK = 1
EndIf
EndIf
Var stringLog = "Timeout " + Timeout
Var stringLog = stringLog + " PayOK"
Var stringLog = stringLog + PayOK
If Timeout > 180 Then
If PayOK = 1 Then
If Seeker = "curr" Then
If New_Payment = 1 Then
__CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID
EndIf
MakeDrinkV1 SelectDrink SelectSugarID
Var TxRef1 = ""
CreateTxRef1 TxRef1
Else
Var TxRef1 = ""
CreateTxRef1 TxRef1
Var DrinkPaid = SelectDrink
Var PaidPaymentFromNextStage = 1
EndIf
Open "ROOT/taobin_project/xml/page_thankyou.xml"
Else
If CancelFlag = 0 Then
SAVELOG "Timeout > 180 s."
If ViewBill > 0 Then
CoinVending BILLREJECT
EndIf
CoinVending OFF
Var CancelFlag = 1
Var cancelState = "Enable"
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
If KBankCashlessMachine = 1 Then
Else
CashlessReq CANCEL Seeker.CashlessVendingTrackNumber
EndIf
EndIf
Var CancelCounter = 0
If CoinAmount = 0 Then
If Seeker.IntVendingCredit > 0 Then
Var BmiYear = Seeker.IntVendingCredit
Var GetScore = "useCredit"
AddData 24 Seeker.TNumberTaobinCredit BmiYear PointCrm GetScore
Var Seeker.IntVendingCredit = 0
Var Seeker.CurrCreditUse = 0
EndIf
If Seeker.IntVendingCampaign = 0 Then
VendingQR OFF
If Seeker = "curr" Then
Open "ROOT/taobin_project/xml/page_catalog.xml"
Else
Open "ROOT/taobin_project/xml/page_brewing3Conti.xml"
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
If CancelFlag = 1 Then
If Seeker.IntVendingCredit > 0 Then
Var BmiYear = Seeker.IntVendingCredit
Var GetScore = "useCredit"
AddData 24 Seeker.TNumberTaobinCredit BmiYear PointCrm GetScore
Var Seeker.IntVendingCredit = 0
Var Seeker.CurrCreditUse = 0
EndIf
Var CancelCounter = CancelCounter + 1
If CancelCounter = CancelNumber Then
;Change CoinAmount
If CoinAmount > 0 Then
If Seeker.StoreCreditFlag = 1 Then
Var ChangeOK = 1
Else
Change CoinAmount
EndIf
Else
If ActionOKCase = 0 Then
Var ActionOKCase = 1
Var PayInfoCFlag = 1
EndIf
If PressCancel_CashPopup = 1 Then
Var PressCancel_CashPopup = 2
EndIf
EndIf
VendingQR OFF
EndIf
If CancelCounter >= 43 Then
Var ChangeOK = 1
EndIf
; This copy in file menu_catalog.xml
If ChangeOK = 1 Then
If ActionOKCase = 0 Then
If Seeker.TNumberTaobinCredit = "" Then
Var TelephoneNumber = "0899999999"
Var PayO2 = ""
Else
Var TelephoneNumber = Seeker.TNumberTaobinCredit
Var PayO2 = Seeker.CoffeePinNumber
EndIf
Var VendingDiscount = 0
Var VendingCampaign = 0
Var ServiceType = "credit"
Var SessionID2 = SelectDrink
Var ServiceCredit = "coffee"
Var PayDetail2 = Seeker.PayDetail2
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
Var PayCredit = 1
Var ActionOKCase = 1
If Seeker = "curr" Then
If Seeker.IntVendingCampaign = 0 Then
If Seeker = "curr" Then
Open "ROOT/taobin_project/xml/page_catalog.xml"
Else
Open "ROOT/taobin_project/xml/page_brewing3Conti.xml"
EndIf
EndIf
Else
;wait ack
EndIf
EndIf
EndIf
EndIf
;Var CoinInCounter = CoinInCounter + 1
;If CoinInOK = 1 Then
; If CoinInCounter = 3 Then
;
; Var RemainAmount = PayAmount - CoinAmount
; If CoinAmount >= PayAmount Then
; Var Canout = CoinAmount - PayAmount
; If Canout > 0 Then
; Change Canout
; Else
; Var ChangeOK = 1
; EndIf
;
; Var Timeout = 118
; Var PayOK = 1
;
; MakeDrinkV1 SelectDrink SelectSugarID
;
; Open "ROOT/taobin_project/xml/page_thankyou.xml"
;
; EndIf
; EndIf
;EndIf
If CancelingPopupFlag = "Enable" Then
Var CancelingPopupCountDown = CancelingPopupCountDown + 1
DEBUGVAR CancelingPopupCountDown
If CancelingPopupCountDown > 3 Then
If SendCancelActionFlag = 0 Then
SAVELOG "Send Canceled Popup"
Var SendCancelActionFlag = 1
If QRPopupOpenFlag = 1 Then
VendingQR OFF
EndIf
If ReqPayInfoFromCashOther = 2 Then
DEBUGVAR "CashlessReq OFF "" by user"
CashlessReq OFF Seeker.CashlessVendingTrackNumber
EndIf
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
If KBankCashlessMachine = 1 Then
Else
CashlessReq CANCEL Seeker.CashlessVendingTrackNumber
EndIf
EndIf
EndIf
EndIf
If CancelingPopupCountDown > 5 Then
SAVELOG "Close Cancel Popup"
Var CancelingPopupFlag = "Invisible"
Var alphaState = "Invisible"
Var SendCancelActionFlag = 0
EndIf
EndIf
If KBankCashlessMachine = 1 Then
If alphaState = "Enable" Then
If ReqPayInfoFromCashOther = 2 Then
If PopupTimeoutEnable = "Enable" Then
If PopupTimeout > 0 Then
Var PopupTimeout = PopupTimeout - 1
Else
Var PopupTimeoutEnable = "Invisible"
Var cancelButtonQRPopupState = "Enable"
EndIf
EndIf
EndIf
EndIf
EndIf
Refresh Refresh
TimerReset TimerReset
</EventTimeout> </EventTimeout>
<EventLanguageOnChange> <EventLanguageOnChange>
@ -451,12 +78,12 @@
EndIf EndIf
Var ButtonLanguageCurrentXPosition = 1015
Var ButtonLanguageCurrentYPosition = 458 - 38
Var ButtonLanguageListXPosition = 990
Var ButtonLanguageListYPosition = 450 - 38
Var LanguageButtonEnable = "Enable" Var LanguageButtonEnable = "Enable"
Var ButtonLanguageCurrentXPosition = 990
Var ButtonLanguageCurrentYPosition = 438 - 38
Var ButtonLanguageListXPosition = 970
Var ButtonLanguageListYPosition = 430 - 38
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml" OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
RefreshAll RefreshAll
@ -478,11 +105,13 @@
Open "ROOT/taobin_project/xml/page_brewing3Conti.xml" Open "ROOT/taobin_project/xml/page_brewing3Conti.xml"
Else Else
If BoxID = 210699 Then If BoxID = 210699 Then
DEBUGVAR OpenFromXML ;DEBUGVAR OpenFromXML
;Open "ROOT/taobin_project/xml/page_payment.xml" ;Open "ROOT/taobin_project/xml/page_payment.xml"
Open OpenFromXML ;Open OpenFromXML
EndIf OpenInst 15 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/page_instance_empty.lxml"
Open "ROOT/taobin_project/xml/page_back_to_main.xml" Else
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
EndIf
EndIf EndIf
</EventClick> </EventClick>
</Button> </Button>

384
inter/tha/xml/page_help_center_sending.lxml
View file

@ -22,383 +22,31 @@
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
If ReadyForBrew = "false" Then
SAVELOG "Back to main1"
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
EndIf
DEBUGVAR Timeout DEBUGVAR Timeout
DEBUGVAR PayOK SAVELOG MachineStage
DEBUGVAR ChangeOK
DEBUGVAR CancelFlag
If CreditCardButtonState = "Invisible" Then Var Timeout = Timeout + 1
Else If Timeout > 300 Then
Var X_CASH1 = 216 - 113
Var X_CASH2 = 439 - 113
Var X_CASH3 = 664 - 113
EndIf
If MachineStage = "remove-cup" Then
If CamFlag = 1 Then Open "ROOT/taobin_project/xml/page_drinkfail3.xml"
Var CamCount = CamCount + 1
If CamCount > 2 Then
facecompare 10
Var CamFlag = 0
Var CamCount = 0
EndIf
EndIf
If AdultState2 = "Enable" Then
Var countAdultS2 = countAdultS2 + 1
If countAdultS2 > 60 Then
Var AdultState2 = "Invisible"
Var AdultState3 = "Enable"
EndIf
Else
Var countAdultS2 = 0
EndIf
Var Timeout = Timeout + 1
If Timeout >= 120 Then
Var alphaState = "Invisible"
Var cancelButtonQRPopupState = "Invisible"
Var PopupTimeoutEnable = "Invisible"
Var QRCodeImageState = "Invisible"
If RoadShow = "true" Then
Else
Var TaobinCreditButtonState = "Disable"
Var EWalletButtonState = "Disable"
EndIf
Var LOADING_STATE = "Invisible"
Var QRErrorState = "Invisible"
EndIf
If Timeout > 210 Then
If ActionOKCase = 1 Then
Var PayInfoCFlag = 1
EndIf
EndIf
If PayInfoCFlag = 1 Then
If Seeker.CodeChannel = 1 Then
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + Seeker.ExtendData
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
Var TelephoneNumber = "0899999999"
Var ServiceType = "coffee"
Var ECommerce = ""
Var ECommerce = ECommerce + PriceDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + DiscountDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SessionID2
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SelectDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + Seeker.VendingCode
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + Seeker.CodeNumber
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + "C:"
Var ECommerce = ECommerce + Seeker.IntVendingCampaign
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var AccountType = "new"
Var testservice = "kbank"
Var tc = ""
Var GetScore = ""
Var OperatorName = ""
Var SessionID = ""
GetPayInfo TelephoneNumber ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
;Var Timeout = 0
EndIf
If Seeker = "curr" Then
If PressCancel_CashPopup = 2 Then
Open "ROOT/taobin_project/xml/page_payment.xml"
EndIf
Open "ROOT/taobin_project/xml/page_catalog.xml"
Else Else
If NextOrder = "true" Then
Var NextOrder = "false"
If PressCancel_CashPopup = 2 Then TransferVar "next" "curr"
Open "ROOT/taobin_project/xml/page_payment.xml" Var Seeker = "curr"
EndIf
Open "ROOT/taobin_project/xml/page_brewing3Conti.xml"
EndIf
EndIf
Open "ROOT/taobin_project/xml/page_thankyouConti.xml"
If TestLoopMakeDrink = 1 Then
MakeDrinkV1 SelectDrink SelectSugarID
Open "ROOT/taobin_project/xml/page_thankyou.xml"
EndIf
If CoinInOK = 1 Then
Var CoinInCounter = CoinInCounter + 1
If CoinInCounter = 1 Then
SAVELOG "CoinInOk OK"
;Var ChangeOK = 1
Var Timeout = 180
Var PayOK = 1
EndIf
EndIf
Var stringLog = "Timeout " + Timeout
Var stringLog = stringLog + " PayOK"
Var stringLog = stringLog + PayOK
If Timeout > 180 Then
If PayOK = 1 Then
If Seeker = "curr" Then
If New_Payment = 1 Then
__CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID
EndIf
MakeDrinkV1 SelectDrink SelectSugarID
Var TxRef1 = ""
CreateTxRef1 TxRef1
Else Else
Var TxRef1 = "" ;Open "ROOT/taobin_project/xml/page_back_to_main.xml"
CreateTxRef1 TxRef1 OpenInst 15 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/page_instance_empty.lxml"
Var DrinkPaid = SelectDrink
Var PaidPaymentFromNextStage = 1
EndIf
Open "ROOT/taobin_project/xml/page_thankyou.xml"
Else
If CancelFlag = 0 Then
SAVELOG "Timeout > 180 s."
If ViewBill > 0 Then
CoinVending BILLREJECT
EndIf
CoinVending OFF
Var CancelFlag = 1
Var cancelState = "Enable"
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
If KBankCashlessMachine = 1 Then
Else
CashlessReq CANCEL Seeker.CashlessVendingTrackNumber
EndIf
EndIf
Var CancelCounter = 0
If CoinAmount = 0 Then
If Seeker.IntVendingCredit > 0 Then
Var BmiYear = Seeker.IntVendingCredit
Var GetScore = "useCredit"
AddData 24 Seeker.TNumberTaobinCredit BmiYear PointCrm GetScore
Var Seeker.IntVendingCredit = 0
Var Seeker.CurrCreditUse = 0
EndIf
If Seeker.IntVendingCampaign = 0 Then
VendingQR OFF
If Seeker = "curr" Then
Open "ROOT/taobin_project/xml/page_catalog.xml"
Else
Open "ROOT/taobin_project/xml/page_brewing3Conti.xml"
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
If CancelFlag = 1 Then
If Seeker.IntVendingCredit > 0 Then
Var BmiYear = Seeker.IntVendingCredit
Var GetScore = "useCredit"
AddData 24 Seeker.TNumberTaobinCredit BmiYear PointCrm GetScore
Var Seeker.IntVendingCredit = 0
Var Seeker.CurrCreditUse = 0
EndIf
Var CancelCounter = CancelCounter + 1
If CancelCounter = CancelNumber Then
;Change CoinAmount
If CoinAmount > 0 Then
If Seeker.StoreCreditFlag = 1 Then
Var ChangeOK = 1
Else
Change CoinAmount
EndIf
Else
If ActionOKCase = 0 Then
Var ActionOKCase = 1
Var PayInfoCFlag = 1
EndIf
If PressCancel_CashPopup = 1 Then
Var PressCancel_CashPopup = 2
EndIf
EndIf
VendingQR OFF
EndIf
If CancelCounter >= 43 Then
Var ChangeOK = 1
EndIf
; This copy in file menu_catalog.xml
If ChangeOK = 1 Then
If ActionOKCase = 0 Then
If Seeker.TNumberTaobinCredit = "" Then
Var TelephoneNumber = "0899999999"
Var PayO2 = ""
Else
Var TelephoneNumber = Seeker.TNumberTaobinCredit
Var PayO2 = Seeker.CoffeePinNumber
EndIf
Var VendingDiscount = 0
Var VendingCampaign = 0
Var ServiceType = "credit"
Var SessionID2 = SelectDrink
Var ServiceCredit = "coffee"
Var PayDetail2 = Seeker.PayDetail2
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
Var PayCredit = 1
Var ActionOKCase = 1
If Seeker = "curr" Then
If Seeker.IntVendingCampaign = 0 Then
If Seeker = "curr" Then
Open "ROOT/taobin_project/xml/page_catalog.xml"
Else
Open "ROOT/taobin_project/xml/page_brewing3Conti.xml"
EndIf
EndIf
Else
;wait ack
EndIf
EndIf
EndIf
EndIf
;Var CoinInCounter = CoinInCounter + 1
;If CoinInOK = 1 Then
; If CoinInCounter = 3 Then
;
; Var RemainAmount = PayAmount - CoinAmount
; If CoinAmount >= PayAmount Then
; Var Canout = CoinAmount - PayAmount
; If Canout > 0 Then
; Change Canout
; Else
; Var ChangeOK = 1
; EndIf
;
; Var Timeout = 118
; Var PayOK = 1
;
; MakeDrinkV1 SelectDrink SelectSugarID
;
; Open "ROOT/taobin_project/xml/page_thankyou.xml"
;
; EndIf
; EndIf
;EndIf
If CancelingPopupFlag = "Enable" Then
Var CancelingPopupCountDown = CancelingPopupCountDown + 1
DEBUGVAR CancelingPopupCountDown
If CancelingPopupCountDown > 3 Then
If SendCancelActionFlag = 0 Then
SAVELOG "Send Canceled Popup"
Var SendCancelActionFlag = 1
If QRPopupOpenFlag = 1 Then
VendingQR OFF
EndIf
If ReqPayInfoFromCashOther = 2 Then
DEBUGVAR "CashlessReq OFF "" by user"
CashlessReq OFF Seeker.CashlessVendingTrackNumber
EndIf
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
If KBankCashlessMachine = 1 Then
Else
CashlessReq CANCEL Seeker.CashlessVendingTrackNumber
EndIf
EndIf
EndIf
EndIf
If CancelingPopupCountDown > 5 Then
SAVELOG "Close Cancel Popup"
Var CancelingPopupFlag = "Invisible"
Var alphaState = "Invisible"
Var SendCancelActionFlag = 0
EndIf
EndIf
If KBankCashlessMachine = 1 Then
If alphaState = "Enable" Then
If ReqPayInfoFromCashOther = 2 Then
If PopupTimeoutEnable = "Enable" Then
If PopupTimeout > 0 Then
Var PopupTimeout = PopupTimeout - 1
Else
Var PopupTimeoutEnable = "Invisible"
Var cancelButtonQRPopupState = "Enable"
EndIf
EndIf
EndIf EndIf
EndIf EndIf
EndIf EndIf
Refresh TimerReset
TimerReset
</EventTimeout> </EventTimeout>
<EventLanguageOnChange> <EventLanguageOnChange>
@ -423,6 +71,12 @@
EndIf EndIf
Var ButtonLanguageCurrentXPosition = 1015
Var ButtonLanguageCurrentYPosition = 458 - 38
Var ButtonLanguageListXPosition = 990
Var ButtonLanguageListYPosition = 450 - 38
Var LanguageButtonEnable = "Enable"
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml" OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
RefreshAll RefreshAll

30
inter/tha/xml/page_instance_empty.lxml
View file

@ -3,9 +3,11 @@
<Height> 1920 </Height> <Height> 1920 </Height>
<EventOpen> <EventOpen>
If EnableBtnLangWithHelper = 1 Then
RootLayoutVisible 3 "show"
RootLayoutVisible 3 "show" Else
RootLayoutVisible 3 "hide"
EndIf
RootLayoutVisible 13 "hide" RootLayoutVisible 13 "hide"
;OpenInst 0 "/mnt/sdcard/coffeevending/taobin_project/xml/page_main_blank.xml" ;OpenInst 0 "/mnt/sdcard/coffeevending/taobin_project/xml/page_main_blank.xml"
@ -34,5 +36,27 @@
TimerReset TimerReset
</EventTimeout> </EventTimeout>
<EventLanguageOnChange>
If OpenFromPageBoard = 1 Then
Var OpenFromPageBoard = 0
Var LanguageButtonEnable = "Enable"
Var ButtonLanguageCurrentXPosition = 990
Var ButtonLanguageCurrentYPosition = 608
Var ButtonLanguageListXPosition = 970
Var ButtonLanguageListYPosition = 590
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
Else
Var ButtonLanguageCurrentXPosition = 1015
Var ButtonLanguageCurrentYPosition = 458 - 38
Var ButtonLanguageListXPosition = 990
Var ButtonLanguageListYPosition = 450 - 38
Var LanguageButtonEnable = "Enable"
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
EndIf
RefreshAll
</EventLanguageOnChange>
</Popup> </Popup>

4
inter/tha/xml/page_payment_pack_and_send.xml
View file

@ -54,8 +54,8 @@
Var Seeker.PictureDrink = "" Var Seeker.PictureDrink = ""
Var Seeker.CollectPointMain = 1 Var Seeker.CollectPointMain = 1
Open "ROOT/taobin_project/xml/page_payment.xml" ;Open "ROOT/taobin_project/xml/page_payment.xml"
;Open "ROOT/taobin_project/xml/page_thankyou.xml" Open "ROOT/taobin_project/xml/page_thankyou.xml"
EndIf EndIf

3
inter/tha/xml/page_smoothie_suggest_and_process.xml
View file

@ -67,6 +67,7 @@
Var Show_btn_process = "Enable" Var Show_btn_process = "Enable"
Var Showhelper = "Invisible" Var Showhelper = "Invisible"
Var EnableBtnLangWithHelper = 1
Var VideoSmoothieProcess = "ROOT/taobin_project/animation01/Taobin_empty.mp4" Var VideoSmoothieProcess = "ROOT/taobin_project/animation01/Taobin_empty.mp4"
@ -356,7 +357,7 @@
Var OpenFromXML = "ROOT/taobin_project/inter/tha/xml/page_smoothie_suggest_and_process.xml" Var OpenFromXML = "ROOT/taobin_project/inter/tha/xml/page_smoothie_suggest_and_process.xml"
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml" OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
Open "ROOT/taobin_project/inter/tha/xml/page_help_center.lxml" OpenInst 15 "ROOT/taobin_project/inter/tha/xml/page_help_center.lxml"
</EventClick> </EventClick>
</Button> </Button>

16
inter/tha/xml/page_smoothie_suggest_and_process_2.xml
View file

@ -24,20 +24,6 @@
TRY "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/ticket_time_blending.ev" TRY "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/ticket_time_blending.ev"
DEBUGVAR OpenFromPageBoard
If OpenFromPageBoard = 1 Then
Var OpenFromPageBoard = 0
Var langnext1 = "true"
Var langnext2 = "true"
Var langnext3 = "true"
Var langnext4 = "true"
Var langnext5 = "true"
Var langnext6 = "true"
Var langnext7 = "true"
Var langnext8 = "true"
Var langnext9 = "true"
EndIf
Var NextPage = "-" Var NextPage = "-"
@ -194,7 +180,7 @@
Menu "set-image" Seeker.PictureDrink Menu "set-image" Seeker.PictureDrink
;Open "ROOT/taobin_project/inter/tha/xml/page_payment_pack_and_send.xml" Open "ROOT/taobin_project/inter/tha/xml/page_payment_pack_and_send.xml"
EndIf EndIf

24
inter/tha/xml/page_smoothie_suggest_and_process_3.xml
View file

@ -22,20 +22,6 @@
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/sometime/campaign_sound.ev" TRY "/mnt/sdcard/coffeevending/taobin_project/xml/sometime/campaign_sound.ev"
DEBUGVAR OpenFromPageBoard
If OpenFromPageBoard = 1 Then
Var OpenFromPageBoard = 0
Var langnext1 = "true"
Var langnext2 = "true"
Var langnext3 = "true"
Var langnext4 = "true"
Var langnext5 = "true"
Var langnext6 = "true"
Var langnext7 = "true"
Var langnext8 = "true"
Var langnext9 = "true"
EndIf
Var NextPage = "-" Var NextPage = "-"
@ -56,6 +42,7 @@
Var ProcessCupDebugText = "" Var ProcessCupDebugText = ""
Var TimeOutSmoothiesProcess = 0 Var TimeOutSmoothiesProcess = 0
Var Timeout = 0
DEBUGVAR TimeOutSmoothiesProcess DEBUGVAR TimeOutSmoothiesProcess
@ -84,6 +71,12 @@
DEBUGVAR AnyArmConfuse DEBUGVAR AnyArmConfuse
DEBUGVAR SensorDoorCupStatus DEBUGVAR SensorDoorCupStatus
DEBUGVAR Timeout
If Timeout > 66 Then
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
EndIf
If CH9992_Status = "READY" Then If CH9992_Status = "READY" Then
@ -157,7 +150,8 @@
;Open "ROOT/taobin_project/inter/tha/xml/page_payment_pack_and_send.xml" ;Open "ROOT/taobin_project/inter/tha/xml/page_payment_pack_and_send.xml"
EndIf EndIf
Var Timeout = Timeout + 1
Refresh Refresh
TimerReset TimerReset

11
xml/page_NewBrewing3.xml
View file

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

7
xml/page_board.xml
View file

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

10
xml/page_brewing3.xml
View file

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

4
xml/page_payment_cash.xml
View file

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

10
xml/page_spiral_sell.xml
View file

@ -14,8 +14,8 @@
Var ServiceCredit = "03-02-00-6001" Var ServiceCredit = "03-02-00-6001"
SPIRAL_SELL ServiceCredit SpiralRef SPIRAL_SELL ServiceCredit SpiralRef
Var SmoothieToPayment = 0
Var TimeOutSmoothiesProcess = 120 Var TimeOutSmoothiesProcess = 120
DEBUGVAR SmoothieToPayment
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
@ -98,6 +98,14 @@
EndIf EndIf
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 If Timeout > 120 Then
Open "ROOT/taobin_project/xml/page_back_to_failed.xml" Open "ROOT/taobin_project/xml/page_back_to_failed.xml"
EndIf EndIf