"Enable" 1080 1920 "0xeae6e1" SoundVolume "ROOT/sounds/selectPayment.wav" Var countClick2 = 0 ;SAVELOG SelectDrink ;SAVELOG NameDrink ;SAVELOG NameDrinkTH ;SAVELOG DrinkDescription SAVELOG PriceDrink ;SAVELOG topping1 ;SAVELOG topping2 ;SAVELOG topping3 Var PayInfoCFlag = 0 Var ActionOKCase = 0 Var VendingCampaign = IntVendingCampaign Var PayAmount = PriceDrink ; Below original ; On open Var alphaState = "Invisible" Var CoinInFlag = 0 Var CoinAmount = 0 Var CancelFlag = 0 Var CancelCounter = 0 Var CoinInCounter = 0 Var PayAmount = PriceDrink Var RemainAmount = PayAmount - IntVendingCampaign Var RemainAmountStr = "" + RemainAmount Var Timeout = 0 Var PayOK = 0 Var ChangeOK = 0 Var CoinInOK = 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 VendingDiscount = DiscountDrink Var CashTextWarning = "" Var QRErrorState = "Invisible" SAVELOG QRChannel SAVELOG QRCODE99 If RoadShow = "false" Then If QRChannel = 0 Then ;Var VendingQRCode = "ERROR" VendingQR ON CoinVending ON ;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 = "Disable" Var PayState3 = "Disable" Var showRemaining = "Free" Else Var PayState1 = "PressForever" If IntVendingCampaign = 0 Then Var PayState2 = "Enable" Else Var PayState2 = "Disable" EndIf Var PayState3 = "Enable" Var showRemaining = charOfBaht + RemainAmountStr EndIf Var PayWithQR = 0 Var NoGotoMenupage = "false" Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment/bn_cash.png" Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment/bp_cash.png" If RoadShow = "true" Then 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 If IntVendingCampaign >= PayAmount Then Var RemainAmount = 0 Var RemainAmountStr = "" + RemainAmount CoinVending OFF MakeDrinkV1 SelectDrink SelectSugarID Open "ROOT/taobin_project/xml/page_thankyou.xml" EndIf If ActionOKCase = 0 Then If VendingREFID = "" Then SAVELOG "menu_page4-QR.xml > ActOK_REFID" Refresh Else SAVELOG "menu_page4-QR.xml > ActOK_make" ;Var VendingQRCode = "ERROR" ;Coin STANDBY VendingQR OFF ;Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif" MakeDrinkV1 SelectDrink SelectSugarID Var PayWithQR = 1 ;Open "/media/bt/xml/page_page4-1.xml" Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif" Var BrewingTextThai = "เตรียมแก้ว" Open "ROOT/taobin_project/xml/page_thankyou.xml" EndIf If ReqPayInfoFlag = 1 Then Var QRCODE99 = SessionID Var QRCODE99 = QRCODE99 + Ext1a SAVELOG QRCODE99 Var QRCODE99 = QRCODE99 + Ext21 Var QRCODETMP = QRCODE99 Var ReqPayInfoFlag = 0 EndIf Else Var PayInfoCFlag = 1 EndIf 1000 Var Timeout = Timeout + 1 If Timeout > 90 Then If ActionOKCase = 1 Then Var PayInfoCFlag = 1 EndIf EndIf If PayInfoCFlag = 1 Then If CodeChannel = 1 Then Var SessionID2 = SelectSlot + ":" Var SessionID2 = SessionID2 + 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 + "C00" Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + CodeNumber Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + "C" 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 CoinInOK = 1 Then Var CoinInCounter = CoinInCounter + 1 If CoinInCounter = 1 Then Var ChangeOK = 1 Var Timeout = 60 Var PayOK = 1 EndIf EndIf If Timeout > 60 Then If PayOK = 1 Then MakeDrinkV1 SelectDrink SelectSugarID Open "ROOT/taobin_project/xml/page_thankyou.xml" Else If CancelFlag = 0 Then VendingQR OFF CoinVending OFF Var CancelFlag = 1 Var CancelCounter = 0 If CoinAmount = 0 Then If IntVendingCampaign = 0 Then Open "ROOT/taobin_project/xml/page_catalog.xml" EndIf EndIf EndIf EndIf EndIf If CancelFlag = 1 Then Var CancelCounter = CancelCounter + 1 If CancelCounter = 3 Then ;Change CoinAmount If CoinAmount > 0 Then Change CoinAmount Else If ActionOKCase = 0 Then Var ActionOKCase = 1 Var PayInfoCFlag = 1 EndIf EndIf EndIf If CancelCounter >= 33 Then Var ChangeOK = 1 EndIf ; This copy in file menu_catalog.xml If ChangeOK = 1 Then If ActionOKCase = 0 Then Var VendingDiscount = 0 Var VendingCampaign = 0 Var ServiceType = "credit" Var SessionID2 = SelectDrink Var ServiceCredit = "coffee" Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate ;If NoGotoMenupage = "false" Then ; ; Open "ROOT/taobin_project/xml/page_catalog.xml" ;EndIf Var ActionOKCase = 1 If 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 EndIf Var CoinInFlag = 1 If CoinInOK = 0 Then Var RemainAmount = PayAmount - CoinAmount Var RemainAmount = RemainAmount - IntVendingCampaign Var SumCoinAmount = CoinAmount + IntVendingCampaign If SumCoinAmount >= PayAmount Then ;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 Timeout = 0 ;Var RemainAmount = 0 Var showRemaining = charOfBaht + RemainAmountStr EndIf Refresh If CoinInOK = 0 Then If CancelFlag = 0 Then CoinVending OFF Var CancelFlag = 1 Var CancelCounter = 0 If CoinAmount = 0 Then Open "ROOT/taobin_project/xml/page_catalog.xml" EndIf Var showRemaining = "คืนเงิน" ;Open "ROOT/taobin_project/xml/page_catalog.xml" EndIf EndIf VendingQR OFF Refresh 0 0 "ROOT/taobin_project/image/ad_medium_2.png" Var MachineStage = "make-drink" Var CountDownBrewing = 120 ;Var BrewingTextThai = "เตรียมแก้ว" ;MakeDrinkV1 SelectDrink SelectSugarID ;Open "ROOT/taobin_project/xml/page_thankyou.xml" Open "ROOT/taobin_project/xml/page_collect_point_1.xml" 166 501 "ROOT/taobin_project/image/page_payment/text_1.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 Open "ROOT/taobin_project/xml/page_back_to_main.xml" 375 623 331 435 PictureDrink 287 1282 PayState1 FilenameShowbuttonCashBN FilenameShowbuttonCashBP "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume ;Var PayState1 = "PressForever" ;Var PayState2 = "Enable" ;Var QRChannel = 0 ;Open "ROOT/taobin_project/xml/page_payment_cash.xml" 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 287 1430 PayState2 "ROOT/taobin_project/image/page_payment/bn_pay_with_code.png" "ROOT/taobin_project/image/page_payment/bp_pay_with_code.png" "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume If CoinInFlag = 0 Then Var TelephoneNumber = "" Var Tel_Confirm_State = "Disable" Open "ROOT/taobin_project/xml/page_payment_code.xml" EndIf 287 1578 PayState3 "ROOT/taobin_project/image/page_payment/bn_prompt_pay.png" "ROOT/taobin_project/image/page_payment/bp_prompt_pay.png" "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume If CoinInFlag = 0 Then Var alphaState = "Enable" CoinVending OFF VendingQR ON Refresh If CoinAmount > 0 Then Change CoinAmount Var ChangeOK = 0 Var CancelFlag = 1 Var CancelCounter = 0 Var NoGotoMenupage = "true" 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 438 1786 CancleState "ROOT/taobin_project/image/page_payment/bn_cancel.png" "ROOT/taobin_project/image/page_payment/bp_cancel.png" "ROOT/taobin_project/image/page_payment/bp_cancel.png" "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume VendingQR OFF If CoinInOK = 0 Then If CancelFlag = 0 Then CoinVending OFF Var CancelFlag = 1 Var CancelCounter = 0 If CoinAmount = 0 Then If IntVendingCampaign = 0 Then Open "ROOT/taobin_project/xml/page_catalog.xml" EndIf EndIf EndIf EndIf ;If CoinAmount > 0 Then ; Change CoinAmount ; Var ChangeOK = 0 ; Var CancelFlag = 1 ; Var CancelCounter = 0 ; ;Else ; ;Var ChangeOK = 1 ;EndIf ;Open "ROOT/taobin_project/xml/page_catalog.xml" Refresh 0 1132 1080 Center 72 KanitMediumTTF 0xB78F24 showRemaining 0 938 1080 Center 72 KanitMediumTTF 0x513C2F NameDrink 0 1022 1080 Center 24 KanitLightTTF 0x6F5F51 DrinkDescription 0 380 alphaState "ROOT/taobin_project/image/page_payment/alpha.png" 249 748 alphaState "ROOT/taobin_project/image/page_payment/img_popup1.png" 438 1345 alphaState "ROOT/taobin_project/image/page_payment/bn_cancel.png" "ROOT/taobin_project/image/page_payment/bp_cancel.png" "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume Var alphaState = "Invisible" CoinVending ON VendingQR OFF Refresh 399 912 185 185 alphaState testservice Open "/media/bt/xml/security_alarm.xml" 0 1880 14 "Left" 1080 KanitThinTTF 0x513C2F SelectDrink 870 1860 200 50 "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume Var countClick2 = countClick2 + 1 If countClick2 = 3 Then EndIf If countClick2 = 5 Then Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_back_to_error.xml" EndIf Refresh 0 1886 20 1080 end RobotoBlack 0x513C2F countClick2