"Enable" 1080 1920 "0xeae6e1" SoundVolume "ROOT/sounds/QRpayment.m4a" ; On open 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 OFF 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 SAVELOG "menu_page4-QR.xml > Open_QRChannel_0" Else SAVELOG "menu_page4-QR.xml > Open_QRChannel_1" ;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 Var ProcessText = "กำลังดำเนินการ..." ;Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif" Var PayWithQR = 0 If VendingREFID = "" Then SAVELOG "menu_page4.xml > ActOK_REFID" Refresh Else SAVELOG "menu_page4.xml > ActOK_make" ;Var VendingQRCode = "ERROR" CoinVending OFF ;Coin STANDBY ;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" EndIf 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 "/media/bt/xml/page_page4-1.xml" Else If Timeout > 180 Then ;Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate MakeDrinkV1 SelectDrink SelectSugarID Open "/media/bt/xml/page_page4-1.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/page_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/page_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/page_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 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/page2/ad_blank1.png" 166 501 "ROOT/taobin_project/image/page_payment/text_1.png" 375 623 295 427 PictureDrink ; ; 375 ; 320 ; 30 ; fontType1 ; 0x000000 ; NameDrink ; 0 938 1080 Center 72 "ROOT/taobin_project/font/Roboto/Roboto-Regular.ttf" 0xB78F24 NameDrinkTH 287 1282 PayState1 "ROOT/taobin_project/image/page_payment/bn_cash.png" "ROOT/taobin_project/image/page_payment/bp_cash.png" "/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" 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 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" "/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/page_catalog.xml" 466 1132 "ROOT/taobin_project/font/Kanit/Kanit-Light.ttf" 72 0xDE794E "฿25" Open "/media/bt/xml/security_alarm.xml"