"Enable" 1080 1920 "0xeae6e1" SoundVolume "ROOT/sounds/selectPayment.wav" SAVELOG SelectDrink SAVELOG NameDrink SAVELOG NameDrinkTH SAVELOG DrinkDescription SAVELOG PriceDrink ; 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 Var RemainAmountStr = "" + RemainAmount Var Timeout = 0 Var PayOK = 0 Var ChangeOK = 0 Var CoinInOK = 0 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 VendingCampaign = 0 Var QRCODE1 = "A000000677010112" Var QRCODE2 = "010755600066301" Var QRCODE3 = "VDGN" Var QRCODE4 = BoxID Var QRCODE5 = SelectSlot Var QRCODE6 = ServiceCredit Var QRCODE7 = ServiceAmount2 Var QRCODE8 = "" Var CashTextWarning = "" Var QRErrorState = "Invisible" If QRChannel = 0 Then ;Var VendingQRCode = "ERROR" VendingQR ON CoinVending ON Var QRCODE99 = "" Var TextBill = "" Var BillFlag = 0 If Bill20 = "true" Then Var TextBill = TextBill + " 20 " Var BillFlag = BillFlag + 1 EndIf If Bill50 = "true" Then Var TextBill = TextBill + " 50 " Var BillFlag = BillFlag + 1 EndIf If Bill100 = "true" Then Var TextBill = TextBill + " 100 " Var BillFlag = BillFlag + 1 EndIf If BillFlag = 3 Then Var CashTextWarning = "" Else If BillFlag = 0 Then Var TextBill = "ไม่รับแบงค์" Var CashTextWarning = "จำนวนเงินไม่พอทอน! กรุณาใส่เงินให้พอดี " + TextBill Else Var TextBill = "รับเฉพาะแบงค์ " + TextBill Var CashTextWarning = "จำนวนเงินไม่พอทอน! กรุณาใส่เงินให้พอดี " + TextBill EndIf EndIf 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 Topping "Select1-ID" topping1 Topping "Select2-ID" topping2 Topping "Select3-ID" topping3 Topping "Pack" "Send" Var PayState1 = "PressForever" Var PayState2 = "Enable" Var PayState3 = "Enable" If GetPayInfoFlag = 0 Then Var BG_Menu_Page4 = "ROOT/image/BG_Cash_Page4.bmp" Var PayState1 = "PressForever" Var PayState2 = "Enable" Var PayState3 = "Enable" Var RemainAmount = 0 PrepareDrink SelectDrink SelectSugarID Var SessionID2 = SelectSlot + ":" Var SessionID2 = SessionID2 + sugarID Var SessionID2 = SessionID2 + "000" 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 + "KBA" 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 Var GetPayInfoFlag = 1 EndIf Var ProcessText = "กำลังดำเนินการ..." ;Var GIFShowProcess ="ROOT/ui/page_05_loading/pic_loading_cup.gif" Var PayWithQR = 0 1000 Var Timeout = Timeout + 1 If Timeout > 120 Then If PayOK = 1 Then If ChangeOK = 1 Then ;Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate MakeDrinkV1 SelectDrink SelectSugarID Open "ROOT/taobin_project/xml/menu_thankyou.xml" Else If Timeout > 180 Then ;Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate MakeDrinkV1 SelectDrink SelectSugarID Open "ROOT/taobin_project/xml/menu_thankyou.xml" EndIf EndIf Else If CancelFlag = 0 Then VendingQR OFF CoinVending OFF If CoinAmount > 0 Then Var CancelFlag = 1 Var CancelCounter = 0 Else Open "ROOT/taobin_project/xml/menu_catalog.xml" EndIf EndIf EndIf EndIf Var CancelCounter = CancelCounter + 1 If CancelFlag = 1 Then ;Var VendingQRCode = "ERROR" If CancelCounter = 3 Then ;Change CoinAmount If CoinAmount > 0 Then Change CoinAmount Else Open "ROOT/taobin_project/xml/menu_catalog.xml" EndIf EndIf EndIf If CancelFlag = 1 Then If ChangeOK = 1 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 Open "ROOT/taobin_project/xml/menu_catalog.xml" 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 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 If CoinAmount >= PayAmount Then ;Var VendingQRCode = "ERROR" CoinVending OFF Var Canout = CoinAmount - PayAmount Var RemainAmountStr = "ทอน " + Canout Var CancleState = "Disable" Var CoinInOK = 1 Var CoinInCounter = 0 Else Var RemainAmountStr = "" + RemainAmount EndIf Var Timeout = 0 Var RemainAmount EndIf Refresh If CoinInOK = 0 Then If CancelFlag = 0 Then CoinVending OFF Var CancelFlag = 1 Var CancelCounter = 0 EndIf EndIf VendingQR OFF 0 0 "ROOT/taobin_project/image/ad_medium_2.png" Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif" Var MachineStage = "make-drink" Var BrewingTextThai = "เตรียมแก้ว" ;MakeDrinkV1 SelectDrink SelectSugarID Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate Open "ROOT/taobin_project/xml/menu_thankyou.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/menu_back_to_main.xml" 375 623 331 435 PictureDrink 287 1282 "Enable" "ROOT/taobin_project/image/page_payment/bn_cash_2.png" "ROOT/taobin_project/image/page_payment/bp_cash_2.png" "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume ;Var PayState1 = "PressForever" ;Var PayState2 = "Enable" ;Var QRChannel = 0 ;Open "ROOT/taobin_project/xml/menu_payment_cash.xml" Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif" Var MachineStage = "make-drink" Var BrewingTextThai = "เตรียมแก้ว" MakeDrinkV1 SelectDrink SelectSugarID Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate Open "ROOT/taobin_project/xml/menu_thankyou.xml" 287 1430 "Disable" "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/menu_payment_code.xml" EndIf 287 1578 "Disable" "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 Var alphaState = "Enable" Refresh ; 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/menu_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" "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume If CoinInOK = 0 Then If CancelFlag = 0 Then CoinVending OFF Var CancelFlag = 1 Var CancelCounter = 0 EndIf EndIf VendingQR OFF Open "ROOT/taobin_project/xml/menu_catalog.xml" 0 1132 1080 Center 72 KanitMediumTTF 0xB78F24 "Free" 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" Refresh 352 940 alphaState "Herr" Open "/media/bt/xml/security_alarm.xml" 0 1880 30 "Left" 1080 KanitThinTTF 0x513C2F SelectDrink