"Enable" 1080 1920 "0xeae6e1" ; On open Var GetPayInfoFlag = 0 Var SessionID2 = "" Var testservice = "kbank" Var QRCODE99 = "" Var QRCODETMP = "" Var QRChannel = 0 ;Var PriceDrink = 5 Var DiscountDrink = 0 Var SelectSlot = "1" SAVELOG BoxID Var ServiceCharge = 0 Var QRCODE1 = "A000000677010112" Var QRCODE2 = "010755600066301" Var QRCODE3 = "VDGN" Var QRCODE4 = BoxID Var QRCODE5 = SelectSlot Var QRCODE6 = SelectDrink Var QRCODE7 = PriceDrink Var QRCODE8 = "" Var CountStepPackPayment = 0 Var CountStepForCupFlagDelay = 1 Var Seeker.TaobinErrorNetwork = 0 Var Seeker.VendingCode = "C00" Var Seeker.VendingCampaignRI3 = 0 Var Seeker.IntVendingCampaign = 0 Var Seeker.FreeVendingCampaign = 0 Var Seeker.CodeChannel = 0 Var CoinVendingOnFlag = 0 Var Seeker.IntVendingCredit = 0 Var Seeker.StoreCreditFlag = 0 Var Seeker.pageStoreCredit0 = 0 Var Seeker.TNumberTaobinCredit = "" Var Seeker.TNumberTaobinMember = "" Var Seeker.CoffeePinNumber = "" Var Seeker.VendingDiscount = 0 Var Seeker.VendingCampaign = 0 Var Seeker.VendingTSID = "" Var PayType = "" Var CART_INDEX = 0 Var QRCODE99KBANK = "" Var QRCODE99Shoppy = "" Var LOADING_STATE = "Invisible" Var QR_POPUP = "/img_popup2.png" If show_eng = "true" Then Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment" Var PlaySoundLag = "ROOT/taobin_project/sound_eng/How_would_you_like_to_pay.mp3" Else Var DirImage = "ROOT/taobin_project/image/page_payment" Var PlaySoundLag = "ROOT/taobin_project/sound_thai/payment.mp3" EndIf SAVELOG MachineStage READ_FILE "/mnt/sdcard/can_sell" ReadyForBrew If ReadyForBrew = "false" Then Open "ROOT/taobin_project/xml/page_back_to_main.xml" Var ReadyForBrew = "false" EndIf ; Test ;Var MachineStage = "-" Var PayReference = "" Var Seeker.CreditReferenceTmp = "" If web_app_prepar = "true" Then Var web_app_prepar = "false" __CMD "ui-load-playlist" 0 SelectDrink "-" EndIf Var ServiceAmount2 = PriceDrink Var TelephoneNumber = "0899999999" Var ServiceType = "coffee" Var VendingCreditRemain = "" DEBUGVAR Seeker.thankLidFlag DEBUGVAR Seeker.thankStrawFlag Var Seeker.PayWithQR = 0 If CupChecking = "true" Then Var StageShowAlias = "Invisible" Var StageShowLoading = "Enable" Else Var StageShowAlias = "Enable" Var StageShowLoading = "Invisible" EndIf Var Delay = 0 Var DelayCount = 0 900 If Seeker = "curr" Then If web_ready = "false" Then If MachineStage = "remove-cup" Then SAVELOG "MachineStage = remove-cup" If HaveCup = "true" Then Open "ROOT/taobin_project/xml/page_back_to_remove_cup.xml" EndIf EndIf If CupChecking = "true" Then If HaveCup = "true" Then Open "ROOT/taobin_project/xml/page_back_to_remove_cup.xml" EndIf EndIf EndIf EndIf If CupChecking = "true" Then Var CountStepForCupFlagDelay = 3 EndIf If HaveCup = "true" Then Var CountStepForCupFlagDelay = 3 EndIf If ReadyForBrew = "false" Then Open "ROOT/taobin_project/xml/page_back_to_main.xml" Var ReadyForBrew = "false" EndIf If Seeker = "curr" Then If MachineStage = "remove-cup" Then SAVELOG "MachineStage = remove-cup 2" Open "ROOT/taobin_project/xml/page_back_to_remove_cup.xml" EndIf EndIf If CupChecking = "false" Then Var CountStepPackPayment = CountStepPackPayment + 1 EndIf ;Var CountStepPackPayment = 1 DEBUGVAR Seeker DEBUGVAR HaveCup DEBUGVAR CupChecking DEBUGVAR CountStepPackPayment DEBUGVAR CountStepForCupFlagDelay If CountStepPackPayment = CountStepForCupFlagDelay Then SAVELOG ExtendData If GetPayInfoFlag = 0 Then SaveLog "RoadShow test" If RoadShow = "false" Then ;CoinVending ON CoinVending XBILL ;Var CoinAmount = 0 Var Delay = 1 EndIf Var RemainAmount = 0 Var SessionID2 = SelectSlot + ":" Var SessionID2 = SessionID2 + ExtendData ;Var CreditAmount1 = "" ;Var ServiceAmountFlow = "" ;Var TelephoneNumberQR = "0899999999" ;Var ServiceType = "coffee" ;Var ECommerceQR = "" ;Var ECommerceQR = ECommerceQR + PriceDrink ;Var ECommerceQR = ECommerceQR + "/" ;Var ECommerceQR = ECommerceQR + DiscountDrink ;Var ECommerceQR = ECommerceQR + "/" ;Var ECommerceQR = ECommerceQR + SessionID2 ;Var ECommerceQR = ECommerceQR + "/" ;Var ECommerceQR = ECommerceQR + SelectDrink ;Var ECommerceQR = ECommerceQR + "/" ;Var ECommerceQR = ECommerceQR + "KBA:2" ;Var ServiceParameter = "max" ;Var ServiceCharge = 0 ;Var AccountType = "new" ;Var testservice = "kbank" ;Var tc = "" ;Var GetScore = "" ;Var OperatorName = "" ;Var SessionID = "" ;GetPayInfo TelephoneNumberQR ECommerceQR ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc ;Var Timeout = 0 ;Var GetPayInfoFlag = 1 ;Var ReqPayInfoFlag = 1 EndIf ; Reset Var MachineState_Result = 0 DEBUGVAR ExtendData ;If web_readyOK = "true" Then ; ; Var Seeker.selected_a_drink = SelectDrink ; Var Seeker.ServiceAmount2 = PriceDrink ; Var PayAmount = PriceDrink ; ; If web_payment = "CODE" Then ; Open "ROOT/taobin_project/xml/page_payment_code.xml" ; EndIf ; ; If web_payment = "CREDIT" Then ; Open "ROOT/taobin_project/xml/page_payment_credit.xml" ; EndIf ; ;EndIf ;Open "ROOT/taobin_project/xml/page_payment_cash.xml" EndIf If Delay = 1 Then Var DelayCount = DelayCount + 1 If DelayCount >= 2 Then If web_readyOK = "true" Then Var Seeker.selected_a_drink = SelectDrink Var Seeker.ServiceAmount2 = PriceDrink Var PayAmount = PriceDrink If web_payment = "CODE" Then Open "ROOT/taobin_project/xml/page_payment_code.xml" EndIf If web_payment = "CREDIT" Then Open "ROOT/taobin_project/xml/page_payment_credit.xml" EndIf EndIf Open "ROOT/taobin_project/xml/page_payment_cash.xml" EndIf EndIf TimerReset Refresh StageShowAlias 375 623 331 435 PictureDrink StageShowAlias 0 938 1080 Center 72 KanitMediumTTF 0x513C2F showname StageShowAlias 0 1022 1080 Center 24 KanitLightTTF 0x6F5F51 showdesc StageShowAlias 144 413 Var( DirImage + "/text_1.png" ) 493 968 StageShowLoading 94 94 Var( DirImage + "/loading.gif" ) StageShowLoading 267 1065 Var( DirImage + "/loadingText.png" )