"Enable" 1080 1920 BackgroundColor ; On open ;world-class OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_blank.xml" OpenInst 0 "/mnt/sdcard/coffeevending/taobin_project/xml/page_main_blank.xml" If Seeker = "curr" 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 SAVELOG "Have cup" Open "ROOT/taobin_project/xml/page_back_to_remove_cup.xml" EndIf EndIf If DoorCupPosition = "bottom" Then Else SAVELOG "DoorCupPosition not bottom" Open "ROOT/taobin_project/xml/page_back_to_remove_cup.xml" EndIf Else EndIf Var IndoQR = 0 Var PaymentEnableAll = "true" ; value from remote Var CSH_CashEnable = "" Var TAO_CreditEnable = "" Var CRD_CreditCardEnable = "" Var TWN_CashOtherEnable = "" Var KBA_CashOtherEnable = "" Var LPY_CashOtherEnable = "" Var AIR_CashOtherEnable = "" Var MAX_CashOtherEnable = "" Var WEC_CashOtherEnable = "" Var ALP_CashOtherEnable = "" Var UNP_CashOtherEnable = "" Var ACU_CashOtherEnable = "" ; value depend on other Var CPD_CouponCodeEnable = "" Var E_WalletEnable = "" Var GetPayInfoFlag = 0 Var SessionID2 = "" Var testservice = "kbank" Var QRCODE99 = "" Var QRCODETMP = "" Var QRPopupOpenFlag = 0 Var QRChannel = 0 ;Var PriceDrink = 2 Var DiscountDrink = 0 Var DiscountCampaignCode = "" Var SelectSlot = "1" SAVELOG BoxID Var ServiceCharge = 0 Var AdultFlag = 0 If Only18 = "true" Then DEBUGVAR AdultState1 DEBUGVAR AdultFlag Else If SelectDrink = "12-05-02-0028" Then Var AdultFlag = 1 EndIf If SelectDrink = "12-05-02-0029" Then Var AdultFlag = 1 EndIf If SelectDrink = "12-05-03-0028" Then Var AdultFlag = 1 EndIf If SelectDrink = "12-05-03-0029" Then Var AdultFlag = 1 EndIf If SelectDrink = "12-02-01-0017" Then Var AdultFlag = 1 EndIf If SelectDrink = "12-05-02-0027" Then Var AdultFlag = 1 EndIf If SelectDrink = "12-05-03-0027" Then Var AdultFlag = 1 EndIf EndIf If CustomerFilterEnable = "YES" Then Var AdultFlag = 1 DEBUGVAR CustomerFilterType EndIf If FromOreoDiscount11Pro = 1 Then Var PriceDrink = OriginalPrice + TOPPING_PRICE EndIf If From12Day12MenuPro = 1 Then Var PriceDrink = OriginalPrice + TOPPING_PRICE EndIf DEBUGVAR PriceDrink DEBUGVAR PromotionPriceDrink Var PriceFromCatalog = PromotionPriceDrink ;Var AdultFlag = 1 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 = 0 Var VendingBank = "other" Var ReqPayInfoFromCashOther = 0 Var Seeker.RedeemSwensenCoupon = 0 Var Seeker.RedeemSwensenCouponDrinkPrice = PriceDrink Var Seeker.PromotionIDCurrentOrder = 0 Var Seeker.TxRef1 = "" Var Seeker.OrderChanel = "Normal" Var Seeker.CurrCreditAmount = 0 Var Seeker.CurrCreditUse = 0 Var Seeker.CurrCreditTelNum = "" Var Seeker.CurrCreditPinNum = "" Var Seeker.CashlessVendingTrackNumber = "0" 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.CreditCard = 0 Var Seeker.CreditCardRef = "" Var Seeker.UseCreditPayFullDrinkPrice = 0 Var Seeker.IntVendingCredit = 0 Var EMAMemberID = "" 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 Seeker.CreditNotEnoughRefID = "" Var PayType = "" Var CART_INDEX = 0 Var QRCODE99KBANK = "" Var QRCODE99Shoppy = "" Var LOADING_STATE = "Invisible" Var QR_POPUP = "/img_popup2.png" DEBUGVAR show_eng 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" Var PlaySoundCodeLang = "ROOT/taobin_project/sound_eng/Code8digit.mp3" Else Var DirImage = "ROOT/taobin_project/image/page_payment" Var PlaySoundLag = "ROOT/taobin_project/sound_thai/payment.mp3" Var PlaySoundCodeLang = "ROOT/sounds/Code8digit.m4a" If SongkranSoundCampaign = 1 Then Var PlaySoundLag = SelectPayMethodSound[SoundCampaignIndex] EndIf If CountryName = "HongKong" Then Var PlaySoundLag = "ROOT/taobin_project/sound_eng/How_would_you_like_to_pay.mp3" Var PlaySoundCodeLang = "ROOT/taobin_project/sound_eng/Code8digit.mp3" EndIf EndIf SAVELOG MachineStage If AdultFlag = 1 Then If CameraCount = 1 Then CameraSetting "usbfront" "default" "Rotate=90,Resolution=1280x720,scaleX=1.0,scaleY=1.0" EndIf Var PlaySoundLag = "" EndIf 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 Var Seeker.CampaignPayChanel = "cash" Var Seeker.CampaignPCode = SelectDrink Var Seeker.CampaignPPrice = PriceDrink If CupChecking = "true" Then Var StageShowAlias = "Invisible" Var StageShowLoading = "Enable" Else Var StageShowAlias = "Enable" Var StageShowLoading = "Invisible" EndIf Var Delay = 0 Var DelayCount = 0 DEBUGVAR SelectDrink Var NOCashFlag = 0 DEBUGVAR SELLSTATUS If SELLSTATUS = "SELLNOCASH" Then Var NOCashFlag = 1 EndIf ; DEBUGVAR PromotionIDCurrentOrder Var RemainAmountStr = "" If ModeFreeEnable = 1 Then Var RemainAmountStr = "Free###size=150" If RoadShowMarketCode = "" Then Var RoadShowMarketCode = "EFR01" EndIf Var Seeker.VendingCode = RoadShowMarketCode DEBUGVAR RoadShowMarketCode Var Seeker.IntVendingCampaign = PriceDrink Var Seeker.FreeVendingCampaign = 1 Var Seeker.CodeChannel = 1 Var Seeker.CodeNumber = IDNum If New_Payment = 1 Then Var Seeker.ORDER_ID = "" GenHashWithTimeStamp Seeker.ORDER_ID __CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID EndIf Open "ROOT/taobin_project/xml/page_payment_cash.xml" EndIf If ModeFreeEnable = 2 Then Var RemainAmountStr = "Free###size=150" Var RoadShowMarketCode = "" Var Seeker.VendingCode = RoadShowMarketCode DEBUGVAR PriceDrink Var Seeker.IntVendingCampaign = PriceDrink Var Seeker.FreeVendingCampaign = 1 Var Seeker.CodeChannel = 1 Var Seeker.CodeNumber = IDNum SAVELOG "ModeFreeEnable ModeFreeEnable ModeFreeEnable ModeFreeEnable ModeFreeEnable" If New_Payment = 1 Then Var Seeker.ORDER_ID = "" GenHashWithTimeStamp Seeker.ORDER_ID __CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID EndIf Open "ROOT/taobin_project/xml/page_payment_cash.xml" EndIf DEBUGVAR PriceDrink DEBUGVAR PriceDrinkTmp DEBUGVAR OriginalPrice DEBUGVAR TOPPING_PRICE TRY "ROOT/taobin_project/xml/process/discount_from_promotion.ev" DEBUGVAR PromotionIDCurrentOrder Var CoundDownStillOnPage = 240 __CMD "CLEAR_TIME_BLINK_DISPLAY" 0 "-" "-" Var WaitPOSStatus = 0 ;new payment coffee-payment If New_Payment = 1 Then SAVELOG "NEW-PAYMENT NEW-PAYMENT NEW-PAYMENT NEW-PAYMENT NEW-PAYMENT NEW-PAYMENT " Var Seeker.ORDER_ID = "" GenHashWithTimeStamp Seeker.ORDER_ID DEBUGVAR Seeker.NameDrinkTH DEBUGVAR Seeker.NameDrinkEN Var param1 = Seeker.ORDER_ID Var param2 = Seeker.NameDrinkEN Var param3 = DiscountCampaignCode STRCONTAIN "size" Seeker.NameDrinkEN SizeFromSheet If SizeFromSheet = "true" Then SPLIT Seeker.NameDrinkEN "###" 1 PureName Var param2 = PureName EndIf If ConnectWithPOSMachine = 1 Then Var WaitPOSStatus = 1 Var TimeWaitPOSStatus = 0 Var POS_SELL_STATUS = "-" GetPOSStatus param1 param2 param3 EndIf EndIf 900 If stop_now = "true" Then SAVELOG "stop_now is true page_payment" ;include="ROOT/taobin_project/inc/return_condition.ev" EndIf If SELLSTATUS = "DEACTIVE" Then SAVELOG "DEACTIVE in page_payment.xml" ;include="ROOT/taobin_project/inc/return_condition.ev" EndIf If SELLSTATUS = "DEACTIVE" Then SAVELOG "DEACTIVE in page_payment.xml" ;include="ROOT/taobin_project/inc/return_condition.ev" EndIf If ConnectWithPOSMachine = 1 Then Var SELLONLINE = 0 If SELLSTATUS = "SELLONLINE" Then Var SELLONLINE = 1 EndIf If SELLSTATUS = "SELLNOCASH" Then Var SELLONLINE = 1 EndIf If SELLONLINE = 0 Then SAVELOG "POS-MACHINE: OFFLINE in page_payment.xml" ;include="ROOT/taobin_project/inc/return_condition.ev" EndIf EndIf If Seeker = "curr" Then If web_ready = "false" Then If Delay = 0 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 SAVELOG "Have cup" Open "ROOT/taobin_project/xml/page_back_to_remove_cup.xml" EndIf EndIf If DoorCupPosition = "bottom" Then Else SAVELOG "DoorCupPosition not bottom" Open "ROOT/taobin_project/xml/page_back_to_remove_cup.xml" EndIf EndIf EndIf Else EndIf DEBUGVAR show_eng 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 DEBUGVAR Seeker DEBUGVAR HaveCup ;DEBUGVAR CupChecking ;DEBUGVAR CountStepPackPayment ;DEBUGVAR CountStepForCupFlagDelay DEBUGVAR ToppingDetailCurr DEBUGVAR ToppingDetailNext If WaitPOSStatus = 1 Then If TimeWaitPOSStatus < 10 Then Var TimeWaitPOSStatus = TimeWaitPOSStatus + 1 If POS_SELL_STATUS = "READY" Then Var WaitPOSStatus = 0 EndIf Else If POS_SELL_STATUS = "READY" Then Var WaitPOSStatus = 0 Else Open "ROOT/taobin_project/xml/pos_fail.xml" EndIf EndIf Else If CountStepPackPayment = CountStepForCupFlagDelay Then If Seeker = "curr" Then Var Seeker.ExtendData = ExtendDataCurr Var Seeker.PayDetail2 = ToppingDetailCurr Else Var Seeker.ExtendData = ExtendDataNext Var Seeker.PayDetail2 = ToppingDetailNext EndIf DEBUGVAR Seeker DEBUGVAR Seeker.ExtendData If GetPayInfoFlag = 0 Then SaveLog "RoadShow test" If RoadShow = "false" Then ;CoinVending ON If AdultFlag = 1 Then Var CoinAmount = 0 Else If NOCashFlag = 0 Then SAVELOG "CoinVending XBILL from page_payment" CoinVending XBILL Else Var CoinAmount = 0 EndIf EndIf ;Var CoinAmount = 0 Var Delay = 1 Else Var Delay = 1 EndIf Var RemainAmount = 0 Var SessionID2 = SelectSlot + ":" Var SessionID2 = SessionID2 + Seeker.ExtendData EndIf ; Reset Var MachineState_Result = 0 DEBUGVAR Seeker DEBUGVAR Seeker.ExtendData Var CountStepPackPayment = 1 EndIf If Delay = 1 Then Var DelayCount = DelayCount + 1 If DelayCount >= 2 Then If web_readyOK = "true" Then Var Seeker.OrderChanel = "WebApp" 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 If Only18 = "true" Then Var AdultFlag = 0 EndIf Open "ROOT/taobin_project/xml/page_payment_cash.xml" EndIf EndIf EndIf DEBUGVAR show_eng TimerReset Refresh ;include="ROOT/taobin_project/inc/video.inc" StageShowAlias 375 623 331 435 PictureDrink StageShowAlias 0 938 1080 Center 66 KanitMediumTTF HeadlineColor showname StageShowAlias 0 1022 1080 Center 24 KanitLightTTF SubHeadlineColor showdesc 493 968 StageShowLoading 94 94 Var( DirImage + "/loading.gif" ) StageShowLoading 267 1065 Var( DirImage + "/loadingText.png" ) 0 1041 144 Center 1080 KanitRegularTTF "Enable" 0xDE794E RemainAmountStr