taobin_project/xml/page_payment_qr.xml
2020-11-12 17:53:04 +07:00

425 lines
8.9 KiB
XML

<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<Sound> "ROOT/sounds/QRpayment.m4a" </Sound>
<EventOpen>
; 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
</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/page_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/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
</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>
<Image>
<X> 0 </X>
<Y> 0 </Y>
<Filename> "ROOT/taobin_project/image/page2/ad_blank1.png" </Filename>
</Image>
<Image>
<X> 166 </X>
<Y> 501 </Y>
<Filename> "ROOT/taobin_project/image/page_payment/text_1.png" </Filename>
</Image>
<Image>
<X> 375 </X>
<Y> 623 </Y>
<Width> 295 </Width>
<Height> 427 </Height>
<Filename> PictureDrink </Filename>
</Image>
;<Text>
;<X> 375 </X>
;<Y> 320</Y>
;<Size> 30 </Size>
;<Font> fontType1 </Font>
;<Color> 0x000000 </Color>
;<Value> NameDrink </Value>
;</Text>
<Text>
<X> 0 </X>
<Y> 938 </Y>
<Width> 1080</Width>
<Align> Center </Align>
<Size> 72 </Size>
<Font> "ROOT/taobin_project/font/Roboto/Roboto-Regular.ttf"</Font>
<Color> 0xB78F24 </Color>
<Value> NameDrinkTH </Value>
</Text>
<Button>
<X> 287 </X>
<Y> 1282 </Y>
<State>PayState1</State>
<Filename> "ROOT/taobin_project/image/page_payment/bn_cash.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/page_payment/bp_cash.png" </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var PayState1 = "PressForever"
Var PayState2 = "Enable"
Var QRChannel = 0
Open "ROOT/taobin_project/xml/page_payment_cash.xml"
</EventClick>
</Button>
<Button>
<X> 287 </X>
<Y> 1430 </Y>
<State>PayState2</State>
<Filename> "ROOT/taobin_project/image/page_payment/bn_pay_with_code.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/page_payment/bp_pay_with_code.png" </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
If CoinInFlag = 0 Then
Var TelephoneNumber = ""
Var Tel_Confirm_State = "Disable"
Open "ROOT/taobin_project/xml/page_payment_code.xml"
EndIf
</EventClick>
</Button>
<Button>
<X> 287 </X>
<Y> 1578 </Y>
<State>PayState3</State>
<Filename> "ROOT/taobin_project/image/page_payment/bn_prompt_pay.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/page_payment/bp_prompt_pay.png" </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/taobin_project/xml/page_payment_qr.xml"
EndIf
</EventClick>
</Button>
<Button>
<X> 438 </X>
<Y> 1786 </Y>
<State>CancleState</State>
<Filename> "ROOT/taobin_project/image/page_payment/bn_cancel.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/page_payment/bp_cancel.png" </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
Open "ROOT/taobin_project/xml/page_catalog.xml"
</EventClick>
</Button>
<Text>
<X> 466 </X>
<Y> 1132 </Y>
<Font> "ROOT/taobin_project/font/Kanit/Kanit-Light.ttf"</Font>
<Size> 72 </Size>
<Color> 0xDE794E </Color>
<Value> "฿25" </Value>
</Text>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
</Popup>