"Enable" 1080 1920 "0xeae6e1" PlaySoundCodeLang SoundVolume "Partial" ; On open Var ECommerce = "" Var Seeker.FreeVendingCampaign = 0 Var Timeout = 0 Var GetPayInfoFlag = 0 Var Seeker.CodeChannel = 0 Var Seeker.CollectPointMain = 0 Var Seeker.CollectPointPromotion = 0 ;Var VendingQRCode = "ERROR" ;VendingQR ON ;Var QRCODE99 = "" ;CoinVending OFF VendingQR OFF Var ShowLoadingText = "Invisible" 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 If LanguageShow = "MYANMAR" Then Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/" EndIf If web_readyOK = "true" Then Var web_readyOK = "false" If web_code = "" Then Else Var ShowTextNumber = "Invisible" Var Tel_Confirm_State = "Enable" Var GetPayInfoFlag = 1 VendingQR OFF Var TelephoneNumber = web_code Var Seeker.CodeNumber = TelephoneNumber Var RemainAmount = 0 ;PrepareDrink SelectDrink SelectSugarID Var SessionID2 = SelectSlot + ":" Var SessionID2 = SessionID2 + Seeker.ExtendData Var CreditAmount1 = "" Var ServiceAmountFlow = "" Var TelephoneNumber2 = "0899999999" Var ServiceType = "coffee" Var ECommerce = "" Var ECommerce = ECommerce + PriceDrink Var ECommerce = ECommerce + ":" Var ECommerce = ECommerce + TOPPING_PRICE 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 + "C00" Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + Seeker.CodeNumber Var ServiceParameter = "max" Var ServiceCharge = 0 Var AccountType = "new" Var testservice = "kbank" Var tc = "" Var GetScore = "" Var OperatorName = "" Var SessionID = "" GetPayInfo TelephoneNumber2 ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc Var Timeout = 0 Var TelephoneNumber = Seeker.CodeNumber Var Seeker.CodeChannel = 1 EndIf EndIf Var Mode# = 0 Var Str# = "" Var TelephoneNumber# = "" 1000 ;Open "ROOT/xml/page_board.xml" Var Timeout = Timeout + 1 If Timeout > 30 Then If GetPayInfoFlag = 0 Then ;VendingQR OFF ;Open menu_back_to_main Var ShowLoadingText = "Invisible" 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 Else Var ShowLoadingText = "Invisible" Var text_show_error = DirImage + "/text_show_error2.png" Var GetPayInfoFlag = 0 Var Seeker.CodeChannel = 0 Var Timeout = 0 EndIf Refresh EndIf TimerReset If IDCardStatus = "OK" Then If IDCardReady = "OK" Then If IDCardData = "START" Then CoinVending OFF Open "ROOT/taobin_project/xml/page_show_consent2.xml" EndIf EndIf EndIf If ViewBill > 0 Then CoinVending BILLREJECT EndIf If Seeker.CodeChannel = 1 Then Var ShowLoadingText = "Invisible" SAVELOG "Seeker.CodeChannel 1 > ActOK." DEBUGVAR ECommerce SAVELOG ECommerce SPLIT ECommerce "/" 5 Seeker.VendingCode SPLIT ECommerce "/" 7 Seeker.VendingCampaignRI3 SPLIT ECommerce "/" 8 VendingCampaign1 SPLIT ECommerce "/" 9 ShouldCollectPoint SPLIT ECommerce "/" 10 PaymentButtonControl DEBUGVAR PaymentButtonControl If PaymentButtonControl = "" Then Var PaymentEnableAll = "true" Else If PaymentButtonControl = "*" Then Var PaymentEnableAll = "true" Else Var PaymentEnableAll = "false" STRCONTAIN "TWN" PaymentButtonControl TWN_CashOtherEnable STRCONTAIN "KBA" PaymentButtonControl KBA_CashOtherEnable STRCONTAIN "LPY" PaymentButtonControl LPY_CashOtherEnable STRCONTAIN "AIR" PaymentButtonControl AIR_CashOtherEnable STRCONTAIN "MAX" PaymentButtonControl MAX_CashOtherEnable STRCONTAIN "WEC" PaymentButtonControl WEC_CashOtherEnable STRCONTAIN "ALP" PaymentButtonControl ALP_CashOtherEnable STRCONTAIN "UNP" PaymentButtonControl UNP_CashOtherEnable STRCONTAIN "ACU" PaymentButtonControl ACU_CashOtherEnable STRCONTAIN "TAO" PaymentButtonControl TAO_CreditEnable STRCONTAIN "CSH" PaymentButtonControl CSH_CashEnable STRCONTAIN "CRD" PaymentButtonControl CRD_CreditCardEnable If CSH_CashEnable = "true" Then Else CoinVending OFF Var CPD_CouponCodeEnable = "true" EndIf If TWN_CashOtherEnable = "true" Then Var E_WalletEnable = "true" EndIf If KBA_CashOtherEnable = "true" Then Var E_WalletEnable = "true" EndIf If LPY_CashOtherEnable = "true" Then Var E_WalletEnable = "true" EndIf If AIR_CashOtherEnable = "true" Then Var E_WalletEnable = "true" EndIf If MAX_CashOtherEnable = "true" Then Var E_WalletEnable = "true" EndIf If WEC_CashOtherEnable = "true" Then Var E_WalletEnable = "true" EndIf If ALP_CashOtherEnable = "true" Then Var E_WalletEnable = "true" EndIf If UNP_CashOtherEnable = "true" Then Var E_WalletEnable = "true" EndIf If ACU_CashOtherEnable = "true" Then Var E_WalletEnable = "true" EndIf DEBUGVAR CSH_CashEnable DEBUGVAR TAO_CreditEnable DEBUGVAR CPD_CouponCodeEnable DEBUGVAR CRD_CreditCardEnable DEBUGVAR E_WalletEnable DEBUGVAR TWN_CashOtherEnable DEBUGVAR KBA_CashOtherEnable DEBUGVAR LPY_CashOtherEnable DEBUGVAR AIR_CashOtherEnable DEBUGVAR MAX_CashOtherEnable DEBUGVAR WEC_CashOtherEnable DEBUGVAR ALP_CashOtherEnable DEBUGVAR UNP_CashOtherEnable DEBUGVAR ACU_CashOtherEnable EndIf EndIf If Seeker.VendingCode = "" Then Var Seeker.VendingCode = "C00" EndIf If Seeker.VendingCode = "KBA:2" Then Var Seeker.VendingCode = "C00" EndIf If Seeker.VendingCode = "AIR:2" Then Var Seeker.VendingCode = "C00" EndIf If Seeker.VendingCode = "TWN:2" Then Var Seeker.VendingCode = "C00" EndIf SAVELOG Seeker.VendingCode SAVELOG Seeker.VendingCampaignRI3 SAVELOG ShouldCollectPoint INT ShouldCollectPoint If Seeker.VendingCode = "C00" Then Else Var VendingCreditRemain = "" If VendingCampaign1 = "" Then Var IntVendingCampaign1 = -1 Else Var IntVendingCampaign1 = VendingCampaign1 INT IntVendingCampaign1 If IntVendingCampaign1 > 0 Then Var VendingCreditRemain = VendingCampaign1 EndIf EndIf Var Seeker.IntVendingCampaign = Seeker.VendingCampaignRI3 INT Seeker.IntVendingCampaign Var VendingREFID = SessionID DEBUGVAR IntVendingCampaign1 DEBUGVAR PayAmount DEBUGVAR Seeker.IntVendingCampaign If Seeker.IntVendingCampaign > 0 Then Var QRChannel = 0 If Seeker.IntVendingCampaign >= PayAmount Then If ShouldCollectPoint = 1 Then Var Seeker.CollectPointMain = 1 If PaymentCodeShouldCollectPromotionPoint = 1 Then Var Seeker.CollectPointPromotion = 1 EndIf EndIf TRY "ROOT/taobin_project/xml/event/collect_promotion_point_condition.ev" ;Open "ROOT/taobin_project/xml/page_payment_cash.xml" Var Seeker.VendingCampaign = PayAmount Var Seeker.FreeVendingCampaign = 1 CoinVending OFF ;Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif" If CART_COUNT >= 1 Then Cart "PreparID" 1 Var CART_INDEX = 1 Var PayReference = "" GenHashWithTimeStamp PayReference Cart "MakeID" CART_INDEX Open "ROOT/taobin_project/xml/page_thankyou.xml" Else Var CART_INDEX = 0 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 DEBUGVAR Seeker Var TxRef1 = "" CreateTxRef1 TxRef1 Var DrinkPaid = SelectDrink Var PaidPaymentFromNextStage = 1 EndIf Open "ROOT/taobin_project/xml/page_thankyou.xml" EndIf Else If ShouldCollectPoint = 1 Then Var Seeker.CollectPointMain = 1 EndIf If PaymentCodeShouldCollectPromotionPoint = 1 Then Var Seeker.CollectPointPromotion = 1 EndIf EndIf ;Var SessionID2 = SelectSlot + ":" ;Var SessionID2 = SessionID2 + Seeker.ExtendData ;Var CreditAmount1 = "" ;Var ServiceAmountFlow = "" ;Var TelephoneNumber2 = "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 + "KBA:2/" ;Var ECommerce = ECommerce + Seeker.VendingCode ;Var ECommerce = ECommerce + ":" ;Var ECommerce = ECommerce + Seeker.CodeNumber ;Var ECommerce = ECommerce + ":" ;Var ECommerce = ECommerce + Seeker.VendingCampaignRI3 ;Var ServiceParameter = "max" ;Var ServiceCharge = 0 ;Var AccountType = "new" ;Var testservice = "kbank" ;Var tc = "" ;Var GetScore = "" ;Var OperatorName = "" ;Var SessionID = "" ;GetPayInfo TelephoneNumber2 ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc ;Var Timeout = 0 ;Var Seeker.CodeChannel = 2 Var Seeker.CodeChannel = 1 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 Else Var ShowErrorText = "Enable" Var text_show_error = DirImage + "/text_show_error.png" Var GetPayInfoFlag = 0 Var Seeker.CodeChannel = 0 EndIf EndIf Else ;SAVELOG "Seeker.CodeChannel 2 > ActOK." ; ;Var CreditAmount = 0 ;Var QRCODE99 = SessionID ;Var QRCODE99 = QRCODE99 + Ext1a ;Var QRCODE99 = QRCODE99 + Ext21 ;Var QRCODETMP = QRCODE99 ;Var Seeker.CodeChannel = 1 ; ;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 EndIf If Seeker.CodeChannel = 1 Then Var ShowLoadingText = "Invisible" Var TelephoneNumber = "" Var ShowErrorText = "Enable" SAVELOG ShowErrorText Var text_show_error = DirImage + "/text_show_error2.png" If ErrorCause = "failed_fromoper_0002" Then Var text_show_error = DirImage + "/text_show_error.png" EndIf If ErrorCause = "failed_fromoper_0005" Then Var text_show_error = DirImage + "/text_show_error3.png" EndIf If ErrorCause = "failed_fromoper_0006" Then Var text_show_error = DirImage + "/text_show_error4.png" EndIf If ErrorCause = "failed_fromoper_0007" Then Var text_show_error = DirImage + "/text_show_error7.png" EndIf If ErrorCause = "failed_fromoper_0008" Then Var text_show_error = DirImage + "/text_show_error8.png" EndIf Var GetPayInfoFlag = 0 Var Seeker.CodeChannel = 0 Var Tel_Confirm_State = "Disable" Refresh EndIf If Seeker.CodeChannel = 2 Then Var Seeker.CodeChannel = 1 Var QRCODE99 = "" Var QRCODETMP = "" 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 EndIf 0 380 "ROOT/taobin_project/image/collectiing/alpha.png" 158 601 "ROOT/taobin_project/image/collectiing/img_popup1.png" 263 1004 "ROOT/taobin_project/image/collectiing/bn_1.png" "ROOT/taobin_project/image/collectiing/bp_1.png" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "1" Var ShowTextNumber = "Invisible" Trim TelephoneNumber 8 Var TelephoneNumber# = Str# + TelephoneNumber TimerReset Refresh StrLen TelephoneNumber TelNumLen If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" 405 1004 "ROOT/taobin_project/image/collectiing/bn_2.png" "ROOT/taobin_project/image/collectiing/bp_2.png" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "2" Var ShowTextNumber = "Invisible" Trim TelephoneNumber 8 Var TelephoneNumber# = Str# + TelephoneNumber TimerReset Refresh StrLen TelephoneNumber TelNumLen If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" 547 1004 "ROOT/taobin_project/image/collectiing/bn_3.png" "ROOT/taobin_project/image/collectiing/bp_3.png" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "3" Var ShowTextNumber = "Invisible" Trim TelephoneNumber 8 Var TelephoneNumber# = Str# + TelephoneNumber TimerReset Refresh StrLen TelephoneNumber TelNumLen If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" 691 1004 "ROOT/taobin_project/image/collectiing/bn_A.png" "ROOT/taobin_project/image/collectiing/bp_A.png" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "A" Var ShowTextNumber = "Invisible" Trim TelephoneNumber 8 Var TelephoneNumber# = Str# + TelephoneNumber TimerReset Refresh StrLen TelephoneNumber TelNumLen If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" 263 1148 "ROOT/taobin_project/image/collectiing/bn_4.png" "ROOT/taobin_project/image/collectiing/bp_4.png" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "4" Var ShowTextNumber = "Invisible" Trim TelephoneNumber 8 Var TelephoneNumber# = Str# + TelephoneNumber TimerReset Refresh StrLen TelephoneNumber TelNumLen If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" 405 1148 "ROOT/taobin_project/image/collectiing/bn_5.png" "ROOT/taobin_project/image/collectiing/bp_5.png" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "5" Var ShowTextNumber = "Invisible" Trim TelephoneNumber 8 Var TelephoneNumber# = Str# + TelephoneNumber TimerReset Refresh StrLen TelephoneNumber TelNumLen If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" 547 1148 "ROOT/taobin_project/image/collectiing/bn_6.png" "ROOT/taobin_project/image/collectiing/bp_6.png" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "6" Var ShowTextNumber = "Invisible" Trim TelephoneNumber 8 Var TelephoneNumber# = Str# + TelephoneNumber TimerReset Refresh StrLen TelephoneNumber TelNumLen If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" 691 1148 "ROOT/taobin_project/image/collectiing/bn_B.png" "ROOT/taobin_project/image/collectiing/bp_B.png" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "B" Var ShowTextNumber = "Invisible" Trim TelephoneNumber 8 Var TelephoneNumber# = Str# + TelephoneNumber TimerReset Refresh StrLen TelephoneNumber TelNumLen If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" 263 1292 "ROOT/taobin_project/image/collectiing/bn_7.png" "ROOT/taobin_project/image/collectiing/bp_7.png" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "7" Var ShowTextNumber = "Invisible" Trim TelephoneNumber 8 Var TelephoneNumber# = Str# + TelephoneNumber TimerReset Refresh StrLen TelephoneNumber TelNumLen If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" 405 1292 "ROOT/taobin_project/image/collectiing/bn_8.png" "ROOT/taobin_project/image/collectiing/bp_8.png" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "8" Var ShowTextNumber = "Invisible" Trim TelephoneNumber 8 Var TelephoneNumber# = Str# + TelephoneNumber TimerReset Refresh StrLen TelephoneNumber TelNumLen If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" 547 1292 "ROOT/taobin_project/image/collectiing/bn_9.png" "ROOT/taobin_project/image/collectiing/bp_9.png" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "9" Var ShowTextNumber = "Invisible" Trim TelephoneNumber 8 Var TelephoneNumber# = Str# + TelephoneNumber TimerReset Refresh StrLen TelephoneNumber TelNumLen If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" 691 1292 "ROOT/taobin_project/image/collectiing/bn_C.png" "ROOT/taobin_project/image/collectiing/bp_C.png" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "C" Var ShowTextNumber = "Invisible" Trim TelephoneNumber 8 Var TelephoneNumber# = Str# + TelephoneNumber TimerReset Refresh StrLen TelephoneNumber TelNumLen If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" 405 1432 "ROOT/taobin_project/image/collectiing/bn_0.png" "ROOT/taobin_project/image/collectiing/bp_0.png" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "0" Trim TelephoneNumber 8 Var TelephoneNumber# = Str# + TelephoneNumber StrLen TelephoneNumber TelNumLen If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowTextNumber = "Invisible" TimerReset Refresh Var ShowErrorText = "Invisible" 263 1432 "ROOT/taobin_project/image/collectiing/bn_sh.png" "ROOT/taobin_project/image/collectiing/bp_sh.png" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 ;Var TelephoneNumber = TelephoneNumber + "0" Trim TelephoneNumber 8 StrLen TelephoneNumber TelNumLen If TelNumLen = 0 Then Var ShowTextNumber = "Invisible" Var Mode# = 1 Var Str# = "#" Var TelephoneNumber# = Str# + TelephoneNumber EndIf TimerReset Refresh Var ShowErrorText = "Invisible" 547 1432 "ROOT/taobin_project/image/collectiing/bn_back-1.png" "ROOT/taobin_project/image/collectiing/bp_back-1.png" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Var Clear# = 0 StrLen TelephoneNumber TelNumLen If TelNumLen = 0 Then Var Clear# = 1 EndIf Trim TelephoneNumber -1 Var Tel_Confirm_State = "Invisible" StrLen TelephoneNumber TelNumLen If TelNumLen = 0 Then If Clear# = 1 Then Var ShowTextNumber = "Enable" Var Mode# = 0 Var Str# = "" EndIf EndIf Var TelephoneNumber# = Str# + TelephoneNumber ;Var ShowErrorText = "Invisible" TimerReset Refresh 691 1432 eval( If SwensenPro = 1 Then If TelephoneNumber = "" Then If Seeker.RedeemSwensenCouponDrinkPrice >= 20 Then Var return = "Enable" Else Var return = "Invisible" EndIf Else Var return = "Invisible" EndIf Else Var return = "Invisible" EndIf ) "Enable" "ROOT/taobin_project/image/event/swensen/bn_swensen_pay_code.png" "ROOT/taobin_project/image/event/swensen/bn_swensen_pay_code.png" Var Seeker.RedeemSwensenCoupon = 1 Open "ROOT/taobin_project/xml/page_payment_cash.xml" 218 1607 Var( DirImage + "/bn_back.png") Var( DirImage + "/bn_back.png") "ROOT/sounds/codebuttom.wav" SoundVolume 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 577 1607 "Enable" Tel_Confirm_State Var( DirImage + "/bn_confirm.png" ) Var( DirImage + "/bp_confirm.png" ) Var( DirImage + "/bp_confirm.png" ) "ROOT/sounds/codebuttom.wav" SoundVolume If UnitTestType = "2" Then If TelephoneNumber = "00000001" Then Var ShowErrorText = "Enable" EndIf Else If TelephoneNumber = "00000002" Then Var ShowErrorText = "Enable" EndIf If TelephoneNumber = "99999999" Then Var ShowErrorText = "Enable" EndIf If GetPayInfoFlag = 0 Then Var GetPayInfoFlag = 1 Var ShowLoadingText = "Enable" VendingQR OFF Var Seeker.CodeNumber = TelephoneNumber Var RemainAmount = 0 ;PrepareDrink SelectDrink SelectSugarID Var SessionID2 = SelectSlot + ":" Var SessionID2 = SessionID2 + Seeker.ExtendData Var CreditAmount1 = "" Var ServiceAmountFlow = "" Var TelephoneNumber2 = "0899999999" Var ServiceType = "coffee" Var ECommerce = "" Var ECommerce = ECommerce + PriceDrink Var ECommerce = ECommerce + ":" Var ECommerce = ECommerce + TOPPING_PRICE Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + DiscountDrink Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + SessionID2 If Seeker.UseFreeSugarZeroCalTopping = 1 Then Var ECommerce = ECommerce + ":1" Else Var ECommerce = ECommerce + ":0" EndIf If Seeker.UseFreeCollagenTopping = 1 Then Var ECommerce = ECommerce + "1" Else Var ECommerce = ECommerce + "0" EndIf Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + SelectDrink Var ECommerce = ECommerce + "/" If Mode# = 1 Then Var ECommerce = ECommerce + "S04" Else Var ECommerce = ECommerce + "C00" EndIf Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + Seeker.CodeNumber Var ECommerce = ECommerce + ":" Var ECommerce = ECommerce + PromotionIDCurrentOrder Var ServiceParameter = "max" Var ServiceCharge = 0 Var AccountType = "new" Var testservice = "kbank" Var tc = "" Var GetScore = "" Var OperatorName = "" Var SessionID = "" GetPayInfo TelephoneNumber2 ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc Var Timeout = 0 Var TelephoneNumber = Seeker.CodeNumber Var Seeker.CodeChannel = 1 EndIf EndIf SAVELOG ShowTextNumber Refresh 217 802 Var( DirImage + "/img3.png" ) 244 816 ShowTextNumber "Enable" Var( DirImage + "/text_12.png" ) 0 817 1080 Center 62 RobotoBlack 0x513C2F "Enable" TelephoneNumber# 188 636 Var( DirImage + "/text_11.png" ) 260 920 ShowLoadingText Var( DirImage + "/loadingText.png") 152 935 "Enable" ShowErrorText text_show_error ; ; 0 ; 0 ; "ROOT/taobin_project/image/ad_medium_2.png" ; ;include="ROOT/taobin_project/inc/video.inc" Open "/media/bt/xml/security_alarm.xml"