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

Doing

Browse source
This commit is contained in:
kong 2020-10-09 10:16:01 +07:00
parent d9fb7e7eb9
commit c723453e06
19 changed files with 6 additions and 3615 deletions
Download patch file Download diff file Expand all files Collapse all files

2
xml/menu_board.xml
View file

@ -27,7 +27,7 @@
Var countClick = 0
Var RoadShow = "true"
Var RoadShow = "false"
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>

199
xml/menu_page3.xml
View file

@ -1,199 +0,0 @@
<Page>
<Width> 1080 </Width>
<Height> 1312 </Height>
<Background> "ROOT/image/BG_Menu_Page3.bmp" </Background>
<Sound> "ROOT/sounds/selectConfirm.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
Var Timeout = 0
Var QRCODE99 = ""
Var QRCODETMP = ""
Var QRChannel = 0
Var CodeChannel = 0
Var GetPayInfoFlag = 0
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
;Open "ROOT/xml/menu_board.xml"
If GetPayInfoFlag = 0 Then
Var Timeout = Timeout + 1
If Timeout > 30 Then
Open "ROOT/xml/menu_board.xml"
EndIf
Else
Var Timeout = Timeout + 1
If Timeout > 30 Then
Open "ROOT/xml/menu_page4.xml"
EndIf
EndIf
TimerReset
Refresh
</EventTimeout>
<EventActionOk>
Var CreditAmount = 0
Var QRCODE99 = SessionID
Var QRCODE99 = QRCODE99 + Ext1a
Var QRCODE99 = QRCODE99 + Ext21
Var QRCODETMP = QRCODE99
Open "ROOT/xml/menu_page4.xml"
</EventActionOk>
<EventActionError>
Var QRCODE99 = ""
Var CreditAmount = 0
Open "ROOT/xml/menu_page4.xml"
</EventActionError>
<Button>
<X> 431 </X>
<Y> 805 </Y>
<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>
;Open "ROOT/xml/menu_board.xml"
OpenInst 2 "/mnt/sdcard/coffeevending/xml/menu_list_show_all.xml"
OpenInst 1 "/mnt/sdcard/coffeevending/xml/menu_advert.xml"
Open "/mnt/sdcard/coffeevending/xml/menu_main_blank.xml"
</EventClick>
</Button>
<Button>
<X> 566 </X>
<Y> 805 </Y>
<Filename> "ROOT/image/BN_Confirm2.bmp" </Filename>
<FilenamePress> "ROOT/image/BP_Confirm2.bmp" </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
If GetPayInfoFlag = 0 Then
Var BG_Menu_Page4 = "ROOT/image/BG_Cash_Page4.bmp"
Var PayState1 = "PressForever"
Var PayState2 = "Enable"
Var PayState3 = "Enable"
Var RemainAmount = 0
PrepareDrink SelectDrink SelectSugarID
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + sugarID
Var SessionID2 = SessionID2 + "000"
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
Var TelephoneNumber = "0899999999"
Var ServiceType = "coffee"
Var ECommerce = ""
Var ECommerce = ECommerce + PriceDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + DiscountDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SessionID2
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SelectDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + "KBA"
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var AccountType = "new"
Var testservice = "kbank"
Var tc = ""
Var GetScore = ""
Var OperatorName = ""
Var SessionID = ""
GetPayInfo TelephoneNumber ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
Var Timeout = 0
Var GetPayInfoFlag = 1
EndIf
;Open "ROOT/xml/menu_page4.xml"
</EventClick>
</Button>
<Image>
<X> 450 </X>
<Y> 218 </Y>
<Filename> PictureDrink </Filename>
</Image>
<Text>
<X> 505 </X>
<Y> 492 </Y>
<Width>310</Width>
<Align> Center </Align>
<Size> 30 </Size>
<Font> fontType1 </Font>
<Color> 0x000000 </Color>
<Value> NameDrink </Value>
</Text>
<Text>
<X> 505 </X>
<Y> 580 </Y>
<Width>310</Width>
<Align> Center </Align>
<Size> 30 </Size>
<Font> fontType1 </Font>
<Color> 0x000000 </Color>
<Value> SweetChoosed </Value>
</Text>
<Text>
<X> 505 </X>
<Y> 670 </Y>
<Width>310</Width>
<Align> Center </Align>
<Size> 25 </Size>
<Font> fontType1 </Font>
<Color> 0x000000 </Color>
<Value> PriceDrink </Value>
</Text>
<Text>
<X> 505 </X>
<Y> 1000 </Y>
<Width>310</Width>
<Align> Center </Align>
<Size> 25 </Size>
<Font> fontType1 </Font>
<Color> 0x000000 </Color>
<Value> NHaveDrink </Value>
</Text>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
</Page>

167
xml/menu_page3_alter.xml
View file

@ -1,167 +0,0 @@
<Page>
<Width> 1080 </Width>
<Height> 1312 </Height>
<Background> "ROOT/image/BG_Menu_Page3.bmp" </Background>
<Sound> "ROOT/sounds/selectConfirm.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
Var Timeout = 0
Var QRCODE99 = ""
Var QRCODETMP = ""
Var QRChannel = 0
Var CodeChannel = 0
Var GetPayInfoFlag = 0
Topping "Select1-ID" topping1
Topping "Select2-ID" topping2
Topping "Select3-ID" topping3
Topping "Pack" "Send"
If GetPayInfoFlag = 0 Then
Var BG_Menu_Page4 = "ROOT/image/BG_Cash_Page4.bmp"
Var PayState1 = "PressForever"
Var PayState2 = "Enable"
Var PayState3 = "Enable"
Var RemainAmount = 0
PrepareDrink SelectDrink SelectSugarID
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + sugarID
Var SessionID2 = SessionID2 + "000"
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
Var TelephoneNumber = "0899999999"
Var ServiceType = "coffee"
Var ECommerce = ""
Var ECommerce = ECommerce + PriceDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + DiscountDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SessionID2
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SelectDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + "KBA"
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var AccountType = "new"
Var testservice = "kbank"
Var tc = ""
Var GetScore = ""
Var OperatorName = ""
Var SessionID = ""
GetPayInfo TelephoneNumber ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
Var Timeout = 0
Var GetPayInfoFlag = 1
EndIf
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
;Open "ROOT/xml/menu_board.xml"
Var Timeout = Timeout + 1
If Timeout > 30 Then
Open "ROOT/xml/menu_page4.xml"
EndIf
TimerReset
Refresh
</EventTimeout>
<EventActionOk>
Var CreditAmount = 0
Var QRCODE99 = SessionID
Var QRCODE99 = QRCODE99 + Ext1a
Var QRCODE99 = QRCODE99 + Ext21
Var QRCODETMP = QRCODE99
Open "ROOT/xml/menu_page4.xml"
</EventActionOk>
<EventActionError>
Var QRCODE99 = ""
Var CreditAmount = 0
Open "ROOT/xml/menu_page4.xml"
</EventActionError>
<Image>
<X> 450 </X>
<Y> 218 </Y>
<Filename> PictureDrink </Filename>
</Image>
<Text>
<X> 505 </X>
<Y> 492 </Y>
<Width>310</Width>
<Align> Center </Align>
<Size> 30 </Size>
<Font> fontType1 </Font>
<Color> 0x000000 </Color>
<Value> NameDrink </Value>
</Text>
<Text>
<X> 505 </X>
<Y> 580 </Y>
<Width>310</Width>
<Align> Center </Align>
<Size> 30 </Size>
<Font> fontType1 </Font>
<Color> 0x000000 </Color>
<Value> SweetChoosed </Value>
</Text>
<Text>
<X> 505 </X>
<Y> 670 </Y>
<Width>310</Width>
<Align> Center </Align>
<Size> 25 </Size>
<Font> fontType1 </Font>
<Color> 0x000000 </Color>
<Value> PriceDrink </Value>
</Text>
<Text>
<X> 505 </X>
<Y> 1000 </Y>
<Width>310</Width>
<Align> Center </Align>
<Size> 25 </Size>
<Font> fontType1 </Font>
<Color> 0x000000 </Color>
<Value> NHaveDrink </Value>
</Text>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
</Page>

65
xml/menu_page4-1.xml
View file

@ -1,65 +0,0 @@
<Page>
<Width> 1080 </Width>
<Height> 1312 </Height>
<Background> "ROOT/image/BG_Loading_Page5.bmp" </Background>
<Sound> "ROOT/sounds/pleaseWait.wav" </Sound>
<EventOpen>
; On open
Var Timeout = 0
Var ErrTimeout = 0
Var ChangeTimeout = 0
Var ChangeFlag = 0
Var MachineState_Result = 0
</EventOpen>
<Timeout> 2000 </Timeout>
<EventTimeout>
Var ProcessText = ""
Open "ROOT/xml/menu_CollectPoint_Page1.xml"
TimerReset
Refresh
</EventTimeout>
<EventMachine>
</EventMachine>
<GIF>
<X> 183 </X>
<Y> 350 </Y>
<Filename> GIFShowProcess </Filename>
</GIF>
<Text>
<X> 420 </X>
<Y> 250 </Y>
<Width>250</Width>
<Align> Center </Align>
<Size> 30 </Size>
<Font> fontType1 </Font>
<Color> 0x000000 </Color>
<Value> ProcessText </Value>
</Text>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
</Page>

414
xml/menu_page4-Code.xml
View file

@ -1,414 +0,0 @@
<Page>
<Width> 1080 </Width>
<Height> 1312 </Height>
<Background> "ROOT/image/BG_Enter_Code.bmp" </Background>
<Sound> "ROOT/sounds/Code8digit.m4a" </Sound>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
Var Timeout = 0
Var GetPayInfoFlag = 0
Var CodeChannel = 0
;Var VendingQRCode = "ERROR"
VendingQR ON
Var QRCODE99 = ""
CoinVending OFF
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
;Open "ROOT/xml/menu_board.xml"
Var Timeout = Timeout + 1
If Timeout > 30 Then
VendingQR OFF
Open "ROOT/xml/menu_board.xml"
EndIf
TimerReset
Refresh
</EventTimeout>
<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> 413 </X>
<Y> 458 </Y>
<Filename> "ROOT/image/BN_1.bmp" </Filename>
<FilenamePress> "ROOT/image/BP_1.bmp" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "1"
Trim TelephoneNumber 8
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
</EventClick>
</Button>
<Button>
<X> 498 </X>
<Y> 458 </Y>
<Filename> "ROOT/image/BN_2.bmp" </Filename>
<FilenamePress> "ROOT/image/BP_2.bmp" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "2"
Trim TelephoneNumber 8
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
</EventClick>
</Button>
<Button>
<X> 582 </X>
<Y> 458 </Y>
<Filename> "ROOT/image/BN_3.bmp" </Filename>
<FilenamePress> "ROOT/image/BP_3.bmp" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "3"
Trim TelephoneNumber 8
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
</EventClick>
</Button>
<Button>
<X> 413 </X>
<Y> 535 </Y>
<Filename> "ROOT/image/BN_4.bmp" </Filename>
<FilenamePress> "ROOT/image/BP_4.bmp" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "4"
Trim TelephoneNumber 8
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
</EventClick>
</Button>
<Button>
<X> 498 </X>
<Y> 535 </Y>
<Filename> "ROOT/image/BN_5.bmp" </Filename>
<FilenamePress> "ROOT/image/BP_5.bmp" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "5"
Trim TelephoneNumber 8
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
</EventClick>
</Button>
<Button>
<X> 582 </X>
<Y> 535 </Y>
<Filename> "ROOT/image/BN_6.bmp" </Filename>
<FilenamePress> "ROOT/image/BP_6.bmp" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "6"
Trim TelephoneNumber 8
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
</EventClick>
</Button>
<Button>
<X> 413 </X>
<Y> 612 </Y>
<Filename> "ROOT/image/BN_7.bmp" </Filename>
<FilenamePress> "ROOT/image/BP_7.bmp" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "7"
Trim TelephoneNumber 8
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
</EventClick>
</Button>
<Button>
<X> 498 </X>
<Y> 612 </Y>
<Filename> "ROOT/image/BN_8.bmp" </Filename>
<FilenamePress> "ROOT/image/BP_8.bmp" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "8"
Trim TelephoneNumber 8
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
</EventClick>
</Button>
<Button>
<X> 582 </X>
<Y> 612 </Y>
<Filename> "ROOT/image/BN_9.bmp" </Filename>
<FilenamePress> "ROOT/image/BP_9.bmp" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "9"
Trim TelephoneNumber 8
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
</EventClick>
</Button>
<Button>
<X> 413 </X>
<Y> 689 </Y>
<Filename> "ROOT/image/BN_Star.bmp" </Filename>
<FilenamePress> "ROOT/image/BP_Star.bmp" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
</EventClick>
</Button>
<Button>
<X> 498 </X>
<Y> 689 </Y>
<Filename> "ROOT/image/BN_0.bmp" </Filename>
<FilenamePress> "ROOT/image/BP_0.bmp" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "0"
Trim TelephoneNumber 8
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
</EventClick>
</Button>
<Button>
<X> 582 </X>
<Y> 689 </Y>
<Filename> "ROOT/image/BN_#.bmp" </Filename>
<FilenamePress> "ROOT/image/BP_#.bmp" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
</EventClick>
</Button>
<Button>
<X> 373 </X>
<Y> 779 </Y>
<Filename> "ROOT/image/BN_Skip.bmp" </Filename>
<FilenamePress> "ROOT/image/BP_Skip.bmp" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.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> 486 </X>
<Y> 779 </Y>
<Filename> "ROOT/image/BN_Edit.bmp" </Filename>
<FilenamePress> "ROOT/image/BP_Edit.bmp" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Trim TelephoneNumber -1
Var Tel_Confirm_State = "Disable"
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 600 </X>
<Y> 779 </Y>
<State> Tel_Confirm_State </State>
<Filename> "ROOT/image/BN_Confirm.bmp" </Filename>
<FilenamePress> "ROOT/image/BP_Confirm.bmp" </FilenamePress>
<FilenameDisable> "ROOT/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
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + sugarID
Var SessionID2 = SessionID2 + "000"
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
Var TelephoneNumber = "0899999999"
Var ServiceType = "coffee"
Var ECommerce = ""
Var ECommerce = ECommerce + PriceDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + DiscountDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SessionID2
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SelectDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + "C00"
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + CodeNumber
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var AccountType = "new"
Var testservice = "kbank"
Var tc = ""
Var GetScore = ""
Var OperatorName = ""
Var SessionID = ""
GetPayInfo TelephoneNumber ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
Var Timeout = 0
Var GetPayInfoFlag = 1
Var TelephoneNumber = CodeNumber
Var CodeChannel = 1
Open "/media/bt/xml/menu_page4-CodeWaiting.xml"
EndIf
Refresh
</EventClick>
</Button>
<Text>
<X> 310 </X>
<Y> 380 </Y>
<Width> 474 </Width>
<Align> Center </Align>
<Size> 50 </Size>
<Font> fontType1 </Font>
<Color> 0xF0E000 </Color>
<Value> TelephoneNumber </Value>
</Text>
<QRCode>
<X> 450 </X>
<Y> 595 </Y>
<Width> 185 </Width>
<Height> 185 </Height>
<Service> testservice </Service>
</QRCode>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
</Page>

69
xml/menu_page4-CodeError.xml
View file

@ -1,69 +0,0 @@
<Page>
<Width> 1080 </Width>
<Height> 1312 </Height>
<Background> "ROOT/image/BG_Enter_Code.bmp" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
Var Timeout = 0
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
;Open "ROOT/xml/menu_board.xml"
Var Timeout = Timeout + 1
If Timeout > 5 Then
Open "ROOT/xml/menu_board.xml"
EndIf
TimerReset
Refresh
</EventTimeout>
<Text>
<X> 310 </X>
<Y> 380 </Y>
<Width> 474 </Width>
<Align> Center </Align>
<Size> 50 </Size>
<Font> fontType1 </Font>
<Color> 0xF0E000 </Color>
<Value> TelephoneNumber </Value>
</Text>
<Text>
<X> 310 </X>
<Y> 550 </Y>
<Width> 474 </Width>
<Align> Center </Align>
<Size> 50 </Size>
<Font> fontType1 </Font>
<Color> 0xF0E000 </Color>
<Value> "ไม่เจอโค้ดในระบบ" </Value>
</Text>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
<EventActionOk>
</EventActionOk>
<EventActionError>
</EventActionError>
</Page>

110
xml/menu_page4-CodeWaiting.xml
View file

@ -1,110 +0,0 @@
<Page>
<Width> 1080 </Width>
<Height> 1312 </Height>
<Background> "ROOT/image/BG_Enter_Code.bmp" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
; On open
Var Timeout = 0
Var VendingCode = ""
Var VendingREFID = ""
Var VendingCampaignRI3 = ""
Var VendingCampaign1 = ""
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
;Open "ROOT/xml/menu_board.xml"
Var Timeout = Timeout + 1
If Timeout > 60 Then
Open "ROOT/xml/menu_Page4-CodeError.xml"
EndIf
TimerReset
Refresh
</EventTimeout>
<Text>
<X> 310 </X>
<Y> 380 </Y>
<Width> 474 </Width>
<Align> Center </Align>
<Size> 50 </Size>
<Font> fontType1 </Font>
<Color> 0xF0E000 </Color>
<Value> TelephoneNumber </Value>
</Text>
<Text>
<X> 310 </X>
<Y> 550 </Y>
<Width> 474 </Width>
<Align> Center </Align>
<Size> 50 </Size>
<Font> fontType1 </Font>
<Color> 0xF0E000 </Color>
<Value> "กรุณารอซักครู่ กำลังตรวจสอบโค้ด" </Value>
</Text>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
<EventActionOk>
If CodeChannel = 1 Then
SPLIT ECommerce "/" 5 VendingCode
SPLIT ECommerce "/" 7 VendingCampaignRI3
SPLIT ECommerce "/" 8 VendingCampaign1
Var IntVendingCampaign = VendingCampaignRI3
INT IntVendingCampaign
Var VendingREFID = SessionID
If IntVendingCampaign > 0 Then
Var BG_Menu_Page4 = "ROOT/image/BG_Cash_Page4.bmp"
Var PayState1 = "PressForever"
Var PayState2 = "Enable"
Var QRChannel = 0
Open "ROOT/xml/menu_Page4-WithCode.xml"
Else
If VendingCode = "C13" Then
;Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif"
MakeDrinkV1 SelectDrink SelectSugarID
Open "/media/bt/xml/menu_page4-1.xml"
EndIf
Open "/media/bt/xml/menu_page4-CodeError.xml"
EndIf
EndIf
</EventActionOk>
<EventActionError>
If CodeChannel = 1 Then
Open "/media/bt/xml/menu_page4-CodeError.xml"
EndIf
</EventActionError>
</Page>

422
xml/menu_page4-QR.xml
View file

@ -1,422 +0,0 @@
<Page>
<Width> 1080 </Width>
<Height> 1312 </Height>
<Background> BG_Menu_Page4 </Background>
<Sound> "ROOT/sounds/QRpayment.m4a" </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 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-QR.xml > ActOK_REFID"
Refresh
Else
SAVELOG "menu_page4-QR.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>
<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
SAVELOG "menu_page4-QR.xml > Timeout"
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 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
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
SAVELOG "menu_page4-QR.xml > Cash"
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
SAVELOG "menu_page4-QR.xml > QR"
Open "ROOT/xml/menu_page4.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"
SAVELOG "menu_page4-QR.xml > Code"
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
SAVELOG "menu_page4-QR.xml > Cancel"
</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>

480
xml/menu_page4-WithCode.xml
View file

@ -1,480 +0,0 @@
<Page>
<Width> 1080 </Width>
<Height> 1312 </Height>
<Background> BG_Menu_Page4 </Background>
<Sound> "ROOT/sounds/selectPayment.wav" </Sound>
<EventOpen>
Var PayInfoCFlag = 0
Var ActionOKCase = 0
Var VendingCampaign = IntVendingCampaign
Var CoinInFlag = 1
Var CoinAmount = 0
Var CancelFlag = 0
Var CancelCounter = 0
Var CoinInCounter = 0
Var PayAmount = PriceDrink
Var RemainAmount = PayAmount - IntVendingCampaign
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 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
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
Else
VendingQR OFF
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 IntVendingCampaign >= PayAmount Then
CoinVending OFF
MakeDrinkV1 SelectDrink SelectSugarID
Open "/media/bt/xml/menu_page4-1.xml"
EndIf
</EventOpen>
<EventActionOk>
If ActionOKCase = 1 Then
Var PayInfoCFlag = 1
EndIf
If ActionOKCase = 2 Then
Open "ROOT/xml/menu_board.xml"
EndIf
</EventActionOk>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var Timeout = Timeout + 1
If Timeout > 180 Then
If ActionOKCase = 1 Then
Var PayInfoCFlag = 1
EndIf
If ActionOKCase = 2 Then
Open "ROOT/xml/menu_board.xml"
EndIf
EndIf
If ActionOKCase = 1 Then
If PayInfoCFlag = 1 Then
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + sugarID
Var SessionID2 = SessionID2 + "000"
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
Var TelephoneNumber = "0899999999"
Var ServiceType = "coffee"
Var ECommerce = ""
Var ECommerce = ECommerce + PriceDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + DiscountDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SessionID2
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SelectDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + "C00"
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + CodeNumber
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + "C"
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var AccountType = "new"
Var testservice = "kbank"
Var tc = ""
Var GetScore = ""
Var OperatorName = ""
Var SessionID = ""
GetPayInfo TelephoneNumber ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
;Var Timeout = 0
Var ActionOKCase = 2
EndIf
EndIf
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
If ActionOKCase = 0 Then
Var PayInfoCFlag = 1
Var ActionOKCase = 1
EndIf
EndIf
EndIf
EndIf
EndIf
Var CancelCounter = CancelCounter + 1
If CancelFlag = 1 Then
If CancelCounter = 3 Then
;Change CoinAmount
If CoinAmount > 0 Then
Change CoinAmount
Else
If ActionOKCase = 0 Then
Var PayInfoCFlag = 1
Var ActionOKCase = 1
EndIf
EndIf
EndIf
EndIf
If CancelFlag = 1 Then
If ChangeOK = 1 Then
If ActionOKCase = 0 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"
Var ActionOKCase = 1
EndIf
EndIf
EndIf
Var CoinInCounter = CoinInCounter + 1
If CoinInOK = 1 Then
If CoinInCounter = 3 Then
Var RemainAmount = PayAmount - CoinAmount
Var RemainAmount = RemainAmount - IntVendingCampaign
Var SumCoinAmount = CoinAmount + IntVendingCampaign
If SumCoinAmount >= PayAmount Then
Var Canout = SumCoinAmount - 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
Var CoinInFlag = 1
If CoinInOK = 0 Then
Var RemainAmount = PayAmount - CoinAmount
Var RemainAmount = RemainAmount - IntVendingCampaign
Var SumCoinAmount = CoinAmount + IntVendingCampaign
If SumCoinAmount >= PayAmount Then
;Var VendingQRCode = "ERROR"
CoinVending OFF
Var Canout = SumCoinAmount - 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>

420
xml/menu_page4.xml
View file

@ -1,420 +0,0 @@
<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>

409
xml/menu_page4aa.xml
View file

@ -1,409 +0,0 @@
<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"
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
</EventOpen>
<EventActionOk>
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
</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
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
</EventTimeout>
<EventChangeStatus>
If ChangeStatus = "payout-end" Then
Var ChangeOK = 1
EndIf
</EventChangeStatus>
<EventCoin>
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
</EventCoin>
<EventVDCancle>
If CoinInOK = 0 Then
If CancelFlag = 0 Then
CoinVending OFF
Var CancelFlag = 1
Var CancelCounter = 0
EndIf
EndIf
</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
</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>

366
xml/menu_page5.xml
View file

@ -1,366 +0,0 @@
<Page>
<Width> 1080 </Width>
<Height> 1312 </Height>
<Background> "ROOT/image/BG_Loading_Page5.bmp" </Background>
<EventOpen>
; On open
Var Timeout = 0
Var Change3Timeout = 0
Var ActionOKCase = 0
</EventOpen>
<EventActionOk>
If ActionOKCase = 1 Then
If CodeChannel = 1 Then
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + sugarID
Var SessionID2 = SessionID2 + "000"
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
Var TelephoneNumber = "0899999999"
Var ServiceType = "coffee"
Var ECommerce = ""
Var ECommerce = ECommerce + PriceDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + DiscountDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SessionID2
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SelectDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + "C00"
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + CodeNumber
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + "C"
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var AccountType = "new"
Var testservice = "kbank"
Var tc = ""
Var GetScore = ""
Var OperatorName = ""
Var SessionID = ""
GetPayInfo TelephoneNumber ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
;Var Timeout = 0
Var ActionOKCase = 2
Else
Open "ROOT/xml/menu_closeMaintenance.xml"
EndIf
EndIf
If ActionOKCase = 2 Then
Open "ROOT/xml/menu_closeMaintenance.xml"
EndIf
</EventActionOk>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var Timeout = Timeout + 1
If ActionOKCase > 0 Then
If Timeout > 150 Then
Open "ROOT/xml/menu_closeMaintenance.xml"
EndIf
EndIf
If Timeout > 60 Then
If ErrTimeout = 0 Then
Var ErrTimeout = 1
Var BrewingTextEng = ""
Var BrewingTextThai = ""
Var ProcessText = "ระบบขัดข้อง"
;Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_failed.gif"
If PayWithQR = 0 Then
If CodeChannel = 0 Then
If ChangeFlag = 0 Then
Var ChangeFlag = 1
Change ServiceAmount2
EndIf
Else
If CoinAmount > 0 Then
If ChangeFlag = 0 Then
Var ChangeFlag = 1
Var ServiceAmount2 = ServiceAmount2 - IntVendingCampaign
Change ServiceAmount2
EndIf
Else
Var ChangeOK = 4
EndIf
EndIf
Else
Var ChangeOK = 3
EndIf
Open "ROOT/xml/menu_page5.xml"
EndIf
EndIf
If ChangeFlag = 1 Then
Var ChangeTimeout = ChangeTimeout + 1
EndIf
If ChangeOK = 2 Then
If ActionOKCase = 0 Then
Var TelephoneNumber = "0899999999"
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_closeMaintenance.xml"
Var ActionOKCase = 1
EndIf
EndIf
If ChangeTimeout > 60 Then
If ActionOKCase = 0 Then
Var TelephoneNumber = "0899999999"
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_closeMaintenance.xml"
Var ActionOKCase = 1
EndIf
EndIf
If ChangeOK = 3 Then
Var Change3Timeout = Change3Timeout + 1
If Change3Timeout > 3 Then
Open "ROOT/xml/menu_closeMaintenance.xml"
EndIf
EndIf
If ChangeOK = 4 Then
If ActionOKCase = 0 Then
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + sugarID
Var SessionID2 = SessionID2 + "000"
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
Var TelephoneNumber = "0899999999"
Var ServiceType = "coffee"
Var ECommerce = ""
Var ECommerce = ECommerce + PriceDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + DiscountDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SessionID2
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SelectDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + "C00"
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + CodeNumber
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + "C"
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var AccountType = "new"
Var testservice = "kbank"
Var tc = ""
Var GetScore = ""
Var OperatorName = ""
Var SessionID = ""
GetPayInfo TelephoneNumber ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
;Var Timeout = 0
Var ActionOKCase = 2
EndIf
EndIf
If MachineState_Result = 1 Then
Var Timeout = 0
Var ProcessText = ""
;Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_ready.gif"
Var TelephoneNumber = "0899999999"
Var ServiceType = "coffee"
Var ServiceCredit = SelectDrink
Var SuggestID = ""
If PayWithQR = 0 Then
If CodeChannel = 1 Then
Var SessionID2 = SessionID2 + "/"
Var SessionID2 = SessionID2 + CodeNumber
Var SessionID2 = SessionID2 + "/"
Var SessionID2 = SessionID2 + VendingCode
Var SessionID2 = SessionID2 + "/"
Var SessionID2 = SessionID2 + SelectDrink
Var SessionID2 = SessionID2 + "/"
Var SessionID2 = SessionID2 + BoxID
Var SessionID2 = SessionID2 + "/"
Var SessionID2 = SessionID2 + "S"
Var SessionID2 = SessionID2 + "/"
Var SessionID2 = SessionID2 + CodeNumber
Var SessionID2 = SessionID2 + "/"
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
Else
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
EndIf
EndIf
Var ServiceSuccess = "yes"
Open "ROOT/xml/menu_page6.xml"
EndIf
If MachineState_Result = 2 Then
If ErrTimeout = 0 Then
Var ErrTimeout = 1
Var BrewingTextEng = ""
Var BrewingTextThai = ""
Var ProcessText = "ระบบขัดข้อง"
;Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_failed.gif"
If PayWithQR = 0 Then
If CodeChannel = 0 Then
If ChangeFlag = 0 Then
Var ChangeFlag = 1
Change ServiceAmount2
EndIf
Else
If CoinAmount > 0 Then
If ChangeFlag = 0 Then
Var ChangeFlag = 1
Var ServiceAmount2 = ServiceAmount2 - IntVendingCampaign
Change ServiceAmount2
EndIf
Else
Var ChangeOK = 4
EndIf
EndIf
Else
Var ChangeOK = 3
EndIf
Open "ROOT/xml/menu_page5.xml"
EndIf
EndIf
TimerReset
Refresh
</EventTimeout>
<EventMachine>
If MachineStage = "make-drink" Then
Var Timeout = 0
Var ProcessText = ""
;Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif"
Open "ROOT/xml/menu_page5.xml"
EndIf
If MachineStage = "prepar-cup" Then
Var Timeout = 0
Var ProcessText = ""
;Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif"
Open "ROOT/xml/menu_page5.xml"
EndIf
If MachineStage = "ice-out" Then
Var Timeout = 0
Var ProcessText = ""
;Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_ice.gif"
Open "ROOT/xml/menu_page5.xml"
EndIf
If MachineStage = "brewing" Then
Var Timeout = 0
Var ProcessText = ""
Open "ROOT/xml/menu_page5.xml"
EndIf
If MachineStage = "drink-success" Then
Var MachineState_Result = 1
EndIf
If MachineStage = "drink-failed" Then
Var MachineState_Result = 2
EndIf
</EventMachine>
<EventChangeStatus>
If ChangeStatus = "payout-end" Then
Var ChangeOK = 2
EndIf
</EventChangeStatus>
<GIF>
<X> 183 </X>
<Y> 350 </Y>
<Filename> GIFShowProcess </Filename>
</GIF>
<Text>
<X> 420 </X>
<Y> 250 </Y>
<Width>250</Width>
<Align> Center </Align>
<Size> 30 </Size>
<Font> fontType1 </Font>
<Color> 0x000000 </Color>
<Value> ProcessText </Value>
</Text>
<Text>
<X> 420 </X>
<Y> 250 </Y>
<Width>250</Width>
<Align> Center </Align>
<Size> 30 </Size>
<Font> fontType1 </Font>
<Color> 0x000000 </Color>
<Value> BrewingTextEng </Value>
</Text>
<Text>
<X> 420 </X>
<Y> 315 </Y>
<Width>250</Width>
<Align> Center </Align>
<Size> 25 </Size>
<Font> fontType1 </Font>
<Color> 0xB78F24 </Color>
<Value> BrewingTextThai </Value>
</Text>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
</Page>

108
xml/menu_page6.xml
View file

@ -1,108 +0,0 @@
<Page>
<Width> 1080 </Width>
<Height> 1312 </Height>
<Background> "ROOT/image/BG_Menu_Page6.bmp" </Background>
<EventOpen>
; On open
Var Timeout = 0
Var AckPayOK = 0
Var GetLidOK = 0
Var RemoveCup = 0
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
;Open "ROOT/xml/menu_board.xml"
Var Timeout = Timeout + 1
If Timeout > 60 Then
Var AckPayOK = 1
EndIf
If Timeout > 70 Then
Var GetLidOK = 1
EndIf
If Timeout >= 5 Then
If PayWithQR = 1 Then
Var AckPayOK = 1
EndIf
If CodeChannel = 1 Then
Var AckPayOK = 1
EndIf
EndIf
If AckPayOK = 1 Then
If GetLidOK = 1 Then
Var TelephoneNumber = ""
Var Tel_Confirm_State = "Disable"
;If CodeChannel = 1 Then
; Open "ROOT/xml/menu_Page7.xml"
;EndIf
If SelectDrink = "11-01-02-0009" Then
Open "ROOT/xml/menu_Page7.xml"
EndIf
;Open "ROOT/xml/menu_CollectPoint_Page1.xml"
Open "ROOT/xml/menu_Page7.xml"
EndIf
If RemoveCup = 1 Then
Var ProcessText = "กรุณานำเครื่องดื่มออก"
Open "ROOT/xml/menu_page6_Open.xml"
EndIf
EndIf
TimerReset
Refresh
</EventTimeout>
<EventMachine>
If MachineStage = "get-lid" Then
Var GetLidOK = 1
EndIf
If MachineStage = "remove-cup" Then
;Var ProcessText = "กรุณานำเครื่องดื่มออก"
;Open "ROOT/xml/menu_page6_Open.xml"
Var RemoveCup = 1
EndIf
</EventMachine>
<EventActionOk>
Var AckPayOK = 1
</EventActionOk>
<GIF>
<X> 183 </X>
<Y> 350 </Y>
<Filename> GIFShowProcess </Filename>
</GIF>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
</Page>

106
xml/menu_page6.xml.bak
View file

@ -1,106 +0,0 @@
<Page>
<Width> 1080 </Width>
<Height> 1312 </Height>
<Background> "ROOT/image/BG_Menu_Page6.bmp" </Background>
<EventOpen>
; On open
Var Timeout = 0
Var AckPayOK = 0
Var GetLidOK = 0
Var RemoveCup = 0
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
;Open "ROOT/xml/menu_board.xml"
Var Timeout = Timeout + 1
If Timeout > 60 Then
Var AckPayOK = 1
EndIf
If Timeout > 70 Then
Var GetLidOK = 1
EndIf
If Timeout >= 5 Then
If PayWithQR = 1 Then
Var AckPayOK = 1
EndIf
If CodeChannel = 1 Then
Var AckPayOK = 1
EndIf
EndIf
If AckPayOK = 1 Then
If GetLidOK = 1 Then
Var TelephoneNumber = ""
Var Tel_Confirm_State = "Disable"
;If CodeChannel = 1 Then
; Open "ROOT/xml/menu_Page7.xml"
;EndIf
If SelectDrink = "11-01-02-0009" Then
Open "ROOT/xml/menu_Page7.xml"
EndIf
Open "ROOT/xml/menu_CollectPoint_Page1.xml"
EndIf
If RemoveCup = 1 Then
Var ProcessText = "กรุณานำเครื่องดื่มออก"
Open "ROOT/xml/menu_page6_Open.xml"
EndIf
EndIf
TimerReset
Refresh
</EventTimeout>
<EventMachine>
If MachineStage = "get-lid" Then
Var GetLidOK = 1
EndIf
If MachineStage = "remove-cup" Then
;Var ProcessText = "กรุณานำเครื่องดื่มออก"
;Open "ROOT/xml/menu_page6_Open.xml"
Var RemoveCup = 1
EndIf
</EventMachine>
<EventActionOk>
Var AckPayOK = 1
</EventActionOk>
;<GIF>
;<X> 183 </X>
;<Y> 350 </Y>
;<Filename> GIFShowProcess </Filename>
;</GIF>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
</Page>

101
xml/menu_page6_Open.xml
View file

@ -1,101 +0,0 @@
<Page>
<Width> 1080 </Width>
<Height> 1312 </Height>
<Background> p6OpenBG </Background>
<EventOpen>
; On open
TopView "show"
Var Timeout = 0
Var ProcessText = "กรุณานำเครื่องดื่มออก"
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
;Open "ROOT/xml/menu_board.xml"
Var Timeout = Timeout + 1
If HaveCup = "false" Then
If ServiceSuccess = "yes" Then
Var ServiceSuccess = "no"
Var TelephoneNumber = ""
Var Tel_Confirm_State = "Disable"
;If CodeChannel = 1 Then
; Open "ROOT/xml/menu_Page7.xml"
;EndIf
If SelectDrink = "11-01-02-0009" Then
Open "ROOT/xml/menu_Page7.xml"
EndIf
;Open "ROOT/xml/menu_CollectPoint_Page1.xml"
Open "ROOT/xml/menu_Page7.xml"
Else
Open "ROOT/xml/menu_closeMaintenance.xml"
EndIf
EndIf
TimerReset
</EventTimeout>
<EventMachine>
</EventMachine>
<GIF>
<X> 250 </X>
<Y> 460 </Y>
<Filename> p6OpenGIF </Filename>
</GIF>
<Text>
<X> 395 </X>
<Y> 250 </Y>
<Width>300</Width>
<Align> Center </Align>
<Size> 30 </Size>
<Font> fontType1 </Font>
<Color> 0x000000 </Color>
<Value> ProcessText </Value>
</Text>
<Button>
<X> 488 </X>
<Y> 804 </Y>
<Filename> "ROOT/image/BN_OPEN.bmp" </Filename>
<FilenamePress> "ROOT/image/BP_OPEN.bmp" </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Machine DoorOpen
</EventClick>
</Button>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
</Page>

97
xml/menu_page7.xml
View file

@ -1,97 +0,0 @@
<Page>
<Width> 1080 </Width>
<Height> 1312 </Height>
<Background> "ROOT/image2/BG_MENU_PAGE.bmp" </Background>
<Sound> "ROOT/sounds/coffee_thankyou.wav" </Sound>
<EventOpen>
; On open
TopView "hide"
Var Timeout = 0
Var WasGetLid = "Enable"
Var WasGetStraw = "Enable"
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
;Open "ROOT/xml/menu_board.xml"
Var Timeout = Timeout + 1
If Timeout > 20 Then
Open "ROOT/xml/menu_board.xml"
EndIf
TimerReset
Refresh
</EventTimeout>
<EventMachine>
</EventMachine>
<Button>
<X> 342 </X>
<Y> 772 </Y>
<State> Lid1Status </State>
<Filename> "ROOT/image2/button_lid/BN_get_lid.bmp" </Filename>
<FilenameDisable> "ROOT/image2/button_lid/BP_get_lid.bmp" </FilenameDisable>
<FilenamePress> "ROOT/image2/button_lid/BP_get_lid.bmp" </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var WasGetLid = "PressForever"
Machine Lid
Refresh
If WasGetStraw = "PressForever" Then
Open "ROOT/xml/menu_board.xml"
EndIf
</EventClick>
</Button>
<Button>
<X> 490 </X>
<Y> 772 </Y>
<State>"Enable"</State>
<Filename> "ROOT/image2/button_no/BN_not_acc.bmp" </Filename>
<FilenamePress> "ROOT/image2/button_no/BP_not_acc.bmp" </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Open "ROOT/xml/menu_board.xml"
</EventClick>
</Button>
<Button>
<X> 633 </X>
<Y> 772 </Y>
<State>WasGetStraw</State>
<Filename> "ROOT/image2/button_straw/BN_get_straw.bmp" </Filename>
<FilenamePress> "ROOT/image2/button_straw/BP_get_straw.bmp" </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var WasGetStraw = "PressForever"
Machine Straw
Refresh
If WasGetLid = "PressForever" Then
Open "ROOT/xml/menu_board.xml"
EndIf
</EventClick>
</Button>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
</Page>

77
xml/menu_pageConsent.xml
View file

@ -1,77 +0,0 @@
<Page>
<Width> 1080 </Width>
<Height> 1312 </Height>
<Background> "ROOT/image/BG_Consent.bmp" </Background>
<EventOpen>
; On open
Var Timeout = 0
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
;Open "ROOT/xml/menu_board.xml"
Var Timeout = Timeout + 1
If Timeout > 20 Then
Open "ROOT/xml/menu_page5.xml"
EndIf
TimerReset
Refresh
</EventTimeout>
<EventMachine>
If MachineStage = "drink-success" Then
Var MachineState_Result = 1
EndIf
If MachineStage = "drink-failed" Then
Var MachineState_Result = 1
EndIf
</EventMachine>
<Button>
<X> 397 </X>
<Y> 802 </Y>
<Filename> "ROOT/image/BN_accept.bmp" </Filename>
<FilenamePress> "ROOT/image/BP_accept.bmp" </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var StepGetPoint = 1
GETACCEXT TelephoneNumber 5
Open "/media/bt/xml/menu_CollectPoint_Page2.xml"
</EventClick>
</Button>
<Button>
<X> 576 </X>
<Y> 802 </Y>
<Filename> "ROOT/image/BN_decline.bmp" </Filename>
<FilenamePress> "ROOT/image/BP_decline.bmp" </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Open "ROOT/xml/menu_page5.xml"
</EventClick>
</Button>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
</Page>

1
xml/menu_payment_cash.xml
View file

@ -140,6 +140,7 @@
Var PayState1 = "PressForever"
Var PayState2 = "Enable"
Var PayState3 = "Enable"
Var showRemaining = charOfBaht + RemainAmountStr
EndIf
If GetPayInfoFlag = 0 Then

8
xml/menu_payment_code.xml
View file

@ -372,10 +372,10 @@
</Image>
<Image>
<X> 361 </X>
<Y> 873 </Y>
<X> 213 </X>
<Y> 606 </Y>
<State> ShowTextNumber </State>
<Filename> "ROOT/taobin_project/image/collectiing/text1.png" </Filename>
<Filename> "ROOT/taobin_project/image/enter_point/text3.png" </Filename>
</Image>
@ -396,7 +396,7 @@
<Image>
<X> 112 </X>
<Y> 593 </Y>
<Filename> "ROOT/taobin_project/image/enter_point/text1.png" </Filename>
<Filename> "ROOT/taobin_project/image/enter_point/text2.png" </Filename>
</Image>