"Enable" 1080 1920 "0xeae6e1" ; On open Var GetPayInfoFlag = 0 Var SessionID2 = "" Var testservice = "kbank" Var QRCODE99 = "" Var QRCODETMP = "" Var QRChannel = 0 Var MachineStage = "-" Var HaveCup = "true" ;Var PriceDrink = 5 Var DiscountDrink = 0 Var SelectSlot = "1" Var QRCODE1 = "A000000677010112" Var QRCODE2 = "010755600066301" Var QRCODE3 = "VDGN" Var QRCODE4 = BoxID Var QRCODE5 = SelectSlot Var QRCODE6 = ServiceCredit Var QRCODE7 = ServiceAmount2 Var QRCODE8 = "" Var CountStepPackPayment = 0 Var IntVendingCampaign = 0 Var CodeChannel = 0 900 Var CountStepPackPayment = CountStepPackPayment + 1 If CountStepPackPayment = 1 Then SAVELOG ExtendData If GetPayInfoFlag = 0 Then Var RemainAmount = 0 Var SessionID2 = SelectSlot + ":" Var SessionID2 = SessionID2 + 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 + "KBA" 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 Var GetPayInfoFlag = 1 Var ReqPayInfoFlag = 1 EndIf ; Reset Var MachineState_Result = 0 Open "ROOT/taobin_project/xml/page_payment_cash.xml" EndIf TimerReset Refresh 0 0 "ROOT/taobin_project/image/ad_medium_2.png" 375 623 331 435 PictureDrink 0 938 1080 Center 72 KanitMediumTTF 0x513C2F NameDrink 0 1022 1080 Center 24 KanitLightTTF 0x6F5F51 DrinkDescription 166 501 "ROOT/taobin_project/image/page_payment/text_1.png"