1080 1312 "ROOT/image/BG_Enter_Code.bmp" "ROOT/sounds/Code8digit.m4a" SoundVolume ; On open Var Timeout = 0 Var GetPayInfoFlag = 0 Var CodeChannel = 0 ;Var VendingQRCode = "ERROR" VendingQR ON Var QRCODE99 = "" CoinVending OFF 1000 ;Open "ROOT/xml/menu_board.xml" Var Timeout = Timeout + 1 If Timeout > 30 Then VendingQR OFF Open "ROOT/xml/menu_board.xml" EndIf TimerReset Refresh If VendingREFID = "" Then SAVELOG "menu_page4-Code.xml > ActOK_REFID" Refresh Else SAVELOG "menu_page4-Code.xml > ActOK_make" ;Var VendingQRCode = "ERROR" ;Coin STANDBY VendingQR OFF ;Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif" MakeDrinkV1 SelectDrink SelectSugarID Var PayWithQR = 1 Open "/media/bt/xml/menu_page4-1.xml" EndIf 413 458 "ROOT/image/BN_1.bmp" "ROOT/image/BP_1.bmp" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "1" Trim TelephoneNumber 8 TimerReset Refresh StrLen TelephoneNumber TelNumLen If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf 498 458 "ROOT/image/BN_2.bmp" "ROOT/image/BP_2.bmp" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "2" Trim TelephoneNumber 8 TimerReset Refresh StrLen TelephoneNumber TelNumLen If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf 582 458 "ROOT/image/BN_3.bmp" "ROOT/image/BP_3.bmp" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "3" Trim TelephoneNumber 8 TimerReset Refresh StrLen TelephoneNumber TelNumLen If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf 413 535 "ROOT/image/BN_4.bmp" "ROOT/image/BP_4.bmp" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "4" Trim TelephoneNumber 8 TimerReset Refresh StrLen TelephoneNumber TelNumLen If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf 498 535 "ROOT/image/BN_5.bmp" "ROOT/image/BP_5.bmp" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "5" Trim TelephoneNumber 8 TimerReset Refresh StrLen TelephoneNumber TelNumLen If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf 582 535 "ROOT/image/BN_6.bmp" "ROOT/image/BP_6.bmp" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "6" Trim TelephoneNumber 8 TimerReset Refresh StrLen TelephoneNumber TelNumLen If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf 413 612 "ROOT/image/BN_7.bmp" "ROOT/image/BP_7.bmp" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "7" Trim TelephoneNumber 8 TimerReset Refresh StrLen TelephoneNumber TelNumLen If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf 498 612 "ROOT/image/BN_8.bmp" "ROOT/image/BP_8.bmp" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "8" Trim TelephoneNumber 8 TimerReset Refresh StrLen TelephoneNumber TelNumLen If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf 582 612 "ROOT/image/BN_9.bmp" "ROOT/image/BP_9.bmp" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "9" Trim TelephoneNumber 8 TimerReset Refresh StrLen TelephoneNumber TelNumLen If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf 413 689 "ROOT/image/BN_Star.bmp" "ROOT/image/BP_Star.bmp" "ROOT/sounds/codebuttom.wav" SoundVolume 498 689 "ROOT/image/BN_0.bmp" "ROOT/image/BP_0.bmp" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "0" Trim TelephoneNumber 8 TimerReset Refresh StrLen TelephoneNumber TelNumLen If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf 582 689 "ROOT/image/BN_#.bmp" "ROOT/image/BP_#.bmp" "ROOT/sounds/codebuttom.wav" SoundVolume 373 779 "ROOT/image/BN_Skip.bmp" "ROOT/image/BP_Skip.bmp" "ROOT/sounds/codebuttom.wav" SoundVolume Var BG_Menu_Page4 = "ROOT/image/BG_Cash_Page4.bmp" Var PayState1 = "PressForever" Var PayState2 = "Enable" Var QRChannel = 0 Open "ROOT/xml/menu_Page4.xml" 486 779 "ROOT/image/BN_Edit.bmp" "ROOT/image/BP_Edit.bmp" "ROOT/sounds/codebuttom.wav" SoundVolume Var Timeout = 0 Trim TelephoneNumber -1 Var Tel_Confirm_State = "Disable" TimerReset Refresh 600 779 Tel_Confirm_State "ROOT/image/BN_Confirm.bmp" "ROOT/image/BP_Confirm.bmp" "ROOT/image/BD_Confirm.bmp" "ROOT/sounds/codebuttom.wav" SoundVolume If GetPayInfoFlag = 0 Then VendingQR OFF Var CodeNumber = TelephoneNumber 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 + "C00" Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + CodeNumber 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 TelephoneNumber = CodeNumber Var CodeChannel = 1 Open "/media/bt/xml/menu_page4-CodeWaiting.xml" EndIf Refresh 310 380 474 Center 50 fontType1 0xF0E000 TelephoneNumber 450 595 185 185 testservice Open "/media/bt/xml/security_alarm.xml"