1080 1312 BG_Menu_Page4 "ROOT/sounds/selectPayment.wav"
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"
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"
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
Refresh
Else
Var VendingQRCode = "ERROR"
Coin STANDBY
Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif"
MakeDrinkV1 SelectDrink SelectSugarID
Var PayWithQR = 1
Open "/media/bt/xml/menu_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/menu_page4-1.xml"
Else
If Timeout > 180 Then
;Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
MakeDrinkV1 SelectDrink SelectSugarID
Open "/media/bt/xml/menu_page4-1.xml"
EndIf
EndIf
Else
If CancelFlag = 0 Then
CoinVending OFF
If CoinAmount > 0 Then
Var CancelFlag = 1
Var CancelCounter = 0
Else
Open "ROOT/xml/menu_board.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/xml/menu_board.xml"
EndIf
EndIf
EndIf
If CancelFlag = 1 Then
If ChangeOK = 1 Then
Var ServiceType = "credit"
Var SessionID2 = SelectDrink
Var ServiceCredit = "coffee"
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
Open "ROOT/xml/menu_board.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
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
470 667 155 Center 40
fontType1
0x000000 RemainAmountStr 450 595 185 185 testservice 120 555 850 Center 30
fontType1
0xFF0000 CashTextWarning
Open "/media/bt/xml/security_alarm.xml"