"Enable" 1080 1920 "0xEFEDEA" SoundVolume ; On open Var buttonRemoveCup = "Enable" If show_eng = "true" Then Var DirImage = "ROOT/taobin_project/image/complete_en/" Else Var DirImage = "ROOT/taobin_project/image/complete/" EndIf Var Timeout = 0 Var Timeout2 = 0 StopLongPlay Var FailedCount = FailedCount + 1 Var MachineErrorDetailAll = MachineErrorDetail + " / " Var MachineErrorDetailAll = MachineErrorDetailAll + MachineErrorDetailEng Var ServiceAmountSum = ServiceAmountSum - ServiceAmount2 Var sendPayMultiFlag = 0 Var next_pic = "" Var next_name = "" Var nextCount = "" Var next_pic_bg = "" Var next_ready = "true" Var cart_next = 0 DEBUGVAR CART1_READY DEBUGVAR CART2_READY DEBUGVAR CART3_READY If show_eng = "true" Then If CART_COUNT > 0 Then If CART_INDEX < CART_COUNT Then Var next_pic_bg = DirImage + "/Preparing.png" Var cart_next = CART_INDEX + 1 Var nextCount = "" + cart_next Var nextCount = nextCount + "/" Var nextCount = nextCount + CART_COUNT If cart_next = 2 Then Var next_pic = "ROOT/taobin_project/image/page_drink/" + CART2_PICTURE Var next_name = CART2_NAME_ENG Var next_ready = CART2_READY SAVELOG cart_next EndIf If cart_next = 3 Then Var next_pic = "ROOT/taobin_project/image/page_drink/" + CART3_PICTURE Var next_name = CART3_NAME_ENG Var next_ready = CART3_READY EndIf EndIf EndIf Else If CART_COUNT > 0 Then If CART_INDEX < CART_COUNT Then Var next_pic_bg = DirImage + "/Preparing.png" Var cart_next = CART_INDEX + 1 Var nextCount = "" + cart_next Var nextCount = nextCount + "/" Var nextCount = nextCount + CART_COUNT If cart_next = 2 Then Var next_pic = "ROOT/taobin_project/image/page_drink/" + CART2_PICTURE Var next_name = CART2_NAME_THAI Var next_ready = CART2_READY SAVELOG cart_next EndIf If cart_next = 3 Then Var next_pic = "ROOT/taobin_project/image/page_drink/" + CART3_PICTURE Var next_name = CART3_NAME_THAI Var next_ready = CART3_READY EndIf EndIf EndIf EndIf SAVELOG next_ready ;Var next_ready = "false" Var MultiGo = 1 If next_ready = "false" Then Var next_pic = "" Var next_name = "" Var nextCount = "" Var next_pic_bg = "" If cart_next = 2 Then If Seeker.TNumberTaobinCredit = "" Then Var TelephoneNumber = "0899999999" Var PayO2 = "" If Seeker.TNumberTaobinMember = "" Then Else Var TelephoneNumber = Seeker.TNumberTaobinMember EndIf Else Var TelephoneNumber = Seeker.TNumberTaobinCredit Var PayO2 = Seeker.CoffeePinNumber EndIf Var PayDetail="1/F:1221/0/" Var ServiceType = "coffee" Var ServiceCredit = CART2_PDCODE Var SuggestID = "" Var SessionID2 = "" DEBUGVAR CART2_PRICE DEBUGVAR ServiceAmountSum Var ServiceAmount2 = CART2_PRICE Var ServiceAmountSum = ServiceAmountSum - ServiceAmount2 Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate If Seeker.PayWithQR = 0 Then If Seeker.CodeChannel = 0 Then If Seeker.StoreCreditFlag = 1 Then Else Var ChangeAmountSum = ChangeAmountSum + ServiceAmount2 Var MultiGo = 0 EndIf EndIf EndIf EndIf If cart_next < CART_COUNT Then Var cart_next = cart_next + 1 EndIf If cart_next = 3 Then If Seeker.TNumberTaobinCredit = "" Then Var TelephoneNumber = "0899999999" Var PayO2 = "" If Seeker.TNumberTaobinMember = "" Then Else Var TelephoneNumber = Seeker.TNumberTaobinMember EndIf Else Var TelephoneNumber = Seeker.TNumberTaobinCredit Var PayO2 = Seeker.CoffeePinNumber EndIf Var PayDetail="1/F:1221/0/" Var ServiceType = "coffee" Var ServiceCredit = CART3_PDCODE Var SuggestID = "" Var SessionID2 = "" DEBUGVAR CART3_PRICE DEBUGVAR ServiceAmountSum Var ServiceAmount2 = CART3_PRICE Var ServiceAmountSum = ServiceAmountSum - ServiceAmount2 Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate If Seeker.PayWithQR = 0 Then If Seeker.CodeChannel = 0 Then If Seeker.StoreCreditFlag = 1 Then Else Var ChangeAmountSum = ChangeAmountSum + ServiceAmount2 Var MultiGo = 0 EndIf EndIf EndIf EndIf Var CART_INDEX = CART_COUNT EndIf If CART_INDEX = CART_COUNT Then If ChangeAmountSum > 0 Then Change ChangeAmountSum Var MultiGo = 0 EndIf EndIf 1000 SAVELOG MachineStage Var Timeout = Timeout + 1 If Timeout > 30 Then Var MultiGo = 1 EndIf If MultiGo = 1 Then If CART_INDEX = CART_COUNT Then ;Pay Multi If sendPayMultiFlag = 0 Then If Seeker.PayWithQR = 0 Then Var ServiceType = "coffee-multi" Else Var ServiceType = "coffee-multiQR" EndIf If Seeker.TNumberTaobinCredit = "" Then Var TelephoneNumber = "0899999999" Var PayO2 = "" If Seeker.TNumberTaobinMember = "" Then Else Var TelephoneNumber = Seeker.TNumberTaobinMember EndIf Else Var TelephoneNumber = Seeker.TNumberTaobinCredit Var PayO2 = Seeker.CoffeePinNumber EndIf Var ServiceCredit = "00-00-00-0000" Var SuggestID = "" Var PayDetail="1/S:0/0/" Var SessionID3 = "" + CART_COUNT Var SessionID3 = SessionID3 + ":00000" SAVELOG PayO2 Var VendingCampaign = Seeker.IntVendingCampaign If ServiceAmountSum = 0 Then Var VendingCampaign = 0 EndIf Var CreditReference = CreditReferenceTmp Var PayType = "" Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID3 ServiceAmountSum ServiceCharge Donate Var sendPayMultiFlag = 1 EndIf EndIf EndIf If MachineStage = "show-menu" Then If CART_INDEX < CART_COUNT Then Var CART_INDEX = CART_INDEX + 1 Cart "PreparID" CART_INDEX Cart "MakeID" CART_INDEX Open "ROOT/taobin_project/xml/page_thankyouMore.xml" Else If sendPayMultiFlag = 1 Then Var Seeker.TNumberTaobinMember = "" ;Open "ROOT/taobin_project/xml/page_back_to_main.xml" Open "ROOT/taobin_project/xml/page_drinkfail2.xml" EndIf EndIf EndIf DEBUGVAR MachineStage If MachineStage = "remove-cup" Then Var buttonRemoveCup = "Enable" ;DEBUGVAR buttonRemoveCup ;Open "ROOT/taobin_project/xml/page_drinkfail3.xml" Var Timeout2 = Timeout2 + 1 If Timeout2 > 15 Then Play "/mnt/sdcard/coffeevending/taobin_project/sound_thai/remove_cup.mp3" Var Timeout2 = 0 EndIf Else ;Open "ROOT/taobin_project/xml/page_back_to_main.xml" EndIf Refresh TimerReset If ChangeStatus = "payout-end" Then Var MultiGo = 1 EndIf 46 592 Var( DirImage + "/imgDrinkFailed.png" ) 22 1384 Var( DirImage + "/txtDrinkFailed.png" ) 757 424 next_pic_bg 757 448 20 280 Center RobotoBlack 0x513C2F nextCount 757 538 20 280 Center RobotoBlack 0x513C2F next_name 823 600 148 200 next_pic 160 1673 buttonRemoveCup ; "0x00BDFF" 500 Var( DirImage + "/bn_open_door.png" ) Var( DirImage + "/bp_open_door.png" ) Machine RemoveCup Machine DoorLidOpen