THAI INTER: Manage Instance case, change langs with helper, Set timeout
This commit is contained in:
parent
f9fea323bc
commit
8cae02a67a
13 changed files with 116 additions and 798 deletions
|
|
@ -8,7 +8,7 @@
|
|||
Var EnableMultiInstanceFromBoxID = 1
|
||||
EndIf
|
||||
If BoxID = 105005 Then
|
||||
|
||||
Var EnableMultiInstanceFromBoxID = 1
|
||||
EndIf
|
||||
|
||||
If BoxID = 176277 Then
|
||||
|
|
|
|||
|
|
@ -37,397 +37,24 @@
|
|||
Var Problem_Process_State[0] = "Enable"
|
||||
Var Problem_Process_State[1] = "Enable"
|
||||
|
||||
Var Timeout = 0
|
||||
|
||||
</EventOpen>
|
||||
|
||||
<EventOnShow>
|
||||
|
||||
Var Timeout = 0
|
||||
|
||||
SetInstanceIgnoreTouch
|
||||
|
||||
DEBUGVAR SlientRefreshIndex
|
||||
</EventOnShow>
|
||||
|
||||
<Timeout> 1000 </Timeout>
|
||||
<EventTimeout>
|
||||
|
||||
If ReadyForBrew = "false" Then
|
||||
SAVELOG "Back to main1"
|
||||
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
|
||||
|
||||
EndIf
|
||||
|
||||
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
|
||||
|
||||
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
|
||||
Var Timeout = Timeout + 1
|
||||
|
||||
Refresh
|
||||
TimerReset
|
||||
TimerReset
|
||||
</EventTimeout>
|
||||
|
||||
<EventLanguageOnChange>
|
||||
|
|
@ -451,12 +78,12 @@
|
|||
|
||||
EndIf
|
||||
|
||||
Var ButtonLanguageCurrentXPosition = 1015
|
||||
Var ButtonLanguageCurrentYPosition = 458 - 38
|
||||
|
||||
Var ButtonLanguageListXPosition = 990
|
||||
Var ButtonLanguageListYPosition = 450 - 38
|
||||
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"
|
||||
|
||||
RefreshAll
|
||||
|
|
@ -478,11 +105,13 @@
|
|||
Open "ROOT/taobin_project/xml/page_brewing3Conti.xml"
|
||||
Else
|
||||
If BoxID = 210699 Then
|
||||
DEBUGVAR OpenFromXML
|
||||
;DEBUGVAR OpenFromXML
|
||||
;Open "ROOT/taobin_project/xml/page_payment.xml"
|
||||
Open OpenFromXML
|
||||
EndIf
|
||||
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
|
||||
;Open OpenFromXML
|
||||
OpenInst 15 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/page_instance_empty.lxml"
|
||||
Else
|
||||
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
|
||||
EndIf
|
||||
EndIf
|
||||
</EventClick>
|
||||
</Button>
|
||||
|
|
|
|||
|
|
@ -22,383 +22,31 @@
|
|||
</EventOpen>
|
||||
<Timeout> 1000 </Timeout>
|
||||
<EventTimeout>
|
||||
If ReadyForBrew = "false" Then
|
||||
SAVELOG "Back to main1"
|
||||
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
|
||||
|
||||
EndIf
|
||||
|
||||
DEBUGVAR Timeout
|
||||
DEBUGVAR PayOK
|
||||
DEBUGVAR ChangeOK
|
||||
DEBUGVAR CancelFlag
|
||||
SAVELOG MachineStage
|
||||
|
||||
If CreditCardButtonState = "Invisible" Then
|
||||
Var Timeout = Timeout + 1
|
||||
|
||||
Else
|
||||
Var X_CASH1 = 216 - 113
|
||||
Var X_CASH2 = 439 - 113
|
||||
Var X_CASH3 = 664 - 113
|
||||
EndIf
|
||||
If Timeout > 300 Then
|
||||
|
||||
|
||||
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
|
||||
|
||||
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"
|
||||
If MachineStage = "remove-cup" Then
|
||||
Open "ROOT/taobin_project/xml/page_drinkfail3.xml"
|
||||
Else
|
||||
If NextOrder = "true" Then
|
||||
Var NextOrder = "false"
|
||||
|
||||
If PressCancel_CashPopup = 2 Then
|
||||
Open "ROOT/taobin_project/xml/page_payment.xml"
|
||||
EndIf
|
||||
Open "ROOT/taobin_project/xml/page_brewing3Conti.xml"
|
||||
EndIf
|
||||
EndIf
|
||||
TransferVar "next" "curr"
|
||||
Var Seeker = "curr"
|
||||
|
||||
|
||||
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
|
||||
Open "ROOT/taobin_project/xml/page_thankyouConti.xml"
|
||||
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
|
||||
;Open "ROOT/taobin_project/xml/page_back_to_main.xml"
|
||||
OpenInst 15 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/page_instance_empty.lxml"
|
||||
EndIf
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
Refresh
|
||||
TimerReset
|
||||
TimerReset
|
||||
</EventTimeout>
|
||||
|
||||
<EventLanguageOnChange>
|
||||
|
|
@ -423,6 +71,12 @@
|
|||
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"
|
||||
|
||||
RefreshAll
|
||||
|
|
|
|||
|
|
@ -3,9 +3,11 @@
|
|||
<Height> 1920 </Height>
|
||||
|
||||
<EventOpen>
|
||||
|
||||
|
||||
RootLayoutVisible 3 "show"
|
||||
If EnableBtnLangWithHelper = 1 Then
|
||||
RootLayoutVisible 3 "show"
|
||||
Else
|
||||
RootLayoutVisible 3 "hide"
|
||||
EndIf
|
||||
RootLayoutVisible 13 "hide"
|
||||
|
||||
;OpenInst 0 "/mnt/sdcard/coffeevending/taobin_project/xml/page_main_blank.xml"
|
||||
|
|
@ -34,5 +36,27 @@
|
|||
TimerReset
|
||||
</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>
|
||||
|
|
|
|||
|
|
@ -54,8 +54,8 @@
|
|||
Var Seeker.PictureDrink = ""
|
||||
Var Seeker.CollectPointMain = 1
|
||||
|
||||
Open "ROOT/taobin_project/xml/page_payment.xml"
|
||||
;Open "ROOT/taobin_project/xml/page_thankyou.xml"
|
||||
;Open "ROOT/taobin_project/xml/page_payment.xml"
|
||||
Open "ROOT/taobin_project/xml/page_thankyou.xml"
|
||||
|
||||
|
||||
EndIf
|
||||
|
|
|
|||
|
|
@ -67,6 +67,7 @@
|
|||
|
||||
Var Show_btn_process = "Enable"
|
||||
Var Showhelper = "Invisible"
|
||||
Var EnableBtnLangWithHelper = 1
|
||||
|
||||
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"
|
||||
|
||||
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>
|
||||
</Button>
|
||||
|
|
|
|||
|
|
@ -24,20 +24,6 @@
|
|||
|
||||
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 = "-"
|
||||
|
||||
|
||||
|
|
@ -194,7 +180,7 @@
|
|||
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
|
||||
|
||||
|
|
|
|||
|
|
@ -22,20 +22,6 @@
|
|||
|
||||
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 = "-"
|
||||
|
||||
|
||||
|
|
@ -56,6 +42,7 @@
|
|||
Var ProcessCupDebugText = ""
|
||||
|
||||
Var TimeOutSmoothiesProcess = 0
|
||||
Var Timeout = 0
|
||||
|
||||
DEBUGVAR TimeOutSmoothiesProcess
|
||||
|
||||
|
|
@ -84,6 +71,12 @@
|
|||
DEBUGVAR AnyArmConfuse
|
||||
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
|
||||
|
||||
|
|
@ -157,7 +150,8 @@
|
|||
;Open "ROOT/taobin_project/inter/tha/xml/page_payment_pack_and_send.xml"
|
||||
|
||||
EndIf
|
||||
|
||||
|
||||
Var Timeout = Timeout + 1
|
||||
|
||||
Refresh
|
||||
TimerReset
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue