1080 1312 "ROOT/image/BG_Menu_Page3.bmp" "ROOT/sounds/selectConfirm.wav" SoundVolume ; On open Var Timeout = 0 Var QRCODE99 = "" Var QRCODETMP = "" Var QRChannel = 0 Var CodeChannel = 0 Var GetPayInfoFlag = 0 1000 ;Open "ROOT/xml/menu_board.xml" If GetPayInfoFlag = 0 Then Var Timeout = Timeout + 1 If Timeout > 30 Then Open "ROOT/xml/menu_board.xml" EndIf Else Var Timeout = Timeout + 1 If Timeout > 30 Then Open "ROOT/xml/menu_page4.xml" EndIf EndIf TimerReset Refresh Var CreditAmount = 0 Var QRCODE99 = SessionID Var QRCODE99 = QRCODE99 + Ext1a Var QRCODE99 = QRCODE99 + Ext21 Var QRCODETMP = QRCODE99 Open "ROOT/xml/menu_page4.xml" Var QRCODE99 = "" Var CreditAmount = 0 Open "ROOT/xml/menu_page4.xml" 431 805 "ROOT/image/BN_Cancle.bmp" "ROOT/image/BP_Cancle.bmp" "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume ;Open "ROOT/xml/menu_board.xml" OpenInst 2 "/mnt/sdcard/coffeevending/xml/menu_list_show_all.xml" OpenInst 1 "/mnt/sdcard/coffeevending/xml/menu_advert.xml" Open "/mnt/sdcard/coffeevending/xml/menu_main_blank.xml" 566 805 "ROOT/image/BN_Confirm2.bmp" "ROOT/image/BP_Confirm2.bmp" "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume If GetPayInfoFlag = 0 Then Var BG_Menu_Page4 = "ROOT/image/BG_Cash_Page4.bmp" Var PayState1 = "PressForever" Var PayState2 = "Enable" Var PayState3 = "Enable" Var RemainAmount = 0 PrepareDrink SelectDrink SelectSugarID Var SessionID2 = SelectSlot + ":" Var SessionID2 = SessionID2 + sugarID Var SessionID2 = SessionID2 + "000" 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 EndIf ;Open "ROOT/xml/menu_page4.xml" 450 218 PictureDrink 505 492 310 Center 30 fontType1 0x000000 NameDrink 505 580 310 Center 30 fontType1 0x000000 SweetChoosed 505 670 310 Center 25 fontType1 0x000000 PriceDrink 505 1000 310 Center 25 fontType1 0x000000 NHaveDrink Open "/media/bt/xml/security_alarm.xml"