taobin_project/xml/menu_page4.xml
2020-09-14 15:09:29 +07:00

420 lines
8.4 KiB
XML

<Page>
<Width> 1080 </Width>
<Height> 1312 </Height>
<Background> BG_Menu_Page4 </Background>
<Sound> "ROOT/sounds/selectPayment.wav" </Sound>
<EventOpen>
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
Var ProcessText = "กำลังดำเนินการ..."
;Var GIFShowProcess ="ROOT/ui/page_05_loading/pic_loading_cup.gif"
Var PayWithQR = 0
</EventOpen>
<EventActionOk>
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/menu_page4-1.xml"
EndIf
</EventActionOk>
<Timeout> 1000 </Timeout>
<EventTimeout>
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
VendingQR OFF
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 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/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
</EventTimeout>
<EventChangeStatus>
If ChangeStatus = "payout-end" Then
Var ChangeOK = 1
EndIf
</EventChangeStatus>
<EventCoin>
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
</EventCoin>
<EventVDCancle>
If CoinInOK = 0 Then
If CancelFlag = 0 Then
CoinVending OFF
Var CancelFlag = 1
Var CancelCounter = 0
EndIf
EndIf
VendingQR OFF
</EventVDCancle>
<Button>
<X> 336 </X>
<Y> 317 </Y>
<State>PayState1</State>
<Filename> "ROOT/image/BN_PayWithCash.bmp" </Filename>
<FilenamePress> "ROOT/image/BP_PayWithCash.bmp" </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var BG_Menu_Page4 = "ROOT/image/BG_Cash_Page4.bmp"
Var PayState1 = "PressForever"
Var PayState2 = "Enable"
Var QRChannel = 0
Open "ROOT/xml/menu_page4.xml"
</EventClick>
</Button>
<Button>
<X> 336 </X>
<Y> 399 </Y>
<State>PayState2</State>
<Filename> "ROOT/image/BN_PayPromtpay.bmp" </Filename>
<FilenamePress> "ROOT/image/BP_PayPromtpay.bmp" </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
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/xml/menu_page4-QR.xml"
EndIf
</EventClick>
</Button>
<Button>
<X> 336 </X>
<Y> 482 </Y>
<State>PayState3</State>
<Filename> "ROOT/image/BN_PayWithCode.bmp" </Filename>
<FilenamePress> "ROOT/image/BP_PayWithCode.bmp" </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
If CoinInFlag = 0 Then
;Var BG_Menu_Page4 = "ROOT/image/BG_PromptPay_Page4.bmp"
;Var PayState1 = "Enable"
;Var PayState2 = "PressForever"
;Var QRChannel = 1
Var TelephoneNumber = ""
Var Tel_Confirm_State = "Disable"
Open "ROOT/xml/menu_page4-Code.xml"
EndIf
</EventClick>
</Button>
<Button>
<X> 494 </X>
<Y> 805 </Y>
<State>CancleState</State>
<Filename> "ROOT/image/BN_Cancle.bmp" </Filename>
<FilenamePress> "ROOT/image/BP_Cancle.bmp" </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
If CoinInOK = 0 Then
If CancelFlag = 0 Then
CoinVending OFF
Var CancelFlag = 1
Var CancelCounter = 0
EndIf
EndIf
VendingQR OFF
</EventClick>
</Button>
<Button>
<X> 495 </X>
<Y> 640 </Y>
<State>QRErrorState</State>
<Filename> "ROOT/image/QRError.png" </Filename>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
</EventClick>
</Button>
<Text>
<X> 470 </X>
<Y> 667 </Y>
<Width>155</Width>
<Align> Center </Align>
<Size> 40 </Size>
<Font> fontType1 </Font>
<Color> 0x000000 </Color>
<Value> RemainAmountStr </Value>
</Text>
<QRCode>
<X> 450 </X>
<Y> 595 </Y>
<Width> 185 </Width>
<Height> 185 </Height>
<Service> testservice </Service>
</QRCode>
<Text>
<X> 120 </X>
<Y> 555 </Y>
<Width>850</Width>
<Align> Center </Align>
<Size> 30 </Size>
<Font> fontType1 </Font>
<Color> 0xFF0000 </Color>
<Value> CashTextWarning </Value>
</Text>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
</Page>