"Enable" 1080 1920 "0xFFFFFF" SoundVolume PlaySoundLag Var countClick2 = 0 ;SAVELOG SelectDrink ;SAVELOG NameDrink ;SAVELOG NameDrinkTH ;SAVELOG DrinkDescription Var PriceDrink = PriceDrinkMulti SAVELOG PriceDrink ;SAVELOG topping1 ;SAVELOG topping2 ;SAVELOG topping3 DEBUGVAR video_menu_0 DEBUGVAR PriceDrinkMulti Var FlagQROpened = 0 Var PayInfoCFlag = 0 Var ActionOKCase = 0 Var VendingCampaign = Seeker.IntVendingCampaign Var Seeker.VendingCampaign = Seeker.IntVendingCampaign Var PayAmount = PriceDrinkMulti Var LOADING_STATE = "Invisible" Var cancelState = "Invisible" ; Below original ; On open Var alphaState = "Invisible" Var alphaState2 = "Invisible" Var alphaState3 = "Invisible" Var CoinInFlag = 0 ;Var CoinAmount = 0 Var CancelFlag = 0 Var CancelCounter = 0 Var CoinInCounter = 0 Var CancelNumber = 3 Var PayAmount = PriceDrinkMulti Var RemainAmount = PayAmount - Seeker.IntVendingCampaign Var RemainAmount = RemainAmount - CoinAmount Var RemainAmount = RemainAmount - Seeker.IntVendingCredit Var RemainAmountStr = "" + RemainAmount Var Timeout = 0 Var PayOK = 0 Var ChangeOK = 0 Var CoinInOK = 0 Var RemainAmountKeep = 0 Var showRemaining = charOfBaht + RemainAmountStr Var VendingREFID = "" Var TelephoneNumber = "0899999999" Var ServiceType = "coffee" Var ServiceCredit = SelectDrink Var ServiceAmount2 = PayAmount Var ServiceCharge = 0 Var Donate = "" Var SuggestID = "" Var CancleState = "Enable" Var Seeker.VendingDiscount = DiscountDrink Var CashTextWarning = "" Var QRErrorState = "Invisible" Var QRErrorFlag = 0 SAVELOG SelectDrink SAVELOG QRChannel SAVELOG QRCODE99 SAVELOG VendingCampaign SAVELOG Seeker.VendingCode SAVELOG Seeker.CodeChannel If Seeker.VendingCode = "C00" Then Var Seeker.CodeChannel = 0 EndIf If RoadShow = "false" Then If QRChannel = 0 Then ;Var VendingQRCode = "ERROR" VendingQR ON If CoinVendingOnFlag = 0 Then ;CoinVending ON Var CoinVendingOnFlag = 1 Else EndIf ;Var QRCODE99 = "" Else ;Var VendingQRCode = "OK" VendingQR ON CoinVending OFF Var QRCODE99 = QRCODETMP Var RemainAmountStr = "" Var CashTextWarning = "" If QRCODE99 = "" Then Var CashTextWarning = "ระบบ Promtpay ไม่สามารถใช้งานได้ในขณะนี้" Var QRErrorState = "Enable" Else Var QRErrorState = "Invisible" EndIf EndIf EndIf If RoadShow = "true" Then Var PayState1 = "Enable" Var PayState2 = "Invisible" Var PayState3 = "Invisible" Var PayState4 = "Invisible" Var PayState5 = "Invisible" Var showRemaining = "Free" Else Var PayState1 = "Enable" If Seeker.IntVendingCampaign = 0 Then Var PayState2 = "Enable" Var PayState4 = "Enable" Var PayState5 = "Enable" Else Var PayState2 = "Disable" Var PayState4 = "Disable" Var PayState5 = "Disable" EndIf Var PayState3 = "Enable" If CoinAmount > 0 Then Var PayState2 = "Disable" Var PayState3 = "Disable" Var PayState4 = "Disable" Var PayState5 = "Disable" Var CoinInFlag = 1 EndIf If Seeker.IntVendingCredit > 0 Then Var PayState2 = "Disable" Var PayState4 = "Disable" Var PayState5 = "Disable" EndIf Var showRemaining = charOfBaht + RemainAmountStr If show_eng = "true" Then Var showRemaining = charOfBaht + RemainAmountStr Else Var showRemaining = RemainAmountStr + " บาท" EndIf EndIf Var Seeker.PayWithQR = 0 Var NoGotoMenupage = "false" If show_eng = "true" Then Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment_en/page_payment/bn_cash.png" Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment_en/page_payment/bp_cash.png" Else Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment/bn_cash.png" Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment/bp_cash.png" EndIf Var X_CASH = 60 If RoadShow = "true" Then Var X_CASH = 287 If show_eng = "true" Then Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment_en/page_payment/bn_cash_2.png" Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment_en/page_payment/bp_cash_2.png" Else Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment/bn_cash_2.png" Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment/bp_cash_2.png" EndIf EndIf If GetFreeFromError = 1 Then Var Seeker.FreeVendingCampaign = 1 CoinVending OFF MakeDrinkV1 SelectDrink SelectSugarID Open "ROOT/taobin_project/xml/page_thankyou.xml" EndIf ;If Seeker.IntVendingCampaign >= PayAmount Then ; Var RemainAmount = 0 ; Var RemainAmountStr = "" + RemainAmount ; CoinVending OFF ; MakeDrinkV1 SelectDrink SelectSugarID ; Open "ROOT/taobin_project/xml/page_thankyou.xml" ; ;EndIf If CoinInOK = 0 Then Var RemainAmount = PayAmount - CoinAmount Var RemainAmount = RemainAmount - Seeker.IntVendingCampaign Var RemainAmount = RemainAmount - Seeker.IntVendingCredit Var SumCoinAmount = CoinAmount + Seeker.IntVendingCampaign If SumCoinAmount >= PayAmount Then SAVELOG "CoinInOk First" DEBUGVAR CoinAmount DEBUGVAR Seeker.IntVendingCampaign DEBUGVAR Seeker.IntVendingCredit ;Var VendingQRCode = "ERROR" CoinVending OFF Var Canout = SumCoinAmount - PayAmount If Canout = 0 Then Var RemainAmountStr = 0 Else Var RemainAmountStr = "ทอน " + Canout EndIf Var CancleState = "Disable" Var CoinInOK = 1 Var CoinInCounter = 0 Else Var RemainAmountStr = "" + RemainAmount EndIf ;Var RemainAmount = 0 Var showRemaining = charOfBaht + RemainAmountStr If RoadShow = "true" Then Var showRemaining = "Free" EndIf EndIf If show_eng = "true" Then Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment" Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_en" Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png" Else Var DirImage = "ROOT/taobin_project/image/page_payment" Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend" Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png" EndIf Var EnoughChange = "yes" Var SELLONLINE = 0 If SELLSTATUS = "SELLONLINE" Then Var SELLONLINE = 1 EndIf If SELLSTATUS = "SELLNOCASH" Then Var SELLONLINE = 1 EndIf If SELLONLINE = 0 Then Var PayState2 = "Disable" Var PayState3 = "Disable" Var PayState4 = "Disable" Var PayState5 = "Disable" Var PayOfflineMode = 1 Var ShowNetworkProblem = "Enable" Var ShowButtonClick2 = "Invisible" Var ShowNetworkProblemText = "การสื่อสารขัดข้อง ชำระเงินได้เฉพาะเงินสด" Else Var PayOfflineMode = 0 Var ShowNetworkProblem = "Invisible" Var ShowNetworkProblemText = "" EndIf Var pay_with_credit_image = DirImage + "/bp_pay_with_credit.png" Var pay_with_chanel_text = DirImage + "/text_1.png" If DisableUsingCode = "true" Then SAVELOG "Diable code because using topping." Var PayState2 = "Disable" Var pay_with_code_image = DirImage + "/bd_pay_with_code.png" Else If Seeker.IntVendingCredit > 0 Then Var pay_with_code_image = DirImage + "/bp_pay_with_code.png" Var pay_with_credit_image = DirImage + "/bp_pay_with_credit.png" Var pay_with_chanel_text = DirImage + "/text_2.png" Else Var pay_with_code_image = DirImage + "/bp_pay_with_code.png" EndIf EndIf If CART_COUNT = 1 Then Var pay_with_code_imagebn = "/bn_pay_with_code.png" Var pay_with_code_imagebp = "/bp_pay_with_code.png" Else ;Var pay_with_code_imagebn = "/bn_pay_with_codeSmall_error.png" ;Var pay_with_code_imagebp = "/bn_pay_with_codeSmall_error.png" Var pay_with_code_imagebn = "/bn_pay_with_code.png" Var pay_with_code_imagebp = "/bd_pay_with_code.png" Var PayState2 = "Disable" EndIf Var cartNumText = "" + CART_COUNT If show_eng = "true" Then Var cartNumText = cartNumText + " cups" Else Var cartNumText = cartNumText + " แก้ว" EndIf Var PrepareFlag = 0 Var PrepareTime = 0 Var AddOrderState = "Enable" If CART_COUNT = 3 Then Var AddOrderState = "Invisible" EndIf If ShoppyPayEnable = "true" Then Else Var PayState5 = "Disable" EndIf Var VendingQRTypeResult = "" DEBUGVAR ECommerceQR SPLIT ECommerceQR "/" 5 VendingQRTypeResult If ActionOKCase = 0 Then If VendingREFID = "" Then SAVELOG "menu_page4-QR.xml > ActOK_REFID" Refresh Else If ViewBill > 0 Then CoinVending BILLREJECT EndIf SAVELOG "menu_page4-QR.xml > ActOK_make" ;Var VendingQRCode = "ERROR" ;Coin STANDBY VendingQR OFF CoinVending OFF Cart "PreparID" 1 Var CART_INDEX = 1 Var PayReference = MultiTSID ;GenHashWithTimeStamp PayReference Var Seeker.PayWithQR = 1 Var Seeker.VendingTSID = VendingTSID Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif" Var BrewingTextThai = "เตรียมแก้ว" Cart "MakeID" CART_INDEX Open "ROOT/taobin_project/xml/page_thankyou.xml" EndIf If ReqPayInfoFlag = 1 Then If VendingQRTypeResult = "KBA:2" Then Var CashTextWarning = "" Var QRErrorState = "Invisible" Var QRCODE99KBANK = SessionID Var QRCODE99KBANK = QRCODE99KBANK + Ext1a SAVELOG Ext1a SAVELOG QRCODE99KBANK Var QRCODE99KBANK = QRCODE99KBANK + Ext21 Var QRCODETMP = QRCODE99KBANK Var ReqPayInfoFlag = 0 SAVELOG QRCODE99KBANK SAVELOG Ext21 Var QRCODE99 = QRCODE99KBANK Var LOADING_STATE = "Invisible" EndIf EndIf If ReqPayInfoFlag = 2 Then If VendingQRTypeResult = "AIR:2" Then Var CashTextWarning = "" Var QRErrorState = "Invisible" Var QRCODE99Shoppy = SessionID Var QRCODE99Shoppy = QRCODE99Shoppy + Ext1a SAVELOG Ext1a SAVELOG QRCODE99Shoppy Var QRCODE99Shoppy = QRCODE99Shoppy + Ext21 Var ReqPayInfoFlag = 0 SAVELOG QRCODE99Shoppy SAVELOG Ext21 Var QRCODE99 = QRCODE99Shoppy Var LOADING_STATE = "Invisible" EndIf EndIf If ReqPayInfoFlag = 3 Then If VendingQRTypeResult = "TWN:2" Then Var CashTextWarning = "" Var QRErrorState = "Invisible" Var QRCODE99Shoppy = SessionID Var QRCODE99Shoppy = QRCODE99Shoppy + Ext1a SAVELOG Ext1a SAVELOG QRCODE99Shoppy Var QRCODE99Shoppy = QRCODE99Shoppy + Ext21 Var ReqPayInfoFlag = 0 SAVELOG QRCODE99Shoppy SAVELOG Ext21 Var QRCODE99 = QRCODE99Shoppy Var LOADING_STATE = "Invisible" EndIf EndIf Else Var PayInfoCFlag = 1 EndIf If ActionOKCase = 0 Then If ReqPayInfoFlag = 1 Then Var QRErrorFlag = 1 If alphaState = "Enable" Then Var QRErrorState = "Enable" Var LOADING_STATE = "Invisible" EndIf EndIf If ReqPayInfoFlag = 2 Then Var QRErrorFlag = 1 If alphaState = "Enable" Then Var QRErrorState = "Enable" Var LOADING_STATE = "Invisible" EndIf EndIf If ReqPayInfoFlag = 3 Then Var QRErrorFlag = 1 If alphaState = "Enable" Then Var QRErrorState = "Enable" Var LOADING_STATE = "Invisible" EndIf EndIf EndIf Refresh 1000 If ReadyForBrew = "false" Then Open "ROOT/taobin_project/xml/page_back_to_main.xml" EndIf SAVELOG Timeout Var Timeout = Timeout + 1 If Timeout >= 120 Then Var alphaState = "Invisible" If RoadShow = "true" Then Else Var PayState3 = "Disable" Var PayState5 = "Disable" EndIf Var LOADING_STATE = "Invisible" Var QRErrorState = "Invisible" EndIf If Timeout > 210 Then If ActionOKCase = 1 Then Var PayInfoCFlag = 1 EndIf EndIf If PayInfoCFlag = 1 Then If Seeker.CodeChannel = 1 Then Var SessionID2 = SelectSlot + ":" Var SessionID2 = SessionID2 + Seeker.ExtendData Var CreditAmount1 = "" Var ServiceAmountFlow = "" Var TelephoneNumber = "0899999999" Var ServiceType = "coffee" Var ECommerce = "" Var ECommerce = ECommerce + PriceDrinkMulti 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 + Seeker.VendingCode Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + Seeker.CodeNumber Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + "C:" Var ECommerce = ECommerce + Seeker.IntVendingCampaign 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 EndIf Open "ROOT/taobin_project/xml/page_catalog.xml" EndIf If TestLoopMakeDrink = 1 Then MakeDrinkV1 SelectDrink SelectSugarID Open "ROOT/taobin_project/xml/page_thankyou.xml" EndIf If CoinInOK = 1 Then Var CoinInCounter = CoinInCounter + 1 If CoinInCounter = 1 Then SAVELOG "CoinInOk OK" ;Var ChangeOK = 1 Var Timeout = 180 Var PayOK = 1 EndIf EndIf Var stringLog = "Timeout " + Timeout Var stringLog = stringLog + " PayOK" Var stringLog = stringLog + PayOK If Timeout > 180 Then If PayOK = 1 Then If PrepareFlag = 0 Then ;MakeDrinkV1 SelectDrink SelectSugarID Cart "PreparID" 1 Var CART_INDEX = 1 Var PayReference = "" GenHashWithTimeStamp PayReference Cart "MakeID" CART_INDEX Open "ROOT/taobin_project/xml/page_thankyou.xml" EndIf Else If CancelFlag = 0 Then SAVELOG "Timeout > 180 s." Cart "DeleteMenuID" "ALL" Var CART_COUNT=0 If ViewBill > 0 Then CoinVending BILLREJECT EndIf CoinVending OFF Var CancelFlag = 1 Var cancelState = "Enable" Var CancelCounter = 0 If CoinAmount = 0 Then If Seeker.IntVendingCredit > 0 Then Var BmiYear = Seeker.IntVendingCredit Var GetScore = "useCredit" AddData 24 Seeker.TNumberTaobinCredit BmiYear PointCrm GetScore Var Seeker.IntVendingCredit = 0 EndIf If Seeker.IntVendingCampaign = 0 Then VendingQR OFF Open "ROOT/taobin_project/xml/page_back_to_main.xml" EndIf EndIf EndIf EndIf EndIf If CancelFlag = 1 Then If Seeker.IntVendingCredit > 0 Then Var BmiYear = Seeker.IntVendingCredit Var GetScore = "useCredit" AddData 24 Seeker.TNumberTaobinCredit BmiYear PointCrm GetScore Var Seeker.IntVendingCredit = 0 EndIf Var CancelCounter = CancelCounter + 1 If CancelCounter = CancelNumber Then ;Change CoinAmount DEBUGVAR CoinAmount If CoinAmount > 0 Then If Seeker.StoreCreditFlag = 1 Then Var ChangeOK = 1 Else Change CoinAmount EndIf Else If ActionOKCase = 0 Then Var ActionOKCase = 1 Var PayInfoCFlag = 1 EndIf EndIf VendingQR OFF EndIf If CancelCounter >= 43 Then Var ChangeOK = 1 EndIf ; This copy in file menu_catalog.xml If ChangeOK = 1 Then If ActionOKCase = 0 Then If Seeker.TNumberTaobinCredit = "" Then Var TelephoneNumber = "0899999999" Var PayO2 = "" Else Var TelephoneNumber = Seeker.TNumberTaobinCredit Var PayO2 = Seeker.CoffeePinNumber EndIf DEBUGVAR "TUBEKUNG" Var VendingDiscount = 0 Var VendingCampaign = 0 Var ServiceType = "credit" Var SessionID2 = SelectDrink Var ServiceCredit = "coffee" Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate Var ActionOKCase = 1 If Seeker.IntVendingCampaign = 0 Then Open "ROOT/taobin_project/xml/page_catalog.xml" EndIf EndIf EndIf EndIf ;Var CoinInCounter = CoinInCounter + 1 ;If CoinInOK = 1 Then ; If CoinInCounter = 3 Then ; ; Var RemainAmount = PayAmount - CoinAmount ; If CoinAmount >= PayAmount Then ; Var Canout = CoinAmount - PayAmount ; If Canout > 0 Then ; Change Canout ; Else ; Var ChangeOK = 1 ; EndIf ; ; Var Timeout = 118 ; Var PayOK = 1 ; ; MakeDrinkV1 SelectDrink SelectSugarID ; ; Open "ROOT/taobin_project/xml/page_thankyou.xml" ; ; EndIf ; EndIf ;EndIf Refresh TimerReset If ChangeStatus = "payout-end" Then Var ChangeOK = 1 EndIf TimerReset If CoinInFlag = 0 Then ;VendingQR OFF Var alphaState = "Invisible" EndIf ;If Seeker.StoreCreditFlag = 1 Then ; Var ViewBill = 0 ;EndIf Var CoinInFlag = 1 If ViewBill > 0 Then If PayOfflineMode = 1 Then CoinVending BILLREJECT Else Var RemainAmount = PayAmount - CoinAmount Var RemainAmount = RemainAmount - Seeker.IntVendingCampaign Var RemainAmount = RemainAmount - Seeker.IntVendingCredit If ViewBill > RemainAmount Then Var RemainAmountKeep = ViewBill - RemainAmount Else Var RemainAmountKeep = ViewBill EndIf Var Timeout = 0 Var RemainAmountStr = "" + RemainAmount Var showRemaining = charOfBaht + RemainAmountStr Var alphaState3 = "Enable" EndIf Else If CoinInOK = 0 Then Var RemainAmount = PayAmount - CoinAmount Var RemainAmount = RemainAmount - Seeker.IntVendingCampaign Var RemainAmount = RemainAmount - Seeker.IntVendingCredit Var SumCoinAmount = CoinAmount + Seeker.IntVendingCampaign Var SumCoinAmount = SumCoinAmount + Seeker.IntVendingCredit If SumCoinAmount >= PayAmount Then ;Var VendingQRCode = "ERROR" CoinVending OFF VendingQR OFF Var Canout = SumCoinAmount - PayAmount If Canout = 0 Then Var RemainAmountStr = 0 Else Var RemainAmountStr = "ทอน " + Canout EndIf Var CancleState = "Disable" Var CoinInOK = 1 Var CoinInCounter = 0 Else Var RemainAmountStr = "" + RemainAmount EndIf Var Timeout = 0 ;Var RemainAmount = 0 Var showRemaining = charOfBaht + RemainAmountStr Var alphaState2 = "Enable" EndIf EndIf Refresh If CoinInFlag = 1 Then If CoinInOK = 0 Then If CancelFlag = 0 Then Cart "DeleteMenuID" "ALL" Var CART_COUNT=0 SAVELOG "VDCancle > Cancle Order." CoinVending OFF Var CancelFlag = 1 Var cancelState = "Enable" Var CancelCounter = 0 ;Var showRemaining = "คืนเงิน" ;Open "ROOT/taobin_project/xml/page_catalog.xml" Var showRemaining = charOfBaht + "0" If FlagQROpened = 1 Then Var CancelNumber = 12 EndIf EndIf EndIf ;VendingQR OFF Refresh If ViewBill > 0 Then CoinVending BILLREJECT EndIf EndIf VendingQR OFF DEBUGVAR CART1_PICTURE DEBUGVAR CART2_PICTURE DEBUGVAR CART3_PICTURE DEBUGVAR CART1_PDCODE DEBUGVAR CART2_PDCODE DEBUGVAR CART3_PDCODE DEBUGVAR CART1_NAME_ENG DEBUGVAR CART2_NAME_ENG DEBUGVAR CART3_NAME_ENG DEBUGVAR CART1_NAME_THAI DEBUGVAR CART2_NAME_THAI DEBUGVAR CART3_NAME_THAI DEBUGVAR CART1_PRICE DEBUGVAR CART2_PRICE DEBUGVAR CART3_PRICE Var cartNumText = "" + CART_COUNT If show_eng = "true" Then Var cartNumText = cartNumText + " cups" Else Var cartNumText = cartNumText + " แก้ว" EndIf Var cart1_pic = "" Var cart2_pic = "" Var cart3_pic = "" Var cart1_name = "" Var cart2_name = "" Var cart3_name = "" Var cart1_price = "" Var cart2_price = "" Var cart3_price = "" Var cart1_en = "Invisible" Var cart2_en = "Invisible" Var cart3_en = "Invisible" Var PriceDrinkMulti = 0 If CART_COUNT >= 1 Then Var cart1_pic = "ROOT/taobin_project/image/page_drink/" + CART1_PICTURE Var cart1_name = CART1_NAME_THAI Var cart1_price = "" + CART1_PRICE Var cart1_en = "Enable" Var PriceDrinkMulti = CART1_PRICE EndIf If CART_COUNT >= 2 Then Var cart2_pic = "ROOT/taobin_project/image/page_drink/" + CART2_PICTURE Var cart2_name = CART2_NAME_THAI Var cart2_price = "" + CART2_PRICE Var cart2_en = "Enable" Var PriceDrinkMulti = PriceDrinkMulti + CART2_PRICE EndIf If CART_COUNT = 3 Then Var cart3_pic = "ROOT/taobin_project/image/page_drink/" + CART3_PICTURE Var cart3_name = CART3_NAME_THAI Var cart3_price = "" + CART3_PRICE Var cart3_en = "Enable" Var PriceDrinkMulti = PriceDrinkMulti + CART3_PRICE EndIf Var ServiceAmountSum = PriceDrinkMulti If CART_COUNT >= 1 Then Var SelectDrink = "00-00-00-0000" Var DiscountDrink = 0 Var SelectSlot = "" + CART_COUNT SAVELOG BoxID Var QRCODE1 = "A000000677010112" Var QRCODE2 = "010755600066301" Var QRCODE3 = "VDGN" Var QRCODE4 = BoxID Var QRCODE5 = SelectSlot Var QRCODE6 = SelectDrink Var QRCODE7 = PriceDrinkMulti Var QRCODE8 = "" Var SessionID2 = SelectSlot + ":" Var SessionID2 = SessionID2 + "00000" Var CreditAmount1 = "" Var ServiceAmountFlow = "" Var TelephoneNumberQR = "0899999999" Var ServiceType = "coffee-multi" Var ECommerceQR = "" Var ECommerceQR = ECommerceQR + PriceDrinkMulti Var ECommerceQR = ECommerceQR + "/" Var ECommerceQR = ECommerceQR + DiscountDrink Var ECommerceQR = ECommerceQR + "/" Var ECommerceQR = ECommerceQR + SessionID2 Var ECommerceQR = ECommerceQR + "/" Var ECommerceQR = ECommerceQR + SelectDrink Var ECommerceQR = ECommerceQR + "/" Var ECommerceQR = ECommerceQR + "KBA:2" Var ServiceParameter = "max" Var ServiceCharge = 0 Var AccountType = "new" Var testservice = "kbank" Var tc = "" Var GetScore = "" Var OperatorName = "" Var SessionID = "" ;GetPayInfo TelephoneNumberQR ECommerceQR ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc Var Timeout = 0 Var QRCODE99 = "" Var QRCODETMP = "" ;Var ReqPayInfoFlag = 1 Open "ROOT/taobin_project/xml/page_payment_cashMore.xml" Else ;Open "ROOT/taobin_project/xml/page_catalog.xml" Var showRemaining = charOfBaht + "0" If CancelFlag = 0 Then SAVELOG "EventCart > Cancle All Order." CoinVending OFF Var CancelFlag = 1 Var cancelState = "Enable" Var CancelCounter = 0 If FlagQROpened = 1 Then Var CancelNumber = 12 EndIf EndIf Refresh EndIf ; ; 0 ; 0 ; "ROOT/taobin_project/image/ad_medium_2.png" ; ; back ; ; 19 ; 420 ; "ROOT/taobin_project/image/page2/bn_back_arrow.png" ; "ROOT/taobin_project/image/page2/bn_back_arrow.png" ; "/mnt/sdcard/coffeevending/wav/click.wav" ; SoundVolume ; ; ; If CoinInOK = 0 Then ; If CancelFlag = 0 Then ; SAVELOG "ButtonCancleMain > Cancle Order." ; CoinVending OFF ; Var CancelFlag = 1 ; Var CancelCounter = 0 ; ; If FlagQROpened = 1 Then ; Var CancelNumber = 12 ; EndIf ; ; EndIf ; EndIf ; ; ; 0 1172 Var( DirImage + "/Rectangle0.png" ) 0 1012 Var( DirImage + "/Rectangle.png" ) 0 1172 AddOrderState Var( DirImage + "/bn_add_order.png" ) Var( DirImage + "/bn_add_order.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume If CoinInFlag = 0 Then VendingQR OFF If Seeker.IntVendingCredit > 0 Then Var BmiYear = Seeker.IntVendingCredit Var GetScore = "useCredit" AddData 24 Seeker.TNumberTaobinCredit BmiYear PointCrm GetScore Var Seeker.IntVendingCredit = 0 EndIf If Seeker.CodeChannel = 1 Then Var SessionID2 = SelectSlot + ":" Var SessionID2 = SessionID2 + Seeker.ExtendData Var CreditAmount1 = "" Var ServiceAmountFlow = "" Var TelephoneNumber = "0899999999" Var ServiceType = "coffee" Var ECommerce = "" Var ECommerce = ECommerce + PriceDrinkMulti 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 + Seeker.VendingCode Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + Seeker.CodeNumber Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + "C:" Var ECommerce = ECommerce + Seeker.IntVendingCampaign 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 EndIf Open "ROOT/taobin_project/xml/page_catalog.xml" EndIf X_CASH 1255 PayState1 FilenameShowbuttonCashBN FilenameShowbuttonCashBP FilenameShowbuttonCashBP "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume If alphaState = "Invisible" Then If EnoughChange = "yes" Then Var alphaState2 = "Enable" If RoadShow = "true" Then Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif" Var MachineStage = "make-drink" Var BrewingTextThai = "เตรียมแก้ว" MakeDrinkV1 SelectDrink SelectSugarID Open "ROOT/taobin_project/xml/page_thankyou.xml" ;Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate EndIf Else Var alphaState3 = "Enable" Refresh EndIf EndIf 804 1255 PayState2 Var( DirImage + pay_with_code_imagebn) Var( DirImage + pay_with_code_imagebp) Var( DirImage + pay_with_code_imagebp) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume If alphaState = "Invisible" Then If CoinInFlag = 0 Then If CancelFlag = 0 Then Var TelephoneNumber = "" Var Tel_Confirm_State = "Disable" Open "ROOT/taobin_project/xml/page_payment_code.xml" EndIf EndIf EndIf 308 1255 PayState3 Var( DirImage + "/bn_prompt_pay.png") Var( DirImage + "/bp_prompt_pay.png") Var( DirImage + "/bp_prompt_pay.png") "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume If Timeout < 120 Then If CoinInFlag = 0 Then If CancelFlag = 0 Then Var QR_POPUP = "/img_popup1.png" Var LOADING_STATE = "Enable" Var FlagQROpened = 1 Var alphaState = "Enable" ;CoinVending OFF VendingQR ON Var SessionID2 = SelectSlot + ":" Var SessionID2 = SessionID2 + "00000" Var CreditAmount1 = "" Var ServiceAmountFlow = "" Var TelephoneNumberQR = "0899999999" Var ServiceType = "coffee-multi" Var ECommerceQR = "" Var ECommerceQR = ECommerceQR + PriceDrinkMulti Var ECommerceQR = ECommerceQR + "/" Var ECommerceQR = ECommerceQR + DiscountDrink Var ECommerceQR = ECommerceQR + "/" Var ECommerceQR = ECommerceQR + SessionID2 Var ECommerceQR = ECommerceQR + "/" Var ECommerceQR = ECommerceQR + SelectDrink Var ECommerceQR = ECommerceQR + "/" Var ECommerceQR = ECommerceQR + "KBA:2/" If Seeker.IntVendingCampaign > 0 Then Var ECommerceQR = ECommerceQR + Seeker.VendingCode Var ECommerceQR = ECommerceQR + ":" Var ECommerceQR = ECommerceQR + Seeker.CodeNumber Var ECommerceQR = ECommerceQR + ":" Var ECommerceQR = ECommerceQR + Seeker.VendingCampaignRI3 EndIf If Seeker.IntVendingCredit > 0 Then Var ECommerceQR = ECommerceQR + "CRD" Var ECommerceQR = ECommerceQR + ":" Var ECommerceQR = ECommerceQR + Seeker.TNumberTaobinCredit Var ECommerceQR = ECommerceQR + ":" Var ECommerceQR = ECommerceQR + Seeker.IntVendingCredit Var ECommerceQR = ECommerceQR + ":" Var ECommerceQR = ECommerceQR + PointCrm EndIf Var ServiceParameter = "max" Var ServiceCharge = 0 Var AccountType = "new" Var testservice = "kbank" Var tc = "" Var GetScore = "" Var OperatorName = "" Var SessionID = "" GetPayInfo TelephoneNumberQR ECommerceQR ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc Var ReqPayInfoFlag = 1 Refresh ;If CoinAmount > 0 Then ; Change CoinAmount ; Var ChangeOK = 0 ; Var CancelFlag = 1 ; Var CancelCounter = 0 ; Var NoGotoMenupage = "true" ; ;EndIf EndIf EndIf EndIf ; If CoinInFlag = 0 Then ; Var BG_Menu_Page4 = "ROOT/image/BG_PromptPay_Page4.bmp" ; Var PayState1 = "Enable" ; Var PayState2 = "PressForever" ; Var QRChannel = 1 ; Open "ROOT/taobin_project/xml/page_payment_qr.xml" ; ; EndIf 556 1255 PayState4 Var( DirImage + "/bn_pay_with_credit.png") Var( DirImage + "/bp_pay_with_credit.png") Var( DirImage + "/bp_pay_with_credit.png") "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume If alphaState = "Invisible" Then If CoinInFlag = 0 Then If CancelFlag = 0 Then Var TelephoneNumber = "" Var Tel_Confirm_State = "Disable" Open "ROOT/taobin_project/xml/page_payment_credit.xml" EndIf EndIf EndIf ;431 418 1503 PayState5 Var( DirImage + "/bn_pay_with_shoppy.png") Var( DirImage + "/bp_pay_with_shoppy.png") Var( DirImage + "/bp_pay_with_shoppy.png") "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume If CoinInFlag = 0 Then If CancelFlag = 0 Then Var QR_POPUP = "/img_popup2.png" Var LOADING_STATE = "Enable" Var QRCODE99 = "" Var FlagQROpened = 1 Var alphaState = "Enable" ;CoinVending OFF VendingQR ON Var SessionID2 = SelectSlot + ":" Var SessionID2 = SessionID2 + Seeker.ExtendData Var CreditAmount1 = "" Var ServiceAmountFlow = "" Var TelephoneNumberQR = "0899999999" Var ServiceType = "coffee-multi" Var ECommerceQR = "" Var ECommerceQR = ECommerceQR + PriceDrinkMulti Var ECommerceQR = ECommerceQR + "/" Var ECommerceQR = ECommerceQR + DiscountDrink Var ECommerceQR = ECommerceQR + "/" Var ECommerceQR = ECommerceQR + SessionID2 Var ECommerceQR = ECommerceQR + "/" Var ECommerceQR = ECommerceQR + SelectDrink Var ECommerceQR = ECommerceQR + "/" Var ECommerceQR = ECommerceQR + "AIR:2/" Var ServiceParameter = "max" Var ServiceCharge = 0 Var AccountType = "new" Var testservice = "kbank" Var tc = "" Var GetScore = "" Var OperatorName = "" Var SessionID = "" GetPayInfo TelephoneNumberQR ECommerceQR ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc Var ReqPayInfoFlag = 2 Refresh EndIf EndIf ;680 170 1503 PayState5 Var( DirImage + "/bn_pay_with_true.png") Var( DirImage + "/bp_pay_with_true.png") Var( DirImage + "/bp_pay_with_true.png") "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume If CoinInFlag = 0 Then If CancelFlag = 0 Then Var QR_POPUP = "/img_popup3.png" Var LOADING_STATE = "Enable" Var QRCODE99 = "" Var FlagQROpened = 1 Var alphaState = "Enable" ;CoinVending OFF VendingQR ON Var SessionID2 = SelectSlot + ":" Var SessionID2 = SessionID2 + Seeker.ExtendData Var CreditAmount1 = "" Var ServiceAmountFlow = "" Var TelephoneNumberQR = "0899999999" Var ServiceType = "coffee-multi" Var ECommerceQR = "" Var ECommerceQR = ECommerceQR + PriceDrinkMulti Var ECommerceQR = ECommerceQR + "/" Var ECommerceQR = ECommerceQR + DiscountDrink Var ECommerceQR = ECommerceQR + "/" Var ECommerceQR = ECommerceQR + SessionID2 Var ECommerceQR = ECommerceQR + "/" Var ECommerceQR = ECommerceQR + SelectDrink Var ECommerceQR = ECommerceQR + "/" Var ECommerceQR = ECommerceQR + "TWN:2/" Var ServiceParameter = "max" Var ServiceCharge = 0 Var AccountType = "new" Var testservice = "kbank" Var tc = "" Var GetScore = "" Var OperatorName = "" Var SessionID = "" GetPayInfo TelephoneNumberQR ECommerceQR ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc Var ReqPayInfoFlag = 3 Refresh EndIf EndIf 173 1503 "Invisible" Var( DirImage + "/bn_pay_with_linepay.png") Var( DirImage + "/bp_pay_with_linepay.png") Var( DirImage + "/bp_pay_with_linepay.png") "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume 666 1503 PayState2 Var( DirImage + "/bn_pay_with_codeOther.png") Var( DirImage + "/bp_pay_with_codeOther.png") Var( DirImage + "/bp_pay_with_codeOther.png") "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume If alphaState = "Invisible" Then If CoinInFlag = 0 Then If CancelFlag = 0 Then Var TelephoneNumber = "" Var Tel_Confirm_State = "Disable" Open "ROOT/taobin_project/xml/page_payment_codeOther.xml" EndIf EndIf EndIf 287 1781 CancleState Var( DirImage + "/bn_cancel_all.png") Var( DirImage + "/bp_cancel_all.png") Var( DirImage + "/bp_cancel_all.png") "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume If CoinInOK = 0 Then If CancelFlag = 0 Then Cart "DeleteMenuID" "ALL" Var CART_COUNT = 0 SAVELOG "ButtonCancleMain > Cancle All Order." CoinVending OFF Var CancelFlag = 1 Var cancelState = "Enable" Var CancelCounter = 0 If FlagQROpened = 1 Then Var CancelNumber = 12 EndIf EndIf EndIf 60 412 148 200 cart1_pic 876 467 1080 50 KanitMediumTTF 0xDE794E cart1_price 236 470 1080 50 KanitMediumTTF 0x513C2F cart1_name 1016 500 cart1_en "ROOT/taobin_project/image/page_payment/iconX.png" If CoinInFlag = 0 Then If Seeker.IntVendingCredit > 0 Then Var BmiYear = Seeker.IntVendingCredit Var GetScore = "useCredit" AddData 24 Seeker.TNumberTaobinCredit BmiYear PointCrm GetScore Var Seeker.IntVendingCredit = 0 EndIf Cart "DeleteMenuID" 1 EndIf 60 612 148 200 cart2_pic 876 667 1080 50 KanitMediumTTF 0xDE794E cart2_price 236 670 1080 50 KanitMediumTTF 0x513C2F cart2_name 1016 700 cart2_en "ROOT/taobin_project/image/page_payment/iconX.png" If CoinInFlag = 0 Then If Seeker.IntVendingCredit > 0 Then Var BmiYear = Seeker.IntVendingCredit Var GetScore = "useCredit" AddData 24 Seeker.TNumberTaobinCredit BmiYear PointCrm GetScore Var Seeker.IntVendingCredit = 0 EndIf Cart "DeleteMenuID" 2 EndIf 60 812 148 200 cart3_pic 876 872 1080 50 KanitMediumTTF 0xDE794E cart3_price 236 872 1080 50 KanitMediumTTF 0x513C2F cart3_name 1016 900 cart3_en "ROOT/taobin_project/image/page_payment/iconX.png" If CoinInFlag = 0 Then If Seeker.IntVendingCredit > 0 Then Var BmiYear = Seeker.IntVendingCredit Var GetScore = "useCredit" AddData 24 Seeker.TNumberTaobinCredit BmiYear PointCrm GetScore Var Seeker.IntVendingCredit = 0 EndIf Cart "DeleteMenuID" 3 EndIf 876 1038 1080 72 KanitMediumTTF 0xDE794E showRemaining 80 1038 1080 72 KanitMediumTTF 0x513C2F cartNumText ; QR popup 0 380 alphaState "ROOT/taobin_project/image/page_payment/alpha.png" 249 748 alphaState Var( DirImage + QR_POPUP ) 493 968 94 94 LOADING_STATE Var( DirImage + "/loading.gif" ) 267 1065 LOADING_STATE Var( DirImage + "/loadingText.png" ) 438 1345 alphaState Var( DirImage + "/bn_cancel.png" ) Var( DirImage + "/bp_cancel.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume Var LOADING_STATE = "Invisible" Var QRErrorState = "Invisible" Var alphaState = "Invisible" Var QRCODE99 = "" ;CoinVending ON ;VendingQR OFF Refresh ; begin cash popup 0 380 alphaState2 "ROOT/taobin_project/image/page_payment/alpha.png" 182 748 alphaState2 Var( DirImage2 + "/img_popup11.png" ) 438 1345 alphaState2 Var( DirImage + "/bn_cancel.png" ) Var( DirImage + "/bp_cancel.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume If CoinInOK = 0 Then If CancelFlag = 0 Then Cart "DeleteMenuID" "ALL" SAVELOG "ButtonCancleAlpha2 > Cancle Order." Var CART_COUNT = 0 CoinVending OFF Var CancelFlag = 1 Var cancelState = "Enable" Var CancelCounter = 0 If FlagQROpened = 1 Then Var CancelNumber = 12 EndIf EndIf EndIf Var alphaState2 = "Invisible" Refresh 0 1041 144 Center 1080 KanitRegularTTF alphaState2 0xDE794E RemainAmountStr ; end case popup 0 380 alphaState3 "ROOT/taobin_project/image/page_payment/alpha.png" 182 748 alphaState3 Var( DirImage2 + "/img_popup12.png" ) 327 1208 alphaState3 Var( DirImage2 + "/bn_keep.png" ) Var( DirImage2 + "/bp_keep.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume Open "ROOT/taobin_project/xml/page_payment_storeCredit.xml" 327 1335 alphaState3 Var( DirImage2 + "/bn_cancel2.png" ) Var( DirImage2 + "/bp_cancel2.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume CoinVending BILLREJECT Var alphaState3 = "Invisible" Refresh ; ; 0 ; 1041 ; 100 ; Center ; 1080 ; KanitRegularTTF ; alphaState3 ; 0xDE794E ; RemainAmountKeep ; 270 1000 550 Center 30 KanitRegularTTF alphaState 0xFF0000 CashTextWarning 399 905 WQR HQR alphaState testservice 267 960 QRErrorState Var( DirImage + "/QRError.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume 0 380 cancelState Var( DirImage + "/CancelOrder.png" ) 493 960 94 94 cancelState Var( DirImage + "/loading.gif" ) Open "/media/bt/xml/security_alarm.xml" ; ; 0 ; 1880 ; 14 ; "Left" ; 1080 ; KanitThinTTF ; 0x513C2F ; SelectDrink ; 0 1870 ShowNetworkProblem "0xFF0000" 1080 60 5 1880 24 Center 1080 RobotoRegular 0xFFFFFF ShowNetworkProblemText 870 1860 200 50 "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume Var countClick2 = countClick2 + 1 If countClick2 = 3 Then EndIf If countClick2 = 5 Then If IgnoreNetCore = "true" Then ;Var MachineStage = "make-drink" ; make drink MakeDrinkV1 SelectDrink Seeker.ExtendData Open "ROOT/taobin_project/xml/page_thankyou.xml" ;Var UnitTestType = "1" Var UnitTestType = "2" ;Open "ROOT/taobin_project/xml/page_show_consent2.xml" ;Open "ROOT/taobin_project/xml/page_payment_code.xml" ;Open "ROOT/taobin_project/xml/page_thankyou.xml" ;Open "ROOT/taobin_project/xml/page_collect_point_1.xml" ; show consent ;Open "ROOT/taobin_project/xml/page_show_consent.xml" ;Open "ROOT/taobin_project/xml/page_drinkok.xml" ;Var CoffeePoint = 11 ;Open "ROOT/taobin_project/xml/page_collect_point_3.xml" ;Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_back_to_error.xml" EndIf EndIf Refresh