"Enable" 1080 1920 "0xeae6e1" SoundVolume PlaySoundLag ;HKG doesn't use New_Payment Var New_Payment = 0 Var cash_disable = "0" READ_FILE "/mnt/sdcard/coffeevending/cash_disable" cash_disable DEBUGVAR cash_disable SAVELOG "page_payment_cach-HKG.xml" Var PreScaleCanculate = 100 Var CashlessPayFlag = 0 Var RemainAmountStrENG = "" Var AdultState = "Invisible" Var AdultState1 = "Invisible" Var AdultState2 = "Invisible" Var AdultState3 = "Invisible" ;Var AdultFlag = 0 Var AdultFlag2 = 0 If AdultFlag = 1 Then Var AdultFlag = 0 DEBUGVAR SystemDate Var sdate = "" Var sdate = SystemDate Var sdateday = "" Var sdatemonth = "" Var sdateyear = "" SPLIT sdate "/" 1 sdateday SPLIT sdate "/" 2 sdatemonth SPLIT sdate "/" 3 sdateyear INT sdateday INT sdatemonth INT sdateyear READCARDID Var AdultState = "Enable" Var AdultState1 = "Enable" Var countAdultS2 = 0 Var AdultFlag2 = 1 EndIf Var ReqPayInfoFlag2 = 0 DEBUGVAR QRCODETMP DEBUGVAR IsSmoRet ;SAVELOG SelectDrink ;SAVELOG NameDrink ;SAVELOG NameDrinkTH ;SAVELOG DrinkDescription SAVELOG PriceDrink ;SAVELOG topping1 ;SAVELOG topping2 ;SAVELOG topping3 DEBUGVAR SelectDrink DEBUGVAR video_menu_0 Var FlagQROpened = 0 Var PayInfoCFlag = 0 Var ActionOKCase = 0 Var VendingCampaign = Seeker.IntVendingCampaign Var Seeker.VendingCampaign = Seeker.IntVendingCampaign Var PayAmount = PriceDrink Var LOADING_STATE = "Invisible" Var AlphaLoadingState = "Invisible" Var AlphaPopupLoadingState = "Invisible" ; Below original ; On open Var cancelState = "Invisible" Var alphaState = "Invisible" Var alphaState2 = "Invisible" Var alphaState3 = "Invisible" Var alphaState3_offline = "Invisible" Var CoinInFlag = 0 ;Var CoinAmount = 0 Var CancelFlag = 0 Var CancelCounter = 0 Var CoinInCounter = 0 Var CancelNumber = 3 Var CreditCardButtonState = "Disable" Var QRCodeButtonState = "Disable" Var CodeButtonState = "Disable" Var PayAmount = PriceDrink 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 showRemaining !assigned StringFmt( RemainAmount, DisplayFormat, PreScaleConvertShow ) Var VendingREFID = "" Var TelephoneNumber = "0899999999" Var ServiceType = "coffee" Var ServiceCredit = SelectDrink Var ServiceAmount2 = PayAmount Var Seeker.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 DEBUGVAR QRCODE99 SAVELOG VendingCampaign SAVELOG Seeker.VendingCode SAVELOG Seeker.CodeChannel If Seeker.VendingCode = "C00" Then Var Seeker.CodeChannel = 0 EndIf Var ExtendData = Seeker.ExtendData DEBUGVAR QRCODE99KBANK If RoadShow = "true" Then Var CreditCardButtonState = "Invisible" Var QRCodeButtonState = "Invisible" Var CodeButtonState = "Invisible" Var showRemaining = "Free" Else Var CreditCardButtonState = "Enable" Var QRCodeButtonState = "Enable" If Seeker.IntVendingCampaign = 0 Then Var CodeButtonState = "Enable" Else SAVELOG "CreditCard and QRCode only IntVendingCampaign" Var CodeButtonState = "Disable" EndIf If Seeker.IntVendingCredit > 0 Then SAVELOG "CreditCard and QRCode only IntVendingCredit" Var CodeButtonState = "Disable" EndIf Var showRemaining = charOfBaht + RemainAmountStr If show_eng = "true" Then Var showRemaining = charOfBaht + RemainAmountStr Else Var showRemaining = RemainAmountStr + " บาท" EndIf Var showRemaining !assigned StringFmt( RemainAmount, DisplayFormat, PreScaleConvertShow ) EndIf Var Seeker.PayWithQR = 0 Var NoGotoMenupage = "false" If GetFreeFromError = 1 Then Var Seeker.FreeVendingCampaign = 1 CoinVending OFF If Seeker = "curr" Then MakeDrinkV1 SelectDrink SelectSugarID Var TxRef1 = "" CreateTxRef1 TxRef1 Else Var TxRef1 = "" CreateTxRef1 TxRef1 Var DrinkPaid = SelectDrink Var PaidPaymentFromNextStage = 1 EndIf DEBUGVAR UserChoosePayment Var UserChoosePayment = "" Open "ROOT/taobin_project/xml/page_thankyou.xml" EndIf If Seeker.FreeVendingCampaign = 1 Then Var RemainAmountStr = "Free###size=150" CoinVending OFF If Seeker = "curr" Then If New_Payment = 1 Then __CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID EndIf MakeDrinkV1 SelectDrink SelectSugarID Var TxRef1 = "" CreateTxRef1 TxRef1 Else Var TxRef1 = "" CreateTxRef1 TxRef1 Var DrinkPaid = SelectDrink Var PaidPaymentFromNextStage = 1 EndIf 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 Var SumCoinAmount = CoinAmount + Seeker.IntVendingCredit 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 Var RemainAmountStr !assigned StringFmt( Canout, DisplayFormat, PreScaleConvertShow ) Else If show_eng = "true" Then ;Var RemainAmountStr = "Change " + Canout ;Var RemainAmountStr = RemainAmountStr + "###size=90" Var RemainAmountStr !assigned StringFmt( Canout, DisplayFormat, PreScaleConvertShow ) Var RemainAmountStr = "Change " + RemainAmountStr Var RemainAmountStr = RemainAmountStr + "###size=90" Else Var RemainAmountStr = "ทอน " + Canout EndIf EndIf Var CancleState = "Disable" Var CoinInOK = 1 Var CoinInCounter = 0 Else Var RemainAmountStr = "" + RemainAmount Var RemainAmountStr !assigned StringFmt( RemainAmount, DisplayFormat, PreScaleConvertShow ) EndIf ;Var RemainAmount = 0 Var showRemaining = charOfBaht + RemainAmountStr If RoadShow = "true" Then Var showRemaining = "Free" EndIf Var showRemaining !assigned StringFmt( RemainAmount, DisplayFormat, PreScaleConvertShow ) EndIf Var UserChoosePayment = "" Var EnablingCountDown = 0 Var EnablingCreditCard = 0 Var EnablingQRCode = 0 Var RequestCreditCardCountDown = 0 Var RequestQRCodeCountDown = 0 Var SwitchingCreditCardToQRCode = 0 Var SwitchingQRCodeToCreditCard = 0 Var SwitchingContDown = 0 ;Var FirstTimeDelayEnableButton = 1 ;Var FirstTimeDelayEnableButtonCountDown = 5 ;If CoinInFlag = 0 Then ; If CancelFlag = 0 Then ; If CreditCardButtonState = "Enable" Then ; Coin CARD ; Var UserChoosePayment = "CreditCard" ; Var CreditCardButtonState = "Disable" ; Var QRCodeButtonState = "Disable" ; Var LOADING_STATE = "Enable" ; Var AlphaLoadingState = "Enable" ; Var EnablingCreditCard = 1 ; Var EnablingCountDown = 5 ; Var RequestCreditCardCountDown = 1 ; EndIf ; EndIf ;EndIf If LanguageShow = "ENG" Then Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment" Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_en" Var DirQR_popup = "ROOT/taobin_project/inter/hkg/image/page_payment" Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png" EndIf If LanguageShow = "MSC" Then Var DirImage = "ROOT/taobin_project/inter/hkg/image/page_payment_msc/page_payment" Var DirImage2 = "ROOT/taobin_project/inter/hkg/image/page_payment_cash_extend_msc" Var DirQR_popup = DirImage Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png" EndIf If LanguageShow = "MTC" Then Var DirImage = "ROOT/taobin_project/inter/hkg/image/page_payment_mtc/page_payment" Var DirImage2 = "ROOT/taobin_project/inter/hkg/image/page_payment_cash_extend_mtc" Var DirQR_popup = DirImage 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 If IgnoreNetCore = "true" Then Else SAVELOG "Offline in page_payment_cash-HKG" ;include="ROOT/taobin_project/inc/return_condition.ev" EndIf Var PayState2 = "Disable" Var PayState3 = "Disable" Var PayState4 = "Disable" Var PayState5 = "Disable" Var PayState6 = "Disable" Var PayOfflineMode = 1 Var ShowNetworkProblem = "Enable" Var ShowButtonClick2 = "Invisible" Else Var PayOfflineMode = 0 Var ShowNetworkProblem = "Invisible" Var ShowNetworkProblemText = "" EndIf DEBUGVAR NOCashFlag ;cancel order If SELLSTATUS = "DEACTIVE" Then Var SELLONLINE = 1 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 If DisableUsingCode = "-" Then SAVELOG "Diable code because using topping." Var CodeButtonState = "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 Machine DoorClose If web_readyOK = "true" Then Var web_readyOK = "false" If web_payment = "CASH" Then Var alphaState2 = "Enable" EndIf EndIf __CMD "prepar-cup-from-order" 0 "-" "-" ;Open "ROOT/taobin_project/xml/page_page_camera.xml" ;Disable taobin credit Var TopRowY = 1297 Var BotRowY = 1499 Var CancelContinue = 0 Var VendingQRTypeResult = "" DEBUGVAR ECommerceQR SPLIT ECommerceQR "/" 5 VendingQRTypeResult SAVELOG "Event -> ActionOK" DEBUGVAR UserChoosePayment 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 If ReqPayInfoFlag2 = 1 Then DEBUGVAR VendingBank Var Seeker.CampaignPayChanel = "malaymbb" EndIf If ReqPayInfoFlag2 = 2 Then Var Seeker.CampaignPayChanel = "shopee" EndIf If ReqPayInfoFlag2 = 3 Then Var Seeker.CampaignPayChanel = "true" EndIf If ReqPayInfoFlag2 = 4 Then Var Seeker.CampaignPayChanel = "dolfin" EndIf If ReqPayInfoFlag2 = 5 Then Var Seeker.CampaignPayChanel = "linepay" EndIf If Seeker = "curr" Then MakeDrinkV1 SelectDrink SelectSugarID ;Var TxRef1 = "" ;CreateTxRef1 TxRef1 EndIf Var Seeker.PayWithQR = 1 Var Seeker.VendingTSID = VendingTSID Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif" Var BrewingTextThai = "เตรียมแก้ว" DEBUGVAR UserChoosePayment Var UserChoosePayment = "" Open "ROOT/taobin_project/xml/page_thankyou.xml" EndIf If ReqPayInfoFlag = 1 Then If VendingQRTypeResult = "MBB: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 Var ReqPayInfoFlag2 = 1 SAVELOG QRCODE99KBANK SAVELOG Ext21 Var QRCODE99 = QRCODE99KBANK Var LOADING_STATE = "Invisible" Var AlphaPopupLoadingState = "Invisible" If show_eng = "true" Then PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Please_scan_to_pay_via_mobile.mp3" Else PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Please_scan_to_pay_via_mobile.mp3" EndIf EndIf If VendingQRTypeResult = "IND: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 Var ReqPayInfoFlag2 = 1 SAVELOG QRCODE99KBANK SAVELOG Ext21 Var QRCODE99 = QRCODE99KBANK Var LOADING_STATE = "Invisible" Var AlphaPopupLoadingState = "Invisible" If show_eng = "true" Then PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Please_scan_to_pay_via_e-wallet.mp3" Else PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Please_scan_to_pay_via_e-wallet.mp3" EndIf 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 Var ReqPayInfoFlag2 = 2 SAVELOG QRCODE99Shoppy SAVELOG Ext21 Var QRCODE99 = QRCODE99Shoppy Var LOADING_STATE = "Invisible" Var AlphaPopupLoadingState = "Invisible" If show_eng = "true" Then PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Please_scan_to_pay_via_e-wallet.mp3" Else PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Please_scan_to_pay_via_e-wallet.mp3" EndIf 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 Var ReqPayInfoFlag2 = 3 SAVELOG QRCODE99Shoppy SAVELOG Ext21 Var QRCODE99 = QRCODE99Shoppy Var LOADING_STATE = "Invisible" Var AlphaPopupLoadingState = "Invisible" If show_eng = "true" Then PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Please_scan_to_pay_via_e-wallet.mp3" Else PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Please_scan_to_pay_via_e-wallet.mp3" EndIf EndIf EndIf If ReqPayInfoFlag = 4 Then If VendingQRTypeResult = "DOL: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 Var ReqPayInfoFlag2 = 4 SAVELOG QRCODE99Shoppy SAVELOG Ext21 Var QRCODE99 = QRCODE99Shoppy Var LOADING_STATE = "Invisible" Var AlphaPopupLoadingState = "Invisible" If show_eng = "true" Then PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Please_scan_to_pay_via_e-wallet.mp3" Else PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Please_scan_to_pay_via_e-wallet.mp3" EndIf EndIf EndIf If ReqPayInfoFlag = 5 Then If VendingQRTypeResult = "LPY: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 Var ReqPayInfoFlag2 = 5 SAVELOG QRCODE99Shoppy SAVELOG Ext21 Var QRCODE99 = QRCODE99Shoppy Var LOADING_STATE = "Invisible" Var AlphaPopupLoadingState = "Invisible" If show_eng = "true" Then PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Please_scan_to_pay_via_e-wallet.mp3" Else PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Please_scan_to_pay_via_e-wallet.mp3" EndIf EndIf EndIf Else Var PayInfoCFlag = 1 EndIf DEBUGVAR VendingCashless If VendingCashless = "OK" Then DEBUGVAR CashlessCode Var Timeout = 0 Var QRErrorState = "Invisible" Var LOADING_STATE = "Invisible" Var AlphaPopupLoadingState = "Invisible" If ViewBill > 0 Then CoinVending BILLREJECT EndIf VendingQR OFF CoinVending OFF Refresh If Seeker = "curr" Then MakeDrinkV1 SelectDrink SelectSugarID EndIf Var Seeker.CreditCard = 1 Var Seeker.CreditCardRef = CreditCardRef DEBUGVAR UserChoosePayment Var UserChoosePayment = "" CashlessReq SUCCESS "" Open "ROOT/taobin_project/xml/page_thankyou.xml" EndIf DEBUGVAR UserChoosePayment If ActionOKCase = 0 Then If ReqPayInfoFlag = 1 Then Var QRErrorFlag = 1 If alphaState = "Enable" Then Var QRErrorState = "Enable" Var LOADING_STATE = "Invisible" Var AlphaPopupLoadingState = "Invisible" EndIf EndIf If ReqPayInfoFlag = 2 Then Var QRErrorFlag = 1 If alphaState = "Enable" Then Var QRErrorState = "Enable" Var LOADING_STATE = "Invisible" Var AlphaPopupLoadingState = "Invisible" EndIf EndIf If ReqPayInfoFlag = 3 Then Var QRErrorFlag = 1 If alphaState = "Enable" Then Var QRErrorState = "Enable" Var LOADING_STATE = "Invisible" Var AlphaPopupLoadingState = "Invisible" EndIf EndIf If ReqPayInfoFlag = 4 Then Var QRErrorFlag = 1 If alphaState = "Enable" Then Var QRErrorState = "Enable" Var LOADING_STATE = "Invisible" Var AlphaPopupLoadingState = "Invisible" EndIf EndIf Else Var PayInfoCFlag = 1 EndIf If VendingCashless = "ERROR" Then Var Timeout = 0 ;Var QRErrorFlag = 1 If alphaState = "Enable" Then Var QRErrorState = "Enable" Var LOADING_STATE = "Invisible" Var AlphaPopupLoadingState = "Invisible" EndIf EndIf Refresh SAVELOG "Event -> CashlessCard" DEBUGVAR VendingCashless DEBUGVAR UserChoosePayment DEBUGVAR CoinInFlag Refresh 1000 DEBUGVAR VendingCashless If ReadyForBrew = "false" Then SAVELOG "Back to main1" DEBUGVAR UserChoosePayment Var UserChoosePayment = "" Open "ROOT/taobin_project/xml/page_back_to_main.xml" EndIf If CamFlag = 1 Then Var CamCount = CamCount + 1 If CamCount > 2 Then facecompare 10 Var CamFlag = 0 Var CamCount = 0 EndIf EndIf If AdultState2 = "Enable" Then Var countAdultS2 = countAdultS2 + 1 If countAdultS2 > 60 Then Var AdultState2 = "Invisible" Var AdultState3 = "Enable" EndIf Else Var countAdultS2 = 0 EndIf Var Timeout = Timeout + 1 If Timeout >= 120 Then Var alphaState = "Invisible" If RoadShow = "true" Then Else Var CreditCardButtonState = "Disable" Var QRCodeButtonState = "Disable" EndIf Var LOADING_STATE = "Invisible" Var AlphaPopupLoadingState = "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 + 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 + 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 If Seeker = "curr" Then DEBUGVAR UserChoosePayment DEBUGVAR CancelContinue Var UserChoosePayment = "" If CancelContinue = 2 Then Open "ROOT/taobin_project/xml/page_payment.xml" EndIf Open "ROOT/taobin_project/xml/page_catalog.xml" Else DEBUGVAR UserChoosePayment Var UserChoosePayment = "" If CancelContinue = 2 Then Open "ROOT/taobin_project/xml/page_payment.xml" EndIf Open "ROOT/taobin_project/xml/page_brewing3Conti.xml" EndIf EndIf If TestLoopMakeDrink = 1 Then MakeDrinkV1 SelectDrink SelectSugarID DEBUGVAR UserChoosePayment Var UserChoosePayment = "" 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 >= 120 Then If PayOK = 1 Then If Seeker = "curr" Then MakeDrinkV1 SelectDrink SelectSugarID Var TxRef1 = "" CreateTxRef1 TxRef1 Else Var TxRef1 = "" CreateTxRef1 TxRef1 Var DrinkPaid = SelectDrink Var PaidPaymentFromNextStage = 1 EndIf DEBUGVAR UserChoosePayment Var UserChoosePayment = "" Open "ROOT/taobin_project/xml/page_thankyou.xml" Else If CancelFlag = 0 Then SAVELOG "Timeout > 120 s." If ViewBill > 0 Then CoinVending BILLREJECT EndIf CoinVending OFF Var CancelFlag = 1 Var cancelState = "Enable" If CashlessPayFlag = 1 Then CashlessReq VENDINGCANCEL "" SAVELOG "Cashless called VENDINGCANCEL" EndIf 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 Var Seeker.CurrCreditUse = 0 EndIf If Seeker.IntVendingCampaign = 0 Then VendingQR OFF If Seeker = "curr" Then DEBUGVAR UserChoosePayment Var UserChoosePayment = "" Open "ROOT/taobin_project/xml/page_catalog.xml" Else DEBUGVAR UserChoosePayment Var UserChoosePayment = "" Open "ROOT/taobin_project/xml/page_brewing3Conti.xml" EndIf 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 Var Seeker.CurrCreditUse = 0 EndIf Var CancelCounter = CancelCounter + 1 DEBUGVAR CancelCounter DEBUGVAR Seeker.StoreCreditFlag DEBUGVAR CancelNumber If CancelCounter = CancelNumber Then ;Change CoinAmount DEBUGVAR CoinAmount If CoinAmount > 0 Then DEBUGVAR Seeker.StoreCreditFlag If Seeker.StoreCreditFlag = 1 Then Var ChangeOK = 1 Else DEBUGVAR CoinAmount Change CoinAmount EndIf Else DEBUGVAR CancelContinue If ActionOKCase = 0 Then Var ActionOKCase = 1 Var PayInfoCFlag = 1 EndIf If CancelContinue = 1 Then Var CancelContinue = 2 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 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 PayCredit = 1 Var ActionOKCase = 1 If Seeker = "curr" Then If Seeker.IntVendingCampaign = 0 Then If Seeker = "curr" Then DEBUGVAR UserChoosePayment Var UserChoosePayment = "" Open "ROOT/taobin_project/xml/page_catalog.xml" Else DEBUGVAR UserChoosePayment Var UserChoosePayment = "" Open "ROOT/taobin_project/xml/page_brewing3Conti.xml" EndIf EndIf Else ;wait ack EndIf EndIf EndIf EndIf ;If FirstTimeDelayEnableButton = 1 Then ; If FirstTimeDelayEnableButtonCountDown = 0 Then ; Var CreditCardButtonState = "Enable" ; Var QRCodeButtonState = "Enable" ; Var LOADING_STATE = "Invisible" ; Var AlphaLoadingState = "Invisible" ; Var FirstTimeDelayEnableButton = 0 ; Else ; Var FirstTimeDelayEnableButtonCountDown = FirstTimeDelayEnableButtonCountDown - 1 ; EndIf ;EndIf If EnablingCreditCard = 1 Then If RequestCreditCardCountDown = 0 Then GenHashWithTimeStamp CreditCardRef ; 65535 mean Credit card Var CreditCardRef = CreditCardRef + "/65535" DEBUGVAR CreditCardRef Var RemainAmountX = PayAmount - Seeker.IntVendingCampaign CashlessPay RemainAmountX CreditCardRef Var CashlessPayFlag = 1 Var RequestCreditCardCountDown = -1 Else Var RequestCreditCardCountDown = RequestCreditCardCountDown - 1 EndIf If EnablingCountDown = 0 Then Var Timeout = 0 Var UserChoosePayment = "CreditCard" Var QR_POPUP = DirQR_popup + "/img_tap_card_5_sec.png" Var VendingCashless = "-" ;If FirstTimeDelayEnableButton = 0 Then ; Var LOADING_STATE = "Invisible" ; Var AlphaPopupLoadingState = "Invisible" ;EndIf Var LOADING_STATE = "Invisible" Var AlphaPopupLoadingState = "Invisible" Var EnablingCountDown = 0 Var EnablingCreditCard = 0 Else Var EnablingCountDown = EnablingCountDown - 1 EndIf EndIf If EnablingQRCode = 1 Then If RequestQRCodeCountDown = 0 Then GenHashWithTimeStamp CreditCardRef ; 0 mean QR code Var CreditCardRef = CreditCardRef + "/0" DEBUGVAR CreditCardRef Var RemainAmountX = PayAmount - Seeker.IntVendingCampaign CashlessPay RemainAmountX CreditCardRef Var CashlessPayFlag = 1 Var RequestQRCodeCountDown = -1 Else Var RequestQRCodeCountDown = RequestQRCodeCountDown - 1 EndIf If EnablingCountDown = 0 Then Var Timeout = 0 Var UserChoosePayment = "QRCode" Var QR_POPUP = DirQR_popup + "/img_use_qr_code.png" Var VendingCashless = "-" Var LOADING_STATE = "Invisible" Var AlphaPopupLoadingState = "Invisible" Var EnablingQRCode = 0 Var EnablingCountDown = 0 Else Var EnablingCountDown = EnablingCountDown - 1 EndIf EndIf If SwitchingCreditCardToQRCode = 1 Then If SwitchingContDown = 0 Then Coin CARD Var EnablingQRCode = 1 Var EnablingCountDown = 5 Var RequestCreditCardCountDown = 1 Var SwitchingCreditCardToQRCode = 0 Else Var SwitchingContDown = SwitchingContDown - 1 EndIf EndIf If SwitchingQRCodeToCreditCard = 1 Then If SwitchingContDown = 0 Then Coin CARD Var EnablingCreditCard = 1 Var EnablingCountDown = 5 Var RequestQRCodeCountDown = 1 Var SwitchingQRCodeToCreditCard = 0 Else Var SwitchingContDown = SwitchingContDown - 1 EndIf EndIf If CashlessClosingPopup = 1 Then If CashlessClosingPopupCountDown = 0 Then Var alphaState = "Invisible" Var LOADING_STATE = "Invisible" Var AlphaPopupLoadingState = "Invisible" Var CashlessClosingPopup = 0 Else Var CashlessClosingPopupCountDown = CashlessClosingPopupCountDown - 1 EndIf EndIf Refresh TimerReset If ChangeStatus = "payout-end" Then Var ChangeOK = 1 EndIf DEBUGVAR IDCardStatus DEBUGVAR IDCardReady DEBUGVAR IDCardData DEBUGVAR IDBirthdate If CancelFlag = 0 Then If AdultFlag2 = 1 Then If IDCardStatus = "OK" Then If IDCardReady = "OK" Then If IDCardData = "START" Then Var AdultState2 = "Enable" Var AdultState1 = "Invisible" Var AdultState3 = "Invisible" Refresh EndIf EndIf EndIf If IDCardStatus = "OK" Then If IDCardReady = "OK" Then If IDCardData = "ERROR" Then Var AdultState2 = "Invisible" Var AdultState3 = "Enable" Refresh EndIf EndIf EndIf If IDCardStatus = "ERROR" Then Var AdultState2 = "Invisible" Var AdultState3 = "Enable" Refresh EndIf If IDCardStatus = "OK" Then If IDCardReady = "OK" Then If IDCardData = "DONE" Then ;Var birthDate = IDBirthdate Var StrYear = "" Var StrMon = "" Var StrDay = "" SUBSTRING IDBirthdate 0 4 StrYear SUBSTRING IDBirthdate 4 6 StrMon SUBSTRING IDBirthdate 6 8 StrDay INT StrYear INT StrMon INT StrDay Var Adult20 = 0 DEBUGVAR StrYear DEBUGVAR StrMon DEBUGVAR StrDay DEBUGVAR sdatemonth DEBUGVAR sdateday Var sdateyear = sdateyear + 543 Var AgeNumber = sdateyear - StrYear DEBUGVAR AgeNumber If AgeNumber >= 20 Then If AgeNumber = 20 Then If sdatemonth > StrMon Then Var Adult20 = 1 Else If sdatemonth = StrMon Then If sdateday >= StrDay Then Var Adult20 = 1 EndIf EndIf EndIf Else Var Adult20 = 1 EndIf If Adult20 = 1 Then Var AdultState3 = "Invisible" Var AdultState2 = "Invisible" Var AdultState1 = "Invisible" Var AdultState = "Invisible" ;CoinVending XBILL Open "ROOT/taobin_project/xml/page_payment_camera.xml" Refresh Else Var AdultState2 = "Invisible" Var AdultState3 = "Enable" Refresh EndIf Else Var AdultState2 = "Invisible" Var AdultState3 = "Enable" Refresh EndIf Var AdultFlag2 = 1 EndIf EndIf EndIf EndIf EndIf TimerReset If CoinInFlag = 0 Then ;VendingQR OFF Var alphaState = "Invisible" EndIf Var CoinInFlag = 1 DEBUGVAR CoinInOK If ViewBill > 0 Then If PayOfflineMode = 1 Then ;CoinVending BILLREJECT Var alphaState3_offline = "Enable" Else If Seeker.StoreCreditFlag = 1 Then CoinVending BILLSTACKALL 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 RemainAmountStr !assigned StringFmt( RemainAmount, DisplayFormat, PreScaleConvertShow ) Var showRemaining !assigned StringFmt( RemainAmount, DisplayFormat, PreScaleConvertShow ) If SELLONLINE = 1 Then Var alphaState3 = "Enable" Else Var alphaState3_offline = "Enable" EndIf If show_eng = "true" Then PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/The_change_has_run_out.mp3" Else PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/The_change_has_run_out.mp3" EndIf EndIf 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 Var RemainAmountStr !assigned StringFmt( Canout, DisplayFormat, PreScaleConvertShow ) Else If show_eng = "true" Then ;Var RemainAmountStr = "Change " + Canout ;Var RemainAmountStr = RemainAmountStr + "###size=90" Var RemainAmountStr !assigned StringFmt( Canout, DisplayFormat, PreScaleConvertShow ) Var RemainAmountStr = "Change " + RemainAmountStr Var RemainAmountStr = RemainAmountStr + "###size=90" Else Var RemainAmountStr = "ทอน " + Canout EndIf EndIf Var CancleState = "Disable" Var CoinInOK = 1 Var CoinInCounter = 0 Else Var RemainAmountStr = "" + RemainAmount Var RemainAmountStr !assigned StringFmt( RemainAmount, DisplayFormat, PreScaleConvertShow ) EndIf Var Timeout = 0 ;Var RemainAmount = 0 Var showRemaining = charOfBaht + RemainAmountStr Var showRemaining !assigned StringFmt( RemainAmount, DisplayFormat, PreScaleConvertShow ) Var alphaState2 = "Enable" EndIf EndIf Refresh If CoinInFlag = 1 Then If CoinInOK = 0 Then If CancelFlag = 0 Then SAVELOG "VDCancle > Cancle Order." Machine CancelWepApp CoinVending OFF Var CancelFlag = 1 Var cancelState = "Enable" Var CancelCounter = 0 ;If CoinAmount = 0 Then ; Open "ROOT/taobin_project/xml/page_catalog.xml" ;EndIf Var showRemaining = "Refund" ;Open "ROOT/taobin_project/xml/page_catalog.xml" If FlagQROpened = 1 Then Var CancelNumber = 12 EndIf EndIf EndIf ;VendingQR OFF Refresh If ViewBill > 0 Then CoinVending BILLREJECT EndIf EndIf ;include="ROOT/taobin_project/inc/video.inc" 144 413 pay_with_chanel_text ; back 18 422 Var( DirImage + "/bn_back_arrow2.png") Var( DirImage + "/bn_back_arrow2.png") "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume If CoinInOK = 0 Then If CancelFlag = 0 Then If ViewBill > 0 Then CoinVending BILLREJECT EndIf SAVELOG "ButtonCancleMain > Cancle Order." Machine CancelWepApp ;CoinVending OFF Var CancelFlag = 1 Var cancelState = "Enable" Var CancelCounter = 0 If CashlessPayFlag = 1 Then CashlessReq VENDINGCANCEL "" SAVELOG "Cashless called VENDINGCANCEL" EndIf DEBUGVAR UserChoosePayment Var UserChoosePayment = "" Var CancelContinue = 0 EndIf EndIf 375 623 331 435 PictureDrink 375 623 OverlayMenuFilter 375 623 eval( If IsSmoRet = "true" Then Var return = "Enable" Else Var return = "Invisible" EndIf ) "ROOT/taobin_project/image/topping2/blender_icon.png" 73 TopRowY CreditCardButtonState Var( CountryRootPath + "/image/page_payment/bn_credit_card.png") Var( CountryRootPath + "/image/page_payment/bp_credit_card.png") Var( CountryRootPath + "/image/page_payment/bd_credit_card.png") "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume If alphaState = "Invisible" Then If CoinInFlag = 0 Then If CancelFlag = 0 Then SAVELOG "Pay_With_Card_Pressed." DEBUGVAR UserChoosePayment Var QRCODE99 = "" Var QRErrorState = "Invisible" Var QR_POPUP = DirQR_popup + "/img_tap_card_5_sec.png" Var alphaState = "Enable" If UserChoosePayment = "CreditCard" Then Var Timeout = 0 Var QR_POPUP = DirQR_popup + "/img_tap_card_5_sec.png" If EnablingCreditCard = 1 Then Var LOADING_STATE = "Enable" Var AlphaPopupLoadingState = "Enable" EndIf Else If UserChoosePayment = "QRCode" Then CashlessReq VENDINGCANCEL "" Var LOADING_STATE = "Enable" Var AlphaPopupLoadingState = "Enable" Var SwitchingQRCodeToCreditCard = 1 Var SwitchingContDown = 1 Else Coin CARD Var UserChoosePayment = "CreditCard" Var LOADING_STATE = "Enable" Var AlphaPopupLoadingState = "Enable" Var EnablingCreditCard = 1 Var EnablingCountDown = 5 Var RequestCreditCardCountDown = 1 EndIf EndIf EndIf EndIf EndIf 394 TopRowY QRCodeButtonState Var( CountryRootPath + "/image/page_payment/bn_qr_code.png") Var( CountryRootPath + "/image/page_payment/bp_qr_code.png") Var( CountryRootPath + "/image/page_payment/bd_qr_code.png") "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume If alphaState = "Invisible" Then If CoinInFlag = 0 Then If CancelFlag = 0 Then SAVELOG "Pay_With_QR_Pressed." DEBUGVAR UserChoosePayment Var QRCODE99 = "" Var QRErrorState = "Invisible" Var QR_POPUP = DirQR_popup + "/img_use_qr_code.png" Var LOADING_STATE = "Enable" Var AlphaPopupLoadingState = "Enable" Var alphaState = "Enable" If UserChoosePayment = "CreditCard" Then CashlessReq VENDINGCANCEL "" Var SwitchingCreditCardToQRCode = 1 Var SwitchingContDown = 1 Else Coin CARD Var LOADING_STATE = "Enable" Var AlphaPopupLoadingState = "Enable" Var EnablingQRCode = 1 Var EnablingCountDown = 5 Var RequestQRCodeCountDown = 1 EndIf EndIf EndIf EndIf 715 TopRowY CodeButtonState Var( CountryRootPath + "/image/page_payment/bn_code.png") Var( CountryRootPath + "/image/page_payment/bn_code.png") Var( CountryRootPath + "/image/page_payment/bn_code.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" Var UserChoosePayment = "Code" Open "ROOT/taobin_project/xml/page_payment_code.xml" EndIf EndIf EndIf 360 1781 eval( If CancleState = "Enable" Then If LOADING_STATE = "Enable" Then Var return = "Disable" Else Var return = CancelState EndIf Else Var return = CancleState EndIf ) 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 ;VendingQR OFF If CoinInOK = 0 Then If CancelFlag = 0 Then SAVELOG "ButtonCancleMain > Cancle Order." Machine CancelWepApp If ViewBill > 0 Then CoinVending BILLREJECT EndIf ;CoinVending OFF Var CancelFlag = 1 Var cancelState = "Enable" Var CancelCounter = 0 If CashlessPayFlag = 1 Then CashlessReq VENDINGCANCEL "" SAVELOG "Cashless called VENDINGCANCEL" EndIf Var UserChoosePayment = "" EndIf EndIf Refresh 0 1065 1080 Center 72 KanitMediumTTF PopupBodyTextColor showRemaining 0 938 1080 Center 66 KanitMediumTTF HeadlineColor showname 0 1022 1080 Center 24 KanitLightTTF SubHeadlineColor showdesc ; QR popup 0 380 alphaState "ROOT/taobin_project/image/page_payment/alpha.png" 249 748 alphaState QR_POPUP 766 777 eval( If alphaState = "Enable" Then If LOADING_STATE = "Enable" Then Var return = "Disable" Else Var return = alphaState EndIf Else Var return = alphaState EndIf ) "ROOT/taobin_project/image/page_payment/Exit.png" "ROOT/taobin_project/image/page_payment/Exit.png" "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume SAVELOG "Button cancel popup pressed." If CashlessPayFlag = 1 Then CashlessReq VENDINGCANCEL "" Var LOADING_STATE = "Enable" Var AlphaPopupLoadingState = "Enable" Var CashlessClosingPopup = 1 Var CashlessClosingPopupCountDown = 1 Var UserChoosePayment = "" Var CashlessPayFlag = 0 SAVELOG "Cashless closing popup" Else Var QRCODE99 = "" Var LOADING_STATE = "Invisible" Var AlphaPopupLoadingState = "Invisible" Var QRErrorState = "Invisible" Var alphaState = "Invisible" EndIf Refresh ; begin cash popup 0 380 alphaState2 "ROOT/taobin_project/image/page_payment/alpha.png" 182 748 alphaState2 ;inter-image Var( DirImage2 + "/img_popup11-HKG.png" ) 0 380 AdultState "ROOT/taobin_project/image/page_payment/alpha.png" 249 751 AdultState1 Var( DirImage + "/img_popup4.png" ) 838 1350 eval( Var return = "Invisible" If AdultState1 = "Enable" Then If AdultState2 = "Invisible" Then Var return = "Enable" EndIf EndIf DEBUGVAR return ) "TimerSec=3" "ROOT/taobin_project/image/anmi/arrow_1.png" 360 1373 AdultState1 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 ;VendingQR OFF SAVELOG "AdultState1 click" If CoinInOK = 0 Then If CancelFlag = 0 Then SAVELOG "ButtonCancleMain > Cancle Order." Machine CancelWepApp If ViewBill > 0 Then CoinVending BILLREJECT EndIf CoinVending OFF Var CancelFlag = 1 Var cancelState = "Enable" Var CancelCounter = 0 If FlagQROpened = 1 Then Var CancelNumber = 12 EndIf If CashlessPayFlag = 0 Then If UserChoosePayment = "CreditCard" Then Var CashlessPayFlag = 0 CashlessReq FAIL "" EndIf If UserChoosePayment = "" Then Var CashlessPayFlag = 0 CashlessReq FAIL "" EndIf EndIf If CashlessPayFlag = 1 Then Var CashlessPayFlag = 0 CashlessReq FAIL "" EndIf EndIf EndIf Refresh 249 751 AdultState2 Var( DirImage + "/img_popup4-2.png" ) 249 751 AdultState3 Var( DirImage + "/img_popup4-3.png" ) 360 1373 AdultState3 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 ;VendingQR OFF SAVELOG "AdultState3 click" If CoinInOK = 0 Then If CancelFlag = 0 Then SAVELOG "ButtonCancleMain > Cancle Order." Machine CancelWepApp If ViewBill > 0 Then CoinVending BILLREJECT EndIf CoinVending OFF Var CancelFlag = 1 Var cancelState = "Enable" Var CancelCounter = 0 If FlagQROpened = 1 Then Var CancelNumber = 12 EndIf If CashlessPayFlag = 0 Then If UserChoosePayment = "CreditCard" Then Var CashlessPayFlag = 0 CashlessReq FAIL "" EndIf If UserChoosePayment = "" Then Var CashlessPayFlag = 0 CashlessReq FAIL "" EndIf EndIf If CashlessPayFlag = 1 Then Var CashlessPayFlag = 0 CashlessReq FAIL "" EndIf EndIf EndIf Refresh 438 1345 alphaState2 Var( DirImage + "/bn_cancel.png" ) Var( DirImage + "/bp_cancel.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume SAVELOG "alphaState2 click" DEBUGVAR CancelFlag If CoinInOK = 0 Then If CancelFlag = 0 Then SAVELOG "ButtonCancleAlpha2 > Cancle Order." Machine CancelWepApp If ViewBill > 0 Then CoinVending BILLREJECT EndIf CoinVending OFF Var CancelFlag = 1 Var cancelState = "Enable" Var CancelCounter = 0 If FlagQROpened = 1 Then Var CancelNumber = 12 EndIf If CashlessPayFlag = 0 Then If UserChoosePayment = "CreditCard" Then Var CashlessPayFlag = 0 CashlessReq FAIL "" EndIf If UserChoosePayment = "" Then Var CashlessPayFlag = 0 CashlessReq FAIL "" EndIf EndIf If CashlessPayFlag = 1 Then Var CashlessPayFlag = 0 CashlessReq FAIL "" EndIf EndIf EndIf DEBUGVAR UserChoosePayment Var UserChoosePayment = "" Var CancelContinue = 1 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 eval( Var return = DirImage2 + "/img_popup12_NotEnoughCoin.png" ) 327 1208 eval( DEBUGVAR SettingDisableTaobinCredit If SettingDisableTaobinCredit = "true" Then Var return = "Invisible" Else Var return = alphaState3 EndIf DEBUGVAR return ) 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 SAVELOG "alphaState3 click" CoinVending BILLREJECT Var alphaState3 = "Invisible" If SettingDisableTaobinCredit = "true" Then If EnoughChange = "yes" Then Else If CoinInOK = 0 Then If CancelFlag = 0 Then If ViewBill > 0 Then CoinVending BILLREJECT EndIf SAVELOG "ButtonCancleMain > Cancle Order." Machine CancelWepApp CoinVending OFF Var CancelFlag = 1 Var cancelState = "Enable" Var CancelCounter = 0 If FlagQROpened = 1 Then Var CancelNumber = 12 EndIf If CashlessPayFlag = 0 Then If UserChoosePayment = "CreditCard" Then Var CashlessPayFlag = 0 CashlessReq FAIL "" EndIf If UserChoosePayment = "" Then Var CashlessPayFlag = 0 CashlessReq FAIL "" EndIf EndIf If CashlessPayFlag = 1 Then Var CashlessPayFlag = 0 CashlessReq FAIL "" EndIf DEBUGVAR UserChoosePayment Var UserChoosePayment = "" Var CancelContinue = 0 EndIf EndIf EndIf EndIf Refresh 0 380 alphaState3_offline "ROOT/taobin_project/image/page_payment/alpha.png" 182 748 alphaState3_offline Var( DirImage2 + "/img_popup12_offline.png" ) 327 1335 alphaState3_offline Var( DirImage2 + "/bn_cancel2.png" ) Var( DirImage2 + "/bp_cancel2.png" ) "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume SAVELOG "alphaState3_offline click" CoinVending BILLREJECT Var alphaState3_offline = "Invisible" If SettingDisableTaobinCredit = "true" Then If EnoughChange = "yes" Then Else If CoinInOK = 0 Then If CancelFlag = 0 Then If ViewBill > 0 Then CoinVending BILLREJECT EndIf SAVELOG "ButtonCancleMain > Cancle Order." Machine CancelWepApp CoinVending OFF Var CancelFlag = 1 Var cancelState = "Enable" Var CancelCounter = 0 If FlagQROpened = 1 Then Var CancelNumber = 12 EndIf If CashlessPayFlag = 0 Then If UserChoosePayment = "CreditCard" Then Var CashlessPayFlag = 0 CashlessReq FAIL "" EndIf If UserChoosePayment = "" Then Var CashlessPayFlag = 0 CashlessReq FAIL "" EndIf EndIf If CashlessPayFlag = 1 Then Var CashlessPayFlag = 0 CashlessReq FAIL "" EndIf DEBUGVAR UserChoosePayment Var UserChoosePayment = "" Var CancelContinue = 1 EndIf EndIf EndIf EndIf Refresh ; ; 0 ; 1041 ; 100 ; Center ; 1080 ; KanitRegularTTF ; alphaState3 ; 0xDE794E ; RemainAmountKeep ; 270 1000 550 Center 30 KanitRegularTTF alphaState 0xFF0000 CashTextWarning 445 958 200 200 alphaState testservice 267 900 QRErrorState "ROOT/taobin_project/inter/hkg/image/page_payment/QRError.png" "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume 0 380 cancelState Var( DirImage + "/CancelOrder.png" ) 0 380 AlphaLoadingState "ROOT/taobin_project/image/page_payment/alpha.png" 249 748 AlphaPopupLoadingState "ROOT/taobin_project/image/page_payment/alpha_popup.png" LOADING_STATE_X 1065 LOADING_STATE Var( DirImage + "/loadingText.png" ) 493 968 94 94 LOADING_STATE "ROOT/taobin_project/image/page_payment/loading.gif" Open "/media/bt/xml/security_alarm.xml" 0 1870 ShowNetworkProblem "0xFF0000" 1080 60 DEBUGVAR IgnoreNetCore If IgnoreNetCore = "true" Then MakeDrinkV1 SelectDrink SelectSugarID Open "ROOT/taobin_project/xml/page_thankyou.xml" EndIf 5 1880 24 Center 1080 RobotoRegular 0xFFFFFF ShowNetworkProblemText