pakin/taobin_project
1
0
Fork 0
Code Issues Pull requests Projects 1 Releases 1 Packages Wiki Activity Actions

Do point

Browse source
This commit is contained in:
Wanlop 2020-09-29 17:02:36 +07:00
parent 6cfb3d9d9a
commit 98ceafe13a
79 changed files with 942 additions and 606 deletions
Download patch file Download diff file Expand all files Collapse all files

752
xml/menu_payment_code.xml
View file

@ -1,130 +1,322 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Sound> "ROOT/sounds/Code8digit.m4a" </Sound>
<Volume> SoundVolume </Volume>
<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 GetPayInfoFlag = 0
Var CodeChannel = 0
;Var VendingQRCode = "ERROR"
VendingQR ON
Var QRCODE99 = ""
Var VendingREFID = ""
CoinVending OFF
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
Var ShowTextNumber = "Enable"
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
;Open "ROOT/xml/menu_board.xml"
Var Timeout = Timeout + 1
If Timeout > 30 Then
VendingQR OFF
Open menu_back_to_main
EndIf
Topping "Select1-ID" topping1
Topping "Select2-ID" topping2
Topping "Select3-ID" topping3
TimerReset
Refresh
</EventTimeout>
Topping "Pack" "Send"
<EventActionOk>
If VendingREFID = "" Then
SAVELOG "menu_page4-Code.xml > ActOK_REFID"
Refresh
Else
SAVELOG "menu_page4-Code.xml > ActOK_make"
;Var VendingQRCode = "ERROR"
;Coin STANDBY
VendingQR OFF
;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>
<Button>
<X> 333 </X>
<Y> 1086 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_1.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_1.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "1"
Trim TelephoneNumber 10
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
</EventClick>
</Button>
<Button>
<X> 477 </X>
<Y> 1086 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_2.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_2.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "2"
Trim TelephoneNumber 10
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
</EventClick>
</Button>
<Button>
<X> 620 </X>
<Y> 1086 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_3.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_3.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "3"
Trim TelephoneNumber 10
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
</EventClick>
</Button>
<Button>
<X> 333 </X>
<Y> 1230 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_4.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_4.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "4"
Trim TelephoneNumber 10
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
</EventClick>
</Button>
<Button>
<X> 477 </X>
<Y> 1230 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_5.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_5.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "5"
Trim TelephoneNumber 10
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
</EventClick>
</Button>
<Button>
<X> 620 </X>
<Y> 1230 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_6.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_6.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "6"
Trim TelephoneNumber 10
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
</EventClick>
</Button>
<Button>
<X> 333 </X>
<Y> 1373 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_7.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_7.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "7"
Trim TelephoneNumber 10
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
</EventClick>
</Button>
<Button>
<X> 477 </X>
<Y> 1373 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_8.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_8.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "8"
Trim TelephoneNumber 10
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
</EventClick>
</Button>
<Button>
<X> 620 </X>
<Y> 1373 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_9.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_9.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "9"
Trim TelephoneNumber 10
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
</EventClick>
</Button>
<Button>
<X> 477 </X>
<Y> 1517 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_0.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_0.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "0"
Trim TelephoneNumber 10
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 10 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowTextNumber = "Invisible"
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 44 </X>
<Y> 1783 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_back.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_back.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var PayState1 = "PressForever"
Var PayState2 = "Enable"
Var PayState3 = "Enable"
Var PayState2 = "Enable"
Var QRChannel = 0
Open "ROOT/taobin_project/xml/menu_payment_cash.xml"
</EventClick>
</Button>
If GetPayInfoFlag = 0 Then
<Button>
<X> 620 </X>
<Y> 1517 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_back-1.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_back-1.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Trim TelephoneNumber -1
Var Tel_Confirm_State = "Disable"
StrLen TelephoneNumber TelNumLen
If TelNumLen = 0 Then
Var ShowTextNumber = "Enable"
EndIf
Var BG_Menu_Page4 = "ROOT/image/BG_Cash_Page4.bmp"
Var PayState1 = "PressForever"
Var PayState2 = "Enable"
Var PayState3 = "Enable"
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 600 </X>
<Y> 779 </Y>
<State> Tel_Confirm_State </State>
<Filename> "ROOT/taobin_project/image/BN_Confirm.bmp" </Filename>
<FilenamePress> "ROOT/taobin_project/image/BP_Confirm.bmp" </FilenamePress>
<FilenameDisable> "ROOT/taobin_project/image/BD_Confirm.bmp" </FilenameDisable>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
If GetPayInfoFlag = 0 Then
VendingQR OFF
Var CodeNumber = TelephoneNumber
Var RemainAmount = 0
PrepareDrink SelectDrink SelectSugarID
@ -145,7 +337,9 @@
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SelectDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + "KBA"
Var ECommerce = ECommerce + "C00"
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + CodeNumber
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var AccountType = "new"
@ -159,316 +353,68 @@
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
</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/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
</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
Var TelephoneNumber = CodeNumber
Var CodeChannel = 1
Open "/media/bt/xml/menu_page4-CodeWaiting.xml"
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>
Refresh
</EventClick>
</Button>
<Image>
<X> 217 </X>
<Y> 833 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/img3.png" </Filename>
</Image>
<Image>
<X> 361 </X>
<Y> 873 </Y>
<State> ShowTextNumber </State>
<Filename> "ROOT/taobin_project/image/collectiing/text1.png" </Filename>
</Image>
<Text>
<X> 0 </X>
<Y> 873 </Y>
<Width> 1080 </Width>
<Align> Center </Align>
<Size> 62 </Size>
<Font> RobotoBlack </Font>
<Color> 0x513C2F </Color>
<Value> TelephoneNumber </Value>
<Format> Telnum </Format>
</Text>
<Image>
<X> 112 </X>
<Y> 593 </Y>
<Filename> "ROOT/taobin_project/image/enter_point/text1.png" </Filename>
</Image>
<Image>
<X> 0 </X>
<Y> 0 </Y>
<Filename> "ROOT/taobin_project/image/page2/ad_blank1.png" </Filename>
<Filename> "ROOT/taobin_project/image/ad_medium_2.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/menu_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/menu_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/menu_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/menu_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>