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

Merge branch 'masterpiece' of ssh://forthrd.ddns.net:2222/1TBHDD/ikong/taobin_project into masterpiece

Browse source
This commit is contained in:
wanlop run 2025-05-15 14:39:40 +07:00
commit 823cca0f73
27 changed files with 521 additions and 334 deletions
Download patch file Download diff file Expand all files Collapse all files

BIN
image/pos_midnight/pos_close_midnight_en.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 11 KiB

BIN
image/pos_midnight/pos_close_midnight_th.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 12 KiB

11
inter/hkg/xml/multi/control_and_lang_swith.ev
View file

@ -35,19 +35,10 @@ Else
Var InstanceTabOpenFile6 = "ROOT/taobin_project/inter/hkg/xml/multi/page_catalog_group_health.lxml" Var InstanceTabOpenFile6 = "ROOT/taobin_project/inter/hkg/xml/multi/page_catalog_group_health.lxml"
EndIf EndIf
Var InstanceTabOpenFile8 = "ROOT/taobin_project/inter/tha/xml/multi/start_up_inst_dummy.lxml" Var InstanceTabOpenFile15 = "ROOT/taobin_project/inter/hkg/xml/multi/tab_menu.lxml"
Var InstanceTabOpenFile9 = "ROOT/taobin_project/inter/hkg/xml/multi/start_up_inst_dummy.lxml"
Var InstanceTabOpenFile10 = "ROOT/taobin_project/inter/hkg/xml/multi/tab_menu.lxml"
Var InstanceTabOpenFile11 = "ROOT/taobin_project/inter/hkg/xml/multi/start_up_inst_dummy.lxml"
Var InstanceTabOpenFile12 = "ROOT/taobin_project/inter/hkg/xml/multi/start_up_inst_dummy.lxml"
Var InstanceTabOpenFile13 = "ROOT/taobin_project/inter/hkg/xml/multi/start_up_inst_dummy.lxml"
TabMenuVisibleInst 99 TabMenuVisibleInst 99
TabMenuLock 13
DEBUGVAR Not#CountDownForMulti DEBUGVAR Not#CountDownForMulti
DEBUGVAR InstanceTabOpenFile2 DEBUGVAR InstanceTabOpenFile2

2
inter/hkg/xml/multi/menu_catalog_new.lxml
View file

@ -162,7 +162,7 @@
SAVELOG " Back multi inst" SAVELOG " Back multi inst"
TabMenuVisibleInst 99 TabMenuVisibleInst 99
RootLayoutVisible 13 "hide" ;include="ROOT/taobin_project/inter/hkg/xml/multi/tab_menu_hide.lxml"
Var OpenFromMulti = 1 Var OpenFromMulti = 1
OpenInst 2 "ROOT/taobin_project/inter/hkg/xml/multi/page_catalog.lxml" OpenInst 2 "ROOT/taobin_project/inter/hkg/xml/multi/page_catalog.lxml"

2
inter/hkg/xml/multi/page_catalog.lxml
View file

@ -561,7 +561,7 @@
Var OpenFromMulti = 1 Var OpenFromMulti = 1
TRY "/mnt/sdcard/coffeevending/taobin_project/inter/hkg/xml/event/script_common_for_open_promotion_xml.ev" TRY "/mnt/sdcard/coffeevending/taobin_project/inter/hkg/xml/event/script_common_for_open_promotion_xml.ev"
RootLayoutVisible 3 "hide" RootLayoutVisible 3 "hide"
RootLayoutVisible 13 "hide" ;include="ROOT/taobin_project/inter/hkg/xml/multi/tab_menu_hide.lxml"
</EventClick> </EventClick>
<Language> <Language>

518
inter/hkg/xml/multi/page_catalog_group_recommend.lxml
View file

@ -1,236 +1,236 @@
<Popup> <Popup>
<Cache> "Enable" </Cache> <Cache> "Enable" </Cache>
<Width> 1080 </Width> <Width> 1080 </Width>
<Height> 1920 </Height> <Height> 1920 </Height>
;<Background> "0xeae6e1" </Background> ;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_default_init.lxml"
Var Menu1Selected = "PressForever" Var Menu1Selected = "PressForever"
Var OreoBigButtonEnable = "Enable" Var OreoBigButtonEnable = "Enable"
If $12-01-01-0001.Button = "Invisible" Then If $12-01-01-0001.Button = "Invisible" Then
Var esp102101001Enable = "Invisible" Var esp102101001Enable = "Invisible"
Var esp122101001Enable = "Enable" Var esp122101001Enable = "Enable"
Else Else
Var esp102101001Enable = "Enable" Var esp102101001Enable = "Enable"
Var esp122101001Enable = "Invisible" Var esp122101001Enable = "Invisible"
EndIf EndIf
SAVELOG PreviseXMLFileName2 SAVELOG PreviseXMLFileName2
;include="ROOT/taobin_project/inter/hkg/xml/multi/tab_menu_show_and_refresh.lxml" ;include="ROOT/taobin_project/inter/hkg/xml/multi/tab_menu_show_and_refresh.lxml"
Var Timeout = 0 Var Timeout = 0
If show_eng = "true" Then If show_eng = "true" Then
Var text_unavailable = "UNAVAILABLE###size=16" Var text_unavailable = "UNAVAILABLE###size=16"
Else Else
Var text_unavailable = "หมด###size=32" Var text_unavailable = "หมด###size=32"
EndIf EndIf
;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_new_menu.lxml"
RootLayoutVisible 13 "show" RootLayoutVisible 15 "show"
RootLayoutVisible 3 "show" RootLayoutVisible 3 "show"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
</EventOpen> </EventOpen>
<EventLanguageOnChange> <EventLanguageOnChange>
DEBUGVAR LanguageShow DEBUGVAR LanguageShow
If LanguageShow = "ENG" Then If LanguageShow = "ENG" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option_en/" Var DirImage2 = "ROOT/taobin_project/image/drink_option_en/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/" Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/"
EndIf EndIf
If LanguageShow = "THAI" Then If LanguageShow = "THAI" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option/" Var DirImage2 = "ROOT/taobin_project/image/drink_option/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2/" Var DirImageAlter = "ROOT/taobin_project/image/page3_2/"
EndIf EndIf
If LanguageShow = "MYANMAR" Then If LanguageShow = "MYANMAR" Then
Var show_eng = "true" Var show_eng = "true"
DEBUGVAR show_eng DEBUGVAR show_eng
Var DirImage2 = "ROOT/taobin_project/image/drink_option_mmr/" Var DirImage2 = "ROOT/taobin_project/image/drink_option_mmr/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_mmr/" Var DirImageAlter = "ROOT/taobin_project/image/page3_2_mmr/"
EndIf EndIf
If LanguageShow = "MTC" Then If LanguageShow = "MTC" Then
Var DirImage2 = "ROOT/taobin_project/inter/hkg/image/drink_option_mtc/" Var DirImage2 = "ROOT/taobin_project/inter/hkg/image/drink_option_mtc/"
Var DirImageAlter = "ROOT/taobin_project/inter/hkg/image/page3_2_mtc/" Var DirImageAlter = "ROOT/taobin_project/inter/hkg/image/page3_2_mtc/"
Var ice_tab_text = "冰塊及時準備好了。 " Var ice_tab_text = "冰塊及時準備好了。 "
EndIf EndIf
If LanguageShow = "MSC" Then If LanguageShow = "MSC" Then
Var DirImage2 = "ROOT/taobin_project/inter/hkg/image/drink_option_msc/" Var DirImage2 = "ROOT/taobin_project/inter/hkg/image/drink_option_msc/"
Var DirImageAlter = "ROOT/taobin_project/inter/hkg/image/page3_2_msc/" Var DirImageAlter = "ROOT/taobin_project/inter/hkg/image/page3_2_msc/"
Var ice_tab_text = "冰块及时准备好了。 " Var ice_tab_text = "冰块及时准备好了。 "
EndIf EndIf
;inter-image ;inter-image
If CountryName = "Malaysia" Then If CountryName = "Malaysia" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option_myr/" Var DirImage2 = "ROOT/taobin_project/image/drink_option_myr/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/" Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/"
Var DirImage = "ROOT/taobin_project/image/page3_en" Var DirImage = "ROOT/taobin_project/image/page3_en"
Var ice_tab_text = "Ice will be ready at " Var ice_tab_text = "Ice will be ready at "
EndIf EndIf
;inter-image ;inter-image
If CountryName = "australia" Then If CountryName = "australia" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option_aus/" Var DirImage2 = "ROOT/taobin_project/image/drink_option_aus/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/" Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/"
Var DirImageAlterMilk = "ROOT/taobin_project/inter/aus/image/page3_2_en/" Var DirImageAlterMilk = "ROOT/taobin_project/inter/aus/image/page3_2_en/"
Var DirImage = "ROOT/taobin_project/image/page3_en" Var DirImage = "ROOT/taobin_project/image/page3_en"
Var ice_tab_text = "Ice will be ready at " Var ice_tab_text = "Ice will be ready at "
EndIf EndIf
;SAVELOG "EventLanguageOnChange menu -list" ;SAVELOG "EventLanguageOnChange menu -list"
Var LanguageButtonEnable = "Invisible" Var LanguageButtonEnable = "Invisible"
Var BtnLangToggleIndex = "Enable" Var BtnLangToggleIndex = "Enable"
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml" OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
RefreshAll RefreshAll
</EventLanguageOnChange> </EventLanguageOnChange>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;DEBUGVAR ICE_PROCESS_STATUS ;DEBUGVAR ICE_PROCESS_STATUS
If ICE_PROCESS_STATUS = 2 Then If ICE_PROCESS_STATUS = 2 Then
Var ice_tab_process_show = "Enable" Var ice_tab_process_show = "Enable"
Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT
Else Else
Var ice_tab_process_show = "Invisible" Var ice_tab_process_show = "Invisible"
EndIf EndIf
GetVisible inst_show GetVisible inst_show
;DEBUGVAR inst_show ;DEBUGVAR inst_show
InstanceGetString SaveStringInst InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst ;DEBUGVAR SaveStringInst
If inst_show = 1 Then If inst_show = 1 Then
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile Open CurrentOpenFile
If LanguageShow = "ENG" Then If LanguageShow = "ENG" Then
InstanceSetString "ShowEng" InstanceSetString "ShowEng"
EndIf EndIf
If LanguageShow = "MTC" Then If LanguageShow = "MTC" Then
InstanceSetString "ShowMTC" InstanceSetString "ShowMTC"
EndIf EndIf
If LanguageShow = "MSC" Then If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC" InstanceSetString "ShowMSC"
EndIf EndIf
EndIf EndIf
EndIf EndIf
; setvarint SlientRefreshEnable 1 ; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable ;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile Open CurrentOpenFile
If LanguageShow = "ENG" Then If LanguageShow = "ENG" Then
InstanceSetString "ShowEng" InstanceSetString "ShowEng"
EndIf EndIf
If LanguageShow = "MTC" Then If LanguageShow = "MTC" Then
InstanceSetString "ShowMTC" InstanceSetString "ShowMTC"
EndIf EndIf
If LanguageShow = "MSC" Then If LanguageShow = "MSC" Then
InstanceSetString "ShowMSC" InstanceSetString "ShowMSC"
EndIf EndIf
EndIf EndIf
EndIf EndIf
Var Timeout = Timeout + 1 Var Timeout = Timeout + 1
;include="ROOT/taobin_project/inter/hkg/xml/multi/EventTimeOutWihtOutMultiInstance.ev" ;include="ROOT/taobin_project/inter/hkg/xml/multi/EventTimeOutWihtOutMultiInstance.ev"
TimerReset TimerReset
</EventTimeout> </EventTimeout>
;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_new.lxml" ;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_new.lxml"
<EventLanguageOnChange> <EventLanguageOnChange>
DEBUGVAR LanguageShow DEBUGVAR LanguageShow
If LanguageShow = "ENG" Then If LanguageShow = "ENG" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option_en/" Var DirImage2 = "ROOT/taobin_project/image/drink_option_en/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/" Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/"
EndIf EndIf
If LanguageShow = "THAI" Then If LanguageShow = "THAI" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option/" Var DirImage2 = "ROOT/taobin_project/image/drink_option/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2/" Var DirImageAlter = "ROOT/taobin_project/image/page3_2/"
EndIf EndIf
If LanguageShow = "MYANMAR" Then If LanguageShow = "MYANMAR" Then
Var show_eng = "true" Var show_eng = "true"
DEBUGVAR show_eng DEBUGVAR show_eng
Var DirImage2 = "ROOT/taobin_project/image/drink_option_mmr/" Var DirImage2 = "ROOT/taobin_project/image/drink_option_mmr/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_mmr/" Var DirImageAlter = "ROOT/taobin_project/image/page3_2_mmr/"
EndIf EndIf
If LanguageShow = "MTC" Then If LanguageShow = "MTC" Then
Var DirImage2 = "ROOT/taobin_project/inter/hkg/image/drink_option_mtc/" Var DirImage2 = "ROOT/taobin_project/inter/hkg/image/drink_option_mtc/"
Var DirImageAlter = "ROOT/taobin_project/inter/hkg/image/page3_2_mtc/" Var DirImageAlter = "ROOT/taobin_project/inter/hkg/image/page3_2_mtc/"
Var ice_tab_text = "冰塊及時準備好了。 " Var ice_tab_text = "冰塊及時準備好了。 "
EndIf EndIf
If LanguageShow = "MSC" Then If LanguageShow = "MSC" Then
Var DirImage2 = "ROOT/taobin_project/inter/hkg/image/drink_option_msc/" Var DirImage2 = "ROOT/taobin_project/inter/hkg/image/drink_option_msc/"
Var DirImageAlter = "ROOT/taobin_project/inter/hkg/image/page3_2_msc/" Var DirImageAlter = "ROOT/taobin_project/inter/hkg/image/page3_2_msc/"
Var ice_tab_text = "冰块及时准备好了。 " Var ice_tab_text = "冰块及时准备好了。 "
EndIf EndIf
;inter-image ;inter-image
If CountryName = "Malaysia" Then If CountryName = "Malaysia" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option_myr/" Var DirImage2 = "ROOT/taobin_project/image/drink_option_myr/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/" Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/"
Var DirImage = "ROOT/taobin_project/image/page3_en" Var DirImage = "ROOT/taobin_project/image/page3_en"
Var ice_tab_text = "Ice will be ready at " Var ice_tab_text = "Ice will be ready at "
EndIf EndIf
;inter-image ;inter-image
If CountryName = "australia" Then If CountryName = "australia" Then
Var DirImage2 = "ROOT/taobin_project/image/drink_option_aus/" Var DirImage2 = "ROOT/taobin_project/image/drink_option_aus/"
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/" Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/"
Var DirImageAlterMilk = "ROOT/taobin_project/inter/aus/image/page3_2_en/" Var DirImageAlterMilk = "ROOT/taobin_project/inter/aus/image/page3_2_en/"
Var DirImage = "ROOT/taobin_project/image/page3_en" Var DirImage = "ROOT/taobin_project/image/page3_en"
Var ice_tab_text = "Ice will be ready at " Var ice_tab_text = "Ice will be ready at "
EndIf EndIf
;SAVELOG "EventLanguageOnChange menu -list" ;SAVELOG "EventLanguageOnChange menu -list"
Var LanguageButtonEnable = "Invisible" Var LanguageButtonEnable = "Invisible"
Var BtnLangToggleIndex = "Enable" Var BtnLangToggleIndex = "Enable"
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml" OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
</EventLanguageOnChange> </EventLanguageOnChange>
<FrameScroll> <FrameScroll>
<Max> 16 </Max> <Max> 16 </Max>
<X> 10 </X> <X> 10 </X>
@ -12948,29 +12948,29 @@
Open "ROOT/taobin_project/xml/page_payment_multi.xml" Open "ROOT/taobin_project/xml/page_payment_multi.xml"
</EventClick> </EventClick>
</Button> </Button>
<Button> <Button>
<X> 780 </X> <X> 780 </X>
<Y> 500 </Y> <Y> 500 </Y>
<State> buttonRemoveCup </State> <State> buttonRemoveCup </State>
;<Color> "0x00BDFF" </Color> ;<Color> "0x00BDFF" </Color>
<Interval> 500 </Interval> <Interval> 500 </Interval>
<Filename> "ROOT/taobin_project/image/main_page_inter/bn_remove_cup.png" </Filename> <Filename> "ROOT/taobin_project/image/main_page_inter/bn_remove_cup.png" </Filename>
<Filename> "ROOT/taobin_project/image/main_page_inter/bp_remove_cup.png" </Filename> <Filename> "ROOT/taobin_project/image/main_page_inter/bp_remove_cup.png" </Filename>
<EventClick> <EventClick>
Machine RemoveCup Machine RemoveCup
Machine DoorLidOpen Machine DoorLidOpen
Var buttonRemoveCup = "Invisible" Var buttonRemoveCup = "Invisible"
</EventClick> </EventClick>
</Button> </Button>
;BigLogoLayout ;BigLogoLayout
</Popup> </Popup>

2
inter/hkg/xml/multi/page_catalog_group_recommend.skt
View file

@ -41,7 +41,7 @@
EndIf EndIf
;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/hkg/xml/multi/menu_catalog_new_menu.lxml"
RootLayoutVisible 13 "show" RootLayoutVisible 15 "show"
RootLayoutVisible 3 "show" RootLayoutVisible 3 "show"

2
inter/hkg/xml/multi/page_instance2.xml
View file

@ -7,7 +7,7 @@
RootLayoutVisible 3 "show" RootLayoutVisible 3 "show"
RootLayoutVisible 13 "show" RootLayoutVisible 15 "show"
OpenInst 0 "/mnt/sdcard/coffeevending/taobin_project/xml/page_main_blank.xml" OpenInst 0 "/mnt/sdcard/coffeevending/taobin_project/xml/page_main_blank.xml"

1
inter/hkg/xml/multi/start_up_inst_11.xml
View file

@ -3,7 +3,6 @@
<Height> 1920 </Height> <Height> 1920 </Height>
<EventOpen> <EventOpen>
Var InstanceTabOpenFile11 = "ROOT/taobin_project/inter/hkg/xml/multi/start_up_inst_dummy.xml"
</EventOpen> </EventOpen>
<Timeout> 10000 </Timeout> <Timeout> 10000 </Timeout>

1
inter/hkg/xml/multi/start_up_inst_12.xml
View file

@ -3,7 +3,6 @@
<Height> 1920 </Height> <Height> 1920 </Height>
<EventOpen> <EventOpen>
Var InstanceTabOpenFile12 = "ROOT/taobin_project/inter/hkg/xml/multi/start_up_inst_dummy.xml"
</EventOpen> </EventOpen>
<Timeout> 10000 </Timeout> <Timeout> 10000 </Timeout>

1
inter/hkg/xml/multi/start_up_inst_13.xml
View file

@ -3,7 +3,6 @@
<Height> 1920 </Height> <Height> 1920 </Height>
<EventOpen> <EventOpen>
Var InstanceTabOpenFile13 = "ROOT/taobin_project/inter/hkg/xml/multi/start_up_inst_dummy.xml"
</EventOpen> </EventOpen>
<Timeout> 10000 </Timeout> <Timeout> 10000 </Timeout>

23
inter/hkg/xml/multi/start_up_inst_14.xml Normal file
View file

@ -0,0 +1,23 @@
<Popup>
<Width> 1080</Width>
<Height> 1920 </Height>
<EventOpen>
</EventOpen>
<Timeout> 10000 </Timeout>
<EventTimeout>
If InstanceTabOpenFile14 = "" Then
Else
Open InstanceTabOpenFile14
EndIf
TimerReset
</EventTimeout>
</Popup>

4
inter/hkg/xml/multi/tab_menu.lxml
View file

@ -82,7 +82,7 @@
;TRY OpenFileXML ;TRY OpenFileXML
RootLayoutVisible 3 "hide" RootLayoutVisible 3 "hide"
RootLayoutVisible 13 "hide" RootLayoutVisible 15 "hide"
TRY "/mnt/sdcard/coffeevending/taobin_project/inter/hkg/xml/event/script_common_for_open_promotion_xml.ev" TRY "/mnt/sdcard/coffeevending/taobin_project/inter/hkg/xml/event/script_common_for_open_promotion_xml.ev"
</EventClick> </EventClick>
@ -252,7 +252,7 @@
RootLayoutVisible 3 "hide" RootLayoutVisible 3 "hide"
RootLayoutVisible 13 "hide" RootLayoutVisible 15 "hide"
TabMenuVisibleInst 99 TabMenuVisibleInst 99
OpenInst 2 "ROOT/taobin_project/spiral/xml/page_catalog_vending_machine.xml" OpenInst 2 "ROOT/taobin_project/spiral/xml/page_catalog_vending_machine.xml"

2
inter/hkg/xml/multi/tab_menu_hide.lxml
View file

@ -1 +1 @@
RootLayoutVisible 13 "hide" RootLayoutVisible 15 "hide"

3
inter/hkg/xml/multi/tab_menu_show_and_refresh.lxml
View file

@ -1,2 +1,3 @@
OpenInst 13 "ROOT/taobin_project/inter/hkg/xml/multi/tab_menu.lxml" OpenInst 15 "ROOT/taobin_project/inter/hkg/xml/multi/tab_menu.lxml"
RootLayoutVisible 15 "show"

2
inter/hkg/xml/page_topping_select6.lxml
View file

@ -7,7 +7,7 @@
<EventOpen> <EventOpen>
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml" OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml"
RootLayoutVisible 13 "hide" ;include="ROOT/taobin_project/inter/hkg/xml/multi/tab_menu_hide.lxml"
Var UserSeletedSugar = 0 Var UserSeletedSugar = 0

35
xml/page_NewBrewing3.xml
View file

@ -7,7 +7,7 @@
<EventOpen> <EventOpen>
RootLayoutVisible 3 "hide" RootLayoutVisible 3 "hide"
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/process/payext_setup.ev" TRY "/mnt/sdcard/coffeevending/taobin_project/xml/process/payext_setup.ev"
Var SendNotiPaySuccess = 2 Var SendNotiPaySuccess = 2
@ -288,6 +288,15 @@
Var EnableTopupCreditBetweenBrew = "Enable" Var EnableTopupCreditBetweenBrew = "Enable"
EndIf EndIf
If ConnectWithPOSMachine = 1 Then
If POS_SELL_MODE = "NORMAL" Then
Else
Var SelectMenuBetweenBrewEnable1 = "Invisible"
EndIf
EndIf
If GetFreeFromError = 1 Then If GetFreeFromError = 1 Then
Var SelectMenuBetweenBrewEnable1 = "Invisible" Var SelectMenuBetweenBrewEnable1 = "Invisible"
Var EnableTopupCreditBetweenBrew = "Invisible" Var EnableTopupCreditBetweenBrew = "Invisible"
@ -426,7 +435,7 @@
DEBUGVAR GameEnableFromTrickerEv DEBUGVAR GameEnableFromTrickerEv
DEBUGVAR GameOverrideDisable DEBUGVAR GameOverrideDisable
DEBUGVAR game_mode_enable DEBUGVAR game_mode_enable
DEBUGVAR Seeker DEBUGVAR Seeker
@ -618,11 +627,11 @@
Var IgnoreLidStrawAll = 0 Var IgnoreLidStrawAll = 0
Var bg_lidProblem_ST = "Invisible" Var bg_lidProblem_ST = "Invisible"
Var GetLidButtonState = "Invisible" Var GetLidButtonState = "Invisible"
Var bg_strawProblem_ST = "Invisible" Var bg_strawProblem_ST = "Invisible"
Var EnableGetMoreStrawFileName = "Invisible" Var EnableGetMoreStrawFileName = "Invisible"
Var EnableTopupCreditBetweenBrew = "Invisible" Var EnableTopupCreditBetweenBrew = "Invisible"
EndIf EndIf
__CMD "SetErrorCodeHandleByXML" 1028 "-" "-" __CMD "SetErrorCodeHandleByXML" 1028 "-" "-"
@ -670,7 +679,7 @@
Var ECommerce = ECommerce + "C:" Var ECommerce = ECommerce + "C:"
Var ECommerce = ECommerce + Seeker.IntVendingCampaign Var ECommerce = ECommerce + Seeker.IntVendingCampaign
Var ServiceParameter = "max" Var ServiceParameter = "max"
Var ServiceCharge = 0 Var ServiceCharge = Seeker.ServiceCharge
Var AccountType = "new" Var AccountType = "new"
Var testservice = "kbank" Var testservice = "kbank"
Var tc = "" Var tc = ""
@ -723,7 +732,7 @@
Var ECommerce = ECommerce + "C:" Var ECommerce = ECommerce + "C:"
Var ECommerce = ECommerce + Seeker.IntVendingCampaign Var ECommerce = ECommerce + Seeker.IntVendingCampaign
Var ServiceParameter = "max" Var ServiceParameter = "max"
Var ServiceCharge = 0 Var ServiceCharge = Seeker.ServiceCharge
Var AccountType = "new" Var AccountType = "new"
Var testservice = "kbank" Var testservice = "kbank"
Var tc = "" Var tc = ""
@ -885,7 +894,7 @@
Var ECommerce = ECommerce + "C:" Var ECommerce = ECommerce + "C:"
Var ECommerce = ECommerce + Seeker.IntVendingCampaign Var ECommerce = ECommerce + Seeker.IntVendingCampaign
Var ServiceParameter = "max" Var ServiceParameter = "max"
Var ServiceCharge = 0 Var ServiceCharge = Seeker.ServiceCharge
Var AccountType = "new" Var AccountType = "new"
Var testservice = "kbank" Var testservice = "kbank"
Var tc = "" Var tc = ""
@ -930,7 +939,7 @@
Var PayDetail2 = "" Var PayDetail2 = ""
Var VendingOrderID = Seeker.ORDER_ID Var VendingOrderID = Seeker.ORDER_ID
Var ServiceRefund = 0 Var ServiceRefund = 0
Var ServiceCharge = 0 Var ServiceCharge = Seeker.ServiceCharge
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceRefund ServiceCharge Donate Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceRefund ServiceCharge Donate
Var waitAckPay = 2 Var waitAckPay = 2
@ -969,7 +978,7 @@
Var PayDetail2 = "" Var PayDetail2 = ""
Var VendingOrderID = Seeker.ORDER_ID Var VendingOrderID = Seeker.ORDER_ID
Var ServiceRefund = 0 Var ServiceRefund = 0
Var ServiceCharge = 0 Var ServiceCharge = Seeker.ServiceCharge
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceRefund ServiceCharge Donate Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceRefund ServiceCharge Donate
Var waitAckPay = 2 Var waitAckPay = 2
@ -1411,6 +1420,14 @@
EndIf EndIf
If SelectMenuBetweenBrewEnable1 = "Enable" Then
If ConnectWithPOSMachine = 1 Then
If POS_SELL_MODE = "NORMAL" Then
Else
Var SelectMenuBetweenBrewEnable1 = "Invisible"
EndIf
EndIf
EndIf
Refresh Refresh
TimerReset TimerReset

28
xml/page_NewBrewing3Conti.xml
View file

@ -55,6 +55,14 @@
Var EnableSelectMenuBetweenBrew = "Enable" Var EnableSelectMenuBetweenBrew = "Enable"
EndIf EndIf
If ConnectWithPOSMachine = 1 Then
If POS_SELL_MODE = "NORMAL" Then
Else
Var EnableSelectMenuBetweenBrew = "Invisible"
EndIf
EndIf
If GetFreeFromError = 1 Then If GetFreeFromError = 1 Then
Var EnableSelectMenuBetweenBrew = "Invisible" Var EnableSelectMenuBetweenBrew = "Invisible"
Var EnableTopupCreditBetweenBrew = "Invisible" Var EnableTopupCreditBetweenBrew = "Invisible"
@ -186,7 +194,7 @@
Var ECommerce = ECommerce + "C:" Var ECommerce = ECommerce + "C:"
Var ECommerce = ECommerce + Seeker.IntVendingCampaign Var ECommerce = ECommerce + Seeker.IntVendingCampaign
Var ServiceParameter = "max" Var ServiceParameter = "max"
Var ServiceCharge = 0 Var ServiceCharge = Seeker.ServiceCharge
Var AccountType = "new" Var AccountType = "new"
Var testservice = "kbank" Var testservice = "kbank"
Var tc = "" Var tc = ""
@ -243,7 +251,7 @@
Var ECommerce = ECommerce + "C:" Var ECommerce = ECommerce + "C:"
Var ECommerce = ECommerce + Seeker.IntVendingCampaign Var ECommerce = ECommerce + Seeker.IntVendingCampaign
Var ServiceParameter = "max" Var ServiceParameter = "max"
Var ServiceCharge = 0 Var ServiceCharge = Seeker.ServiceCharge
Var AccountType = "new" Var AccountType = "new"
Var testservice = "kbank" Var testservice = "kbank"
Var tc = "" Var tc = ""
@ -342,7 +350,7 @@
Var ECommerce = ECommerce + "C:" Var ECommerce = ECommerce + "C:"
Var ECommerce = ECommerce + Seeker.IntVendingCampaign Var ECommerce = ECommerce + Seeker.IntVendingCampaign
Var ServiceParameter = "max" Var ServiceParameter = "max"
Var ServiceCharge = 0 Var ServiceCharge = Seeker.ServiceCharge
Var AccountType = "new" Var AccountType = "new"
Var testservice = "kbank" Var testservice = "kbank"
Var tc = "" Var tc = ""
@ -388,7 +396,7 @@
Var PayDetail2 = "" Var PayDetail2 = ""
Var VendingOrderID = Seeker.ORDER_ID Var VendingOrderID = Seeker.ORDER_ID
Var ServiceRefund = 0 Var ServiceRefund = 0
Var ServiceCharge = 0 Var ServiceCharge = Seeker.ServiceCharge
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceRefund ServiceCharge Donate Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceRefund ServiceCharge Donate
Var waitAckPay = 2 Var waitAckPay = 2
@ -427,7 +435,7 @@
Var PayDetail2 = "" Var PayDetail2 = ""
Var VendingOrderID = Seeker.ORDER_ID Var VendingOrderID = Seeker.ORDER_ID
Var ServiceRefund = 0 Var ServiceRefund = 0
Var ServiceCharge = 0 Var ServiceCharge = Seeker.ServiceCharge
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceRefund ServiceCharge Donate Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceRefund ServiceCharge Donate
Var waitAckPay = 2 Var waitAckPay = 2
@ -584,6 +592,16 @@
Var EnableTopupCreditBetweenBrew = "Invisible" Var EnableTopupCreditBetweenBrew = "Invisible"
EndIf EndIf
If EnableSelectMenuBetweenBrew = "Enable" Then
If ConnectWithPOSMachine = 1 Then
If POS_SELL_MODE = "NORMAL" Then
Else
Var EnableSelectMenuBetweenBrew = "Invisible"
EndIf
EndIf
EndIf
If EnableSelectMenuBetweenBrew = "Enable" Then If EnableSelectMenuBetweenBrew = "Enable" Then
If EnableSelectMenuBetweenBrewBlink = "Enable" Then If EnableSelectMenuBetweenBrewBlink = "Enable" Then
Var EnableSelectMenuBetweenBrewBlink = "Invisible" Var EnableSelectMenuBetweenBrewBlink = "Invisible"

10
xml/page_NewCannotConti.xml
View file

@ -188,7 +188,7 @@
Var ECommerce = ECommerce + "C:" Var ECommerce = ECommerce + "C:"
Var ECommerce = ECommerce + Seeker.IntVendingCampaign Var ECommerce = ECommerce + Seeker.IntVendingCampaign
Var ServiceParameter = "max" Var ServiceParameter = "max"
Var ServiceCharge = 0 Var ServiceCharge = Seeker.ServiceCharge
Var AccountType = "new" Var AccountType = "new"
Var testservice = "kbank" Var testservice = "kbank"
Var tc = "" Var tc = ""
@ -245,7 +245,7 @@
Var ECommerce = ECommerce + "C:" Var ECommerce = ECommerce + "C:"
Var ECommerce = ECommerce + Seeker.IntVendingCampaign Var ECommerce = ECommerce + Seeker.IntVendingCampaign
Var ServiceParameter = "max" Var ServiceParameter = "max"
Var ServiceCharge = 0 Var ServiceCharge = Seeker.ServiceCharge
Var AccountType = "new" Var AccountType = "new"
Var testservice = "kbank" Var testservice = "kbank"
Var tc = "" Var tc = ""
@ -322,7 +322,7 @@
Var ECommerce = ECommerce + "C:" Var ECommerce = ECommerce + "C:"
Var ECommerce = ECommerce + Seeker.IntVendingCampaign Var ECommerce = ECommerce + Seeker.IntVendingCampaign
Var ServiceParameter = "max" Var ServiceParameter = "max"
Var ServiceCharge = 0 Var ServiceCharge = Seeker.ServiceCharge
Var AccountType = "new" Var AccountType = "new"
Var testservice = "kbank" Var testservice = "kbank"
Var tc = "" Var tc = ""
@ -397,7 +397,7 @@
Var PayDetail2 = "" Var PayDetail2 = ""
Var VendingOrderID = Seeker.ORDER_ID Var VendingOrderID = Seeker.ORDER_ID
Var ServiceRefund = 0 Var ServiceRefund = 0
Var ServiceCharge = 0 Var ServiceCharge = Seeker.ServiceCharge
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceRefund ServiceCharge Donate Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceRefund ServiceCharge Donate
Var waitAckPay = 2 Var waitAckPay = 2
@ -438,7 +438,7 @@
Var PayDetail2 = "" Var PayDetail2 = ""
Var VendingOrderID = Seeker.ORDER_ID Var VendingOrderID = Seeker.ORDER_ID
Var ServiceRefund = 0 Var ServiceRefund = 0
Var ServiceCharge = 0 Var ServiceCharge = Seeker.ServiceCharge
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceRefund ServiceCharge Donate Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceRefund ServiceCharge Donate
Var waitAckPay = 2 Var waitAckPay = 2

46
xml/page_board.xml
View file

@ -599,10 +599,24 @@
EndIf EndIf
If ConnectWithPOSMachine = 1 Then If ConnectWithPOSMachine = 1 Then
OpenInst 0 "ROOT/taobin_project/xml/page_network_down_pos_machine.xml" OpenInst 0 "ROOT/taobin_project/xml/page_pos_machine_network_down.xml"
EndIf EndIf
EndIf EndIf
If ConnectWithPOSMachine = 1 Then
DEBUGVAR POS_SELL_MODE
Var POSSellCountdown = 5
If POS_SELL_MODE = "NORMAL" Then
Else
Var BackgroundColor = "0x2C2F4E"
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/sold_cup_count.xml"
Open "ROOT/taobin_project/xml/page_pos_machine_midnight_close.xml"
EndIf
EndIf
DEBUGVAR ButtontoTopupMenu DEBUGVAR ButtontoTopupMenu
STRCONTAIN "taobin_notopup" XMLProfile taobin_notopup STRCONTAIN "taobin_notopup" XMLProfile taobin_notopup
STRCONTAIN "taobin_notopping" XMLProfile taobin_notopping STRCONTAIN "taobin_notopping" XMLProfile taobin_notopping
@ -1127,7 +1141,7 @@
EnableLanguage "MTC" EnableLanguage "MTC"
EnableLanguage "MSC" EnableLanguage "MSC"
EnableLanguage "ENG" EnableLanguage "ENG"
Var LanguageShow = "MTC" Var LanguageShow = "MTC"
SetLanguage "MTC" SetLanguage "MTC"
LanguageControl "UpdateList" "-" LanguageControl "UpdateList" "-"
@ -1323,7 +1337,7 @@
; enable helper ; enable helper
Var EnableHelperShow = 0 Var EnableHelperShow = 0
Var FromDrinkOk = 1 ;Var FromDrinkOk = 1
If EnableHelperShow = 1 Then If EnableHelperShow = 1 Then
; enable btn_change_langs ; enable btn_change_langs
Var EnableBtnLangWithHelper = 1 Var EnableBtnLangWithHelper = 1
@ -1361,10 +1375,10 @@
Var CatalogLayoutV3 = 1 Var CatalogLayoutV3 = 1
If BoxID = 123456 Then If BoxID = 123456 Then
Var SpiralOnline = "true" Var SpiralOnline = "true"
Var InternationalShow = 0 Var InternationalShow = 0
EndIf EndIf
@ -1711,7 +1725,7 @@
Machine NewPaymentOpenBrewingXMLEnable Machine NewPaymentOpenBrewingXMLEnable
If EnablePepsiFullscreen = 1 Then If EnablePepsiFullscreen = 1 Then
DEBUGVAR EnablePepsiFullscreen DEBUGVAR EnablePepsiFullscreen
@ -1893,7 +1907,7 @@ PRICE "Reset" "-"
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;include="ROOT/taobin_project/inter/tha/xml/multi/tab_menu_hide.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/tab_menu_hide.lxml"
If CNTDOWN_PROTECT_SCREEN_BLANK > 0 Then If CNTDOWN_PROTECT_SCREEN_BLANK > 0 Then
@ -2118,7 +2132,7 @@ PRICE "Reset" "-"
DEBUGVAR InternationalEnable DEBUGVAR InternationalEnable
DEBUGVAR CountryName DEBUGVAR CountryName
If CurrHelpCenter = 1 Then If CurrHelpCenter = 1 Then
OpenInst 0 "ROOT/taobin_project/xml/page_board.xml" OpenInst 0 "ROOT/taobin_project/xml/page_board.xml"
Else Else
@ -2298,6 +2312,22 @@ PRICE "Reset" "-"
Open "ROOT/taobin_project/xml/page_sleepmode.xml" Open "ROOT/taobin_project/xml/page_sleepmode.xml"
EndIf EndIf
If ConnectWithPOSMachine = 1 Then
If POSSellCountdown > 0 Then
Var POSSellCountdown = POSSellCountdown - 1
Else
DEBUGVAR POS_SELL_MODE
Var POSSellCountdown = 5
If POS_SELL_MODE = "NORMAL" Then
Else
Var BackgroundColor = "0x2C2F4E"
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/sold_cup_count.xml"
Open "ROOT/taobin_project/xml/page_pos_machine_midnight_close.xml"
EndIf
EndIf
EndIf
; for count helper show ; for count helper show
If EnableHelperShow = 1 Then If EnableHelperShow = 1 Then
If FromDrinkOk = 1 Then If FromDrinkOk = 1 Then

2
xml/page_lid_straw.xml
View file

@ -209,6 +209,7 @@
If Seeker.PayWithQR = 0 Then If Seeker.PayWithQR = 0 Then
DEBUGVAR TxRef1 DEBUGVAR TxRef1
Var PayDetail2 = ToppingDetail Var PayDetail2 = ToppingDetail
Var ServiceCharge = Seeker.ServiceCharge
DEBUGVAR PayDetail DEBUGVAR PayDetail
DEBUGVAR PayDetail2 DEBUGVAR PayDetail2
@ -257,6 +258,7 @@
If Seeker.PayWithQR = 0 Then If Seeker.PayWithQR = 0 Then
DEBUGVAR TxRef1 DEBUGVAR TxRef1
Var PayDetail2 = ToppingDetail Var PayDetail2 = ToppingDetail
Var ServiceCharge = Seeker.ServiceCharge
DEBUGVAR PayDetail DEBUGVAR PayDetail
DEBUGVAR PayDetail2 DEBUGVAR PayDetail2

30
xml/page_payment.xml
View file

@ -10,7 +10,7 @@
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_blank.xml" OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_blank.xml"
OpenInst 0 "/mnt/sdcard/coffeevending/taobin_project/xml/page_main_blank.xml" OpenInst 0 "/mnt/sdcard/coffeevending/taobin_project/xml/page_main_blank.xml"
If Seeker = "curr" Then If Seeker = "curr" Then
If MachineStage = "remove-cup" Then If MachineStage = "remove-cup" Then
SAVELOG "MachineStage = remove-cup" SAVELOG "MachineStage = remove-cup"
@ -37,7 +37,7 @@
EndIf EndIf
Var IndoQR = 0 Var IndoQR = 0
Var PaymentEnableAll = "true" Var PaymentEnableAll = "true"
@ -79,7 +79,7 @@
SAVELOG BoxID SAVELOG BoxID
Var ServiceCharge = 0 Var Seeker.ServiceCharge = 0
Var AdultFlag = 0 Var AdultFlag = 0
@ -247,6 +247,23 @@
Var ReadyForBrew = "false" Var ReadyForBrew = "false"
EndIf EndIf
READ_FILE "/mnt/sdcard/coffeevending/app_manager/app_list/king_power_service/enable" POSMachineFlag
DEBUGVAR POSMachineFlag
If POSMachineFlag = 1 Then
Var ConnectWithPOSMachine = 1
EndIf
If ConnectWithPOSMachine = 1 Then
If POS_SELL_MODE = "NORMAL" Then
Else
If Seeker = "next" Then
Open "ROOT/taobin_project/xml/page_brewing3Conti.xml"
Else
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
EndIf
EndIf
EndIf
; Test ; Test
@ -343,7 +360,7 @@
Var RoadShowMarketCode = "" Var RoadShowMarketCode = ""
Var Seeker.VendingCode = RoadShowMarketCode Var Seeker.VendingCode = RoadShowMarketCode
DEBUGVAR PriceDrink DEBUGVAR PriceDrink
Var Seeker.IntVendingCampaign = PriceDrink Var Seeker.IntVendingCampaign = PriceDrink
@ -398,6 +415,7 @@
Var param2 = PureName Var param2 = PureName
EndIf EndIf
DEBUGVAR ConnectWithPOSMachine
If ConnectWithPOSMachine = 1 Then If ConnectWithPOSMachine = 1 Then
Var WaitPOSStatus = 1 Var WaitPOSStatus = 1
Var TimeWaitPOSStatus = 0 Var TimeWaitPOSStatus = 0
@ -503,6 +521,8 @@
If WaitPOSStatus = 1 Then If WaitPOSStatus = 1 Then
DEBUGVAR TimeWaitPOSStatus
DEBUGVAR POS_SELL_STATUS
If TimeWaitPOSStatus < 10 Then If TimeWaitPOSStatus < 10 Then
Var TimeWaitPOSStatus = TimeWaitPOSStatus + 1 Var TimeWaitPOSStatus = TimeWaitPOSStatus + 1
@ -632,7 +652,7 @@
<Y> 938 </Y> <Y> 938 </Y>
<Width> 1080 </Width> <Width> 1080 </Width>
<Align> Center </Align> <Align> Center </Align>
<MaxSize> 66 </MaxSize> <MaxSize> 66 </MaxSize>
<Size> Auto </Size> <Size> Auto </Size>
<MaxLine> 1 </MaxLine> <MaxLine> 1 </MaxLine>
<Font> KanitMediumTTF </Font> <Font> KanitMediumTTF </Font>

39
xml/page_payment_cash.xml
View file

@ -202,7 +202,7 @@
Var ServiceCredit = SelectDrink Var ServiceCredit = SelectDrink
Var ServiceAmount2 = PayAmount Var ServiceAmount2 = PayAmount
Var Seeker.ServiceAmount2 = PayAmount Var Seeker.ServiceAmount2 = PayAmount
Var ServiceCharge = 0 Var Seeker.ServiceCharge = 0
Var Donate = "" Var Donate = ""
Var SuggestID = "" Var SuggestID = ""
Var CancleState = "Enable" Var CancleState = "Enable"
@ -707,7 +707,7 @@
Var ServiceParameter = "max" Var ServiceParameter = "max"
Var ServiceCharge = 0 Var ServiceCharge = Seeker.ServiceCharge
Var AccountType = "new" Var AccountType = "new"
Var testservice = "kbank" Var testservice = "kbank"
Var tc = "" Var tc = ""
@ -762,7 +762,7 @@
EndIf EndIf
Var ServiceParameter = "max" Var ServiceParameter = "max"
Var ServiceCharge = 0 Var ServiceCharge = Seeker.ServiceCharge
Var AccountType = "new" Var AccountType = "new"
Var testservice = "kbank" Var testservice = "kbank"
Var tc = "" Var tc = ""
@ -816,7 +816,7 @@
Var ServiceParameter = "max" Var ServiceParameter = "max"
Var ServiceCharge = 0 Var ServiceCharge = Seeker.ServiceCharge
Var AccountType = "new" Var AccountType = "new"
Var testservice = "kbank" Var testservice = "kbank"
Var tc = "" Var tc = ""
@ -869,7 +869,7 @@
EndIf EndIf
Var ServiceParameter = "max" Var ServiceParameter = "max"
Var ServiceCharge = 0 Var ServiceCharge = Seeker.ServiceCharge
Var AccountType = "new" Var AccountType = "new"
Var testservice = "kbank" Var testservice = "kbank"
Var tc = "" Var tc = ""
@ -922,7 +922,7 @@
EndIf EndIf
Var ServiceParameter = "max" Var ServiceParameter = "max"
Var ServiceCharge = 0 Var ServiceCharge = Seeker.ServiceCharge
Var AccountType = "new" Var AccountType = "new"
Var testservice = "kbank" Var testservice = "kbank"
Var tc = "" Var tc = ""
@ -975,7 +975,7 @@
EndIf EndIf
Var ServiceParameter = "max" Var ServiceParameter = "max"
Var ServiceCharge = 0 Var ServiceCharge = Seeker.ServiceCharge
Var AccountType = "new" Var AccountType = "new"
Var testservice = "kbank" Var testservice = "kbank"
Var tc = "" Var tc = ""
@ -1029,7 +1029,7 @@
EndIf EndIf
Var ServiceParameter = "max" Var ServiceParameter = "max"
Var ServiceCharge = 0 Var ServiceCharge = Seeker.ServiceCharge
Var AccountType = "new" Var AccountType = "new"
Var testservice = "kbank" Var testservice = "kbank"
Var tc = "" Var tc = ""
@ -1083,7 +1083,7 @@
EndIf EndIf
Var ServiceParameter = "max" Var ServiceParameter = "max"
Var ServiceCharge = 0 Var ServiceCharge = Seeker.ServiceCharge
Var AccountType = "new" Var AccountType = "new"
Var testservice = "kbank" Var testservice = "kbank"
Var tc = "" Var tc = ""
@ -1136,7 +1136,7 @@
EndIf EndIf
Var ServiceParameter = "max" Var ServiceParameter = "max"
Var ServiceCharge = 0 Var ServiceCharge = Seeker.ServiceCharge
Var AccountType = "new" Var AccountType = "new"
Var testservice = "kbank" Var testservice = "kbank"
Var tc = "" Var tc = ""
@ -1190,7 +1190,7 @@
Var ServiceParameter = "max" Var ServiceParameter = "max"
Var ServiceCharge = 0 Var ServiceCharge = Seeker.ServiceCharge
Var AccountType = "new" Var AccountType = "new"
Var testservice = "kbank" Var testservice = "kbank"
Var tc = "" Var tc = ""
@ -1244,7 +1244,7 @@
Var ServiceParameter = "max" Var ServiceParameter = "max"
Var ServiceCharge = 0 Var ServiceCharge = Seeker.ServiceCharge
Var AccountType = "new" Var AccountType = "new"
Var testservice = "kbank" Var testservice = "kbank"
Var tc = "" Var tc = ""
@ -1975,7 +1975,7 @@
Var LOADING_STATE = "Invisible" Var LOADING_STATE = "Invisible"
Var CreditCardLoading = 0 Var CreditCardLoading = 0
Var ServiceCharge = 0 Var Seeker.ServiceCharge = 0
CoinVending XBILL CoinVending XBILL
Else Else
@ -2017,9 +2017,9 @@
Var QRErrorState = "Invisible" Var QRErrorState = "Invisible"
Var VendingCashless = "-" Var VendingCashless = "-"
Var ServiceCharge = 3 Var Seeker.ServiceCharge = 3
Var RemainAmountX = RemainAmount Var RemainAmountX = RemainAmount
Var RemainAmountX = RemainAmountX + ServiceCharge Var RemainAmountX = RemainAmountX + Seeker.ServiceCharge
CashlessPay RemainAmountX CreditCardRef CashlessPay RemainAmountX CreditCardRef
Var CashlessPayFlag = 1 Var CashlessPayFlag = 1
EndIf EndIf
@ -2146,7 +2146,7 @@
Var ECommerce = ECommerce + "C:" Var ECommerce = ECommerce + "C:"
Var ECommerce = ECommerce + Seeker.IntVendingCampaign Var ECommerce = ECommerce + Seeker.IntVendingCampaign
Var ServiceParameter = "max" Var ServiceParameter = "max"
Var ServiceCharge = 0 Var ServiceCharge = Seeker.ServiceCharge
Var AccountType = "new" Var AccountType = "new"
Var testservice = "kbank" Var testservice = "kbank"
Var tc = "" Var tc = ""
@ -2335,6 +2335,7 @@
Var ServiceType = "credit" Var ServiceType = "credit"
Var SessionID2 = SelectDrink Var SessionID2 = SelectDrink
Var ServiceCredit = "coffee" Var ServiceCredit = "coffee"
Var ServiceCharge = Seeker.ServiceCharge
Var PayDetail2 = Seeker.PayDetail2 Var PayDetail2 = Seeker.PayDetail2
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
@ -3051,7 +3052,7 @@
Var ServiceParameter = "max" Var ServiceParameter = "max"
Var ServiceCharge = 0 Var ServiceCharge = Seeker.ServiceCharge
Var AccountType = "new" Var AccountType = "new"
Var testservice = "kbank" Var testservice = "kbank"
Var tc = "" Var tc = ""
@ -3364,9 +3365,7 @@ eval(
If KBankCashlessMachine = "1" Then If KBankCashlessMachine = "1" Then
If ReqPayInfoFromCashOther = 2 Then If ReqPayInfoFromCashOther = 2 Then
If ServiceCharge > 0 Then Var Seeker.ServiceCharge = 0
Var ServiceCharge = 0
EndIf
CoinVending XBILL CoinVending XBILL
EndIf EndIf
EndIf EndIf

80
xml/page_pos_machine_midnight_close.xml Normal file
View file

@ -0,0 +1,80 @@
<Page>
<X> 0 </X>
<Y> 380 </Y>
<Width> 1080 </Width>
<Height> 1540 </Height>
<Volume> SoundVolume </Volume>
<Cache> "Enable" </Cache>
<Background> "0x2C2F4E" </Background>
<EventOpen>
Var Timeout = 0
Var title_image = "ROOT/taobin_project/image/pos_midnight/pos_close_midnight_th.png"
If show_eng = "true" Then
Var title_image = "ROOT/taobin_project/image/pos_midnight/pos_close_midnight_en.png"
EndIf
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
If Timeout > 5 Then
DEBUGVAR POS_SELL_MODE
If POS_SELL_MODE = "NORMAL" Then
RootLayoutVisible 3 "show"
Open "ROOT/taobin_project/xml/page_board.xml"
EndIf
Var Timeout = 0
Else
Var Timeout = Timeout + 1
EndIf
TimerReset
</EventTimeout>
<Video>
<X> 0 </X>
<Y> 0 </Y>
<Filename> "ROOT/taobin_project/video/Taobin_Sleep_Screen.mp4" </Filename>
</Video>
<Button>
<X> 990 </X>
<Y> 380 </Y>
<Filename> show_btn </Filename>
<FilenamePress> show_btp </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
; eng
If show_eng = "true" Then
Var show_eng = "false"
Else
Var show_eng = "true"
EndIf
If show_eng = "true" Then
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
Else
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
EndIf
Open "ROOT/taobin_project/xml/page_pos_machine_midnight_close.xml"
</EventClick>
</Button>
<Image>
<X> 156 </X>
<Y> 380 </Y>
<Filename> title_image </Filename>
</Image>
</Page>

2
xml/page_network_down_pos_machine.xml → xml/page_pos_machine_network_down.xml
View file

@ -67,7 +67,7 @@
EndIf EndIf
Open "ROOT/taobin_project/xml/page_network_down_pos_machine.xml" Open "ROOT/taobin_project/xml/page_pos_machine_network_down.xml"
</EventClick> </EventClick>
</Button> </Button>

4
xml/page_thankyou.xml
View file

@ -360,6 +360,9 @@
Var VendingDiscount = Seeker.VendingDiscount Var VendingDiscount = Seeker.VendingDiscount
Var VendingCampaign = Seeker.VendingCampaign Var VendingCampaign = Seeker.VendingCampaign
DEBUGVAR Seeker.ServiceCharge
Var ServiceCharge = Seeker.ServiceCharge
DEBUGVAR ServiceCharge
Var PayDetail = "2/F:1311/0//XML|" + Seeker.OrderChanel Var PayDetail = "2/F:1311/0//XML|" + Seeker.OrderChanel
Var PayType = "" Var PayType = ""
@ -381,6 +384,7 @@
Var SessionID2 = SessionID2 + "/" Var SessionID2 = SessionID2 + "/"
Var PayDetail2 = ToppingDetail Var PayDetail2 = ToppingDetail
DEBUGVAR PayDetail DEBUGVAR PayDetail
DEBUGVAR PayDetail2 DEBUGVAR PayDetail2

5
xml/process/payment.ev
View file

@ -8,6 +8,7 @@ If Seeker.PayWithQR = 1 Then
Var VendingCampaign = 0 Var VendingCampaign = 0
Var SelectDrink = Seeker.selected_a_drink Var SelectDrink = Seeker.selected_a_drink
Var SuggestID = "" Var SuggestID = ""
Var ServiceCharge = Seeker.ServiceCharge
If ChangeFlag2 = 1 Then If ChangeFlag2 = 1 Then
Var TelephoneNumber = "0899999999" Var TelephoneNumber = "0899999999"
@ -54,6 +55,8 @@ If Seeker.PayWithQR = 1 Then
Var ServiceCredit = SelectDrink Var ServiceCredit = SelectDrink
Var SuggestID = "" Var SuggestID = ""
Var ServiceCharge = Seeker.ServiceCharge
Var PayDetail = "2/S:0/0//XML|" + Seeker.OrderChanel Var PayDetail = "2/S:0/0//XML|" + Seeker.OrderChanel
If GetFreeFromError = 1 Then If GetFreeFromError = 1 Then
@ -90,6 +93,8 @@ If Seeker.PayWithQR = 1 Then
Var ServiceCredit = SelectDrink Var ServiceCredit = SelectDrink
Var SuggestID = "" Var SuggestID = ""
Var ServiceCharge = Seeker.ServiceCharge
Var PayDetail = "2/S:0/0//XML|" + Seeker.OrderChanel Var PayDetail = "2/S:0/0//XML|" + Seeker.OrderChanel
If GetFreeFromError = 1 Then If GetFreeFromError = 1 Then