"Enable" 1080 1920 "0xeae6e1" SoundVolume "Partial" ; On open Var ECommerce = "" Var Seeker.FreeVendingCampaign = 0 Var Timeout = 0 Var GetPayInfoFlag = 0 ;Var Seeker.CodeChannel = 0 ;Var VendingQRCode = "ERROR" ;VendingQR ON ;Var QRCODE99 = "" ;CoinVending OFF VendingQR OFF Var ShowTextNumber = "Enable" Var ShowErrorText = "Invisible" Var Tel_Confirm_State = "Invisible" Var ErrorCause = "" If show_eng = "true" Then Var DirImage = "ROOT/taobin_project/image/collectiing_en" Else Var DirImage = "ROOT/taobin_project/image/collectiing" EndIf ;inter-image If LanguageShow = "MYANMAR" Then Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/" EndIf If LanguageShow = "MSC" Then Var DirImage = "ROOT/taobin_project/image/collectiing_msc/" EndIf Var TelephoneNumber# = "" Var PlaySoundLag = "" Var InvisibleCCard = "Enable" DEBUGVAR credit_card_enable DEBUGVAR InvisibleCCard If credit_card_enable = "Enable" Then Var InvisibleCCard = "Invisible" EndIf If Seeker = "next" Then Var SeekerCurr = "curr" If SeekerCurr.CreditCard = 1 Then Var InvisibleCCard = "Enable" EndIf EndIf Var SendDiscountCampaign = 0 If Seeker.IntVendingCampaign > 0 Then SAVELOG "Have discount enable send discount campaign" Var SendDiscountCampaign = 1 EndIf Var TWN_CashOtherButtonState = "Disable" Var KBA_CashOtherButtonState = "Disable" Var LPY_CashOtherButtonState = "Disable" Var AIR_CashOtherButtonState = "Disable" Var MAX_CashOtherButtonState = "Disable" Var WEC_CashOtherButtonState = "Disable" Var ALP_CashOtherButtonState = "Disable" Var UNP_CashOtherButtonState = "Disable" Var ACU_CashOtherButtonState = "Disable" If PaymentEnableAll = "true" Then Var TWN_CashOtherButtonState = "Enable" Var KBA_CashOtherButtonState = "Enable" Var LPY_CashOtherButtonState = "Enable" Var AIR_CashOtherButtonState = "Enable" Var MAX_CashOtherButtonState = "Enable" Var WEC_CashOtherButtonState = "Enable" Var ALP_CashOtherButtonState = "Enable" Var UNP_CashOtherButtonState = "Enable" Var ACU_CashOtherButtonState = "Enable" EndIf If TWN_CashOtherEnable = "true" Then Var TWN_CashOtherButtonState = "Enable" EndIf If KBA_CashOtherEnable = "true" Then Var KBA_CashOtherButtonState = "Enable" EndIf If LPY_CashOtherEnable = "true" Then Var LPY_CashOtherButtonState = "Enable" EndIf If AIR_CashOtherEnable = "true" Then Var AIR_CashOtherButtonState = "Enable" EndIf If MAX_CashOtherEnable = "true" Then Var MAX_CashOtherButtonState = "Enable" EndIf If WEC_CashOtherEnable = "true" Then Var WEC_CashOtherButtonState = "Enable" EndIf If ALP_CashOtherEnable = "true" Then Var ALP_CashOtherButtonState = "Enable" EndIf If UNP_CashOtherEnable = "true" Then Var UNP_CashOtherButtonState = "Enable" EndIf If ACU_CashOtherEnable = "true" Then Var ACU_CashOtherButtonState = "Enable" EndIf ;Var InvisibleCCard = "Invisible" 1000 ;Open "ROOT/xml/page_board.xml" Var Timeout = Timeout + 1 If Timeout > 30 Then ;VendingQR OFF ;Open menu_back_to_main Var PayState1 = "PressForever" Var PayState2 = "Enable" ;Var QRChannel = 0 ;Var Seeker.CodeChannel = 0 If CART_COUNT >= 1 Then Open "ROOT/taobin_project/xml/page_payment_cashMore.xml" Else Open "ROOT/taobin_project/xml/page_payment_cash.xml" EndIf Refresh EndIf TimerReset If ViewBill > 0 Then CoinVending BILLREJECT EndIf If VendingCashless = "OK" Then DEBUGVAR CashlessCode If ViewBill > 0 Then CoinVending BILLREJECT EndIf VendingQR OFF CoinVending OFF If Seeker = "curr" Then MakeDrinkV1 SelectDrink SelectSugarID EndIf Var Seeker.CreditCard = 1 Var Seeker.CreditCardRef = CreditCardRef Open "ROOT/taobin_project/xml/page_thankyou.xml" EndIf Var CreditCardRef = "" GenHashWithTimeStamp CreditCardRef DEBUGVAR VendingCashless If VendingCashless = "READY" Then CashlessPay PriceDrink CreditCardRef EndIf 0 380 "ROOT/taobin_project/image/collectiing/alpha.png" 158 567 Var( DirImage + "/img_popup16.png") Open "/media/bt/xml/security_alarm.xml"