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

Do Redirect OpenFile

Browse source
This commit is contained in:
wanlop run 2023-12-09 23:14:58 +07:00
parent a7cd0d4a48
commit 04d81d5eff
29 changed files with 1063 additions and 131 deletions
Download patch file Download diff file Expand all files Collapse all files

3
xml/menutab/coffee.ev Normal file
View file

@ -0,0 +1,3 @@
SAVELOG "Call coffee.ev"
TabMenuVisibleInst 2
Var RedirectTo = "/mnt/sdcard/coffeevending/taobin_project/xml/menutab/page_instance2.xml"

18
xml/menutab/menu_catalog_default_init.xml
View file

@ -14,7 +14,7 @@
Var ice_tab_text = "Ice will be ready at "
Var text_unavailable = "UNAVAILABLE###size=16"
InstanceSetString "ShowEng"
Else
Var showengText = "Invisible"
Var showthaiText = "Enable"
@ -25,6 +25,8 @@
Var ice_tab_text = "น้ำแข็งจะพร้อมเวลา "
Var text_unavailable = "หมด###size=32"
InstanceSetString "ShowThai"
EndIf
If ICE_PROCESS_STATUS = 2 Then
@ -104,3 +106,17 @@
;

40
xml/menutab/menu_catalog_new.xml
View file

@ -74,16 +74,48 @@
If show_eng = "true" Then
Var show_eng = "false"
Var text_unavailable = "หมด###size=32"
InstanceSetString "ShowThai"
Else
Var show_eng = "true"
Var text_unavailable = "UNAVAILABLE###size=16"
InstanceSetString "ShowEng"
EndIf
Var RequestChangeLang = 1
Open CurrentXMLFileName2
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
</EventClick>
</Button>
<EventOnShow>
InstanceGetString SaveStringInst
DEBUGVAR show_eng
DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
If show_eng = "true" Then
If SaveStringInst = "ShowThai" Then
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
Else
If SaveStringInst = "ShowEng" Then
InstanceSetString "ShowThai"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
</EventOnShow>
;
<ListView1>
<Width> 1080 </Width>
@ -104,10 +136,8 @@
<EventClick>
SAVELOG "Click rec"
Var NextPage = "-"
TabMenuVisibleInst 1
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/menutab/page_instance2.xml"
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/event/script_common_for_open_promotion_xml.ev"
</EventClick>
</Button>

2
xml/menutab/page_catalog.xml
View file

@ -235,6 +235,8 @@
DEBUGVAR EnableMultiInstance
If EnableMultiInstance = "true" Then
OpenRedirect "/taobin_project/xml/page_catalog_group_coffee.xml" "/mnt/sdcard/coffeevending/taobin_project/xml/menutab/coffee.ev"
Var InstanceTabOpenFile2 = "ROOT/taobin_project/xml/menutab/page_catalog_group_coffee.xml"
Var InstanceTabOpenFile3 = "ROOT/taobin_project/xml/menutab/page_catalog_group_tea.xml"
Var InstanceTabOpenFile4 = "ROOT/taobin_project/xml/menutab/page_catalog_group_milk.xml"

58
xml/menutab/page_catalog_group_appfast.xml
View file

@ -24,7 +24,7 @@
Var ice_tab_text = "Ice will be ready at "
Var text_unavailable = "UNAVAILABLE###size=16"
InstanceSetString "ShowEng"
Else
Var showengText = "Invisible"
Var showthaiText = "Enable"
@ -35,6 +35,8 @@
Var ice_tab_text = "น้ำแข็งจะพร้อมเวลา "
Var text_unavailable = "หมด###size=32"
InstanceSetString "ShowThai"
EndIf
If ICE_PROCESS_STATUS = 2 Then
@ -115,6 +117,20 @@
If AppFastEnable = "true" Then
@ -222,16 +238,48 @@
If show_eng = "true" Then
Var show_eng = "false"
Var text_unavailable = "หมด###size=32"
InstanceSetString "ShowThai"
Else
Var show_eng = "true"
Var text_unavailable = "UNAVAILABLE###size=16"
InstanceSetString "ShowEng"
EndIf
Var RequestChangeLang = 1
Open CurrentXMLFileName2
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
</EventClick>
</Button>
<EventOnShow>
InstanceGetString SaveStringInst
DEBUGVAR show_eng
DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
If show_eng = "true" Then
If SaveStringInst = "ShowThai" Then
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
Else
If SaveStringInst = "ShowEng" Then
InstanceSetString "ShowThai"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
</EventOnShow>
;
<ListView1>
<Width> 1080 </Width>
@ -252,10 +300,8 @@
<EventClick>
SAVELOG "Click rec"
Var NextPage = "-"
TabMenuVisibleInst 1
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/menutab/page_instance2.xml"
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/event/script_common_for_open_promotion_xml.ev"
</EventClick>
</Button>

58
xml/menutab/page_catalog_group_cocktail.xml
View file

@ -24,7 +24,7 @@
Var ice_tab_text = "Ice will be ready at "
Var text_unavailable = "UNAVAILABLE###size=16"
InstanceSetString "ShowEng"
Else
Var showengText = "Invisible"
Var showthaiText = "Enable"
@ -35,6 +35,8 @@
Var ice_tab_text = "น้ำแข็งจะพร้อมเวลา "
Var text_unavailable = "หมด###size=32"
InstanceSetString "ShowThai"
EndIf
If ICE_PROCESS_STATUS = 2 Then
@ -115,6 +117,20 @@
Var Menu8Selected = "PressForever"
@ -214,16 +230,48 @@
If show_eng = "true" Then
Var show_eng = "false"
Var text_unavailable = "หมด###size=32"
InstanceSetString "ShowThai"
Else
Var show_eng = "true"
Var text_unavailable = "UNAVAILABLE###size=16"
InstanceSetString "ShowEng"
EndIf
Var RequestChangeLang = 1
Open CurrentXMLFileName2
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
</EventClick>
</Button>
<EventOnShow>
InstanceGetString SaveStringInst
DEBUGVAR show_eng
DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
If show_eng = "true" Then
If SaveStringInst = "ShowThai" Then
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
Else
If SaveStringInst = "ShowEng" Then
InstanceSetString "ShowThai"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
</EventOnShow>
;
<ListView1>
<Width> 1080 </Width>
@ -244,10 +292,8 @@
<EventClick>
SAVELOG "Click rec"
Var NextPage = "-"
TabMenuVisibleInst 1
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/menutab/page_instance2.xml"
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/event/script_common_for_open_promotion_xml.ev"
</EventClick>
</Button>

58
xml/menutab/page_catalog_group_coffee.xml
View file

@ -24,7 +24,7 @@
Var ice_tab_text = "Ice will be ready at "
Var text_unavailable = "UNAVAILABLE###size=16"
InstanceSetString "ShowEng"
Else
Var showengText = "Invisible"
Var showthaiText = "Enable"
@ -35,6 +35,8 @@
Var ice_tab_text = "น้ำแข็งจะพร้อมเวลา "
Var text_unavailable = "หมด###size=32"
InstanceSetString "ShowThai"
EndIf
If ICE_PROCESS_STATUS = 2 Then
@ -115,6 +117,20 @@
Var Menu2Selected = "PressForever"
@ -214,16 +230,48 @@
If show_eng = "true" Then
Var show_eng = "false"
Var text_unavailable = "หมด###size=32"
InstanceSetString "ShowThai"
Else
Var show_eng = "true"
Var text_unavailable = "UNAVAILABLE###size=16"
InstanceSetString "ShowEng"
EndIf
Var RequestChangeLang = 1
Open CurrentXMLFileName2
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
</EventClick>
</Button>
<EventOnShow>
InstanceGetString SaveStringInst
DEBUGVAR show_eng
DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
If show_eng = "true" Then
If SaveStringInst = "ShowThai" Then
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
Else
If SaveStringInst = "ShowEng" Then
InstanceSetString "ShowThai"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
</EventOnShow>
;
<ListView1>
<Width> 1080 </Width>
@ -244,10 +292,8 @@
<EventClick>
SAVELOG "Click rec"
Var NextPage = "-"
TabMenuVisibleInst 1
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/menutab/page_instance2.xml"
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/event/script_common_for_open_promotion_xml.ev"
</EventClick>
</Button>

58
xml/menutab/page_catalog_group_forkid.xml
View file

@ -24,7 +24,7 @@
Var ice_tab_text = "Ice will be ready at "
Var text_unavailable = "UNAVAILABLE###size=16"
InstanceSetString "ShowEng"
Else
Var showengText = "Invisible"
Var showthaiText = "Enable"
@ -35,6 +35,8 @@
Var ice_tab_text = "น้ำแข็งจะพร้อมเวลา "
Var text_unavailable = "หมด###size=32"
InstanceSetString "ShowThai"
EndIf
If ICE_PROCESS_STATUS = 2 Then
@ -115,6 +117,20 @@
; protein
If AppFastEnable = "true" Then
@ -223,16 +239,48 @@
If show_eng = "true" Then
Var show_eng = "false"
Var text_unavailable = "หมด###size=32"
InstanceSetString "ShowThai"
Else
Var show_eng = "true"
Var text_unavailable = "UNAVAILABLE###size=16"
InstanceSetString "ShowEng"
EndIf
Var RequestChangeLang = 1
Open CurrentXMLFileName2
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
</EventClick>
</Button>
<EventOnShow>
InstanceGetString SaveStringInst
DEBUGVAR show_eng
DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
If show_eng = "true" Then
If SaveStringInst = "ShowThai" Then
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
Else
If SaveStringInst = "ShowEng" Then
InstanceSetString "ShowThai"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
</EventOnShow>
;
<ListView1>
<Width> 1080 </Width>
@ -253,10 +301,8 @@
<EventClick>
SAVELOG "Click rec"
Var NextPage = "-"
TabMenuVisibleInst 1
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/menutab/page_instance2.xml"
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/event/script_common_for_open_promotion_xml.ev"
</EventClick>
</Button>

58
xml/menutab/page_catalog_group_health.xml
View file

@ -24,7 +24,7 @@
Var ice_tab_text = "Ice will be ready at "
Var text_unavailable = "UNAVAILABLE###size=16"
InstanceSetString "ShowEng"
Else
Var showengText = "Invisible"
Var showthaiText = "Enable"
@ -35,6 +35,8 @@
Var ice_tab_text = "น้ำแข็งจะพร้อมเวลา "
Var text_unavailable = "หมด###size=32"
InstanceSetString "ShowThai"
EndIf
If ICE_PROCESS_STATUS = 2 Then
@ -115,6 +117,20 @@
Var Menu22Selected = "PressForever"
@ -214,16 +230,48 @@
If show_eng = "true" Then
Var show_eng = "false"
Var text_unavailable = "หมด###size=32"
InstanceSetString "ShowThai"
Else
Var show_eng = "true"
Var text_unavailable = "UNAVAILABLE###size=16"
InstanceSetString "ShowEng"
EndIf
Var RequestChangeLang = 1
Open CurrentXMLFileName2
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
</EventClick>
</Button>
<EventOnShow>
InstanceGetString SaveStringInst
DEBUGVAR show_eng
DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
If show_eng = "true" Then
If SaveStringInst = "ShowThai" Then
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
Else
If SaveStringInst = "ShowEng" Then
InstanceSetString "ShowThai"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
</EventOnShow>
;
<ListView1>
<Width> 1080 </Width>
@ -244,10 +292,8 @@
<EventClick>
SAVELOG "Click rec"
Var NextPage = "-"
TabMenuVisibleInst 1
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/menutab/page_instance2.xml"
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/event/script_common_for_open_promotion_xml.ev"
</EventClick>
</Button>

58
xml/menutab/page_catalog_group_milk.xml
View file

@ -24,7 +24,7 @@
Var ice_tab_text = "Ice will be ready at "
Var text_unavailable = "UNAVAILABLE###size=16"
InstanceSetString "ShowEng"
Else
Var showengText = "Invisible"
Var showthaiText = "Enable"
@ -35,6 +35,8 @@
Var ice_tab_text = "น้ำแข็งจะพร้อมเวลา "
Var text_unavailable = "หมด###size=32"
InstanceSetString "ShowThai"
EndIf
If ICE_PROCESS_STATUS = 2 Then
@ -115,6 +117,20 @@
Var Menu4Selected = "PressForever"
@ -212,16 +228,48 @@
If show_eng = "true" Then
Var show_eng = "false"
Var text_unavailable = "หมด###size=32"
InstanceSetString "ShowThai"
Else
Var show_eng = "true"
Var text_unavailable = "UNAVAILABLE###size=16"
InstanceSetString "ShowEng"
EndIf
Var RequestChangeLang = 1
Open CurrentXMLFileName2
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
</EventClick>
</Button>
<EventOnShow>
InstanceGetString SaveStringInst
DEBUGVAR show_eng
DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
If show_eng = "true" Then
If SaveStringInst = "ShowThai" Then
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
Else
If SaveStringInst = "ShowEng" Then
InstanceSetString "ShowThai"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
</EventOnShow>
;
<ListView1>
<Width> 1080 </Width>
@ -242,10 +290,8 @@
<EventClick>
SAVELOG "Click rec"
Var NextPage = "-"
TabMenuVisibleInst 1
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/menutab/page_instance2.xml"
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/event/script_common_for_open_promotion_xml.ev"
</EventClick>
</Button>

58
xml/menutab/page_catalog_group_oreo.xml
View file

@ -24,7 +24,7 @@
Var ice_tab_text = "Ice will be ready at "
Var text_unavailable = "UNAVAILABLE###size=16"
InstanceSetString "ShowEng"
Else
Var showengText = "Invisible"
Var showthaiText = "Enable"
@ -35,6 +35,8 @@
Var ice_tab_text = "น้ำแข็งจะพร้อมเวลา "
Var text_unavailable = "หมด###size=32"
InstanceSetString "ShowThai"
EndIf
If ICE_PROCESS_STATUS = 2 Then
@ -115,6 +117,20 @@
@ -210,16 +226,48 @@
If show_eng = "true" Then
Var show_eng = "false"
Var text_unavailable = "หมด###size=32"
InstanceSetString "ShowThai"
Else
Var show_eng = "true"
Var text_unavailable = "UNAVAILABLE###size=16"
InstanceSetString "ShowEng"
EndIf
Var RequestChangeLang = 1
Open CurrentXMLFileName2
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
</EventClick>
</Button>
<EventOnShow>
InstanceGetString SaveStringInst
DEBUGVAR show_eng
DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
If show_eng = "true" Then
If SaveStringInst = "ShowThai" Then
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
Else
If SaveStringInst = "ShowEng" Then
InstanceSetString "ShowThai"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
</EventOnShow>
;
<ListView1>
<Width> 1080 </Width>
@ -240,10 +288,8 @@
<EventClick>
SAVELOG "Click rec"
Var NextPage = "-"
TabMenuVisibleInst 1
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/menutab/page_instance2.xml"
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/event/script_common_for_open_promotion_xml.ev"
</EventClick>
</Button>

58
xml/menutab/page_catalog_group_other.xml
View file

@ -24,7 +24,7 @@
Var ice_tab_text = "Ice will be ready at "
Var text_unavailable = "UNAVAILABLE###size=16"
InstanceSetString "ShowEng"
Else
Var showengText = "Invisible"
Var showthaiText = "Enable"
@ -35,6 +35,8 @@
Var ice_tab_text = "น้ำแข็งจะพร้อมเวลา "
Var text_unavailable = "หมด###size=32"
InstanceSetString "ShowThai"
EndIf
If ICE_PROCESS_STATUS = 2 Then
@ -115,6 +117,20 @@
; soda and other
Var Menu6Selected = "PressForever"
@ -213,16 +229,48 @@
If show_eng = "true" Then
Var show_eng = "false"
Var text_unavailable = "หมด###size=32"
InstanceSetString "ShowThai"
Else
Var show_eng = "true"
Var text_unavailable = "UNAVAILABLE###size=16"
InstanceSetString "ShowEng"
EndIf
Var RequestChangeLang = 1
Open CurrentXMLFileName2
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
</EventClick>
</Button>
<EventOnShow>
InstanceGetString SaveStringInst
DEBUGVAR show_eng
DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
If show_eng = "true" Then
If SaveStringInst = "ShowThai" Then
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
Else
If SaveStringInst = "ShowEng" Then
InstanceSetString "ShowThai"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
</EventOnShow>
;
<ListView1>
<Width> 1080 </Width>
@ -243,10 +291,8 @@
<EventClick>
SAVELOG "Click rec"
Var NextPage = "-"
TabMenuVisibleInst 1
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/menutab/page_instance2.xml"
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/event/script_common_for_open_promotion_xml.ev"
</EventClick>
</Button>

58
xml/menutab/page_catalog_group_pepsi_pro.xml
View file

@ -24,7 +24,7 @@
Var ice_tab_text = "Ice will be ready at "
Var text_unavailable = "UNAVAILABLE###size=16"
InstanceSetString "ShowEng"
Else
Var showengText = "Invisible"
Var showthaiText = "Enable"
@ -35,6 +35,8 @@
Var ice_tab_text = "น้ำแข็งจะพร้อมเวลา "
Var text_unavailable = "หมด###size=32"
InstanceSetString "ShowThai"
EndIf
If ICE_PROCESS_STATUS = 2 Then
@ -115,6 +117,20 @@
@ -210,16 +226,48 @@
If show_eng = "true" Then
Var show_eng = "false"
Var text_unavailable = "หมด###size=32"
InstanceSetString "ShowThai"
Else
Var show_eng = "true"
Var text_unavailable = "UNAVAILABLE###size=16"
InstanceSetString "ShowEng"
EndIf
Var RequestChangeLang = 1
Open CurrentXMLFileName2
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
</EventClick>
</Button>
<EventOnShow>
InstanceGetString SaveStringInst
DEBUGVAR show_eng
DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
If show_eng = "true" Then
If SaveStringInst = "ShowThai" Then
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
Else
If SaveStringInst = "ShowEng" Then
InstanceSetString "ShowThai"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
</EventOnShow>
;
<ListView1>
<Width> 1080 </Width>
@ -240,10 +288,8 @@
<EventClick>
SAVELOG "Click rec"
Var NextPage = "-"
TabMenuVisibleInst 1
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/menutab/page_instance2.xml"
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/event/script_common_for_open_promotion_xml.ev"
</EventClick>
</Button>

58
xml/menutab/page_catalog_group_pro_15THB.xml
View file

@ -24,7 +24,7 @@
Var ice_tab_text = "Ice will be ready at "
Var text_unavailable = "UNAVAILABLE###size=16"
InstanceSetString "ShowEng"
Else
Var showengText = "Invisible"
Var showthaiText = "Enable"
@ -35,6 +35,8 @@
Var ice_tab_text = "น้ำแข็งจะพร้อมเวลา "
Var text_unavailable = "หมด###size=32"
InstanceSetString "ShowThai"
EndIf
If ICE_PROCESS_STATUS = 2 Then
@ -115,6 +117,20 @@
Var Menu1Selected = "PressForever"
@ -232,16 +248,48 @@
If show_eng = "true" Then
Var show_eng = "false"
Var text_unavailable = "หมด###size=32"
InstanceSetString "ShowThai"
Else
Var show_eng = "true"
Var text_unavailable = "UNAVAILABLE###size=16"
InstanceSetString "ShowEng"
EndIf
Var RequestChangeLang = 1
Open CurrentXMLFileName2
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
</EventClick>
</Button>
<EventOnShow>
InstanceGetString SaveStringInst
DEBUGVAR show_eng
DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
If show_eng = "true" Then
If SaveStringInst = "ShowThai" Then
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
Else
If SaveStringInst = "ShowEng" Then
InstanceSetString "ShowThai"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
</EventOnShow>
;
<ListView1>
<Width> 1080 </Width>
@ -262,10 +310,8 @@
<EventClick>
SAVELOG "Click rec"
Var NextPage = "-"
TabMenuVisibleInst 1
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/menutab/page_instance2.xml"
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/event/script_common_for_open_promotion_xml.ev"
</EventClick>
</Button>

58
xml/menutab/page_catalog_group_pro_melon.xml
View file

@ -24,7 +24,7 @@
Var ice_tab_text = "Ice will be ready at "
Var text_unavailable = "UNAVAILABLE###size=16"
InstanceSetString "ShowEng"
Else
Var showengText = "Invisible"
Var showthaiText = "Enable"
@ -35,6 +35,8 @@
Var ice_tab_text = "น้ำแข็งจะพร้อมเวลา "
Var text_unavailable = "หมด###size=32"
InstanceSetString "ShowThai"
EndIf
If ICE_PROCESS_STATUS = 2 Then
@ -115,6 +117,20 @@
Var Timeout = 0
@ -208,16 +224,48 @@
If show_eng = "true" Then
Var show_eng = "false"
Var text_unavailable = "หมด###size=32"
InstanceSetString "ShowThai"
Else
Var show_eng = "true"
Var text_unavailable = "UNAVAILABLE###size=16"
InstanceSetString "ShowEng"
EndIf
Var RequestChangeLang = 1
Open CurrentXMLFileName2
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
</EventClick>
</Button>
<EventOnShow>
InstanceGetString SaveStringInst
DEBUGVAR show_eng
DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
If show_eng = "true" Then
If SaveStringInst = "ShowThai" Then
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
Else
If SaveStringInst = "ShowEng" Then
InstanceSetString "ShowThai"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
</EventOnShow>
;
<ListView1>
<Width> 1080 </Width>
@ -238,10 +286,8 @@
<EventClick>
SAVELOG "Click rec"
Var NextPage = "-"
TabMenuVisibleInst 1
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/menutab/page_instance2.xml"
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/event/script_common_for_open_promotion_xml.ev"
</EventClick>
</Button>

58
xml/menutab/page_catalog_group_pro_mymint.xml
View file

@ -24,7 +24,7 @@
Var ice_tab_text = "Ice will be ready at "
Var text_unavailable = "UNAVAILABLE###size=16"
InstanceSetString "ShowEng"
Else
Var showengText = "Invisible"
Var showthaiText = "Enable"
@ -35,6 +35,8 @@
Var ice_tab_text = "น้ำแข็งจะพร้อมเวลา "
Var text_unavailable = "หมด###size=32"
InstanceSetString "ShowThai"
EndIf
If ICE_PROCESS_STATUS = 2 Then
@ -115,6 +117,20 @@
Var FromMyMintPro = 0
@ -211,16 +227,48 @@
If show_eng = "true" Then
Var show_eng = "false"
Var text_unavailable = "หมด###size=32"
InstanceSetString "ShowThai"
Else
Var show_eng = "true"
Var text_unavailable = "UNAVAILABLE###size=16"
InstanceSetString "ShowEng"
EndIf
Var RequestChangeLang = 1
Open CurrentXMLFileName2
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
</EventClick>
</Button>
<EventOnShow>
InstanceGetString SaveStringInst
DEBUGVAR show_eng
DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
If show_eng = "true" Then
If SaveStringInst = "ShowThai" Then
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
Else
If SaveStringInst = "ShowEng" Then
InstanceSetString "ShowThai"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
</EventOnShow>
;
<ListView1>
<Width> 1080 </Width>
@ -241,10 +289,8 @@
<EventClick>
SAVELOG "Click rec"
Var NextPage = "-"
TabMenuVisibleInst 1
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/menutab/page_instance2.xml"
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/event/script_common_for_open_promotion_xml.ev"
</EventClick>
</Button>

58
xml/menutab/page_catalog_group_pro_pepween.xml
View file

@ -24,7 +24,7 @@
Var ice_tab_text = "Ice will be ready at "
Var text_unavailable = "UNAVAILABLE###size=16"
InstanceSetString "ShowEng"
Else
Var showengText = "Invisible"
Var showthaiText = "Enable"
@ -35,6 +35,8 @@
Var ice_tab_text = "น้ำแข็งจะพร้อมเวลา "
Var text_unavailable = "หมด###size=32"
InstanceSetString "ShowThai"
EndIf
If ICE_PROCESS_STATUS = 2 Then
@ -116,6 +118,20 @@
Open "ROOT/taobin_project/xml/page_catalog_group_pro_pepween_fixed.xml"
Var NightTime = 0
@ -239,16 +255,48 @@
If show_eng = "true" Then
Var show_eng = "false"
Var text_unavailable = "หมด###size=32"
InstanceSetString "ShowThai"
Else
Var show_eng = "true"
Var text_unavailable = "UNAVAILABLE###size=16"
InstanceSetString "ShowEng"
EndIf
Var RequestChangeLang = 1
Open CurrentXMLFileName2
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
</EventClick>
</Button>
<EventOnShow>
InstanceGetString SaveStringInst
DEBUGVAR show_eng
DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
If show_eng = "true" Then
If SaveStringInst = "ShowThai" Then
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
Else
If SaveStringInst = "ShowEng" Then
InstanceSetString "ShowThai"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
</EventOnShow>
;
<ListView1>
<Width> 1080 </Width>
@ -269,10 +317,8 @@
<EventClick>
SAVELOG "Click rec"
Var NextPage = "-"
TabMenuVisibleInst 1
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/menutab/page_instance2.xml"
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/event/script_common_for_open_promotion_xml.ev"
</EventClick>
</Button>

58
xml/menutab/page_catalog_group_recommend.xml
View file

@ -24,7 +24,7 @@
Var ice_tab_text = "Ice will be ready at "
Var text_unavailable = "UNAVAILABLE###size=16"
InstanceSetString "ShowEng"
Else
Var showengText = "Invisible"
Var showthaiText = "Enable"
@ -35,6 +35,8 @@
Var ice_tab_text = "น้ำแข็งจะพร้อมเวลา "
Var text_unavailable = "หมด###size=32"
InstanceSetString "ShowThai"
EndIf
If ICE_PROCESS_STATUS = 2 Then
@ -115,6 +117,20 @@
Var Menu1Selected = "PressForever"
@ -231,16 +247,48 @@
If show_eng = "true" Then
Var show_eng = "false"
Var text_unavailable = "หมด###size=32"
InstanceSetString "ShowThai"
Else
Var show_eng = "true"
Var text_unavailable = "UNAVAILABLE###size=16"
InstanceSetString "ShowEng"
EndIf
Var RequestChangeLang = 1
Open CurrentXMLFileName2
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
</EventClick>
</Button>
<EventOnShow>
InstanceGetString SaveStringInst
DEBUGVAR show_eng
DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
If show_eng = "true" Then
If SaveStringInst = "ShowThai" Then
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
Else
If SaveStringInst = "ShowEng" Then
InstanceSetString "ShowThai"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
</EventOnShow>
;
<ListView1>
<Width> 1080 </Width>
@ -261,10 +309,8 @@
<EventClick>
SAVELOG "Click rec"
Var NextPage = "-"
TabMenuVisibleInst 1
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/menutab/page_instance2.xml"
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/event/script_common_for_open_promotion_xml.ev"
</EventClick>
</Button>

58
xml/menutab/page_catalog_group_soft_serve.xml
View file

@ -24,7 +24,7 @@
Var ice_tab_text = "Ice will be ready at "
Var text_unavailable = "UNAVAILABLE###size=16"
InstanceSetString "ShowEng"
Else
Var showengText = "Invisible"
Var showthaiText = "Enable"
@ -35,6 +35,8 @@
Var ice_tab_text = "น้ำแข็งจะพร้อมเวลา "
Var text_unavailable = "หมด###size=32"
InstanceSetString "ShowThai"
EndIf
If ICE_PROCESS_STATUS = 2 Then
@ -115,6 +117,20 @@
@ -210,16 +226,48 @@
If show_eng = "true" Then
Var show_eng = "false"
Var text_unavailable = "หมด###size=32"
InstanceSetString "ShowThai"
Else
Var show_eng = "true"
Var text_unavailable = "UNAVAILABLE###size=16"
InstanceSetString "ShowEng"
EndIf
Var RequestChangeLang = 1
Open CurrentXMLFileName2
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
</EventClick>
</Button>
<EventOnShow>
InstanceGetString SaveStringInst
DEBUGVAR show_eng
DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
If show_eng = "true" Then
If SaveStringInst = "ShowThai" Then
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
Else
If SaveStringInst = "ShowEng" Then
InstanceSetString "ShowThai"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
</EventOnShow>
;
<ListView1>
<Width> 1080 </Width>
@ -240,10 +288,8 @@
<EventClick>
SAVELOG "Click rec"
Var NextPage = "-"
TabMenuVisibleInst 1
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/menutab/page_instance2.xml"
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/event/script_common_for_open_promotion_xml.ev"
</EventClick>
</Button>

58
xml/menutab/page_catalog_group_songkran.xml
View file

@ -24,7 +24,7 @@
Var ice_tab_text = "Ice will be ready at "
Var text_unavailable = "UNAVAILABLE###size=16"
InstanceSetString "ShowEng"
Else
Var showengText = "Invisible"
Var showthaiText = "Enable"
@ -35,6 +35,8 @@
Var ice_tab_text = "น้ำแข็งจะพร้อมเวลา "
Var text_unavailable = "หมด###size=32"
InstanceSetString "ShowThai"
EndIf
If ICE_PROCESS_STATUS = 2 Then
@ -115,6 +117,20 @@
@ -210,16 +226,48 @@
If show_eng = "true" Then
Var show_eng = "false"
Var text_unavailable = "หมด###size=32"
InstanceSetString "ShowThai"
Else
Var show_eng = "true"
Var text_unavailable = "UNAVAILABLE###size=16"
InstanceSetString "ShowEng"
EndIf
Var RequestChangeLang = 1
Open CurrentXMLFileName2
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
</EventClick>
</Button>
<EventOnShow>
InstanceGetString SaveStringInst
DEBUGVAR show_eng
DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
If show_eng = "true" Then
If SaveStringInst = "ShowThai" Then
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
Else
If SaveStringInst = "ShowEng" Then
InstanceSetString "ShowThai"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
</EventOnShow>
;
<ListView1>
<Width> 1080 </Width>
@ -240,10 +288,8 @@
<EventClick>
SAVELOG "Click rec"
Var NextPage = "-"
TabMenuVisibleInst 1
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/menutab/page_instance2.xml"
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/event/script_common_for_open_promotion_xml.ev"
</EventClick>
</Button>

58
xml/menutab/page_catalog_group_tea.xml
View file

@ -24,7 +24,7 @@
Var ice_tab_text = "Ice will be ready at "
Var text_unavailable = "UNAVAILABLE###size=16"
InstanceSetString "ShowEng"
Else
Var showengText = "Invisible"
Var showthaiText = "Enable"
@ -35,6 +35,8 @@
Var ice_tab_text = "น้ำแข็งจะพร้อมเวลา "
Var text_unavailable = "หมด###size=32"
InstanceSetString "ShowThai"
EndIf
If ICE_PROCESS_STATUS = 2 Then
@ -115,6 +117,20 @@
Var Menu3Selected = "PressForever"
@ -214,16 +230,48 @@
If show_eng = "true" Then
Var show_eng = "false"
Var text_unavailable = "หมด###size=32"
InstanceSetString "ShowThai"
Else
Var show_eng = "true"
Var text_unavailable = "UNAVAILABLE###size=16"
InstanceSetString "ShowEng"
EndIf
Var RequestChangeLang = 1
Open CurrentXMLFileName2
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
</EventClick>
</Button>
<EventOnShow>
InstanceGetString SaveStringInst
DEBUGVAR show_eng
DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
If show_eng = "true" Then
If SaveStringInst = "ShowThai" Then
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
Else
If SaveStringInst = "ShowEng" Then
InstanceSetString "ShowThai"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
</EventOnShow>
;
<ListView1>
<Width> 1080 </Width>
@ -244,10 +292,8 @@
<EventClick>
SAVELOG "Click rec"
Var NextPage = "-"
TabMenuVisibleInst 1
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/menutab/page_instance2.xml"
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/event/script_common_for_open_promotion_xml.ev"
</EventClick>
</Button>

58
xml/menutab/page_catalog_group_whey.xml
View file

@ -24,7 +24,7 @@
Var ice_tab_text = "Ice will be ready at "
Var text_unavailable = "UNAVAILABLE###size=16"
InstanceSetString "ShowEng"
Else
Var showengText = "Invisible"
Var showthaiText = "Enable"
@ -35,6 +35,8 @@
Var ice_tab_text = "น้ำแข็งจะพร้อมเวลา "
Var text_unavailable = "หมด###size=32"
InstanceSetString "ShowThai"
EndIf
If ICE_PROCESS_STATUS = 2 Then
@ -115,6 +117,20 @@
If AppFastEnable = "true" Then
Var Menu11Selected = "PressForever"
@ -219,16 +235,48 @@
If show_eng = "true" Then
Var show_eng = "false"
Var text_unavailable = "หมด###size=32"
InstanceSetString "ShowThai"
Else
Var show_eng = "true"
Var text_unavailable = "UNAVAILABLE###size=16"
InstanceSetString "ShowEng"
EndIf
Var RequestChangeLang = 1
Open CurrentXMLFileName2
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
</EventClick>
</Button>
<EventOnShow>
InstanceGetString SaveStringInst
DEBUGVAR show_eng
DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
If show_eng = "true" Then
If SaveStringInst = "ShowThai" Then
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
Else
If SaveStringInst = "ShowEng" Then
InstanceSetString "ShowThai"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
</EventOnShow>
;
<ListView1>
<Width> 1080 </Width>
@ -249,10 +297,8 @@
<EventClick>
SAVELOG "Click rec"
Var NextPage = "-"
TabMenuVisibleInst 1
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/menutab/page_instance2.xml"
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/event/script_common_for_open_promotion_xml.ev"
</EventClick>
</Button>

58
xml/menutab/page_catalog_momday.xml
View file

@ -24,7 +24,7 @@
Var ice_tab_text = "Ice will be ready at "
Var text_unavailable = "UNAVAILABLE###size=16"
InstanceSetString "ShowEng"
Else
Var showengText = "Invisible"
Var showthaiText = "Enable"
@ -35,6 +35,8 @@
Var ice_tab_text = "น้ำแข็งจะพร้อมเวลา "
Var text_unavailable = "หมด###size=32"
InstanceSetString "ShowThai"
EndIf
If ICE_PROCESS_STATUS = 2 Then
@ -115,6 +117,20 @@
@ -210,16 +226,48 @@
If show_eng = "true" Then
Var show_eng = "false"
Var text_unavailable = "หมด###size=32"
InstanceSetString "ShowThai"
Else
Var show_eng = "true"
Var text_unavailable = "UNAVAILABLE###size=16"
InstanceSetString "ShowEng"
EndIf
Var RequestChangeLang = 1
Open CurrentXMLFileName2
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
</EventClick>
</Button>
<EventOnShow>
InstanceGetString SaveStringInst
DEBUGVAR show_eng
DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
If show_eng = "true" Then
If SaveStringInst = "ShowThai" Then
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
Else
If SaveStringInst = "ShowEng" Then
InstanceSetString "ShowThai"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
</EventOnShow>
;
<ListView1>
<Width> 1080 </Width>
@ -240,10 +288,8 @@
<EventClick>
SAVELOG "Click rec"
Var NextPage = "-"
TabMenuVisibleInst 1
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/menutab/page_instance2.xml"
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/event/script_common_for_open_promotion_xml.ev"
</EventClick>
</Button>

1
xml/menutab/start_up_inst_2.xml
View file

@ -8,7 +8,6 @@
<Timeout> 1000 </Timeout>
<EventTimeout>
DEBUGVAR InstanceTabOpenFile2
If InstanceTabOpenFile2 = "" Then
Else

1
xml/menutab/start_up_inst_3.xml
View file

@ -8,7 +8,6 @@
<Timeout> 1000 </Timeout>
<EventTimeout>
DEBUGVAR InstanceTabOpenFile3
If InstanceTabOpenFile3 = "" Then
Else

1
xml/menutab/start_up_inst_4.xml
View file

@ -8,7 +8,6 @@
<Timeout> 1000 </Timeout>
<EventTimeout>
DEBUGVAR InstanceTabOpenFile4
If InstanceTabOpenFile4 = "" Then
Else