diff --git a/inter/tha/xml/multi/menu_catalog_default_init.lxml b/inter/tha/xml/multi/menu_catalog_default_init.lxml index f7a5cf5d..7c0f0840 100644 --- a/inter/tha/xml/multi/menu_catalog_default_init.lxml +++ b/inter/tha/xml/multi/menu_catalog_default_init.lxml @@ -2,7 +2,7 @@ DEBUGVAR ICE_PROCESS_STATUS DEBUGVAR ICE_PROCESS_TXT - + Var TimerRefreshXML = 0 DEBUGVAR LanguageShow DEBUGVAR CountryName diff --git a/inter/tha/xml/multi/menu_catalog_new.lxml b/inter/tha/xml/multi/menu_catalog_new.lxml index 7285fb5f..d5418275 100644 --- a/inter/tha/xml/multi/menu_catalog_new.lxml +++ b/inter/tha/xml/multi/menu_catalog_new.lxml @@ -9,49 +9,8 @@ "0xeae6e1" - - InstanceGetString SaveStringInst - DEBUGVAR SaveStringInst - DEBUGVAR show_eng - If SaveStringInst = "RefreshNow" Then - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - - - - If show_eng = "true" Then - If SaveStringInst = "ShowThai" Then - Var show_eng = "false" - InstanceSetString "ShowEng" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - EndIf - - If show_eng = "false" Then - If SaveStringInst "ShowMYANMAR" Then - Var show_eng = "" - InstanceGetString "ShowMYANMAR" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - EndIf - - If show_eng = "" Then - If SaveStringInst "ShowEng" Then - Var show_eng = "true" - InstanceGetString "ShowThai" - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - EndIf - EndIf - - - - DEBUGVAR LanguageShow If LanguageShow = "ENG" Then @@ -96,7 +55,6 @@ Var ButtonLanguageListXPosition = 970 Var ButtonLanguageListYPosition = 450 - 38 - TabMenuVisibleInst 9 OpenInst 3 "ROOT/taobin_project/xml/topview2.xml" RefreshAll diff --git a/inter/tha/xml/multi/page_catalog_group_coffee.lxml b/inter/tha/xml/multi/page_catalog_group_coffee.lxml index b1690354..1e06d5fa 100644 --- a/inter/tha/xml/multi/page_catalog_group_coffee.lxml +++ b/inter/tha/xml/multi/page_catalog_group_coffee.lxml @@ -1,113 +1,205 @@ - - - - "Enable" - 1080 - 1920 -; "0xeae6e1" - SoundVolume - - ; On open - ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" - Var Menu2Selected = "PressForever" - - - - SAVELOG PreviseXMLFileName2 - - Var Timeout = 0 - - - ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" - - SetInstanceIgnoreTouch - - - DEBUGVAR SlientRefreshIndex - - If SlientRefreshIndex = 2 Then - Var SlientRefreshIndex = 3 - - EndIf - - - - 1000 - - ;DEBUGVAR ICE_PROCESS_STATUS - - If ICE_PROCESS_STATUS = 2 Then - Var ice_tab_process_show = "Enable" - Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT - Else - Var ice_tab_process_show = "Invisible" - EndIf - - - GetVisible inst_show2 - ;DEBUGVAR inst_show2 - - - If inst_show2 = 1 Then - InstanceGetString SaveStringInst - ;DEBUGVAR SaveStringInst - If SaveStringInst = "RefreshNow" Then - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - - If show_eng = "true" Then - InstanceSetString "ShowEng" - Else - InstanceSetString "ShowThai" - EndIf - EndIf - EndIf - - ; setvarint SlientRefreshEnable 1 - ;DEBUGVAR SlientRefreshEnable - - If SlientRefreshEnable = 1 Then - If SaveStringInst = "RefreshNow" Then - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - - If show_eng = "true" Then - InstanceSetString "ShowEng" - Else - InstanceSetString "ShowThai" - EndIf - - EndIf - EndIf - - If SlientRefreshIndex = 2 Then - If inst_show2 = 0 Then - GetXMLFileNameCurrentRunning CurrentOpenFile2 - Open CurrentOpenFile2 - - Else - Var SlientRefreshIndex = 3 - EndIf - EndIf - - If inst_show2 = 1 Then - If langnext1 = "true" Then - Var langnext1 = "false" - DEBUGVAR langnext - ;GetXMLFileNameCurrentRunning CurrentOpenFile - DEBUGVAR CurrentOpenFile4 - Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_coffee.lxml" - RefreshAll - EndIf - EndIf - - TimerReset - - -;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" - - - + + + + "Enable" + 1080 + 1920 +; "0xeae6e1" + SoundVolume + + ; On open + ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" + Var Menu2Selected = "PressForever" + + Var ButtonLanguageListXPosition = 970 + Var ButtonLanguageListYPosition = 412 + Var LanguageButtonListEnable = "Invisible" + + If ENABLE_LANGUAGE_COUNT = "" Then + LanguageControl "UpdateList" 1 + EndIf + + SAVELOG PreviseXMLFileName2 + + Var Timeout = 0 + + + ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" + + SetInstanceIgnoreTouch + + + DEBUGVAR SlientRefreshIndex + + If SlientRefreshIndex = 2 Then + Var SlientRefreshIndex = 3 + + EndIf + + + + + 1000 + + ;DEBUGVAR ICE_PROCESS_STATUS + If ICE_PROCESS_STATUS = 2 Then + Var ice_tab_process_show = "Enable" + Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT + Else + Var ice_tab_process_show = "Invisible" + EndIf + + + GetVisible inst_show2 + ;DEBUGVAR inst_show2 + + + If inst_show2 = 1 Then + InstanceGetString SaveStringInst + ;DEBUGVAR SaveStringInst + If SaveStringInst = "RefreshNow" Then + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + + If show_eng = "true" Then + InstanceSetString "ShowEng" + Else + InstanceSetString "ShowThai" + EndIf + EndIf + EndIf + + ; setvarint SlientRefreshEnable 1 + ;DEBUGVAR SlientRefreshEnable + + If SlientRefreshEnable = 1 Then + If SaveStringInst = "RefreshNow" Then + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + + If show_eng = "true" Then + InstanceSetString "ShowEng" + Else + InstanceSetString "ShowThai" + EndIf + + EndIf + EndIf + + If SlientRefreshIndex = 2 Then + If inst_show2 = 0 Then + GetXMLFileNameCurrentRunning CurrentOpenFile2 + Open CurrentOpenFile2 + + Else + Var SlientRefreshIndex = 3 + EndIf + EndIf + + If inst_show2 = 1 Then + If langnext1 = "true" Then + Var langnext1 = "false" + DEBUGVAR langnext + ;GetXMLFileNameCurrentRunning CurrentOpenFile + DEBUGVAR CurrentOpenFile4 + Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_coffee.lxml" + RefreshAll + EndIf + InstanceGetString SaveStringInst + If SaveStringInst = "RefreshNow" Then + + Else + If LanguageShow = "ENG" Then + Var SaveStringInst = "ShowEng" + Var show_eng = "false" + EndIf + If LanguageShow = "THAI" Then + Var SaveStringInst = "ShowThai" + Var show_eng = "true" + EndIf + If LanguageShow "MYANMAR" Then + Var show_eng = "false" + Var SaveStringInst = "ShowMYANMAR" + EndIf + EndIf + EndIf + + + TimerReset + + + + + InstanceGetString SaveStringInst + DEBUGVAR SaveStringInst + DEBUGVAR show_eng + + + Var ButtonLanguageCurrentXPosition = 1005 + Var ButtonLanguageCurrentYPosition = 458 - 38 + + Var ButtonLanguageListXPosition = 970 + Var ButtonLanguageListYPosition = 450 - 38 + + DEBUGVAR EnabledBlockUpdateInst5 + DEBUGVAR EnabledBlocksDrawInst5 + + If SaveStringInst = "RefreshNow" Then + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + + Else + If EnabledBlocksDrawInst5 = EnabledBlockUpdateInst5 Then + Var StatusRefresh = "NoRefresh" + DEBUGVAR StatusRefresh + Else + Var StatusRefresh = "Refresh" + DEBUGVAR StatusRefresh + GetXMLFileNameCurrentRunning CurrentOpenFile2 + Open CurrentOpenFile2 + EndIf + EndIf + + If SaveStringInst = "ShowThai" Then + If LanguageShow = "THAI" Then + + Else + Var show_eng = "true" + InstanceSetString "ShowMYANMAR" + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + EndIf + EndIf + + If SaveStringInst = "ShowMYANMAR" Then + If LanguageShow = "MYANMAR" Then + + Else + Var show_eng = "false" + InstanceSetString "ShowEng" + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + EndIf + EndIf + + If SaveStringInst = "ShowEng" Then + If LanguageShow = "ENG" Then + + Else + Var show_eng = "false" + InstanceSetString "ShowThai" + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + EndIf + EndIf + + + +;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" + + + + 10 497 @@ -27086,10 +27178,10 @@ Open "ROOT/taobin_project/xml/page_payment_multi.xml" - - - - - - - + + + + + + + diff --git a/inter/tha/xml/multi/page_catalog_group_coffee.skt b/inter/tha/xml/multi/page_catalog_group_coffee.skt index 118f6c46..12abce5f 100644 --- a/inter/tha/xml/multi/page_catalog_group_coffee.skt +++ b/inter/tha/xml/multi/page_catalog_group_coffee.skt @@ -101,11 +101,100 @@ Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_coffee.lxml" RefreshAll EndIf + InstanceGetString SaveStringInst + If SaveStringInst = "RefreshNow" Then + + Else + If LanguageShow = "ENG" Then + Var SaveStringInst = "ShowEng" + Var show_eng = "false" + EndIf + If LanguageShow = "THAI" Then + Var SaveStringInst = "ShowThai" + Var show_eng = "true" + EndIf + If LanguageShow "MYANMAR" Then + Var show_eng = "false" + Var SaveStringInst = "ShowMYANMAR" + EndIf + EndIf EndIf TimerReset + + InstanceGetString SaveStringInst + DEBUGVAR SaveStringInst + DEBUGVAR show_eng + + + Var ButtonLanguageCurrentXPosition = 1005 + Var ButtonLanguageCurrentYPosition = 458 - 38 + + Var ButtonLanguageListXPosition = 970 + Var ButtonLanguageListYPosition = 450 - 38 + + DEBUGVAR EnabledBlockUpdateInst6 + DEBUGVAR EnabledBlocksDrawInst6 + + + If SaveStringInst = "RefreshNow" Then + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + Else + If EnabledBlocksDrawInst6 = EnabledBlockUpdateInst6 Then + Var StatusRefresh = "NoRefresh" + DEBUGVAR StatusRefresh + Else + Var StatusRefresh = "Refresh" + DEBUGVAR StatusRefresh + GetXMLFileNameCurrentRunning CurrentOpenFile2 + Open CurrentOpenFile2 + EndIf + + EndIf + DEBUGVAR LanguageShow + + + If SaveStringInst = "ShowThai" Then + If LanguageShow = "THAI" Then + + Else + Var show_eng = "true" + InstanceSetString "ShowMYANMAR" + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + EndIf + EndIf + + If SaveStringInst = "ShowMYANMAR" Then + If LanguageShow = "MYANMAR" Then + + Else + Var show_eng = "false" + InstanceSetString "ShowEng" + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + EndIf + EndIf + + If SaveStringInst = "ShowEng" Then + If LanguageShow = "ENG" Then + + Else + Var show_eng = "false" + InstanceSetString "ShowThai" + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + EndIf + EndIf + + + + + + ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" diff --git a/inter/tha/xml/multi/page_catalog_group_forkid.lxml b/inter/tha/xml/multi/page_catalog_group_forkid.lxml index 7a454f3c..264eb92b 100644 --- a/inter/tha/xml/multi/page_catalog_group_forkid.lxml +++ b/inter/tha/xml/multi/page_catalog_group_forkid.lxml @@ -1,121 +1,213 @@ - - - - "Enable" - 1080 - 1920 -; "0xeae6e1" - SoundVolume - - ; On open - ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" - ; protein - If AppFastEnable = "true" Then - Var Menu11Selected = "PressForever" - Var Menu7Selected = "Invisible" - Var Menu21Selected = "Invisible" - Else - Var Menu11Selected = "Invisible" - Var Menu7Selected = "Invisible" - Var Menu21Selected = "PressForever" - EndIf - - - SAVELOG PreviseXMLFileName2 - - Var Timeout = 0 - - - ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" - - SetInstanceIgnoreTouch - - DEBUGVAR SlientRefreshIndex - - If SlientRefreshIndex = 5 Then - Var SlientRefreshIndex = 6 - EndIf - - - - 1000 - - ;DEBUGVAR ICE_PROCESS_STATUS - - If ICE_PROCESS_STATUS = 2 Then - Var ice_tab_process_show = "Enable" - Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT - Else - Var ice_tab_process_show = "Invisible" - EndIf - - - - - GetVisible inst_show5 - ;DEBUGVAR inst_show5 - - - If inst_show5 = 1 Then - InstanceGetString SaveStringInst - ;DEBUGVAR SaveStringInst - If SaveStringInst = "RefreshNow" Then - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - - If show_eng = "true" Then - InstanceSetString "ShowEng" - Else - InstanceSetString "ShowThai" - EndIf - EndIf - EndIf - - ; setvarint SlientRefreshEnable 1 - ;DEBUGVAR SlientRefreshEnable - - If SlientRefreshEnable = 1 Then - If SaveStringInst = "RefreshNow" Then - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - - If show_eng = "true" Then - InstanceSetString "ShowEng" - Else - InstanceSetString "ShowThai" - EndIf - - EndIf - EndIf - - - If SlientRefreshIndex = 5 Then - If inst_show5 = 0 Then - GetXMLFileNameCurrentRunning CurrentOpenFile5 - Open CurrentOpenFile5 - Else - Var SlientRefreshIndex = 6 - EndIf - EndIf - - If inst_show5 = 1 Then - If langnext4 = "true" Then - Var langnext4 = "false" - DEBUGVAR langnext - ;GetXMLFileNameCurrentRunning CurrentOpenFile - DEBUGVAR CurrentOpenFile4 - Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_forkid.lxml" - RefreshAll - EndIf - EndIf - - TimerReset - - -;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" - - - + + + + "Enable" + 1080 + 1920 +; "0xeae6e1" + SoundVolume + + ; On open + ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" + ; protein + If AppFastEnable = "true" Then + Var Menu11Selected = "PressForever" + Var Menu7Selected = "Invisible" + Var Menu21Selected = "Invisible" + Else + Var Menu11Selected = "Invisible" + Var Menu7Selected = "Invisible" + Var Menu21Selected = "PressForever" + EndIf + + + SAVELOG PreviseXMLFileName2 + + Var Timeout = 0 + + + ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" + + SetInstanceIgnoreTouch + + DEBUGVAR SlientRefreshIndex + + If SlientRefreshIndex = 5 Then + Var SlientRefreshIndex = 6 + EndIf + + + + 1000 + + ;DEBUGVAR ICE_PROCESS_STATUS + + If ICE_PROCESS_STATUS = 2 Then + Var ice_tab_process_show = "Enable" + Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT + Else + Var ice_tab_process_show = "Invisible" + EndIf + + + + + GetVisible inst_show5 + ;DEBUGVAR inst_show5 + + + If inst_show5 = 1 Then + InstanceGetString SaveStringInst + ;DEBUGVAR SaveStringInst + If SaveStringInst = "RefreshNow" Then + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + + If show_eng = "true" Then + InstanceSetString "ShowEng" + Else + InstanceSetString "ShowThai" + EndIf + EndIf + EndIf + + ; setvarint SlientRefreshEnable 1 + ;DEBUGVAR SlientRefreshEnable + + If SlientRefreshEnable = 1 Then + If SaveStringInst = "RefreshNow" Then + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + + If show_eng = "true" Then + InstanceSetString "ShowEng" + Else + InstanceSetString "ShowThai" + EndIf + + EndIf + EndIf + + + If SlientRefreshIndex = 5 Then + If inst_show5 = 0 Then + GetXMLFileNameCurrentRunning CurrentOpenFile5 + Open CurrentOpenFile5 + Else + Var SlientRefreshIndex = 6 + EndIf + EndIf + + If inst_show5 = 1 Then + If langnext4 = "true" Then + Var langnext4 = "false" + DEBUGVAR langnext + ;GetXMLFileNameCurrentRunning CurrentOpenFile + DEBUGVAR CurrentOpenFile4 + Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_forkid.lxml" + RefreshAll + EndIf + + InstanceGetString SaveStringInst + If SaveStringInst = "RefreshNow" Then + + Else + If LanguageShow = "ENG" Then + Var SaveStringInst = "ShowEng" + Var show_eng = "false" + EndIf + If LanguageShow = "THAI" Then + Var SaveStringInst = "ShowThai" + Var show_eng = "true" + EndIf + If LanguageShow "MYANMAR" Then + Var show_eng = "false" + Var SaveStringInst = "ShowMYANMAR" + EndIf + EndIf + EndIf + + + + + TimerReset + + + + InstanceGetString SaveStringInst + DEBUGVAR SaveStringInst + DEBUGVAR show_eng + + + Var ButtonLanguageCurrentXPosition = 1005 + Var ButtonLanguageCurrentYPosition = 458 - 38 + + Var ButtonLanguageListXPosition = 970 + Var ButtonLanguageListYPosition = 450 - 38 + + DEBUGVAR EnabledBlockUpdateInst8 + DEBUGVAR EnabledBlocksDrawInst8 + + If EnabledBlocksDrawInst8 = EnabledBlockUpdateInst8 Then + Var StatusRefresh = "NoRefresh" + DEBUGVAR StatusRefresh + Else + Var StatusRefresh = "Refresh" + DEBUGVAR StatusRefresh + GetXMLFileNameCurrentRunning CurrentOpenFile2 + Open CurrentOpenFile2 + EndIf + + + If SaveStringInst = "RefreshNow" Then + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + EndIf + + + + + If SaveStringInst = "ShowThai" Then + If LanguageShow = "THAI" Then + + Else + Var show_eng = "true" + InstanceSetString "ShowMYANMAR" + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + EndIf + EndIf + + If SaveStringInst = "ShowMYANMAR" Then + If LanguageShow = "MYANMAR" Then + + Else + Var show_eng = "false" + InstanceSetString "ShowEng" + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + EndIf + EndIf + + If SaveStringInst = "ShowEng" Then + If LanguageShow = "ENG" Then + + Else + Var show_eng = "false" + InstanceSetString "ShowThai" + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + EndIf + EndIf + + + + + +;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" + + + 10 497 @@ -4794,8 +4886,8 @@ Open "ROOT/taobin_project/xml/page_payment_multi.xml" - - - - - + + + + + diff --git a/inter/tha/xml/multi/page_catalog_group_forkid.skt b/inter/tha/xml/multi/page_catalog_group_forkid.skt index 64f9cc05..c8a4c59a 100644 --- a/inter/tha/xml/multi/page_catalog_group_forkid.skt +++ b/inter/tha/xml/multi/page_catalog_group_forkid.skt @@ -89,6 +89,24 @@ EndIf EndIf + + InstanceGetString SaveStringInst + If SaveStringInst = "RefreshNow" Then + + Else + If LanguageShow = "ENG" Then + Var SaveStringInst = "ShowEng" + Var show_eng = "false" + EndIf + If LanguageShow = "THAI" Then + Var SaveStringInst = "ShowThai" + Var show_eng = "true" + EndIf + If LanguageShow "MYANMAR" Then + Var show_eng = "false" + Var SaveStringInst = "ShowMYANMAR" + EndIf + EndIf EndIf @@ -110,11 +128,101 @@ Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_forkid.lxml" RefreshAll EndIf + + InstanceGetString SaveStringInst + If SaveStringInst = "RefreshNow" Then + + Else + If LanguageShow = "ENG" Then + Var SaveStringInst = "ShowEng" + Var show_eng = "false" + EndIf + If LanguageShow = "THAI" Then + Var SaveStringInst = "ShowThai" + Var show_eng = "true" + EndIf + If LanguageShow "MYANMAR" Then + Var show_eng = "false" + Var SaveStringInst = "ShowMYANMAR" + EndIf + EndIf EndIf TimerReset + + InstanceGetString SaveStringInst + DEBUGVAR SaveStringInst + DEBUGVAR show_eng + + + Var ButtonLanguageCurrentXPosition = 1005 + Var ButtonLanguageCurrentYPosition = 458 - 38 + + Var ButtonLanguageListXPosition = 970 + Var ButtonLanguageListYPosition = 450 - 38 + + DEBUGVAR EnabledBlockUpdateInst6 + DEBUGVAR EnabledBlocksDrawInst6 + + + If SaveStringInst = "RefreshNow" Then + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + Else + If EnabledBlocksDrawInst6 = EnabledBlockUpdateInst6 Then + Var StatusRefresh = "NoRefresh" + DEBUGVAR StatusRefresh + Else + Var StatusRefresh = "Refresh" + DEBUGVAR StatusRefresh + GetXMLFileNameCurrentRunning CurrentOpenFile2 + Open CurrentOpenFile2 + EndIf + + EndIf + DEBUGVAR LanguageShow + + + If SaveStringInst = "ShowThai" Then + If LanguageShow = "THAI" Then + + Else + Var show_eng = "true" + InstanceSetString "ShowMYANMAR" + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + EndIf + EndIf + + If SaveStringInst = "ShowMYANMAR" Then + If LanguageShow = "MYANMAR" Then + + Else + Var show_eng = "false" + InstanceSetString "ShowEng" + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + EndIf + EndIf + + If SaveStringInst = "ShowEng" Then + If LanguageShow = "ENG" Then + + Else + Var show_eng = "false" + InstanceSetString "ShowThai" + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + EndIf + EndIf + + + + + + ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" diff --git a/inter/tha/xml/multi/page_catalog_group_health.lxml b/inter/tha/xml/multi/page_catalog_group_health.lxml index 372972a2..1b8d7a34 100644 --- a/inter/tha/xml/multi/page_catalog_group_health.lxml +++ b/inter/tha/xml/multi/page_catalog_group_health.lxml @@ -1,110 +1,187 @@ - - - - "Enable" - 1080 - 1920 -; "0xeae6e1" - SoundVolume - - ; On open - ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" - Var Menu22Selected = "PressForever" - - - SAVELOG PreviseXMLFileName2 - - Var Timeout = 0 - - - ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" - - SetInstanceIgnoreTouch - - DEBUGVAR SlientRefreshIndex - - If SlientRefreshIndex = 6 Then - Var SlientRefreshIndex = 7 - EndIf - - - 1000 - - ;DEBUGVAR ICE_PROCESS_STATUS - - If ICE_PROCESS_STATUS = 2 Then - Var ice_tab_process_show = "Enable" - Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT - Else - Var ice_tab_process_show = "Invisible" - EndIf - - - - - GetVisible inst_show6 - ;DEBUGVAR inst_show6 - - - - If inst_show6 = 1 Then - InstanceGetString SaveStringInst - ;DEBUGVAR SaveStringInst - If SaveStringInst = "RefreshNow" Then - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - - If show_eng = "true" Then - InstanceSetString "ShowEng" - Else - InstanceSetString "ShowThai" - EndIf - - EndIf - EndIf - - ; setvarint SlientRefreshEnable 1 - ;DEBUGVAR SlientRefreshEnable - - If SlientRefreshEnable = 1 Then - If SaveStringInst = "RefreshNow" Then - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - - If show_eng = "true" Then - InstanceSetString "ShowEng" - Else - InstanceSetString "ShowThai" - EndIf - - EndIf - EndIf - - If SlientRefreshIndex = 6 Then - If inst_show6 = 0 Then - GetXMLFileNameCurrentRunning CurrentOpenFile6 - Open CurrentOpenFile6 - Else - Var SlientRefreshIndex = 7 - EndIf - EndIf - - If inst_show6 = 1 Then - If langnext5 = "true" Then - Var langnext5 = "false" - DEBUGVAR langnext - ;GetXMLFileNameCurrentRunning CurrentOpenFile - DEBUGVAR CurrentOpenFile4 - Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_health.lxml" - RefreshAll - EndIf - EndIf - - TimerReset - - -;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" - + + + + "Enable" + 1080 + 1920 +; "0xeae6e1" + SoundVolume + + ; On open + ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" + Var Menu22Selected = "PressForever" + + + SAVELOG PreviseXMLFileName2 + + Var Timeout = 0 + + + ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" + + SetInstanceIgnoreTouch + + DEBUGVAR SlientRefreshIndex + + If SlientRefreshIndex = 6 Then + Var SlientRefreshIndex = 7 + EndIf + + + 1000 + + ;DEBUGVAR ICE_PROCESS_STATUS + + If ICE_PROCESS_STATUS = 2 Then + Var ice_tab_process_show = "Enable" + Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT + Else + Var ice_tab_process_show = "Invisible" + EndIf + + + + + GetVisible inst_show6 + ;DEBUGVAR inst_show6 + + + + If inst_show6 = 1 Then + InstanceGetString SaveStringInst + ;DEBUGVAR SaveStringInst + If SaveStringInst = "RefreshNow" Then + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + + If show_eng = "true" Then + InstanceSetString "ShowEng" + Else + InstanceSetString "ShowThai" + EndIf + + EndIf + EndIf + + ; setvarint SlientRefreshEnable 1 + ;DEBUGVAR SlientRefreshEnable + + If SlientRefreshEnable = 1 Then + If SaveStringInst = "RefreshNow" Then + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + + If show_eng = "true" Then + InstanceSetString "ShowEng" + Else + InstanceSetString "ShowThai" + EndIf + + EndIf + EndIf + + If SlientRefreshIndex = 6 Then + If inst_show6 = 0 Then + GetXMLFileNameCurrentRunning CurrentOpenFile6 + Open CurrentOpenFile6 + Else + Var SlientRefreshIndex = 7 + EndIf + EndIf + + If inst_show6 = 1 Then + If langnext5 = "true" Then + Var langnext5 = "false" + DEBUGVAR langnext + ;GetXMLFileNameCurrentRunning CurrentOpenFile + DEBUGVAR CurrentOpenFile4 + Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_health.lxml" + RefreshAll + EndIf + EndIf + + + + + TimerReset + + + + InstanceGetString SaveStringInst + DEBUGVAR SaveStringInst + DEBUGVAR show_eng + + + Var ButtonLanguageCurrentXPosition = 1005 + Var ButtonLanguageCurrentYPosition = 458 - 38 + + Var ButtonLanguageListXPosition = 970 + Var ButtonLanguageListYPosition = 450 - 38 + + DEBUGVAR EnabledBlockUpdateInst9 + DEBUGVAR EnabledBlocksDrawInst9 + + + + + If SaveStringInst = "RefreshNow" Then + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + Else + If EnabledBlocksDrawInst9 = EnabledBlockUpdateInst9 Then + Var StatusRefresh = "NoRefresh" + DEBUGVAR StatusRefresh + Else + Var StatusRefresh = "Refresh" + DEBUGVAR StatusRefresh + GetXMLFileNameCurrentRunning CurrentOpenFile2 + Open CurrentOpenFile2 + EndIf + EndIf + + + + DEBUGVAR LanguageShow + + + If SaveStringInst = "ShowThai" Then + If LanguageShow = "THAI" Then + + Else + Var show_eng = "true" + InstanceSetString "ShowMYANMAR" + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + EndIf + EndIf + + If SaveStringInst = "ShowMYANMAR" Then + If LanguageShow = "MYANMAR" Then + + Else + Var show_eng = "false" + InstanceSetString "ShowEng" + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + EndIf + EndIf + + If SaveStringInst = "ShowEng" Then + If LanguageShow = "ENG" Then + + Else + Var show_eng = "false" + InstanceSetString "ShowThai" + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + EndIf + EndIf + + + + +;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" + 10 497 @@ -9743,8 +9820,8 @@ Open "ROOT/taobin_project/xml/page_payment_multi.xml" - - - - - + + + + + diff --git a/inter/tha/xml/multi/page_catalog_group_health.skt b/inter/tha/xml/multi/page_catalog_group_health.skt index d3989c2e..be1ab325 100644 --- a/inter/tha/xml/multi/page_catalog_group_health.skt +++ b/inter/tha/xml/multi/page_catalog_group_health.skt @@ -101,6 +101,24 @@ Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_health.lxml" RefreshAll EndIf + + InstanceGetString SaveStringInst + If SaveStringInst = "RefreshNow" Then + + Else + If LanguageShow = "ENG" Then + Var SaveStringInst = "ShowEng" + Var show_eng = "false" + EndIf + If LanguageShow = "THAI" Then + Var SaveStringInst = "ShowThai" + Var show_eng = "true" + EndIf + If LanguageShow "MYANMAR" Then + Var show_eng = "false" + Var SaveStringInst = "ShowMYANMAR" + EndIf + EndIf EndIf TimerReset diff --git a/inter/tha/xml/multi/page_catalog_group_milk.lxml b/inter/tha/xml/multi/page_catalog_group_milk.lxml index 68280545..e90b74de 100644 --- a/inter/tha/xml/multi/page_catalog_group_milk.lxml +++ b/inter/tha/xml/multi/page_catalog_group_milk.lxml @@ -1,111 +1,204 @@ - - - - "Enable" - 1080 - 1920 -; "0xeae6e1" - SoundVolume - - ; On open - ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" - Var Menu4Selected = "PressForever" - - SAVELOG PreviseXMLFileName2 - - Var Timeout = 0 - - - ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" - - SetInstanceIgnoreTouch - - DEBUGVAR SlientRefreshIndex - - If SlientRefreshIndex = 4 Then - Var SlientRefreshIndex = 5 - EndIf - - - 1000 - - ;DEBUGVAR ICE_PROCESS_STATUS - - If ICE_PROCESS_STATUS = 2 Then - Var ice_tab_process_show = "Enable" - Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT - Else - Var ice_tab_process_show = "Invisible" - EndIf - - - - - GetVisible inst_show4 - ;DEBUGVAR inst_show4 - - If inst_show4 = 1 Then - InstanceGetString SaveStringInst - ;DEBUGVAR SaveStringInst - If SaveStringInst = "RefreshNow" Then - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - - If show_eng = "true" Then - InstanceSetString "ShowEng" - Else - InstanceSetString "ShowThai" - EndIf - - EndIf - EndIf - - ; setvarint SlientRefreshEnable 1 - ;DEBUGVAR SlientRefreshEnable - - If SlientRefreshEnable = 1 Then - If SaveStringInst = "RefreshNow" Then - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - - If show_eng = "true" Then - InstanceSetString "ShowEng" - Else - InstanceSetString "ShowThai" - EndIf - - EndIf - EndIf - - If SlientRefreshIndex = 4 Then - If inst_show4 = 0 Then - GetXMLFileNameCurrentRunning CurrentOpenFile4 - Open CurrentOpenFile4 - - Else - Var SlientRefreshIndex = 5 - - EndIf - EndIf - - If inst_show4 = 1 Then - If langnext3 = "true" Then - Var langnext3 = "false" - DEBUGVAR langnext - ;GetXMLFileNameCurrentRunning CurrentOpenFile - DEBUGVAR CurrentOpenFile4 - Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_milk.lxml" - RefreshAll - EndIf - EndIf - - TimerReset - - -;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" - - - + + + + "Enable" + 1080 + 1920 +; "0xeae6e1" + SoundVolume + + ; On open + ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" + Var Menu4Selected = "PressForever" + + SAVELOG PreviseXMLFileName2 + + Var Timeout = 0 + + + ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" + + SetInstanceIgnoreTouch + + DEBUGVAR SlientRefreshIndex + + If SlientRefreshIndex = 4 Then + Var SlientRefreshIndex = 5 + EndIf + + + 1000 + + ;DEBUGVAR ICE_PROCESS_STATUS + + If ICE_PROCESS_STATUS = 2 Then + Var ice_tab_process_show = "Enable" + Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT + Else + Var ice_tab_process_show = "Invisible" + EndIf + + + + + GetVisible inst_show4 + ;DEBUGVAR inst_show4 + + If inst_show4 = 1 Then + InstanceGetString SaveStringInst + ;DEBUGVAR SaveStringInst + If SaveStringInst = "RefreshNow" Then + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + + If show_eng = "true" Then + InstanceSetString "ShowEng" + Else + InstanceSetString "ShowThai" + EndIf + + EndIf + + + EndIf + + ; setvarint SlientRefreshEnable 1 + ;DEBUGVAR SlientRefreshEnable + + If SlientRefreshEnable = 1 Then + If SaveStringInst = "RefreshNow" Then + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + + If show_eng = "true" Then + InstanceSetString "ShowEng" + Else + InstanceSetString "ShowThai" + EndIf + + EndIf + EndIf + + If SlientRefreshIndex = 4 Then + If inst_show4 = 0 Then + GetXMLFileNameCurrentRunning CurrentOpenFile4 + Open CurrentOpenFile4 + + Else + Var SlientRefreshIndex = 5 + + EndIf + EndIf + + If inst_show4 = 1 Then + If langnext3 = "true" Then + Var langnext3 = "false" + DEBUGVAR langnext + ;GetXMLFileNameCurrentRunning CurrentOpenFile + DEBUGVAR CurrentOpenFile4 + Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_milk.lxml" + RefreshAll + EndIf + + InstanceGetString SaveStringInst + If SaveStringInst = "RefreshNow" Then + + Else + If LanguageShow = "ENG" Then + Var SaveStringInst = "ShowEng" + Var show_eng = "false" + EndIf + If LanguageShow = "THAI" Then + Var SaveStringInst = "ShowThai" + Var show_eng = "true" + EndIf + If LanguageShow "MYANMAR" Then + Var show_eng = "false" + Var SaveStringInst = "ShowMYANMAR" + EndIf + EndIf + EndIf + + + + TimerReset + + + + InstanceGetString SaveStringInst + DEBUGVAR SaveStringInst + DEBUGVAR show_eng + + + Var ButtonLanguageCurrentXPosition = 1005 + Var ButtonLanguageCurrentYPosition = 458 - 38 + + Var ButtonLanguageListXPosition = 970 + Var ButtonLanguageListYPosition = 450 - 38 + + DEBUGVAR EnabledBlockUpdateInst7 + DEBUGVAR EnabledBlocksDrawInst7 + + + + If SaveStringInst = "RefreshNow" Then + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + Else + If EnabledBlocksDrawInst7 = EnabledBlockUpdateInst7 Then + Var StatusRefresh = "NoRefresh" + DEBUGVAR StatusRefresh + Else + Var StatusRefresh = "Refresh" + DEBUGVAR StatusRefresh + GetXMLFileNameCurrentRunning CurrentOpenFile2 + Open CurrentOpenFile2 + EndIf + EndIf + DEBUGVAR LanguageShow + + + If SaveStringInst = "ShowThai" Then + If LanguageShow = "THAI" Then + + Else + Var show_eng = "true" + InstanceSetString "ShowMYANMAR" + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + EndIf + EndIf + + If SaveStringInst = "ShowMYANMAR" Then + If LanguageShow = "MYANMAR" Then + + Else + Var show_eng = "false" + InstanceSetString "ShowEng" + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + EndIf + EndIf + + If SaveStringInst = "ShowEng" Then + If LanguageShow = "ENG" Then + + Else + Var show_eng = "false" + InstanceSetString "ShowThai" + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + EndIf + EndIf + + + + + +;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" + + + 10 497 @@ -9160,15 +9253,15 @@ Open "ROOT/taobin_project/xml/page_payment_multi.xml" - - - - - - - - RefreshAll - - - - + + + + + + + + RefreshAll + + + + diff --git a/inter/tha/xml/multi/page_catalog_group_milk.skt b/inter/tha/xml/multi/page_catalog_group_milk.skt index a28b19da..98ee0c83 100644 --- a/inter/tha/xml/multi/page_catalog_group_milk.skt +++ b/inter/tha/xml/multi/page_catalog_group_milk.skt @@ -99,11 +99,101 @@ Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_milk.lxml" RefreshAll EndIf + + InstanceGetString SaveStringInst + If SaveStringInst = "RefreshNow" Then + + Else + If LanguageShow = "ENG" Then + Var SaveStringInst = "ShowEng" + Var show_eng = "false" + EndIf + If LanguageShow = "THAI" Then + Var SaveStringInst = "ShowThai" + Var show_eng = "true" + EndIf + If LanguageShow "MYANMAR" Then + Var show_eng = "false" + Var SaveStringInst = "ShowMYANMAR" + EndIf + EndIf EndIf TimerReset + + InstanceGetString SaveStringInst + DEBUGVAR SaveStringInst + DEBUGVAR show_eng + + + Var ButtonLanguageCurrentXPosition = 1005 + Var ButtonLanguageCurrentYPosition = 458 - 38 + + Var ButtonLanguageListXPosition = 970 + Var ButtonLanguageListYPosition = 450 - 38 + + DEBUGVAR EnabledBlockUpdateInst6 + DEBUGVAR EnabledBlocksDrawInst6 + + + If SaveStringInst = "RefreshNow" Then + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + Else + If EnabledBlocksDrawInst6 = EnabledBlockUpdateInst6 Then + Var StatusRefresh = "NoRefresh" + DEBUGVAR StatusRefresh + Else + Var StatusRefresh = "Refresh" + DEBUGVAR StatusRefresh + GetXMLFileNameCurrentRunning CurrentOpenFile2 + Open CurrentOpenFile2 + EndIf + + EndIf + DEBUGVAR LanguageShow + + + If SaveStringInst = "ShowThai" Then + If LanguageShow = "THAI" Then + + Else + Var show_eng = "true" + InstanceSetString "ShowMYANMAR" + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + EndIf + EndIf + + If SaveStringInst = "ShowMYANMAR" Then + If LanguageShow = "MYANMAR" Then + + Else + Var show_eng = "false" + InstanceSetString "ShowEng" + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + EndIf + EndIf + + If SaveStringInst = "ShowEng" Then + If LanguageShow = "ENG" Then + + Else + Var show_eng = "false" + InstanceSetString "ShowThai" + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + EndIf + EndIf + + + + + + ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" diff --git a/inter/tha/xml/multi/page_catalog_group_other.lxml b/inter/tha/xml/multi/page_catalog_group_other.lxml index 2d13a34f..59ebb92c 100644 --- a/inter/tha/xml/multi/page_catalog_group_other.lxml +++ b/inter/tha/xml/multi/page_catalog_group_other.lxml @@ -1,115 +1,189 @@ - - - - "Enable" - 1080 - 1920 -; "0xeae6e1" - SoundVolume - - ; On open - ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" - ; soda and other - Var Menu6Selected = "PressForever" - - SAVELOG PreviseXMLFileName2 - - Var Timeout = 0 - - - ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" - - SetInstanceIgnoreTouch - - - DEBUGVAR SlientRefreshIndex - - If SlientRefreshIndex = 7 Then - Var SlientRefreshIndex = 8 - EndIf - - - - 1000 - - ;DEBUGVAR ICE_PROCESS_STATUS - - If ICE_PROCESS_STATUS = 2 Then - Var ice_tab_process_show = "Enable" - Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT - Else - Var ice_tab_process_show = "Invisible" - EndIf - - - - - GetVisible inst_show7 - ;DEBUGVAR inst_show7 - - - If inst_show7 = 1 Then - InstanceGetString SaveStringInst - ;DEBUGVAR SaveStringInst - If SaveStringInst = "RefreshNow" Then - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - - If show_eng = "true" Then - InstanceSetString "ShowEng" - Else - InstanceSetString "ShowThai" - EndIf - - EndIf - EndIf - - ; setvarint SlientRefreshEnable 1 - ;DEBUGVAR SlientRefreshEnable - - If SlientRefreshEnable = 1 Then - If SaveStringInst = "RefreshNow" Then - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - - If show_eng = "true" Then - InstanceSetString "ShowEng" - Else - InstanceSetString "ShowThai" - EndIf - - EndIf - EndIf - - - If SlientRefreshIndex = 7 Then - If inst_show7 = 0 Then - GetXMLFileNameCurrentRunning CurrentOpenFile7 - Open CurrentOpenFile7 - Else - Var SlientRefreshIndex = 8 - EndIf - EndIf - - If inst_show7 = 1 Then - If langnext6 = "true" Then - Var langnext6 = "false" - DEBUGVAR langnext - ;GetXMLFileNameCurrentRunning CurrentOpenFile - DEBUGVAR CurrentOpenFile4 - Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_other.lxml" - RefreshAll - EndIf - EndIf - - TimerReset - - -;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" - - - - + + + + "Enable" + 1080 + 1920 +; "0xeae6e1" + SoundVolume + + ; On open + ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" + ; soda and other + Var Menu6Selected = "PressForever" + + SAVELOG PreviseXMLFileName2 + + Var Timeout = 0 + + + ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" + + SetInstanceIgnoreTouch + + + DEBUGVAR SlientRefreshIndex + + If SlientRefreshIndex = 7 Then + Var SlientRefreshIndex = 8 + EndIf + + + + 1000 + + ;DEBUGVAR ICE_PROCESS_STATUS + + If ICE_PROCESS_STATUS = 2 Then + Var ice_tab_process_show = "Enable" + Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT + Else + Var ice_tab_process_show = "Invisible" + EndIf + + + + + GetVisible inst_show7 + ;DEBUGVAR inst_show7 + + + If inst_show7 = 1 Then + InstanceGetString SaveStringInst + ;DEBUGVAR SaveStringInst + If SaveStringInst = "RefreshNow" Then + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + + If show_eng = "true" Then + InstanceSetString "ShowEng" + Else + InstanceSetString "ShowThai" + EndIf + + EndIf + EndIf + + ; setvarint SlientRefreshEnable 1 + ;DEBUGVAR SlientRefreshEnable + + If SlientRefreshEnable = 1 Then + If SaveStringInst = "RefreshNow" Then + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + + If show_eng = "true" Then + InstanceSetString "ShowEng" + Else + InstanceSetString "ShowThai" + EndIf + + EndIf + EndIf + + + If SlientRefreshIndex = 7 Then + If inst_show7 = 0 Then + GetXMLFileNameCurrentRunning CurrentOpenFile7 + Open CurrentOpenFile7 + Else + Var SlientRefreshIndex = 8 + EndIf + EndIf + + If inst_show7 = 1 Then + If langnext6 = "true" Then + Var langnext6 = "false" + DEBUGVAR langnext + ;GetXMLFileNameCurrentRunning CurrentOpenFile + DEBUGVAR CurrentOpenFile4 + Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_other.lxml" + RefreshAll + EndIf + EndIf + + + + + TimerReset + + + + InstanceGetString SaveStringInst + DEBUGVAR SaveStringInst + DEBUGVAR show_eng + + + Var ButtonLanguageCurrentXPosition = 1005 + Var ButtonLanguageCurrentYPosition = 458 - 38 + + Var ButtonLanguageListXPosition = 970 + Var ButtonLanguageListYPosition = 450 - 38 + + DEBUGVAR EnabledBlockUpdateInst10 + DEBUGVAR EnabledBlocksDrawInst10 + + + + If SaveStringInst = "RefreshNow" Then + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + Else + If EnabledBlocksDrawInst10 = EnabledBlockUpdateInst10 Then + Var StatusRefresh = "NoRefresh" + DEBUGVAR StatusRefresh + Else + Var StatusRefresh = "Refresh" + DEBUGVAR StatusRefresh + GetXMLFileNameCurrentRunning CurrentOpenFile2 + Open CurrentOpenFile2 + EndIf + EndIf + + DEBUGVAR LanguageShow + + + If SaveStringInst = "ShowThai" Then + If LanguageShow = "THAI" Then + + Else + Var show_eng = "true" + InstanceSetString "ShowMYANMAR" + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + EndIf + EndIf + + If SaveStringInst = "ShowMYANMAR" Then + If LanguageShow = "MYANMAR" Then + + Else + Var show_eng = "false" + InstanceSetString "ShowEng" + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + EndIf + EndIf + + If SaveStringInst = "ShowEng" Then + If LanguageShow = "ENG" Then + + Else + Var show_eng = "false" + InstanceSetString "ShowThai" + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + EndIf + EndIf + + + + +;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" + + + + 10 497 @@ -20280,8 +20354,8 @@ Open "ROOT/taobin_project/xml/page_payment_multi.xml" - - - - - + + + + + diff --git a/inter/tha/xml/multi/page_catalog_group_other.skt b/inter/tha/xml/multi/page_catalog_group_other.skt index 1e401536..be4b4d15 100644 --- a/inter/tha/xml/multi/page_catalog_group_other.skt +++ b/inter/tha/xml/multi/page_catalog_group_other.skt @@ -103,11 +103,101 @@ Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_other.lxml" RefreshAll EndIf + + InstanceGetString SaveStringInst + If SaveStringInst = "RefreshNow" Then + + Else + If LanguageShow = "ENG" Then + Var SaveStringInst = "ShowEng" + Var show_eng = "false" + EndIf + If LanguageShow = "THAI" Then + Var SaveStringInst = "ShowThai" + Var show_eng = "true" + EndIf + If LanguageShow "MYANMAR" Then + Var show_eng = "false" + Var SaveStringInst = "ShowMYANMAR" + EndIf + EndIf EndIf TimerReset + + InstanceGetString SaveStringInst + DEBUGVAR SaveStringInst + DEBUGVAR show_eng + + + Var ButtonLanguageCurrentXPosition = 1005 + Var ButtonLanguageCurrentYPosition = 458 - 38 + + Var ButtonLanguageListXPosition = 970 + Var ButtonLanguageListYPosition = 450 - 38 + + DEBUGVAR EnabledBlockUpdateInst6 + DEBUGVAR EnabledBlocksDrawInst6 + + + If SaveStringInst = "RefreshNow" Then + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + Else + If EnabledBlocksDrawInst6 = EnabledBlockUpdateInst6 Then + Var StatusRefresh = "NoRefresh" + DEBUGVAR StatusRefresh + Else + Var StatusRefresh = "Refresh" + DEBUGVAR StatusRefresh + GetXMLFileNameCurrentRunning CurrentOpenFile2 + Open CurrentOpenFile2 + EndIf + + EndIf + DEBUGVAR LanguageShow + + + If SaveStringInst = "ShowThai" Then + If LanguageShow = "THAI" Then + + Else + Var show_eng = "true" + InstanceSetString "ShowMYANMAR" + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + EndIf + EndIf + + If SaveStringInst = "ShowMYANMAR" Then + If LanguageShow = "MYANMAR" Then + + Else + Var show_eng = "false" + InstanceSetString "ShowEng" + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + EndIf + EndIf + + If SaveStringInst = "ShowEng" Then + If LanguageShow = "ENG" Then + + Else + Var show_eng = "false" + InstanceSetString "ShowThai" + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + EndIf + EndIf + + + + + + ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" diff --git a/inter/tha/xml/multi/page_catalog_group_other_other.lxml b/inter/tha/xml/multi/page_catalog_group_other_other.lxml index 44ffa195..5d982acc 100644 --- a/inter/tha/xml/multi/page_catalog_group_other_other.lxml +++ b/inter/tha/xml/multi/page_catalog_group_other_other.lxml @@ -1,89 +1,163 @@ - - - - "Enable" - 1080 - 1920 -; "0xeae6e1" - SoundVolume - - ; On open - ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" - ; soda and other - Var Menu62Selected = "PressForever" - - SAVELOG PreviseXMLFileName2 - - Var Timeout = 0 - - - ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" - - SetInstanceIgnoreTouch - - - - - 1000 - - ;DEBUGVAR ICE_PROCESS_STATUS - - If ICE_PROCESS_STATUS = 2 Then - Var ice_tab_process_show = "Enable" - Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT - Else - Var ice_tab_process_show = "Invisible" - EndIf - - - - - GetVisible inst_show - ;DEBUGVAR inst_show - - InstanceGetString SaveStringInst - ;DEBUGVAR SaveStringInst - - If inst_show = 1 Then - If SaveStringInst = "RefreshNow" Then - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - - If show_eng = "true" Then - InstanceSetString "ShowEng" - Else - InstanceSetString "ShowThai" - EndIf - - EndIf - EndIf - - ; setvarint SlientRefreshEnable 1 - ;DEBUGVAR SlientRefreshEnable - - If SlientRefreshEnable = 1 Then - If SaveStringInst = "RefreshNow" Then - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - - If show_eng = "true" Then - InstanceSetString "ShowEng" - Else - InstanceSetString "ShowThai" - EndIf - - EndIf - EndIf - - - TimerReset - - -;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" - - - - + + + + "Enable" + 1080 + 1920 +; "0xeae6e1" + SoundVolume + + ; On open + ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" + ; soda and other + Var Menu62Selected = "PressForever" + + SAVELOG PreviseXMLFileName2 + + Var Timeout = 0 + + + ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" + + SetInstanceIgnoreTouch + + + + + 1000 + + ;DEBUGVAR ICE_PROCESS_STATUS + + If ICE_PROCESS_STATUS = 2 Then + Var ice_tab_process_show = "Enable" + Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT + Else + Var ice_tab_process_show = "Invisible" + EndIf + + + + + GetVisible inst_show + ;DEBUGVAR inst_show + + InstanceGetString SaveStringInst + ;DEBUGVAR SaveStringInst + + If inst_show = 1 Then + If SaveStringInst = "RefreshNow" Then + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + + If show_eng = "true" Then + InstanceSetString "ShowEng" + Else + InstanceSetString "ShowThai" + EndIf + + EndIf + EndIf + + ; setvarint SlientRefreshEnable 1 + ;DEBUGVAR SlientRefreshEnable + + If SlientRefreshEnable = 1 Then + If SaveStringInst = "RefreshNow" Then + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + + If show_eng = "true" Then + InstanceSetString "ShowEng" + Else + InstanceSetString "ShowThai" + EndIf + + EndIf + EndIf + + + TimerReset + + + + + InstanceGetString SaveStringInst + DEBUGVAR SaveStringInst + DEBUGVAR show_eng + + + Var ButtonLanguageCurrentXPosition = 1005 + Var ButtonLanguageCurrentYPosition = 458 - 38 + + Var ButtonLanguageListXPosition = 970 + Var ButtonLanguageListYPosition = 450 - 38 + + DEBUGVAR EnabledBlockUpdateInst10 + DEBUGVAR EnabledBlocksDrawInst10 + + + + If SaveStringInst = "RefreshNow" Then + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + Else + If EnabledBlocksDrawInst10 = EnabledBlockUpdateInst10 Then + Var StatusRefresh = "NoRefresh" + DEBUGVAR StatusRefresh + Else + Var StatusRefresh = "Refresh" + DEBUGVAR StatusRefresh + GetXMLFileNameCurrentRunning CurrentOpenFile2 + Open CurrentOpenFile2 + EndIf + EndIf + + + + DEBUGVAR LanguageShow + + + If SaveStringInst = "ShowThai" Then + If LanguageShow = "THAI" Then + + Else + Var show_eng = "true" + InstanceSetString "ShowMYANMAR" + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + EndIf + EndIf + + If SaveStringInst = "ShowMYANMAR" Then + If LanguageShow = "MYANMAR" Then + + Else + Var show_eng = "false" + InstanceSetString "ShowEng" + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + EndIf + EndIf + + If SaveStringInst = "ShowEng" Then + If LanguageShow = "ENG" Then + + Else + Var show_eng = "false" + InstanceSetString "ShowThai" + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + EndIf + EndIf + + + + +;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" + + + + 10 497 @@ -12094,8 +12168,8 @@ Open "ROOT/taobin_project/xml/page_payment_multi.xml" - - - - - + + + + + diff --git a/inter/tha/xml/multi/page_catalog_group_other_other.skt b/inter/tha/xml/multi/page_catalog_group_other_other.skt index 1c9288c5..ef929f11 100644 --- a/inter/tha/xml/multi/page_catalog_group_other_other.skt +++ b/inter/tha/xml/multi/page_catalog_group_other_other.skt @@ -82,6 +82,79 @@ TimerReset + + + InstanceGetString SaveStringInst + DEBUGVAR SaveStringInst + DEBUGVAR show_eng + + + Var ButtonLanguageCurrentXPosition = 1005 + Var ButtonLanguageCurrentYPosition = 458 - 38 + + Var ButtonLanguageListXPosition = 970 + Var ButtonLanguageListYPosition = 450 - 38 + + DEBUGVAR EnabledBlockUpdateInst6 + DEBUGVAR EnabledBlocksDrawInst6 + + + If SaveStringInst = "RefreshNow" Then + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + Else + If EnabledBlocksDrawInst6 = EnabledBlockUpdateInst6 Then + Var StatusRefresh = "NoRefresh" + DEBUGVAR StatusRefresh + Else + Var StatusRefresh = "Refresh" + DEBUGVAR StatusRefresh + GetXMLFileNameCurrentRunning CurrentOpenFile2 + Open CurrentOpenFile2 + EndIf + + EndIf + DEBUGVAR LanguageShow + + + If SaveStringInst = "ShowThai" Then + If LanguageShow = "THAI" Then + + Else + Var show_eng = "true" + InstanceSetString "ShowMYANMAR" + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + EndIf + EndIf + + If SaveStringInst = "ShowMYANMAR" Then + If LanguageShow = "MYANMAR" Then + + Else + Var show_eng = "false" + InstanceSetString "ShowEng" + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + EndIf + EndIf + + If SaveStringInst = "ShowEng" Then + If LanguageShow = "ENG" Then + + Else + Var show_eng = "false" + InstanceSetString "ShowThai" + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + EndIf + EndIf + + + + + + ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" diff --git a/inter/tha/xml/multi/page_catalog_group_pepsi_7up.lxml b/inter/tha/xml/multi/page_catalog_group_pepsi_7up.lxml index 84dcc76a..69da4a55 100644 --- a/inter/tha/xml/multi/page_catalog_group_pepsi_7up.lxml +++ b/inter/tha/xml/multi/page_catalog_group_pepsi_7up.lxml @@ -1,113 +1,190 @@ - - - - "Enable" - 1080 - 1920 -; "0xeae6e1" - SoundVolume - - ; On open - ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" - ; pepsi 7up - Var Menu61Selected = "PressForever" - SAVELOG PreviseXMLFileName2 - - Var Timeout = 0 - - - ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" - - SetInstanceIgnoreTouch - - DEBUGVAR SlientRefreshIndex - - If SlientRefreshIndex = 9 Then - Var SlientRefreshIndex = 0 - EndIf - - - 1000 - - ;DEBUGVAR ICE_PROCESS_STATUS - - If ICE_PROCESS_STATUS = 2 Then - Var ice_tab_process_show = "Enable" - Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT - Else - Var ice_tab_process_show = "Invisible" - EndIf - - - - - GetVisible inst_show9 - ;DEBUGVAR inst_show9 - - - - If inst_show9 = 1 Then - InstanceGetString SaveStringInst - ;DEBUGVAR SaveStringInst - If SaveStringInst = "RefreshNow" Then - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - - If show_eng = "true" Then - InstanceSetString "ShowEng" - Else - InstanceSetString "ShowThai" - EndIf - - EndIf - EndIf - - ; setvarint SlientRefreshEnable 1 - ;DEBUGVAR SlientRefreshEnable - - If SlientRefreshEnable = 1 Then - If SaveStringInst = "RefreshNow" Then - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - - If show_eng = "true" Then - InstanceSetString "ShowEng" - Else - InstanceSetString "ShowThai" - EndIf - - EndIf - EndIf - - - If SlientRefreshIndex = 9 Then - If inst_show9 = 0 Then - GetXMLFileNameCurrentRunning CurrentOpenFile5 - Open CurrentOpenFile5 - Else - Var SlientRefreshIndex = 0 - EndIf - EndIf - - If inst_show9 = 1 Then - If langnext8 = "true" Then - Var langnext8 = "false" - DEBUGVAR langnext - ;GetXMLFileNameCurrentRunning CurrentOpenFile - DEBUGVAR CurrentOpenFile4 - Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_pepsi_7up.lxml" - RefreshAll - EndIf - EndIf - - TimerReset - - -;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" - - - - + + + + "Enable" + 1080 + 1920 +; "0xeae6e1" + SoundVolume + + ; On open + ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" + ; pepsi 7up + Var Menu61Selected = "PressForever" + SAVELOG PreviseXMLFileName2 + + Var Timeout = 0 + + + ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" + + SetInstanceIgnoreTouch + + DEBUGVAR SlientRefreshIndex + + If SlientRefreshIndex = 9 Then + Var SlientRefreshIndex = 0 + EndIf + + + 1000 + + ;DEBUGVAR ICE_PROCESS_STATUS + + If ICE_PROCESS_STATUS = 2 Then + Var ice_tab_process_show = "Enable" + Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT + Else + Var ice_tab_process_show = "Invisible" + EndIf + + + + + GetVisible inst_show9 + ;DEBUGVAR inst_show9 + + + + If inst_show9 = 1 Then + InstanceGetString SaveStringInst + ;DEBUGVAR SaveStringInst + If SaveStringInst = "RefreshNow" Then + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + + If show_eng = "true" Then + InstanceSetString "ShowEng" + Else + InstanceSetString "ShowThai" + EndIf + + EndIf + EndIf + + ; setvarint SlientRefreshEnable 1 + ;DEBUGVAR SlientRefreshEnable + + If SlientRefreshEnable = 1 Then + If SaveStringInst = "RefreshNow" Then + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + + If show_eng = "true" Then + InstanceSetString "ShowEng" + Else + InstanceSetString "ShowThai" + EndIf + + EndIf + EndIf + + + If SlientRefreshIndex = 9 Then + If inst_show9 = 0 Then + GetXMLFileNameCurrentRunning CurrentOpenFile9 + Open CurrentOpenFile9 + Else + Var SlientRefreshIndex = 0 + EndIf + EndIf + + If inst_show9 = 1 Then + If langnext8 = "true" Then + Var langnext8 = "false" + DEBUGVAR langnext + Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_pepsi_7up.lxml" + RefreshAll + EndIf + EndIf + + + + + TimerReset + + + + + InstanceGetString SaveStringInst + DEBUGVAR SaveStringInst + DEBUGVAR show_eng + + + Var ButtonLanguageCurrentXPosition = 1005 + Var ButtonLanguageCurrentYPosition = 458 - 38 + + Var ButtonLanguageListXPosition = 970 + Var ButtonLanguageListYPosition = 450 - 38 + + DEBUGVAR EnabledBlockUpdateInst11 + DEBUGVAR EnabledBlocksDrawInst11 + + + + + If SaveStringInst = "RefreshNow" Then + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + Else + If EnabledBlocksDrawInst11 = EnabledBlockUpdateInst11 Then + Var StatusRefresh = "NoRefresh" + DEBUGVAR StatusRefresh + Else + Var StatusRefresh = "Refresh" + DEBUGVAR StatusRefresh + GetXMLFileNameCurrentRunning CurrentOpenFile2 + Open CurrentOpenFile2 + EndIf + EndIf + + + + DEBUGVAR LanguageShow + + + If SaveStringInst = "ShowThai" Then + If LanguageShow = "THAI" Then + + Else + Var show_eng = "true" + InstanceSetString "ShowMYANMAR" + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + EndIf + EndIf + + If SaveStringInst = "ShowMYANMAR" Then + If LanguageShow = "MYANMAR" Then + + Else + Var show_eng = "false" + InstanceSetString "ShowEng" + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + EndIf + EndIf + + If SaveStringInst = "ShowEng" Then + If LanguageShow = "ENG" Then + + Else + Var show_eng = "false" + InstanceSetString "ShowThai" + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + EndIf + EndIf + + + + + +;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" + + + + 10 497 @@ -8022,8 +8099,8 @@ Open "ROOT/taobin_project/xml/page_payment_multi.xml" - - - - - + + + + + diff --git a/inter/tha/xml/multi/page_catalog_group_pepsi_7up.skt b/inter/tha/xml/multi/page_catalog_group_pepsi_7up.skt index 94ede42b..0580f6c7 100644 --- a/inter/tha/xml/multi/page_catalog_group_pepsi_7up.skt +++ b/inter/tha/xml/multi/page_catalog_group_pepsi_7up.skt @@ -101,11 +101,102 @@ Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_pepsi_7up.lxml" RefreshAll EndIf + + InstanceGetString SaveStringInst + If SaveStringInst = "RefreshNow" Then + + Else + If LanguageShow = "ENG" Then + Var SaveStringInst = "ShowEng" + Var show_eng = "false" + EndIf + If LanguageShow = "THAI" Then + Var SaveStringInst = "ShowThai" + Var show_eng = "true" + EndIf + If LanguageShow "MYANMAR" Then + Var show_eng = "false" + Var SaveStringInst = "ShowMYANMAR" + EndIf + EndIf EndIf TimerReset + + InstanceGetString SaveStringInst + DEBUGVAR SaveStringInst + DEBUGVAR show_eng + + + Var ButtonLanguageCurrentXPosition = 1005 + Var ButtonLanguageCurrentYPosition = 458 - 38 + + Var ButtonLanguageListXPosition = 970 + Var ButtonLanguageListYPosition = 450 - 38 + + DEBUGVAR EnabledBlockUpdateInst6 + DEBUGVAR EnabledBlocksDrawInst6 + + + If SaveStringInst = "RefreshNow" Then + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + Else + If EnabledBlocksDrawInst6 = EnabledBlockUpdateInst6 Then + Var StatusRefresh = "NoRefresh" + DEBUGVAR StatusRefresh + Else + Var StatusRefresh = "Refresh" + DEBUGVAR StatusRefresh + GetXMLFileNameCurrentRunning CurrentOpenFile2 + Open CurrentOpenFile2 + EndIf + + EndIf + DEBUGVAR LanguageShow + + + If SaveStringInst = "ShowThai" Then + If LanguageShow = "THAI" Then + + Else + Var show_eng = "true" + InstanceSetString "ShowMYANMAR" + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + EndIf + EndIf + + If SaveStringInst = "ShowMYANMAR" Then + If LanguageShow = "MYANMAR" Then + + Else + Var show_eng = "false" + InstanceSetString "ShowEng" + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + EndIf + EndIf + + If SaveStringInst = "ShowEng" Then + If LanguageShow = "ENG" Then + + Else + Var show_eng = "false" + InstanceSetString "ShowThai" + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + EndIf + EndIf + + + + + + + ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" diff --git a/inter/tha/xml/multi/page_catalog_group_recommend.lxml b/inter/tha/xml/multi/page_catalog_group_recommend.lxml index 2a831155..de195f9c 100644 --- a/inter/tha/xml/multi/page_catalog_group_recommend.lxml +++ b/inter/tha/xml/multi/page_catalog_group_recommend.lxml @@ -1,200 +1,200 @@ - - - - "Enable" - 1080 - 1920 -; "0xeae6e1" - SoundVolume - - ; On open - ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" - - Var Menu1Selected = "PressForever" - - Var OreoBigButtonEnable = "Enable" - - If $12-01-01-0001.Button = "Invisible" Then - Var esp102101001Enable = "Invisible" - Var esp122101001Enable = "Enable" - - Else - Var esp102101001Enable = "Enable" - Var esp122101001Enable = "Invisible" - - EndIf - - SAVELOG PreviseXMLFileName2 - - Var Timeout = 0 - - If show_eng = "true" Then - - Var text_unavailable = "UNAVAILABLE###size=16" - Else - Var text_unavailable = "หมด###size=32" - - EndIf - - ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" - SetInstanceIgnoreTouch - - - - - DEBUGVAR LanguageShow - If LanguageShow = "ENG" Then - Var DirImage2 = "ROOT/taobin_project/image/drink_option_en/" - Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/" - - EndIf - If LanguageShow = "THAI" Then - Var DirImage2 = "ROOT/taobin_project/image/drink_option/" - Var DirImageAlter = "ROOT/taobin_project/image/page3_2/" - EndIf - If LanguageShow = "MYANMAR" Then - Var show_eng = "true" - DEBUGVAR show_eng - Var DirImage2 = "ROOT/taobin_project/image/drink_option_mmr/" - Var DirImageAlter = "ROOT/taobin_project/image/page3_2_mmr/" - EndIf - ;inter-image - If CountryName = "Malaysia" Then - Var DirImage2 = "ROOT/taobin_project/image/drink_option_myr/" - Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/" - Var DirImage = "ROOT/taobin_project/image/page3_en" - Var ice_tab_text = "Ice will be ready at " - EndIf - ;inter-image - If CountryName = "australia" Then - Var DirImage2 = "ROOT/taobin_project/image/drink_option_aus/" - Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/" - Var DirImageAlterMilk = "ROOT/taobin_project/inter/aus/image/page3_2_en/" - Var DirImage = "ROOT/taobin_project/image/page3_en" - Var ice_tab_text = "Ice will be ready at " - EndIf - - ;SAVELOG "EventLanguageOnChange menu -list" - - - - Var LanguageButtonEnable = "Enable" - - Var ButtonLanguageCurrentXPosition = 1005 - Var ButtonLanguageCurrentYPosition = 458 - 38 - - Var ButtonLanguageListXPosition = 970 - Var ButtonLanguageListYPosition = 450 - 38 - OpenInst 3 "ROOT/taobin_project/xml/topview2.xml" - RefreshAll - - - - 1000 - - ;DEBUGVAR ICE_PROCESS_STATUS - - If ICE_PROCESS_STATUS = 2 Then - Var ice_tab_process_show = "Enable" - Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT - Else - Var ice_tab_process_show = "Invisible" - EndIf - - - - - GetVisible inst_show - ;DEBUGVAR inst_show - - InstanceGetString SaveStringInst - ;DEBUGVAR SaveStringInst - - If inst_show = 1 Then - If SaveStringInst = "RefreshNow" Then - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - - If show_eng = "true" Then - InstanceSetString "ShowEng" - Else - InstanceSetString "ShowThai" - EndIf - - EndIf - EndIf - - ; setvarint SlientRefreshEnable 1 - ;DEBUGVAR SlientRefreshEnable - - If SlientRefreshEnable = 1 Then - If SaveStringInst = "RefreshNow" Then - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - - If show_eng = "true" Then - InstanceSetString "ShowEng" - Else - InstanceSetString "ShowThai" - EndIf - - EndIf - EndIf - - TimerReset - - -;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" - - - DEBUGVAR LanguageShow - If LanguageShow = "ENG" Then - Var DirImage2 = "ROOT/taobin_project/image/drink_option_en/" - Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/" - - EndIf - If LanguageShow = "THAI" Then - Var DirImage2 = "ROOT/taobin_project/image/drink_option/" - Var DirImageAlter = "ROOT/taobin_project/image/page3_2/" - EndIf - If LanguageShow = "MYANMAR" Then - Var show_eng = "true" - DEBUGVAR show_eng - Var DirImage2 = "ROOT/taobin_project/image/drink_option_mmr/" - Var DirImageAlter = "ROOT/taobin_project/image/page3_2_mmr/" - EndIf - ;inter-image - If CountryName = "Malaysia" Then - Var DirImage2 = "ROOT/taobin_project/image/drink_option_myr/" - Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/" - Var DirImage = "ROOT/taobin_project/image/page3_en" - Var ice_tab_text = "Ice will be ready at " - EndIf - ;inter-image - If CountryName = "australia" Then - Var DirImage2 = "ROOT/taobin_project/image/drink_option_aus/" - Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/" - Var DirImageAlterMilk = "ROOT/taobin_project/inter/aus/image/page3_2_en/" - Var DirImage = "ROOT/taobin_project/image/page3_en" - Var ice_tab_text = "Ice will be ready at " - EndIf - - ;SAVELOG "EventLanguageOnChange menu -list" - - - - Var LanguageButtonEnable = "Enable" - - Var ButtonLanguageCurrentXPosition = 1005 - Var ButtonLanguageCurrentYPosition = 458 - 38 - - Var ButtonLanguageListXPosition = 970 - Var ButtonLanguageListYPosition = 450 - 38 - ;OpenInst 3 "ROOT/taobin_project/xml/topview2.xml" - ;RefreshAll - - - + + + + "Enable" + 1080 + 1920 +; "0xeae6e1" + SoundVolume + + ; On open + ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" + + Var Menu1Selected = "PressForever" + + Var OreoBigButtonEnable = "Enable" + + If $12-01-01-0001.Button = "Invisible" Then + Var esp102101001Enable = "Invisible" + Var esp122101001Enable = "Enable" + + Else + Var esp102101001Enable = "Enable" + Var esp122101001Enable = "Invisible" + + EndIf + + SAVELOG PreviseXMLFileName2 + + Var Timeout = 0 + + If show_eng = "true" Then + + Var text_unavailable = "UNAVAILABLE###size=16" + Else + Var text_unavailable = "หมด###size=32" + + EndIf + + ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" + SetInstanceIgnoreTouch + + + + + DEBUGVAR LanguageShow + If LanguageShow = "ENG" Then + Var DirImage2 = "ROOT/taobin_project/image/drink_option_en/" + Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/" + + EndIf + If LanguageShow = "THAI" Then + Var DirImage2 = "ROOT/taobin_project/image/drink_option/" + Var DirImageAlter = "ROOT/taobin_project/image/page3_2/" + EndIf + If LanguageShow = "MYANMAR" Then + Var show_eng = "true" + DEBUGVAR show_eng + Var DirImage2 = "ROOT/taobin_project/image/drink_option_mmr/" + Var DirImageAlter = "ROOT/taobin_project/image/page3_2_mmr/" + EndIf + ;inter-image + If CountryName = "Malaysia" Then + Var DirImage2 = "ROOT/taobin_project/image/drink_option_myr/" + Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/" + Var DirImage = "ROOT/taobin_project/image/page3_en" + Var ice_tab_text = "Ice will be ready at " + EndIf + ;inter-image + If CountryName = "australia" Then + Var DirImage2 = "ROOT/taobin_project/image/drink_option_aus/" + Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/" + Var DirImageAlterMilk = "ROOT/taobin_project/inter/aus/image/page3_2_en/" + Var DirImage = "ROOT/taobin_project/image/page3_en" + Var ice_tab_text = "Ice will be ready at " + EndIf + + ;SAVELOG "EventLanguageOnChange menu -list" + + + + Var LanguageButtonEnable = "Enable" + + Var ButtonLanguageCurrentXPosition = 1005 + Var ButtonLanguageCurrentYPosition = 458 - 38 + + Var ButtonLanguageListXPosition = 970 + Var ButtonLanguageListYPosition = 450 - 38 + OpenInst 3 "ROOT/taobin_project/xml/topview2.xml" + RefreshAll + + + + 1000 + + ;DEBUGVAR ICE_PROCESS_STATUS + + If ICE_PROCESS_STATUS = 2 Then + Var ice_tab_process_show = "Enable" + Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT + Else + Var ice_tab_process_show = "Invisible" + EndIf + + + + + GetVisible inst_show + ;DEBUGVAR inst_show + + InstanceGetString SaveStringInst + ;DEBUGVAR SaveStringInst + + If inst_show = 1 Then + If SaveStringInst = "RefreshNow" Then + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + + If show_eng = "true" Then + InstanceSetString "ShowEng" + Else + InstanceSetString "ShowThai" + EndIf + + EndIf + EndIf + + ; setvarint SlientRefreshEnable 1 + ;DEBUGVAR SlientRefreshEnable + + If SlientRefreshEnable = 1 Then + If SaveStringInst = "RefreshNow" Then + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + + If show_eng = "true" Then + InstanceSetString "ShowEng" + Else + InstanceSetString "ShowThai" + EndIf + + EndIf + EndIf + + TimerReset + + +;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" + + + DEBUGVAR LanguageShow + If LanguageShow = "ENG" Then + Var DirImage2 = "ROOT/taobin_project/image/drink_option_en/" + Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/" + + EndIf + If LanguageShow = "THAI" Then + Var DirImage2 = "ROOT/taobin_project/image/drink_option/" + Var DirImageAlter = "ROOT/taobin_project/image/page3_2/" + EndIf + If LanguageShow = "MYANMAR" Then + Var show_eng = "true" + DEBUGVAR show_eng + Var DirImage2 = "ROOT/taobin_project/image/drink_option_mmr/" + Var DirImageAlter = "ROOT/taobin_project/image/page3_2_mmr/" + EndIf + ;inter-image + If CountryName = "Malaysia" Then + Var DirImage2 = "ROOT/taobin_project/image/drink_option_myr/" + Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/" + Var DirImage = "ROOT/taobin_project/image/page3_en" + Var ice_tab_text = "Ice will be ready at " + EndIf + ;inter-image + If CountryName = "australia" Then + Var DirImage2 = "ROOT/taobin_project/image/drink_option_aus/" + Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/" + Var DirImageAlterMilk = "ROOT/taobin_project/inter/aus/image/page3_2_en/" + Var DirImage = "ROOT/taobin_project/image/page3_en" + Var ice_tab_text = "Ice will be ready at " + EndIf + + ;SAVELOG "EventLanguageOnChange menu -list" + + + + Var LanguageButtonEnable = "Enable" + + Var ButtonLanguageCurrentXPosition = 1005 + Var ButtonLanguageCurrentYPosition = 458 - 38 + + Var ButtonLanguageListXPosition = 970 + Var ButtonLanguageListYPosition = 450 - 38 + ;OpenInst 3 "ROOT/taobin_project/xml/topview2.xml" + ;RefreshAll + + + 16 10 @@ -13382,28 +13382,28 @@ Open "ROOT/taobin_project/xml/page_payment_multi.xml" - - - - - - - -;BigLogoLayout - - - - + + + + + + + +;BigLogoLayout + + + + diff --git a/inter/tha/xml/multi/page_catalog_group_tea.lxml b/inter/tha/xml/multi/page_catalog_group_tea.lxml index 76ab4eef..1771a2a9 100644 --- a/inter/tha/xml/multi/page_catalog_group_tea.lxml +++ b/inter/tha/xml/multi/page_catalog_group_tea.lxml @@ -1,105 +1,198 @@ - - - - "Enable" - 1080 - 1920 -; "0xeae6e1" - SoundVolume - - ; On open - ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" - Var Menu3Selected = "PressForever" - - - SAVELOG PreviseXMLFileName2 - - Var Timeout = 0 - - - ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" - - SetInstanceIgnoreTouch - - DEBUGVAR SlientRefreshIndex - - If SlientRefreshIndex = 3 Then - Var SlientRefreshIndex = 4 - - EndIf - - - 1000 - - ;DEBUGVAR ICE_PROCESS_STATUS - - If ICE_PROCESS_STATUS = 2 Then - Var ice_tab_process_show = "Enable" - Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT - Else - Var ice_tab_process_show = "Invisible" - EndIf - - - - - GetVisible inst_show3 - ;DEBUGVAR inst_show3 - - - - If inst_show3 = 1 Then - InstanceGetString SaveStringInst - ;DEBUGVAR SaveStringInst - If SaveStringInst = "RefreshNow" Then - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - - If show_eng = "true" Then - InstanceSetString "ShowEng" - Else - InstanceSetString "ShowThai" - EndIf - - EndIf - - EndIf - - ; setvarint SlientRefreshEnable 1 - ;DEBUGVAR SlientRefreshEnable - - If SlientRefreshIndex = 3 Then - If inst_show3 = 0 Then - GetXMLFileNameCurrentRunning CurrentOpenFile3 - Open CurrentOpenFile3 - Else - Var SlientRefreshIndex = 4 - - EndIf - EndIf - - If inst_show3 = 1 Then - If langnext2 = "true" Then - Var langnext2 = "false" - DEBUGVAR langnext - ;GetXMLFileNameCurrentRunning CurrentOpenFile - DEBUGVAR CurrentOpenFile4 - Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_tea.lxml" - RefreshAll - EndIf - EndIf - - TimerReset - - - -;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" - - - - - - + + + + "Enable" + 1080 + 1920 +; "0xeae6e1" + SoundVolume + + ; On open + ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" + Var Menu3Selected = "PressForever" + + + SAVELOG PreviseXMLFileName2 + + Var Timeout = 0 + + + ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" + + SetInstanceIgnoreTouch + + DEBUGVAR SlientRefreshIndex + + If SlientRefreshIndex = 3 Then + Var SlientRefreshIndex = 4 + + EndIf + + + 1000 + + ;DEBUGVAR ICE_PROCESS_STATUS + + If ICE_PROCESS_STATUS = 2 Then + Var ice_tab_process_show = "Enable" + Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT + Else + Var ice_tab_process_show = "Invisible" + EndIf + + + + + GetVisible inst_show3 + ;DEBUGVAR inst_show3 + + + + If inst_show3 = 1 Then + InstanceGetString SaveStringInst + ;DEBUGVAR SaveStringInst + If SaveStringInst = "RefreshNow" Then + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + + If show_eng = "true" Then + InstanceSetString "ShowEng" + Else + InstanceSetString "ShowThai" + EndIf + + EndIf + + EndIf + + ; setvarint SlientRefreshEnable 1 + ;DEBUGVAR SlientRefreshEnable + + If SlientRefreshIndex = 3 Then + If inst_show3 = 0 Then + GetXMLFileNameCurrentRunning CurrentOpenFile3 + Open CurrentOpenFile3 + Else + Var SlientRefreshIndex = 4 + + EndIf + EndIf + + If inst_show3 = 1 Then + If langnext2 = "true" Then + Var langnext2 = "false" + DEBUGVAR langnext2 + ;GetXMLFileNameCurrentRunning CurrentOpenFile + DEBUGVAR CurrentOpenFile4 + Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_tea.lxml" + RefreshAll + EndIf + + InstanceGetString SaveStringInst + If SaveStringInst = "RefreshNow" Then + + Else + If LanguageShow = "ENG" Then + Var SaveStringInst = "ShowEng" + Var show_eng = "false" + EndIf + If LanguageShow = "THAI" Then + Var SaveStringInst = "ShowThai" + Var show_eng = "true" + EndIf + If LanguageShow "MYANMAR" Then + Var show_eng = "false" + Var SaveStringInst = "ShowMYANMAR" + EndIf + EndIf + EndIf + + + + TimerReset + + + + + InstanceGetString SaveStringInst + DEBUGVAR SaveStringInst + DEBUGVAR show_eng + + + Var ButtonLanguageCurrentXPosition = 1005 + Var ButtonLanguageCurrentYPosition = 458 - 38 + + Var ButtonLanguageListXPosition = 970 + Var ButtonLanguageListYPosition = 450 - 38 + + DEBUGVAR EnabledBlockUpdateInst6 + DEBUGVAR EnabledBlocksDrawInst6 + + + If SaveStringInst = "RefreshNow" Then + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + Else + If EnabledBlocksDrawInst6 = EnabledBlockUpdateInst6 Then + Var StatusRefresh = "NoRefresh" + DEBUGVAR StatusRefresh + Else + Var StatusRefresh = "Refresh" + DEBUGVAR StatusRefresh + GetXMLFileNameCurrentRunning CurrentOpenFile2 + Open CurrentOpenFile2 + EndIf + + EndIf + DEBUGVAR LanguageShow + + + If SaveStringInst = "ShowThai" Then + If LanguageShow = "THAI" Then + + Else + Var show_eng = "true" + InstanceSetString "ShowMYANMAR" + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + EndIf + EndIf + + If SaveStringInst = "ShowMYANMAR" Then + If LanguageShow = "MYANMAR" Then + + Else + Var show_eng = "false" + InstanceSetString "ShowEng" + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + EndIf + EndIf + + If SaveStringInst = "ShowEng" Then + If LanguageShow = "ENG" Then + + Else + Var show_eng = "false" + InstanceSetString "ShowThai" + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + EndIf + EndIf + + + + + + + +;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" + + + + + + 10 497 @@ -11966,8 +12059,8 @@ Open "ROOT/taobin_project/xml/page_payment_multi.xml" - - - - - + + + + + diff --git a/inter/tha/xml/multi/page_catalog_group_tea.skt b/inter/tha/xml/multi/page_catalog_group_tea.skt index cc9e9834..3347fcd3 100644 --- a/inter/tha/xml/multi/page_catalog_group_tea.skt +++ b/inter/tha/xml/multi/page_catalog_group_tea.skt @@ -90,11 +90,100 @@ Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_tea.lxml" RefreshAll EndIf + + InstanceGetString SaveStringInst + If SaveStringInst = "RefreshNow" Then + + Else + If LanguageShow = "ENG" Then + Var SaveStringInst = "ShowEng" + Var show_eng = "false" + EndIf + If LanguageShow = "THAI" Then + Var SaveStringInst = "ShowThai" + Var show_eng = "true" + EndIf + If LanguageShow "MYANMAR" Then + Var show_eng = "false" + Var SaveStringInst = "ShowMYANMAR" + EndIf + EndIf EndIf TimerReset + + InstanceGetString SaveStringInst + DEBUGVAR SaveStringInst + DEBUGVAR show_eng + + + Var ButtonLanguageCurrentXPosition = 1005 + Var ButtonLanguageCurrentYPosition = 458 - 38 + + Var ButtonLanguageListXPosition = 970 + Var ButtonLanguageListYPosition = 450 - 38 + + DEBUGVAR EnabledBlockUpdateInst6 + DEBUGVAR EnabledBlocksDrawInst6 + + + If SaveStringInst = "RefreshNow" Then + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + Else + If EnabledBlocksDrawInst6 = EnabledBlockUpdateInst6 Then + Var StatusRefresh = "NoRefresh" + DEBUGVAR StatusRefresh + Else + Var StatusRefresh = "Refresh" + DEBUGVAR StatusRefresh + GetXMLFileNameCurrentRunning CurrentOpenFile2 + Open CurrentOpenFile2 + EndIf + + EndIf + DEBUGVAR LanguageShow + + + If SaveStringInst = "ShowThai" Then + If LanguageShow = "THAI" Then + + Else + Var show_eng = "true" + InstanceSetString "ShowMYANMAR" + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + EndIf + EndIf + + If SaveStringInst = "ShowMYANMAR" Then + If LanguageShow = "MYANMAR" Then + + Else + Var show_eng = "false" + InstanceSetString "ShowEng" + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + EndIf + EndIf + + If SaveStringInst = "ShowEng" Then + If LanguageShow = "ENG" Then + + Else + Var show_eng = "false" + InstanceSetString "ShowThai" + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + EndIf + EndIf + + + + + ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" diff --git a/inter/tha/xml/multi/page_catalog_group_whey.lxml b/inter/tha/xml/multi/page_catalog_group_whey.lxml index 8c17adf4..ed9cd08c 100644 --- a/inter/tha/xml/multi/page_catalog_group_whey.lxml +++ b/inter/tha/xml/multi/page_catalog_group_whey.lxml @@ -1,120 +1,193 @@ - - - - "Enable" - 1080 - 1920 -; "0xeae6e1" - SoundVolume - - ; On open - ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" - If AppFastEnable = "true" Then - Var Menu11Selected = "PressForever" - Var Menu7Selected = "Invisible" - Else - Var Menu11Selected = "Invisible" - Var Menu7Selected = "PressForever" - EndIf - - SAVELOG PreviseXMLFileName2 - - Var Timeout = 0 - - - ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" - SetInstanceIgnoreTouch - - - DEBUGVAR SlientRefreshIndex - - If SlientRefreshIndex = 8 Then - Var SlientRefreshIndex = 9 - EndIf - - - 1000 - - ;DEBUGVAR ICE_PROCESS_STATUS - - If ICE_PROCESS_STATUS = 2 Then - Var ice_tab_process_show = "Enable" - Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT - Else - Var ice_tab_process_show = "Invisible" - EndIf - - - - - GetVisible inst_show8 - ;DEBUGVAR inst_show8 - - InstanceGetString SaveStringInst - ;DEBUGVAR SaveStringInst - - If inst_show8 = 1 Then - InstanceGetString SaveStringInst - ;DEBUGVAR SaveStringInst - If SaveStringInst = "RefreshNow" Then - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - - If show_eng = "true" Then - InstanceSetString "ShowEng" - Else - InstanceSetString "ShowThai" - EndIf - - EndIf - EndIf - - ; setvarint SlientRefreshEnable 1 - ;DEBUGVAR SlientRefreshEnable - - If SlientRefreshEnable = 1 Then - If SaveStringInst = "RefreshNow" Then - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - - If show_eng = "true" Then - InstanceSetString "ShowEng" - Else - InstanceSetString "ShowThai" - EndIf - - EndIf - EndIf - - - If SlientRefreshIndex = 8 Then - If inst_show8 = 0 Then - GetXMLFileNameCurrentRunning CurrentOpenFile8 - Open CurrentOpenFile8 - Else - Var SlientRefreshIndex = 9 - EndIf - EndIf - - If inst_show8 = 1 Then - If langnext7 = "true" Then - Var langnext7 = "false" - DEBUGVAR langnext - ;GetXMLFileNameCurrentRunning CurrentOpenFile - DEBUGVAR CurrentOpenFile4 - Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_whey.lxml" - RefreshAll - EndIf - EndIf - - TimerReset - - -;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" - - - - + + + + "Enable" + 1080 + 1920 +; "0xeae6e1" + SoundVolume + + ; On open + ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" + If AppFastEnable = "true" Then + Var Menu11Selected = "PressForever" + Var Menu7Selected = "Invisible" + Else + Var Menu11Selected = "Invisible" + Var Menu7Selected = "PressForever" + EndIf + + SAVELOG PreviseXMLFileName2 + + Var Timeout = 0 + + + ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" + SetInstanceIgnoreTouch + + + DEBUGVAR SlientRefreshIndex + + If SlientRefreshIndex = 8 Then + Var SlientRefreshIndex = 9 + EndIf + + + 1000 + + ;DEBUGVAR ICE_PROCESS_STATUS + + If ICE_PROCESS_STATUS = 2 Then + Var ice_tab_process_show = "Enable" + Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT + Else + Var ice_tab_process_show = "Invisible" + EndIf + + + + + GetVisible inst_show8 + ;DEBUGVAR inst_show8 + + InstanceGetString SaveStringInst + ;DEBUGVAR SaveStringInst + + If inst_show8 = 1 Then + InstanceGetString SaveStringInst + ;DEBUGVAR SaveStringInst + If SaveStringInst = "RefreshNow" Then + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + + If show_eng = "true" Then + InstanceSetString "ShowEng" + Else + InstanceSetString "ShowThai" + EndIf + + EndIf + EndIf + + ; setvarint SlientRefreshEnable 1 + ;DEBUGVAR SlientRefreshEnable + + If SlientRefreshEnable = 1 Then + If SaveStringInst = "RefreshNow" Then + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + + If show_eng = "true" Then + InstanceSetString "ShowEng" + Else + InstanceSetString "ShowThai" + EndIf + + EndIf + EndIf + + + If SlientRefreshIndex = 8 Then + If inst_show8 = 0 Then + GetXMLFileNameCurrentRunning CurrentOpenFile8 + Open CurrentOpenFile8 + Else + Var SlientRefreshIndex = 9 + EndIf + EndIf + + If inst_show8 = 1 Then + If langnext7 = "true" Then + Var langnext7 = "false" + DEBUGVAR langnext + ;GetXMLFileNameCurrentRunning CurrentOpenFile + DEBUGVAR CurrentOpenFile4 + Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_whey.lxml" + RefreshAll + EndIf + EndIf + + TimerReset + + + + InstanceGetString SaveStringInst + DEBUGVAR SaveStringInst + DEBUGVAR show_eng + + + Var ButtonLanguageCurrentXPosition = 1005 + Var ButtonLanguageCurrentYPosition = 458 - 38 + + Var ButtonLanguageListXPosition = 970 + Var ButtonLanguageListYPosition = 450 - 38 + + DEBUGVAR EnabledBlockUpdateInst6 + DEBUGVAR EnabledBlocksDrawInst6 + + + If SaveStringInst = "RefreshNow" Then + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + Else + If EnabledBlocksDrawInst6 = EnabledBlockUpdateInst6 Then + Var StatusRefresh = "NoRefresh" + DEBUGVAR StatusRefresh + Else + Var StatusRefresh = "Refresh" + DEBUGVAR StatusRefresh + GetXMLFileNameCurrentRunning CurrentOpenFile2 + Open CurrentOpenFile2 + EndIf + + EndIf + DEBUGVAR LanguageShow + + + If SaveStringInst = "ShowThai" Then + If LanguageShow = "THAI" Then + + Else + Var show_eng = "true" + InstanceSetString "ShowMYANMAR" + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + EndIf + EndIf + + If SaveStringInst = "ShowMYANMAR" Then + If LanguageShow = "MYANMAR" Then + + Else + Var show_eng = "false" + InstanceSetString "ShowEng" + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + EndIf + EndIf + + If SaveStringInst = "ShowEng" Then + If LanguageShow = "ENG" Then + + Else + Var show_eng = "false" + InstanceSetString "ShowThai" + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + EndIf + EndIf + + + + + + + +;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" + + + + 10 497 @@ -4493,8 +4566,8 @@ Open "ROOT/taobin_project/xml/page_payment_multi.xml" - - - - - + + + + + diff --git a/inter/tha/xml/multi/page_catalog_group_whey.skt b/inter/tha/xml/multi/page_catalog_group_whey.skt index 91153cad..02ff6932 100644 --- a/inter/tha/xml/multi/page_catalog_group_whey.skt +++ b/inter/tha/xml/multi/page_catalog_group_whey.skt @@ -108,11 +108,101 @@ Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_whey.lxml" RefreshAll EndIf + + InstanceGetString SaveStringInst + If SaveStringInst = "RefreshNow" Then + + Else + If LanguageShow = "ENG" Then + Var SaveStringInst = "ShowEng" + Var show_eng = "false" + EndIf + If LanguageShow = "THAI" Then + Var SaveStringInst = "ShowThai" + Var show_eng = "true" + EndIf + If LanguageShow "MYANMAR" Then + Var show_eng = "false" + Var SaveStringInst = "ShowMYANMAR" + EndIf + EndIf EndIf TimerReset + + InstanceGetString SaveStringInst + DEBUGVAR SaveStringInst + DEBUGVAR show_eng + + + Var ButtonLanguageCurrentXPosition = 1005 + Var ButtonLanguageCurrentYPosition = 458 - 38 + + Var ButtonLanguageListXPosition = 970 + Var ButtonLanguageListYPosition = 450 - 38 + + DEBUGVAR EnabledBlockUpdateInst6 + DEBUGVAR EnabledBlocksDrawInst6 + + + If SaveStringInst = "RefreshNow" Then + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + Else + If EnabledBlocksDrawInst6 = EnabledBlockUpdateInst6 Then + Var StatusRefresh = "NoRefresh" + DEBUGVAR StatusRefresh + Else + Var StatusRefresh = "Refresh" + DEBUGVAR StatusRefresh + GetXMLFileNameCurrentRunning CurrentOpenFile2 + Open CurrentOpenFile2 + EndIf + + EndIf + DEBUGVAR LanguageShow + + + If SaveStringInst = "ShowThai" Then + If LanguageShow = "THAI" Then + + Else + Var show_eng = "true" + InstanceSetString "ShowMYANMAR" + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + EndIf + EndIf + + If SaveStringInst = "ShowMYANMAR" Then + If LanguageShow = "MYANMAR" Then + + Else + Var show_eng = "false" + InstanceSetString "ShowEng" + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + EndIf + EndIf + + If SaveStringInst = "ShowEng" Then + If LanguageShow = "ENG" Then + + Else + Var show_eng = "false" + InstanceSetString "ShowThai" + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + EndIf + EndIf + + + + + + ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" diff --git a/inter/tha/xml/page_topping_select6.lxml b/inter/tha/xml/page_topping_select6.lxml index 22a86122..55fedcd5 100644 --- a/inter/tha/xml/page_topping_select6.lxml +++ b/inter/tha/xml/page_topping_select6.lxml @@ -9,20 +9,20 @@ Machine WakeUp - DEBUGVAR Only18 - - Var UserSelectedSugar = 0 + Var TextSelfTestCntColor = "0x746253" + Var UserSeletedSugar = 0 - SAVELOG "Event Open Select 6 THAI Edit Like Select 7" + SAVELOG "Event Open Select 7" If NoWaitMachineEnable = 1 Then Var ConfirmDrinkButtonState = "Enable" Else + Var ConfirmDrinkButtonState = "Invisible" EndIf Var y_topping_bg = 912 - + Var CHECK_EventOpen_Double = CHECK_EventOpen_Double + 1 If CHECK_EventOpen_Double > 1 Then WRITE_FILE "/mnt/sdcard/xml_alert_bug" "double called" @@ -38,14 +38,11 @@ DEBUGVAR SelectDrink DEBUGVAR PictureDrink - DEBUGVAR OpenFromXML - Var DisableAllNotFreeTopping = 0 - Var SaveProductCodeSelect = "-" Var UserSelectProductCode = "-" - + Var showText4 = "Invisible" Var showText7 = "Invisible" @@ -53,8 +50,8 @@ Var blendedState = "Enable" Var DisableUsingCode = "false" - Var ShowLidStraw = "Invisible" - Var ShowLidOnly = "Invisible" + Var ShowLidStraw = "Invisible" + Var ShowLidOnly = "Invisible" Var ShowCollagenOnly = "Invisible" Var blendedStateShow = "Invisible" @@ -63,6 +60,7 @@ Var ShowLidStraw = "Invisible" Var ShowStrawOnly = "Invisible" Var ShowLidOnly = "Invisible" + Var ShowNormalNextButton = "Enable" ; On open @@ -73,9 +71,9 @@ Var SugarState4 = "Invisible" Var SugarState5 = "Invisible" Var SugarState6 = "Invisible" - + Var AddShotEnable = "Invisible" - + Var BGSugar = "Invisible" Var ShotCoffeeBG = "Invisible" @@ -85,10 +83,10 @@ Var showCustomCoffee = "Invisible" -; Customer Coffee + ; Customer Coffee Var CustomCoffeeEnable = "False" - Var EnableLightRoast = "Disable" + Var EnableLightRoast = "Disable" Var showCoffeeWater = "Invisible" Var showCoffeeQuantity = "Invisible" @@ -130,12 +128,10 @@ Var CustomCoffeeQuantityText[1] = "13g" Var CustomCoffeeQuantityText[2] = "16g" -; End Customer Coffee + ; End Customer Coffee + + ; Sugar Zero Cal -; Sugar Zero Cal - ; Test Sugar Zero Cal - ;Var SugarZeroCalEnable = "true" - ;Var SugarZeroCalOption = "Invisible" Var BGSugarHotHealthy = "Invisible" Var BGSugarColdHealthy = "Invisible" @@ -146,12 +142,14 @@ ;Var ShotCoffeePremium = "Enable" ;Var showOreoAddEnable = "Enable" + Var ExtraTopping = "Invisible" ; On open Var LidState = Lid1Status - + ;SAVELOG PreviseXMLFileName2 + Var MenuReady = "-" Var topping1 = "1" @@ -161,30 +159,28 @@ Var BugFlag = 0 - DEBUGVAR show_eng + If LanguageShow = "ENG" Then - If show_eng = "true" Then - Var DirImage = "ROOT/taobin_project/image/topping2_en" Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png" Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png" Var showname = NameDrink Var showdesc = DrinkDescription + Var text_show_thai = "Invisible" Var text_show_eng = "Enable" Var topping_shot_price_x = 630 - Var text_x_add_oreo_price = 510 + Var text_x_add_oreo_price = 430 Var text_show_normal_x = 408 - Var SugarZeroCalPrice_X = 540 - Var text_x_free_adjust = 100 - Var text_milk_choice_price_x = 265 + Var text_milk_choice_price_x = 255 If PromotionOreoToppingFreeEnable = 0 Then Var text_x_free_adjust = text_x_free_adjust + 5 EndIf + Var CustomCoffeeLevelText[0] = "Medium" Var CustomCoffeeLevelText[1] = "Just Right" Var CustomCoffeeLevelText[2] = "Dark" @@ -197,27 +193,31 @@ Var custom_coffee_level_medium_text_x = 540 Var custom_coffee_level_medium_price_x = 600 - Var custom_coffee_level_darker_text_x = 908 + Var custom_coffee_level_darker_text_x = 880 Var custom_coffee_level_dark_text_x = 785 + Var SugarZeroCalPrice_X = 540 + + EndIf + + If LanguageShow = "THAI" Then + - Else - Var DirImage = "ROOT/taobin_project/image/topping2" Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png" Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png" Var showname = NameDrinkTH Var showdesc = DrinkDescriptionTH + Var text_show_thai = "Enable" Var text_show_eng = "Invisible" Var topping_shot_price_x = 600 - Var text_x_add_oreo_price = 490 + Var text_x_add_oreo_price = 420 Var text_show_normal_x = 386 - Var SugarZeroCalPrice_X = 482 Var text_x_free_adjust = 70 - Var text_milk_choice_price_x = 265 + Var text_milk_choice_price_x = 237 If PromotionOreoToppingFreeEnable = 0 Then Var text_x_free_adjust = text_x_free_adjust + 30 EndIf @@ -234,34 +234,70 @@ Var custom_coffee_level_medium_text_x = 560 Var custom_coffee_level_medium_price_x = 600 - Var custom_coffee_level_darker_text_x = 908 + Var custom_coffee_level_darker_text_x = 880 Var custom_coffee_level_dark_text_x = 790 - + + Var SugarZeroCalPrice_X = 482 + EndIf + If LanguageShow = "MYANMAR" Then Var DirImage = "ROOT/taobin_project/image/topping_mmr" + + + Var showname = NameDrink + Var showdesc = DrinkDescription + + + Var text_show_thai = "Invisible" + Var text_show_eng = "Enable" + + Var topping_shot_price_x = 630 + Var text_x_add_oreo_price = 430 + Var text_show_normal_x = 408 + Var text_x_free_adjust = 100 + Var text_milk_choice_price_x = 255 + If PromotionOreoToppingFreeEnable = 0 Then + Var text_x_free_adjust = text_x_free_adjust + 5 + EndIf + + + Var CustomCoffeeLevelText[0] = "Medium" + Var CustomCoffeeLevelText[1] = "Just Right" + Var CustomCoffeeLevelText[2] = "Dark" + Var CustomCoffeeLevelText[3] = "Darker" + + Var CustomCoffeeTampingText[0] = "Light" + Var CustomCoffeeTampingText[1] = "Medium" + Var CustomCoffeeTampingText[2] = "Hight" + + Var custom_coffee_level_medium_text_x = 540 + Var custom_coffee_level_medium_price_x = 600 + + Var custom_coffee_level_darker_text_x = 880 + Var custom_coffee_level_dark_text_x = 785 + + Var SugarZeroCalPrice_X = 540 EndIf - Var text_x_free_topping = text_x_add_oreo_price + text_x_free_adjust - ;set coffee leve bg - Var DirImageInter = "ROOT/taobin_project/image/topping_inter" + Var text_x_free_topping = text_x_add_oreo_price + text_x_free_adjust Var bg_strawlid = DirImage + "/bg_strawlid.png" Var bg_straw_only = DirImage + "/bg_straw_only.png" Var bg_lid_only = DirImage + "/bg_lid_only.png" - + Var backGroundAddExtra = DirImage + "/bg_add_shot_coffee_only.png" Var backGroundAddExtra2 = DirImage + "/bg_add_shot_coffee_only.png" - + Var backGroundAddShotPremium = DirImage + "/bg_add_shot_coffee2_only.png" Var backGroundAddShotPremiumWith = DirImage + "/bg_add_shot_coffee_only.png" - - + + ;Var blendedState = "Enable" ;Var ShotCoffeeBG = "Enable" ;Var showShotEnable = "Enable" @@ -271,16 +307,16 @@ Var ShiftSugarStep = 1 - + CRLFToSpace showname CRLFToSpace showdesc - + ;- Begin Var PriceDrinkNoTop = PriceDrink Var PriceDrinkTmp = PriceDrink Var PriceDrinkTmpShow = charOfBaht + PriceDrinkTmp Var Timeout = 0 - + ;SAVELOG PriceDrinkTmp ;- End @@ -302,19 +338,19 @@ DEBUGVAR backGroundAddExtra DEBUGVAR backGroundAddShotPremium - + DEBUGVAR MultiPayEnable DEBUGVAR CART_COUNT Var btnAddCart = "Invisible" - If MultiPayEnable = "true" Then + If MultiPayEnable = "true" Then Var btnAddCart = "Enable" If CART_COUNT = 3 Then - Var btnAddCart = "Invisible" + Var btnAddCart = "Invisible" EndIf EndIf - Var LidDeactiveButton = "Invisible" - Var StrawDeactiveButton = "Invisible" + Var LidDeactiveButton = "Invisible" + Var StrawDeactiveButton = "Invisible" Machine DoorClose Machine DoorLidClose @@ -324,7 +360,7 @@ Var NEW_MULTI = "Invisible" Var high_light_drink_type = "Invisible" - + Var text_hot_color = "0x84776F" Var text_cold_color = "0x84776F" Var text_blender_color = "0x84776F" @@ -337,7 +373,6 @@ Var hot_button_state = PD_STAGE_1 Var cold_button_state = PD_STAGE_2 Var blend_button_state = PD_STAGE_3 - Var normal_button_state = "Invisible" ; Protect have product-code but menu disable or invalid. If hot_button_state = "Invisible" Then @@ -355,6 +390,7 @@ Function 2 + Else Var show_select_type = "Invisible" @@ -362,12 +398,10 @@ Var SelectDrinkType = 1 EndIf - DEBUGVAR show_select_type DEBUGVAR PriceD1 DEBUGVAR PriceD2 DEBUGVAR PriceD3 - DEBUGVAR DisplayFormatFull If From15THBPro = 1 Then If PriceD1 > 0 Then @@ -387,26 +421,19 @@ If hot_button_state = "Disable2" Then Var text_price_d1 = "" Else - Var text_price_d1 !assigned StringFmt( PriceD1 , DisplayFormatFull, PreScaleConvertShow) + Var text_price_d1 !assigned StringFmt( PriceD1 , DisplayFormat, PreScaleConvertShow) EndIf If cold_button_state = "Disable2" Then Var text_price_d2 = "" Else - Var text_price_d2 !assigned StringFmt( PriceD2 , DisplayFormatFull, PreScaleConvertShow) + Var text_price_d2 !assigned StringFmt( PriceD2 , DisplayFormat, PreScaleConvertShow) EndIf - If blend_button_state = "Disable2" Then Var text_price_d3 = "" Else - Var text_price_d3 !assigned StringFmt( PriceD3 , DisplayFormatFull, PreScaleConvertShow) - EndIf - - If RoadShow = "true" Then - Var text_price_d1 = "Free" - Var text_price_d2 = "Free" - Var text_price_d3 = " Free" + Var text_price_d3 !assigned StringFmt( PriceD3 , DisplayFormat, PreScaleConvertShow) EndIf DEBUGVAR PD_CODE1 @@ -421,6 +448,7 @@ Var img_cold_dis = "/bt_cold_disable_no.png" Var img_cold_dis2 = "/bt_cold_disable2_no.png" + If PD_CODE2 = "12-05-02-0016" Then Var img_cold = "/bt_normal_no.png" Var img_cold_sel = "/bt_normal_selected_no.png" @@ -438,10 +466,10 @@ Else Var OatMilkToppingBg = DirImage + "/bg_milk_choice.png" EndIf - Var OatMilkToppingEnable = "Invisible" Var OatMilkEnable = "Invisible" + Var topping_price_refresh = 1 Var StrawState = "Enable" @@ -454,7 +482,6 @@ Var bg_lidProblem_ST = "Invisible" Var GetLidButtonState = "Invisible" - ;select7 Var PromotionIDCurrentOrder = 0 DEBUGVAR PromotionIDCurrentOrder @@ -498,32 +525,10 @@ Var MenuReason = "" - DEBUGVAR LanguageShowByIndex - DEBUGVAR NameLang[0][LanguageShowByIndex] - DEBUGVAR NameLang[1][LanguageShowByIndex] - DEBUGVAR NameLang[2][LanguageShowByIndex] - - Var showname = aliasName[LanguageShowByIndex] - Var showdesc = aliasName[LanguageShowByIndex] - - BackslashNToEnter showname - BackslashNToEnter showdesc - - CRLFToSpace showname - CRLFToSpace showdesc - - Var text_milk_choice_price_x = 265 If SugarZeroCalEnable = "false" Then Var SugarZeroCalOption = "Invisible" EndIf - If MAT_ID_511215 = "Disable" Then - ; Disable2 away - Var SugarZeroCalCheck = "Disable2" - EndIf - If MAT_ID_511215 = "Enable" Then - Var SugarZeroCalCheck = "Enable" - EndIf If MAT_ID_1215 = "Disable" Then ; Disable2 away Var SugarZeroCalCheck = "Disable2" @@ -531,6 +536,7 @@ If MAT_ID_1215 = "Enable" Then Var SugarZeroCalCheck = "Enable" EndIf + If FromCoffeeDrink1BathPro = 1 Then Var DisableAllNotFreeTopping = 1 EndIf @@ -557,10 +563,14 @@ EndIf EndIf + Var StringToppingOatMilkWithPrice = "" + + 1000 - + DEBUGVAR Timeout + DEBUGVAR MenuReady DEBUGVAR CupRemain @@ -577,7 +587,7 @@ Var ConfirmDrinkButtonState = "Enable" If stop_now = "true" Then - SAVELOG "stop_now is true page_topping_select6.lxml" + SAVELOG "stop_now is true page_topping_select7.xml" ;include="ROOT/taobin_project/inc/return_condition.ev" EndIf Else @@ -587,18 +597,19 @@ EndIf If CLOSE_ORDER_NOW = "true" Then - SAVELOG "DEACTIVE in page_topping_select6.lxml" + SAVELOG "DEACTIVE in page_topping_select7.xml" ;include="ROOT/taobin_project/inc/return_condition.ev" EndIf If SELLSTATUS = "DEACTIVE" Then - SAVELOG "DEACTIVE in page_topping_select6.lxml" + SAVELOG "DEACTIVE in page_topping_select7.xml" ;include="ROOT/taobin_project/inc/return_condition.ev" EndIf If SelectDrinkType = 1 Then + If MenuReady = "YES" Then DEBUGVAR ToppingDetail @@ -710,10 +721,11 @@ EndIf Var Timeout = Timeout + 1 - + If Timeout > 40 Then Var Timeout = 0 If Seeker = "next" Then + If ChildrenFree = 1 Then Var ChildrenFree = 0 Var Cid = 33 @@ -721,9 +733,12 @@ Var GetScore = "1" AddData Cid TelNumPromotion IDNum PointCrm GetScore EndIf + + ;OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_blank.xml" - Open "ROOT/taobin_project/xml/page_brewing3Conti.xml" + Open "ROOT/taobin_project/xml/page_brewing3Conti.xml" Else + If ChildrenFree = 1 Then Var ChildrenFree = 0 Var Cid = 33 @@ -731,13 +746,14 @@ Var GetScore = "1" AddData Cid TelNumPromotion IDNum PointCrm GetScore EndIf + OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml" - Open "ROOT/taobin_project/xml/page_catalog.xml" + Open "ROOT/taobin_project/xml/page_catalog.xml" EndIf - + EndIf - If MultiPayEnable = "true" Then + If MultiPayEnable = "true" Then If NEW_MULTI = "Invisible" Then Var NEW_MULTI = "Enable" Else @@ -747,14 +763,18 @@ If Seeker = "curr" Then If DoorCupPosition = "bottom" Then - ; It normal + ; It normal Var EmergencyStop = "false" Else Var EmergencyStop = "true" - + EndIf EndIf + + + + DEBUGVAR MenuReason ; arm-not-ready ; brew-stg @@ -808,9 +828,10 @@ EndIf EndIf + Refresh TimerReset - + 0 @@ -821,8 +842,62 @@ + + DEBUGVAR LanguageShowByIndex + DEBUGVAR LanguageShow + If LanguageShow = "ENG" Then + Var topping_shot_price_x = 630 + Var text_x_add_oreo_price = 430 + Var text_show_normal_x = 408 + Var text_show_blend_x = 892 + Var SugarZeroCalPrice_X = 540 + If BGSugar = "Enable" Then + Play "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Sweet.mp3" + EndIf + EndIf + If LanguageShow = "THAI" Then + Var topping_shot_price_x = 600 + Var text_x_add_oreo_price = 420 + Var text_show_normal_x = 386 + Var text_show_blend_x = 852 + Var SugarZeroCalPrice_X = 482 + Play "/mnt/sdcard/coffeevending/taobin_project/sound_thai/select_level.mp3" + EndIf + If LanguageShow = "MYANMAR" Then + Var show_eng = "true" + DEBUGVAR show_eng + Var topping_shot_price_x = 630 + Var text_x_add_oreo_price = 430 + Var text_show_normal_x = 568 + Var text_show_blend_x = 892 + Var SugarZeroCalPrice_X = 540 + Var DirImage = "ROOT/taobin_project/image/topping_mmr" + EndIf + + Var showname = aliasName[LanguageShowByIndex] + Var showdesc = aliasName[LanguageShowByIndex] + + + + DEBUGVAR showname + DEBUGVAR showdesc + + BackslashNToEnter showname + BackslashNToEnter showdesc + CRLFToSpace showname + CRLFToSpace showdesc + Var Timeout = 0 + + Var ButtonLanguageCurrentXPosition = 990 + Var ButtonLanguageCurrentYPosition = 438 + Var ButtonLanguageListXPosition = 970 + Var ButtonLanguageListYPosition = 430 + OpenInst 3 "ROOT/taobin_project/inter/tha/xml/topview2.xml" + RefreshAll + + - - 1000 - 381 - show_btn - show_btp - "/mnt/sdcard/coffeevending/wav/click.wav" - SoundVolume - - ; - - - - DEBUGVAR LanguageShowByIndex - DEBUGVAR LanguageShow - If LanguageShow = "ENG" Then - Var topping_shot_price_x = 630 - Var text_x_add_oreo_price = 510 - Var text_show_normal_x = 408 - Var text_show_blend_x = 872 - Var SugarZeroCalPrice_X = 540 - If BGSugar = "Enable" Then - Play "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Sweet.mp3" - EndIf - EndIf - If LanguageShow = "THAI" Then - Var topping_shot_price_x = 600 - Var text_x_add_oreo_price = 490 - Var text_show_normal_x = 386 - Var text_show_blend_x = 852 - Var SugarZeroCalPrice_X = 482 - Play "/mnt/sdcard/coffeevending/taobin_project/sound_thai/select_level.mp3" - EndIf - If LanguageShow = "MALAY" Then - Var topping_shot_price_x = 630 - Var text_x_add_oreo_price = 510 - Var text_show_normal_x = 408 - Var text_show_blend_x = 872 - Var SugarZeroCalPrice_X = 540 - Play "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Sweet.mp3" - EndIf - If LanguageShow = "MYANMAR" Then - Var show_eng = "true" - DEBUGVAR show_eng - Var topping_shot_price_x = 630 - Var text_x_add_oreo_price = 510 - Var text_show_normal_x = 568 - Var text_show_blend_x = 872 - Var SugarZeroCalPrice_X = 540 - Var DirImage = "ROOT/taobin_project/image/topping_mmr" - EndIf - - If SelectDrinkType = 1 Then - Var showname = NameLang[IndexDrinktType][LanguageShowByIndex] - Var showdesc = DescLang[IndexDrinktType][LanguageShowByIndex] - Else - Var showname = aliasName[LanguageShowByIndex] - Var showdesc = aliasName[LanguageShowByIndex] - - EndIf - DEBUGVAR showname - DEBUGVAR showdesc - - BackslashNToEnter showname - BackslashNToEnter showdesc - CRLFToSpace showname - CRLFToSpace showdesc - Var Timeout = 0 - Var ButtonLanguageCurrentXPosition = 990 - Var ButtonLanguageCurrentYPosition = 438 - Var ButtonLanguageListXPosition = 970 - Var ButtonLanguageListYPosition = 430 - - OpenInst 3 "ROOT/taobin_project/xml/topview2.xml" - - RefreshAll - + + + @@ -1047,35 +1075,28 @@ "ROOT/taobin_project/image/page2/bn_back_arrow.png" "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + ;Open PreviseXMLFileName2 DEBUGVAR OpenFromXML - - If InternationalEnable = 1 Then - Var OpenFileXML = CountryRootPath + "xml/event/tricker.ev" - TRY OpenFileXML - Else - TRY "/mnt/sdcard/coffeevending/taobin_project/xml/event/tricker.ev" - EndIf - + + TRY "/mnt/sdcard/coffeevending/taobin_project/xml/event/tricker.ev" + OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert2.xml" + DEBUGVAR OpenFromInstMenuTab If OpenFromInstMenuTab > 0 Then DEBUGVAR OpenFromInstMenuTab TabMenuVisibleInst OpenFromInstMenuTab EndIf - + Open OpenFromXML - - + + - DEBUGVAR MAT_ID_STRAW_OFFER - DEBUGVAR MAT_ID_LID_OFFER - DEBUGVAR MAT_ID_511215 DEBUGVAR MAT_ID_9701 DEBUGVAR MAT_ID_9601 DEBUGVAR MAT_ID_1215 @@ -1087,7 +1108,7 @@ DEBUGVAR SubMenuProductCode2 DEBUGVAR SubMenuName12 - + DEBUGVAR TOPPING1 DEBUGVAR TOPPING1_EXT_2 @@ -1110,7 +1131,7 @@ DEBUGVAR toppingID1index7 DEBUGVAR toppingID1index8 DEBUGVAR toppingID1index9 - + DEBUGVAR toppingID2index1 DEBUGVAR toppingID2index2 DEBUGVAR toppingID2index3 @@ -1137,15 +1158,11 @@ DEBUGVAR toppingID9index2 DEBUGVAR toppingID9index3 DEBUGVAR toppingID9index4 - + DEBUGVAR toppingID10index1 DEBUGVAR toppingID10index2 DEBUGVAR toppingID10index3 - DEBUGVAR toppingID1Default - DEBUGVAR toppingID2Default - DEBUGVAR toppingID3Default - DEBUGVAR MenuCodeName1 DEBUGVAR MenuCodeName1_State DEBUGVAR MenuCodeName2 @@ -1158,6 +1175,7 @@ DEBUGVAR toppingID2price2 DEBUGVAR toppingID3price2 DEBUGVAR toppingID6price2 + DEBUGVAR BrewParam DEBUGVAR UserSeletedSugar @@ -1167,23 +1185,26 @@ If TOPPING6 = "Topping-Volcano" Then - - If toppingID6price2 > 0 Then + + Var text_color_6 = "0x84776F" + + If toppingID6price2 > 0 Then DEBUGVAR toppingID6price2 DEBUGVAR DisplayFormat Var toppingID6price2Conv !assigned StringFmt( toppingID6price2 , DisplayFormat, PreScaleConvertShow) - + DEBUGVAR toppingID6price2Conv Var text_price_6 = "" Var text_price_6 = toppingID6price2Conv + ")" Var text_price_6 = "(+" + text_price_6 - - + + DEBUGVAR text_price_6 + DEBUGVAR text_color_6 Else Var text_price_6 = "" @@ -1192,13 +1213,14 @@ If blend_button_state = "PressForever" Then Var showOreoAddEnable = "Enable" - Var showText8 = "Invisible" + Var showText8 = "Invisible" Else Var showOreoAddEnable = "Disable" Var showText8 = "Enable" EndIf + Var ExtraTopping = "Enable" @@ -1206,7 +1228,7 @@ If hot_button_state = "Disable2" Then If cold_button_state = "PressForever" Then Var showOreoAddEnable = "Enable" - Var showText8 = "Invisible" + Var showText8 = "Invisible" EndIf EndIf EndIf @@ -1214,19 +1236,10 @@ DEBUGVAR SubMenuGroupIDSlot6_1 - If PD_CODE2 = "12-05-02-0016" Then - Var cold_button_state = "Invisible" - Var normal_button_state = "PressForever" - EndIf - If PD_CODE2 = "51-05-02-0016" Then - Var cold_button_state = "Invisible" - Var normal_button_state = "PressForever" - EndIf + Var PriceCustomCoffeeFormat = "%.0f฿" - Var PriceCustomCoffeeFormat = "%.1f" - If TOPPING7 = "water-level" Then Var CustomCoffeeEnable = "True" Var showCustomCoffee = "Enable" @@ -1292,7 +1305,7 @@ If toppingID9Default = "" Then Var CustomCoffeeLevelState[1] = "PressForever" Else - + If toppingID9index1 = toppingID9Default Then Var CurrentCoffeeLevelId = toppingID9index1 Var CustomCoffeeLevelState[0] = "PressForever" @@ -1371,7 +1384,7 @@ If toppingID9Default = "" Then Var CustomCoffeeLevelState[1] = "PressForever" Else - + If toppingID9index1 = toppingID9Default Then Var CurrentCoffeeLevelId = toppingID9index1 Var CustomCoffeeLevelState[0] = "PressForever" @@ -1452,7 +1465,7 @@ If toppingID8Default = "" Then Var CustomCoffeeTampingState[1] = "PressForever" Else - + If toppingID8index1 = toppingID8Default Then Var CurrentCoffeeTampingId = toppingID8index1 Var CustomCoffeeTampingState[0] = "PressForever" @@ -1474,7 +1487,7 @@ Var CustomCoffeeTampingState[1] = "Enable" Var CustomCoffeeTampingState[2] = "PressForever" EndIf - + EndIf EndIf @@ -1488,8 +1501,8 @@ EndIf EndIf - ; i f cold menu disable away + If cold_button_state = "PressForever" Then If showOreoAddEnable = "Enable" Then Var showOreoAddEnable = "Disable" @@ -1510,37 +1523,33 @@ EndIf EndIf - STRCONTAIN "9701" BrewParam IgnoreLidStraw + STRCONTAIN "9701" BrewParam IgnoreLidStraw DEBUGVAR BrewParam DEBUGVAR IgnoreLidStraw - + Var h_block_of_sugar = 210 - - + + If IgnoreLidStraw = "true" Then - Var IgnoreLidStraw = "false" - Var ShowLidStraw = "Invisible" - Var ShowLidOnly = "Invisible" + Var ShowLidStraw = "Invisible" + Var ShowLidOnly = "Invisible" Var ShowStrawOnly = "Invisible" - + Else - DEBUGVAR MAT_ID_STRAW_OFFER - DEBUGVAR MAT_ID_LID_OFFER - DEBUGVAR StrawState - - - Var ShowLidStraw = "Enable" + Var ShowLidStraw = "Enable" If StrawState = "Enable" Then - If MAT_ID_STRAW_OFFER = "Enable" Then - Var StrawState = MAT_ID_STRAW_OFFER + If MAT_ID_9701 = "Enable" Then + Var StrawState = MAT_ID_9701 Else - Var StrawState = MAT_ID_STRAW_OFFER + Var StrawState = MAT_ID_9701 EndIf EndIf - + DEBUGVAR MAT_ID_9701 + DEBUGVAR StrawState + If StrawState = "Press" Then Var Seeker.thankStrawFlag = 1 Else @@ -1549,54 +1558,51 @@ If LidState = "Enable" Then - If MAT_ID_LID_OFFER = "Enable" Then - Var LidState = MAT_ID_LID_OFFER + If MAT_ID_9601 = "Enable" Then + Var LidState = "Enable" Else - Var LidState = MAT_ID_LID_OFFER + Var LidState = "Disable" EndIf EndIf - DEBUGVAR MAT_ID_STRAW_OFFER - DEBUGVAR MAT_ID_LID_OFFER - EndIf - + ; Override all If Service_LidStraw = "Disable" Then - Var ShowLidStraw = "Enable" - ;Var ShowLidOnly = "Invisible" + Var ShowLidStraw = "Enable" + ;Var ShowLidOnly = "Invisible" ;Var ShowStawOnly = "Invisible" - - Var StrawState = "Disable" - Var LidState = "Disable" + + ;Var StrawState = "Disable" + ;Var LidState = "Disable" EndIf If StrawState = "Enable" Then - Var StrawDeactiveButton = "Invisible" + Var StrawDeactiveButton = "Invisible" Else If StrawState = "Press" Then - Var StrawDeactiveButton = "Invisible" + Var StrawDeactiveButton = "Invisible" Else - Var StrawDeactiveButton = "Enable" + Var StrawDeactiveButton = "Enable" EndIf EndIf - If LidState = "Enable" Then - Var LidDeactiveButton = "Invisible" + Var LidDeactiveButton = "Invisible" Else If LidState = "Press" Then - Var LidDeactiveButton = "Invisible" + Var LidDeactiveButton = "Invisible" Else - Var LidDeactiveButton = "Enable" + Var LidDeactiveButton = "Enable" EndIf EndIf - - - If UserSelectedSugar = 0 Then + + + If UserSeletedSugar = 0 Then + If SugarModeUpdateWhenChangeDrinkType = 1 Then Var SugarModeUpdateWhenChangeDrinkType = 0 RefreshAll @@ -1610,11 +1616,11 @@ EndIf Var sugar_default_flag = 0 - + ; Suger 4 step cold If TOPPING1 = "Suger 4 step cold" Then Var SugarZeroCalOption = "Enable" - + Var BGSugar = "Invisible" Var ShiftSugarStep = 1 @@ -1629,12 +1635,12 @@ ; select no sugar Var SugarZeroCalCheck = "Disable" EndIf - + If toppingID1index2 = toppingID1Default Then Var SugarState2 = "PressForever" Var sugar_default_flag = 1 EndIf - + If toppingID1index3 = toppingID1Default Then Var SugarState3 = "PressForever" Var sugar_default_flag = 1 @@ -1645,6 +1651,21 @@ Var sugar_default_flag = 1 EndIf + + + + + ; No 2 right steps + ;If NoSugarStepRight2 = "true" Then + + ; Var SugarState5 = "Disable" + ; Var SugarState6 = "Disable" + + ;EndIf + + + + If sugar_default_flag = 0 Then Var SugarState1 = "PressForever" ; select no sugar @@ -1655,7 +1676,8 @@ ; Suger 4 step hot If TOPPING1 = "Suger 4 step hot" Then Var SugarZeroCalOption = "Enable" - + + Var BGSugar = "Invisible" Var ShiftSugarStep = 1 @@ -1670,12 +1692,12 @@ ; select no sugar Var SugarZeroCalCheck = "Disable" EndIf - + If toppingID1index2 = toppingID1Default Then Var SugarState2 = "PressForever" Var sugar_default_flag = 1 EndIf - + If toppingID1index3 = toppingID1Default Then Var SugarState3 = "PressForever" Var sugar_default_flag = 1 @@ -1686,6 +1708,14 @@ Var sugar_default_flag = 1 EndIf + ; No 2 right steps + ;If NoSugarStepRight2 = "true" Then + + ; Var SugarState5 = "Disable" + ; Var SugarState6 = "Disable" + + ;EndIf + If sugar_default_flag = 0 Then Var SugarState1 = "PressForever" ; select no sugar @@ -1694,16 +1724,17 @@ EndIf DEBUGVAR RecipeTag2 - ; + ; If TOPPING1 = "Sugar" Then Var SugarZeroCalOption = "Enable" + If RecipeTag2 = "Topping6Step" Then Var BGSugar = "Invisible" Var BGSugarNew = "Enable" Else Var BGSugar = "Enable" EndIf - + Var ShiftSugarStep = 1 Var SugarState1 = "Enable" Var SugarState2 = "Enable" @@ -1714,14 +1745,13 @@ If toppingID1index1 = toppingID1Default Then Var SugarState1 = "PressForever" Var sugar_default_flag = 1 - ;Var SugarZeroCalOption = "Invisible" EndIf - + If toppingID1index2 = toppingID1Default Then Var SugarState2 = "PressForever" Var sugar_default_flag = 1 EndIf - + If toppingID1index3 = toppingID1Default Then Var SugarState3 = "PressForever" Var sugar_default_flag = 1 @@ -1736,6 +1766,7 @@ Var SugarState5 = "PressForever" Var sugar_default_flag = 1 EndIf + ; No 2 right steps If NoSugarStepRight2 = "true" Then @@ -1750,10 +1781,8 @@ If sugar_default_flag = 0 Then Var SugarState1 = "PressForever" - ;Var SugarZeroCalOption = "Invisible" EndIf - EndIf If TOPPING1 = "Powder Sugar for Hot" Then @@ -1815,7 +1844,7 @@ EndIf EndIf - + If TOPPING1 = "Powder Sugar" Then Var SugarZeroCalOption = "Enable" @@ -1825,7 +1854,7 @@ Else Var BGSugar = "Enable" EndIf - + Var ShiftSugarStep = 1 Var SugarState1 = "Enable" Var SugarState2 = "Enable" @@ -1839,14 +1868,13 @@ If toppingID1index1 = toppingID1Default Then Var SugarState1 = "PressForever" Var sugar_default_flag = 1 - ;Var SugarZeroCalOption = "Invisible" EndIf - + If toppingID1index2 = toppingID1Default Then Var SugarState2 = "PressForever" Var sugar_default_flag = 1 EndIf - + If toppingID1index3 = toppingID1Default Then Var SugarState3 = "PressForever" Var sugar_default_flag = 1 @@ -1862,6 +1890,7 @@ Var sugar_default_flag = 1 EndIf + ; No 2 right steps If NoSugarStepRight2 = "true" Then @@ -1876,13 +1905,12 @@ If sugar_default_flag = 0 Then Var SugarState1 = "PressForever" - ;Var SugarZeroCalOption = "Invisible" EndIf DEBUGVAR toppingID1Default DEBUGVAR SugarState1 EndIf - + If TOPPING1 = "Sugar Premix 25" Then Var SugarZeroCalOption = "Enable" @@ -1893,7 +1921,7 @@ Else Var BGSugar = "Enable" EndIf - + Var ShiftSugarStep = 2 Var SugarState1 = "Disable" Var SugarState2 = "Enable" @@ -1902,12 +1930,12 @@ Var SugarState4 = "Enable" Var SugarState5 = "Enable" Var SugarState6 = "Enable" - + If toppingID1index1 = toppingID1Default Then Var SugarState2 = "PressForever" Var sugar_default_flag = 1 EndIf - + If toppingID1index2 = toppingID1Default Then Var SugarState3 = "PressForever" Var sugar_default_flag = 1 @@ -1924,6 +1952,7 @@ Var SugarState5 = "PressForever" Var sugar_default_flag = 1 EndIf + ; No 2 right steps If NoSugarStepRight2 = "true" Then @@ -1940,7 +1969,7 @@ If TOPPING1 = "Powder Sugar Premix 50" Then Var SugarZeroCalOption = "Enable" - + If RecipeTag2 = "Topping6Step" Then Var BGSugar = "Invisible" Var BGSugarNew = "Enable" @@ -1958,7 +1987,7 @@ Var SugarState4 = "Enable" Var SugarState5 = "Enable" Var SugarState6 = "Enable" - + If toppingID1index1 = toppingID1Default Then Var SugarState3 = "PressForever" Var sugar_default_flag = 1 @@ -1975,6 +2004,7 @@ Var SugarState5 = "PressForever" Var sugar_default_flag = 1 EndIf + ; No 2 right steps If NoSugarStepRight2 = "true" Then @@ -2004,18 +2034,18 @@ EndIf Var ShiftSugarStep = 2 - + Var SugarState2 = "Enable" - + Var SugarState3 = "Enable" Var SugarState4 = "Enable" Var SugarState5 = "Enable" - + If toppingID1index1 = toppingID1Default Then Var SugarState2 = "PressForever" Var sugar_default_flag = 1 EndIf - + If toppingID1index2 = toppingID1Default Then Var SugarState3 = "PressForever" Var sugar_default_flag = 1 @@ -2032,6 +2062,7 @@ Var SugarState5 = "PressForever" Var sugar_default_flag = 1 EndIf + ; No 2 right steps If NoSugarStepRight2 = "true" Then @@ -2044,7 +2075,7 @@ EndIf EndIf - + If sugar_default_flag = 0 Then Var SugarState2 = "PressForever" EndIf @@ -2053,14 +2084,16 @@ Var SugarModeUpdateWhenChangeDrinkType = 0 If TOPPING1 = "Suger 4 step cold" Then + Var BGSugarColdHealthy = "Enable" Var BGSugarHotHealthy = "Invisible" Var ShiftSugarStep = 1 Var SugarModeUpdateWhenChangeDrinkType = 1 EndIf - + If TOPPING1 = "Suger 4 step hot" Then + Var BGSugarHotHealthy = "Enable" Var BGSugarColdHealthy = "Invisible" @@ -2073,8 +2106,8 @@ DEBUGVAR SugarZeroCalCheck If SugarZeroCalEnable = "true" Then - Var SugarZeroCalPrice = 50 - Var priceFormat = "(+%.2f)" + Var SugarZeroCalPrice = 10 + Var priceFormat = "(+฿%.0f)" Var SugarZeroCalPriceStr !assigned StringFmt( SugarZeroCalPrice , priceFormat, PreScaleConvertShow) Var SugarNormalCheck = "PressForever" @@ -2082,10 +2115,13 @@ Var SugarZeroCalOption = "Invisible" EndIf + + + Var ShowCollagenOnly = "Enable" Var BugFlag = 1 - + Var topping1 = toppingID1Default @@ -2094,34 +2130,27 @@ Var SugarSoundFlag = 0 If BGSugarNew = "Enable" Then Var SugarSoundFlag = 1 - + EndIf If BGSugar = "Enable" Then Var SugarSoundFlag = 1 - + EndIf - If BGSugarHotHealthy = "Enable" Then - Var SugarSoundFlag = 1 - EndIf - If BGSugarColdHealthy = "Enable" Then - Var SugarSoundFlag = 1 - EndIf - If BGSugarNew = "Enable" Then - Var SugarSoundFlag = 1 - EndIf - If SugarSoundFlag = 1 Then If SelectDrinkType = 1 Then - If show_eng = "true" Then + If show_eng = "true" Then Play "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Sweet.mp3" Else Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/select_level.mp3" - + ; Play Sound #zone + + If LipitPro = 1 Then Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/lipit/select_level.wav" EndIf + Play PlaySoundLag EndIf EndIf @@ -2136,17 +2165,17 @@ Var SugarState4 = "Enable" Var SugarState5 = "Enable" EndIf - + Else - EndIf - ; End of UserSelectedSugar = 0 + EndIf + ; End of UserSeletedSugar = 0 Refresh - + Var collagenShow = "true" ;-BEGIN shot layout - + If topping_price_refresh = 1 Then Var topping_price_refresh = 0 @@ -2154,33 +2183,34 @@ Var shot_h_layout = 218 If TOPPING2 = "shot coffee" Then - + Var ShotCoffeeBG = "Enable" Var showShotEnable = "Enable" Var ExtraTopping = "Enable" Var toppingID2price2Conv !assigned StringFmt( toppingID2price2 , DisplayFormat, PreScaleConvertShow) - + DEBUGVAR toppingID2price2Conv Var text_shot_normal_add = toppingID2price2Conv + ")" - Var text_shot_normal_add = "(+" + text_shot_normal_add - + Var text_shot_normal_add = "(+" + text_shot_normal_add + Refresh EndIf - + If TOPPING2 = "shot coffee termtem" Then - + Var ShotCoffeeBG = "Enable" Var showShotEnable = "Enable" - + Var ExtraTopping = "Enable" - + DEBUGVAR TOPPING2 Refresh EndIf If TOPPING2 = "shot coffee 1003" Then + If toppingID2index3 = "" Then Var ShotCoffeePremium = "Enable" Var showShotEnable = "Invisible" @@ -2188,22 +2218,25 @@ Else Var EnableLightRoast = "Enable" EndIf + DEBUGVAR TOPPING2 Refresh EndIf - If TOPPING2 = "shot coffee 1007" Then - If toppingID2index3 = "" Then - Var ShotCoffeePremium = "Enable" - Var showShotEnable = "Invisible" - Var ExtraTopping = "Enable" - Else - Var EnableLightRoast = "Enable" - EndIf - + If TOPPING2 = "shot coffee 1007" Then + + If toppingID2index3 = "" Then + Var ShotCoffeePremium = "Enable" + Var showShotEnable = "Invisible" + Var ExtraTopping = "Enable" + Else + Var EnableLightRoast = "Enable" + EndIf + DEBUGVAR TOPPING2 Refresh EndIf If TOPPING2 = "shot coffee 1008" Then + If toppingID2index3 = "" Then Var ShotCoffeePremium = "Enable" Var showShotEnable = "Invisible" @@ -2211,11 +2244,13 @@ Else Var EnableLightRoast = "Enable" EndIf + DEBUGVAR TOPPING2 Refresh EndIf If TOPPING2 = "add-show-1009" Then + If toppingID2index3 = "" Then Var ShotCoffeePremium = "Enable" Var showShotEnable = "Invisible" @@ -2223,10 +2258,12 @@ Else Var EnableLightRoast = "Enable" EndIf + DEBUGVAR TOPPING2 Refresh EndIf If TOPPING2 = "add-show-1101" Then + If toppingID2index3 = "" Then Var ShotCoffeePremium = "Enable" Var showShotEnable = "Invisible" @@ -2234,12 +2271,13 @@ Else Var EnableLightRoast = "Enable" EndIf + DEBUGVAR TOPPING2 Refresh EndIf If TOPPING2 = "add-show-1102" Then - + If toppingID2index3 = "" Then Var ShotCoffeePremium = "Enable" Var showShotEnable = "Invisible" @@ -2247,13 +2285,13 @@ Else Var EnableLightRoast = "Enable" EndIf - + DEBUGVAR TOPPING2 Refresh EndIf - + If TOPPING2 = "add-show-1103" Then - + If toppingID2index3 = "" Then Var ShotCoffeePremium = "Enable" Var showShotEnable = "Invisible" @@ -2261,12 +2299,12 @@ Else Var EnableLightRoast = "Enable" EndIf - + DEBUGVAR TOPPING2 Refresh EndIf If TOPPING2 = "add-show-1104" Then - + If toppingID2index3 = "" Then Var ShotCoffeePremium = "Enable" Var showShotEnable = "Invisible" @@ -2274,13 +2312,13 @@ Else Var EnableLightRoast = "Enable" EndIf - + DEBUGVAR TOPPING2 Refresh EndIf - + If TOPPING2 = "add-show-1105" Then - + If toppingID2index3 = "" Then Var ShotCoffeePremium = "Enable" Var showShotEnable = "Invisible" @@ -2288,12 +2326,13 @@ Else Var EnableLightRoast = "Enable" EndIf - + DEBUGVAR TOPPING2 Refresh EndIf + If TOPPING2 = "add-show-1106" Then - + If toppingID2index3 = "" Then Var ShotCoffeePremium = "Enable" Var showShotEnable = "Invisible" @@ -2301,10 +2340,11 @@ Else Var EnableLightRoast = "Enable" EndIf - + DEBUGVAR TOPPING2 Refresh EndIf + If TOPPING2 = "add-show-1107" Then If toppingID2index3 = "" Then @@ -2335,10 +2375,10 @@ If ShotCoffeePremium = "Enable" Then Var toppingID2price2Conv !assigned StringFmt( toppingID2price2 , DisplayFormat, PreScaleConvertShow) - + DEBUGVAR toppingID2price2Conv Var text_price_topping = toppingID2price2Conv + ")" - Var text_price_topping = "(+" + text_price_topping + Var text_price_topping = "(+" + text_price_topping EndIf @@ -2350,7 +2390,7 @@ If toppingID2Default = "" Then Var CustomCoffeeQuantityState[1] = "PressForever" Else - + If toppingID2index1 = toppingID2Default Then Var CurrentCoffeeLevelId = toppingID2index1 Var CustomCoffeeQuantityState[0] = "PressForever" @@ -2401,7 +2441,7 @@ EndIf EndIf - ;-END + ;-END If TOPPING3 = "Collagen" Then Var CollagenState = "Enable" Else @@ -2409,43 +2449,30 @@ Var ShowCollagenOnly = "Invisible" EndIf - EndIf + EndIf ;topping_price_refresh = 0 If MenuCodeName1 = "OatMilk" Then Var OatMilkToppingEnable = "Enable" - + ;SubMenuPrice1 ignore. Fix by xml - Var OatMilkPrice = "(+5)" - - DEBUGVAR OatMilkOnTopPrice - - Var OatMilkOnTopPriceStr !assigned StringFmt( OatMilkOnTopPrice , DisplayFormat, PreScaleConvertShow) - - Var text_price_oat_milk = OatMilkOnTopPriceStr + ")" - Var text_price_oat_milk = "(+" + text_price_oat_milk - - Var OatMilkAddAmount = OatMilkOnTopPrice - - If RoadShow = "true" Then - Var OatMilkAddAmount = 0 - Var text_price_oat_milk = "( Free )" - EndIf + Var OatMilkPrice = " (+5)" If MenuCodeName1_State = "Enable" Then Var OatMilkEnable = "Enable" EndIf EndIf - - + + SAVELOG ToppingGotoPayment If ToppingGotoPayment = "true" Then Topping "Select" SelectDrink ; Pack - + Topping "Pack" ExtendDataCurr Var Seeker.ExtendDataCurr = ExtendDataCurr + If RestrictedDrink = "true" Then DEBUGVAR RestrictedDrink @@ -2458,15 +2485,17 @@ Open "ROOT/taobin_project/xml/page_payment.xml" EndIf + EndIf - - + + If RoadShow = "true" Then Var PriceShowValue = "Free" Var ModeFreeEnable = 1 Else Var ModeFreeEnable = 0 EndIf + If DisableAllNotFreeTopping = 1 Then Var SugarZeroCalOption = "Invisible" Var showCustomCoffee = "Invisible" @@ -2480,27 +2509,28 @@ DEBUGVAR toppingID2price1 DEBUGVAR toppingID2price2 DEBUGVAR toppingID2price3 - DEBUGVAR toppingID9price1 DEBUGVAR toppingID9price2 DEBUGVAR toppingID9price3 DEBUGVAR toppingID9price4 + DEBUGVAR ShiftSugarStep TRY "/mnt/sdcard/coffeevending/taobin_project/flash_deal/topping_page.ev" - + Function 2 EndIf + ;Var BugFlag = 1 If CartUpdate = "true" Then Var CartUpdate = "-" - - + + If CART_COUNT = 3 Then OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_blank.xml" Open "ROOT/taobin_project/xml/page_payment_multi.xml" @@ -2510,7 +2540,7 @@ Open "ROOT/taobin_project/xml/page_payment_multi.xml" Else OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml" - Open "ROOT/taobin_project/xml/page_catalog.xml" + Open "ROOT/taobin_project/xml/page_catalog.xml" EndIf EndIf EndIf @@ -2538,19 +2568,19 @@ 374 399 - eval( + eval( If IsSmoRet = "true" Then Var return = "Enable" Else Var return = "Invisible" EndIf -) - +) + "ROOT/taobin_project/image/topping2/blender_icon.png" ; same -; Text head + 0 752 @@ -2591,7 +2621,8 @@ ; ; ;- FRAME SCORELLL - +; zone scroll + 52 881 1080 @@ -2599,14 +2630,14 @@ 880 "Vertical" 1 - +; Select drink type - + ; show_select_type 988 162 20 - show_select_type + show_select_type "ROOT/taobin_project/image/topping_inter/drink_select_type.png" @@ -2623,10 +2654,8 @@ - - - - @@ -3619,7 +3638,7 @@ "ROOT/taobin_project/image/topping_inter/bp_sugar_4step.png" "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + SAVELOG "SUGAR3" If SelectDrinkType = 0 Then @@ -3633,20 +3652,21 @@ Var SugarState3 = "PressForever" Var SugarState4 = "Enable" Var SugarState5 = "Enable" + ; No 2 right steps If NoSugarStepRight2 = "true" Then Var SugarState5 = "Disable" EndIf - Var topping1 = toppingID1index3 Var SugarZeroCalCheck = "Enable" Var SugarNormalCheck = "PressForever" + Var topping1 = toppingID1index3 EndIf - ;Var UserSelectedSugar = 1 + ;Var UserSeletedSugar = 1 EndIf DEBUGVAR topping1 @@ -3666,7 +3686,6 @@ 198 21 - ; sugar4 @@ -3678,7 +3697,7 @@ "ROOT/taobin_project/image/topping_inter/bp_sugar_4step.png" "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + SAVELOG "SUGAR4" If SelectDrinkType = 0 Then @@ -3692,19 +3711,21 @@ Var SugarState3 = "Enable" Var SugarState4 = "PressForever" Var SugarState5 = "Enable" + ; No 2 right steps If NoSugarStepRight2 = "true" Then Var SugarState5 = "Disable" EndIf - Var topping1 = toppingID1index4 Var SugarZeroCalCheck = "Enable" Var SugarNormalCheck = "PressForever" + + Var topping1 = toppingID1index4 EndIf - ;Var UserSelectedSugar = 1 + ;Var UserSeletedSugar = 1 EndIf DEBUGVAR topping1 @@ -3724,7 +3745,6 @@ 198 21 - ;- END topping2 @@ -3761,7 +3781,7 @@ EndIf EndIf ) - + ; sugar layout BGSugarColdHealthy @@ -3789,7 +3809,7 @@ "ROOT/taobin_project/image/topping_inter/bp_sugar_4step.png" "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + DEBUGVAR SugarState1 SAVELOG "SUGAR1" @@ -3799,24 +3819,27 @@ Else If ShiftSugarStep = 1 Then - + Var SugarState1 = "PressForever" Var SugarState2 = "Enable" Var SugarState3 = "Enable" Var SugarState4 = "Enable" Var SugarState5 = "Enable" + ; No 2 right steps If NoSugarStepRight2 = "true" Then Var SugarState5 = "Disable" EndIf + Var topping1 = toppingID1index1 EndIf Var SugarZeroCalCheck = "Enable" Var SugarNormalCheck = "PressForever" - Var UserSelectedSugar = 1 + + Var UserSeletedSugar = 1 EndIf @@ -3852,10 +3875,10 @@ "ROOT/taobin_project/image/topping_inter/bp_sugar_4step.png" "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + SAVELOG "SUGAR2" DEBUGVAR SelectDrinkType - DEBUGVAR UserSelectedSugar + DEBUGVAR UserSeletedSugar If SelectDrinkType = 0 Then SAVELOG "drink type popup" @@ -3868,18 +3891,20 @@ Var SugarState3 = "Enable" Var SugarState4 = "Enable" Var SugarState5 = "Enable" + ; No 2 right steps If NoSugarStepRight2 = "true" Then Var SugarState5 = "Disable" EndIf + Var topping1 = toppingID1index2 EndIf Var SugarZeroCalCheck = "Enable" Var SugarNormalCheck = "PressForever" - Var UserSelectedSugar = 1 + Var UserSeletedSugar = 1 EndIf DEBUGVAR topping1 @@ -3912,7 +3937,7 @@ "ROOT/taobin_project/image/topping_inter/bp_sugar_4step.png" "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + SAVELOG "SUGAR3" If SelectDrinkType = 0 Then @@ -3926,19 +3951,20 @@ Var SugarState3 = "PressForever" Var SugarState4 = "Enable" Var SugarState5 = "Enable" + ; No 2 right steps If NoSugarStepRight2 = "true" Then Var SugarState5 = "Disable" EndIf + Var topping1 = toppingID1index3 EndIf - Var SugarZeroCalCheck = "Enable" Var SugarNormalCheck = "PressForever" - ;Var UserSelectedSugar = 1 + ;Var UserSeletedSugar = 1 EndIf DEBUGVAR topping1 @@ -3970,7 +3996,7 @@ "ROOT/taobin_project/image/topping_inter/bp_sugar_4step.png" "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + SAVELOG "SUGAR4" If SelectDrinkType = 0 Then @@ -3984,25 +4010,25 @@ Var SugarState3 = "Enable" Var SugarState4 = "PressForever" Var SugarState5 = "Enable" + ; No 2 right steps If NoSugarStepRight2 = "true" Then Var SugarState5 = "Disable" EndIf + Var topping1 = toppingID1index4 EndIf - Var SugarZeroCalCheck = "Enable" Var SugarNormalCheck = "PressForever" - ;Var UserSelectedSugar = 1 + ;Var UserSeletedSugar = 1 EndIf DEBUGVAR topping1 Refresh - 000055 0 @@ -4018,7 +4044,6 @@ 21 - ;- END topping2 @@ -4033,17 +4058,20 @@ ; ; ; +; Extra topping. +; +; +; +; +; +; ; ; ; ; -;-BEGIN Sugar zero cal 6 level +;-BEGIN Sugar Zero options 6 levels sugar new - - 988 - 214 - 20 eval( If SugarZeroCalOption = "Enable" Then If BGSugarNew = "Enable" Then @@ -4055,10 +4083,13 @@ Var return = "Invisible" EndIf ) - -; sugar layout + + 988 + 214 + 20 - BGSugarNew + SugarZeroCalOption +; BGSugarNew "ROOT/taobin_project/image/topping_inter/bg_sugar_with_0_cal_option.png" @@ -4072,7 +4103,6 @@ - ; Normal Sugar @@ -4121,13 +4151,13 @@ "ROOT/taobin_project/image/topping_inter/radio_checked.png" "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + SAVELOG " SugarZeroCalChecked " - + If SelectDrinkType = 0 Then SAVELOG "drink type popup" Var high_light_drink_type = "Enable" - + Refresh Else Var SugarNormalCheck = "Enable" @@ -4195,7 +4225,6 @@ -; ; sugar1 @@ -4821,9 +4902,9 @@ "ROOT/taobin_project/image/topping_inter/radio_checked.png" "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + SAVELOG " SugarZeroCalChecked " - + If SelectDrinkType = 0 Then SAVELOG "drink type popup" Var high_light_drink_type = "Enable" @@ -4883,6 +4964,7 @@ + SugarZeroCalPrice_X 67 @@ -4893,7 +4975,7 @@ SugarZeroCalPriceStr -; + ; sugar1 @@ -5031,7 +5119,7 @@ "ROOT/taobin_project/image/topping_inter/bp_sugar_4step.png" "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + SAVELOG "SUGAR3" If SelectDrinkType = 0 Then @@ -5045,22 +5133,26 @@ Var SugarState3 = "PressForever" Var SugarState4 = "Enable" Var SugarState5 = "Enable" + ; No 2 right steps If NoSugarStepRight2 = "true" Then Var SugarState5 = "Disable" EndIf + + Var topping1 = toppingID1index3 EndIf + If SugarZeroCalEnable = "true" Then If SugarZeroCalCheck = "Disable" Then Var SugarZeroCalCheck = "Enable" EndIf EndIf - ;Var UserSelectedSugar = 1 + ;Var UserSeletedSugar = 1 EndIf DEBUGVAR topping1 @@ -5080,7 +5172,6 @@ 198 21 - ; sugar4 @@ -5092,7 +5183,7 @@ "ROOT/taobin_project/image/topping_inter/bp_sugar_4step.png" "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + SAVELOG "SUGAR4" If SelectDrinkType = 0 Then @@ -5106,12 +5197,14 @@ Var SugarState3 = "Enable" Var SugarState4 = "PressForever" Var SugarState5 = "Enable" + ; No 2 right steps If NoSugarStepRight2 = "true" Then Var SugarState5 = "Disable" EndIf + Var topping1 = toppingID1index4 EndIf @@ -5120,7 +5213,7 @@ Var SugarZeroCalCheck = "Enable" EndIf EndIf - ;Var UserSelectedSugar = 1 + ;Var UserSeletedSugar = 1 EndIf DEBUGVAR topping1 @@ -5143,17 +5236,13 @@ -;- END topping2 - ; -;-BEGIN Sugar zero cal 4 level cold +; +; +;-BEGIN Sugar Zero options 4 levels cold healthy - - 988 - 214 - 20 eval( If SugarZeroCalOption = "Enable" Then If BGSugarColdHealthy = "Enable" Then @@ -5165,10 +5254,12 @@ Var return = "Invisible" EndIf ) - -; sugar layout + + 988 + 214 + 20 - BGSugarColdHealthy + SugarZeroCalOption "ROOT/taobin_project/image/topping_inter/bg_sugar_with_0_cal_option.png" @@ -5182,7 +5273,6 @@ - ; Normal Sugar @@ -5295,6 +5389,7 @@ + SugarZeroCalPrice_X 67 @@ -5305,7 +5400,6 @@ SugarZeroCalPriceStr -; ; sugar1 @@ -5445,7 +5546,7 @@ "ROOT/taobin_project/image/topping_inter/bp_sugar_4step.png" "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + SAVELOG "SUGAR3" If SelectDrinkType = 0 Then @@ -5459,21 +5560,24 @@ Var SugarState3 = "PressForever" Var SugarState4 = "Enable" Var SugarState5 = "Enable" + ; No 2 right steps If NoSugarStepRight2 = "true" Then Var SugarState5 = "Disable" EndIf + Var topping1 = toppingID1index3 EndIf + If SugarZeroCalEnable = "true" Then If SugarZeroCalCheck = "Disable" Then Var SugarZeroCalCheck = "Enable" EndIf EndIf - ;Var UserSelectedSugar = 1 + ;Var UserSeletedSugar = 1 EndIf DEBUGVAR topping1 @@ -5493,7 +5597,6 @@ 198 21 - ; sugar4 @@ -5505,7 +5608,7 @@ "ROOT/taobin_project/image/topping_inter/bp_sugar_4step.png" "/mnt/sdcard/coffeevending/wav/click.wav" SoundVolume - + SAVELOG "SUGAR4" If SelectDrinkType = 0 Then @@ -5519,12 +5622,14 @@ Var SugarState3 = "Enable" Var SugarState4 = "PressForever" Var SugarState5 = "Enable" + ; No 2 right steps If NoSugarStepRight2 = "true" Then Var SugarState5 = "Disable" EndIf + Var topping1 = toppingID1index4 EndIf @@ -5533,13 +5638,13 @@ Var SugarZeroCalCheck = "Enable" EndIf EndIf - ;Var UserSelectedSugar = 1 + + ;Var UserSeletedSugar = 1 EndIf DEBUGVAR topping1 Refresh - 000055 0 @@ -5554,112 +5659,14 @@ 198 21 - - -;- END topping2 -;-BEGIN milk choice - - OatMilkToppingEnable - 986 - 157 - 20 - - OatMilkToppingEnable - "ROOT/taobin_project/image/topping_inter/bg_milk_choice.png" - - - - 40 - 10 - 500 - 72 - - 000103 - - - - - - -; - - - - text_milk_choice_price_x - 63 - KanitRegularTTF - "Enable" - 36 - 0x84776F - text_price_oat_milk - - - 120 - 62 - 800 - 65 - - 000104 - - - - ; ; ; @@ -5669,414 +5676,24 @@ ; ; ; - - - - -;-END -; -; -; Extra topping. ; ; ; ; ; +;-BEGIN ; -;-BEGIN shot layout - - ExtraTopping - 1080 - "auto" - 20 - - - 986 - "auto" - "vertical" - ExtraTopping -; - - 986 - 64 - ExtraTopping - - "ROOT/taobin_project/image/topping_inter/bg_top.png" - - - - 40 - 10 - 500 - 72 - - 000064 - - - -; -; -; - - 986 - "auto" - ShotCoffeePremium -; - - 0 - 0 - "ROOT/taobin_project/image/topping_inter/bg_top_shot2.png" - - - 120 - 4 - - 000102 - - 800 - 65 - - - - -; - - - - topping_shot_price_x - 2 - KanitRegularTTF - "ShotCoffeePremium" - 36 - 0x84776F - text_price_topping - - - - -; -; -; -;-BEGIN shot layout "showShotEnable" - - 986 - "auto" - showShotEnable -; - - 0 - 0 - "ROOT/taobin_project/image/topping_inter/bg_top_shot2.png" - - - - 120 - 4 - - 000100 - - 800 - 65 - -; - - -; - - - - showText4 - 602 - 4 - Var( DirImage + "/text4.png" ) - - - - text_show_normal_x - 4 - KanitRegularTTF - "Enable" - 36 - 0x84776F - text_shot_normal_add - - - - - -; -; -; -; -; - - 986 - "auto" - showOreoAddEnable -; - - 0 - 0 - "ROOT/taobin_project/image/topping_inter/bg_top_shot2.png" - - - - - -; - - -; - - -; -; showText8 -; 600 -; 6 -; Var( DirImage + "/text8.png" ) -; - - - showText8 - 580 - 2 - 300 - 70 - - 000092 - - - - - text_x_add_oreo_price - 12 - KanitRegularTTF - "Enable" - 36 - 0x84776F - text_price_6 - - - - 120 - 12 - - 000101 - - - - - -; -; -; -; -; -; - - - "Enable" - 986 - 27 - -5 - - ExtraTopping - "ROOT/taobin_project/image/topping_inter/bg_bottom.png" - - - - - - - - -;-END -; -; -; -; -; -; -; -; -; -; -;-BEGIN Collagen -; ;-BEGIN Lid straw 986 240 20 - ShowLidStraw + ShowLidStraw "ROOT/taobin_project/image/topping_inter/bg_strawlid.png" + 40 10 @@ -6131,10 +5748,10 @@ "ROOT/taobin_project/image/topping2/bn_straw.png" "ROOT/taobin_project/image/topping2/bp_straw.png" "ROOT/taobin_project/image/topping2/bd_straw.png" - + SAVELOG "Click straw cb" If StrawState = "Press" Then - Var StrawState = "Enable" + Var StrawState = "Enable" Var Seeker.thankStrawFlag = 0 @@ -6156,10 +5773,10 @@ "ROOT/taobin_project/image/topping2/cb_notcheck.png" "ROOT/taobin_project/image/topping2/cb_checked.png" Var( DirImage + "/cb_checkdis.png" ) - + SAVELOG "Click straw cb" If StrawState = "Press" Then - Var StrawState = "Enable" + Var StrawState = "Enable" Var Seeker.thankStrawFlag = 0 @@ -6184,20 +5801,20 @@ "ROOT/taobin_project/image/topping2/bn_lid.png" "ROOT/taobin_project/image/topping2/bp_lid.png" Var( DirImage + "/bd_lid.png" ) - + SAVELOG "Click LID pic" If LidState = "Press" Then - Var LidState = "Enable" + Var LidState = "Enable" Var Seeker.thankLidFlag = 0 - + Else Var LidState = "Press" Var Seeker.thankLidFlag = 1 - + EndIf - + DEBUGVAR SugarState1 Refresh @@ -6213,10 +5830,10 @@ "ROOT/taobin_project/image/topping2/cb_notcheck.png" "ROOT/taobin_project/image/topping2/cb_checked.png" Var( DirImage + "/cb_checkdis.png" ) - + SAVELOG "Click LID cb" If LidState = "Press" Then - Var LidState = "Enable" + Var LidState = "Enable" Var Seeker.thankLidFlag = 0 @@ -6230,15 +5847,544 @@ + + StrawDeactiveButton + 602 + 64 + Var( DirImage + "/text20.png" ) + + + + + LidDeactiveButton + 602 + 150 + Var( DirImage + "/text21.png" ) + + + + +;-END +; +; + + +; +; +; +; +; +; +; +; +; +; +; +; +; +; +; +; +;-BEGIN milk choice + + OatMilkToppingEnable + 986 + 157 + 20 + + OatMilkToppingEnable +; OatMilkToppingBg + "ROOT/taobin_project/image/topping_inter/bg_milk_choice.png" + + + + 40 + 10 + 500 + 72 + + 000109 + + + + + +; + + + + + 120 + 69 + KanitRegularTTF + "Enable" + 36 + 0x84776F + StringToppingOatMilkWithPrice + + + +; +; +; +; +; +; +; +; +; +; +; +; +; +;-BEGIN shot layout + + ExtraTopping + 1080 + "auto" + 20 + + + 986 + "auto" + "vertical" + ExtraTopping +; + + 986 + 64 + ExtraTopping + + "ROOT/taobin_project/image/topping_inter/bg_top.png" + + + + 40 + 10 + 500 + 72 + + 000064 + + + + +; +; +; +; +; +; +; +; +; +; +; +; +; +; +; +; +; +; +; +; +; + + + 986 + "auto" + ShotCoffeePremium +; + + 0 + 0 + "ROOT/taobin_project/image/topping_inter/bg_top_shot2.png" + + + 120 + 4 + + 000102 + + 800 + 65 + + + + +; + + + + topping_shot_price_x + 2 + KanitRegularTTF + "ShotCoffeePremium" + 36 + 0x84776F + text_price_topping + + + + +; +; +; +;-BEGIN shot layout "showShotEnable" + + 986 + "auto" + showShotEnable +; + + 0 + 0 + "ROOT/taobin_project/image/topping_inter/bg_top_shot2.png" + + + + 120 + 4 + + 000100 + + 800 + 65 + +; + + +; + + + + showText4 + 602 + 4 + Var( DirImage + "/text4.png" ) + + + + text_show_normal_x + 4 + KanitRegularTTF + "Enable" + 36 + 0x84776F + text_shot_normal_add + + + + + +; +; +; +; +; + + 986 + "auto" + showOreoAddEnable +; + + 0 + 0 + "ROOT/taobin_project/image/topping_inter/bg_top_shot2.png" + +; + + +; + + ; -; StrawDeactiveButton -; 602 -; 64 -; Var( DirImage + "/text20.png" ) +; showText8 +; 600 +; 6 +; Var( DirImage + "/text8.png" ) ; + + showText8 + 580 + 2 + 300 + 70 + + 000092 + + + + + + text_x_add_oreo_price + 12 + KanitRegularTTF + "Enable" + 36 + text_color_6 + text_price_6 + + + + + 120 + 12 + + 000101 + + + + + + +; +; +; +; +; +; + + + "Enable" + 986 + 27 + -5 + + ExtraTopping + "ROOT/taobin_project/image/topping2/bg_bottom.png" + + + + + + +; +; +; +; +; +; +; + ; @@ -6249,7 +6395,7 @@ ; ; ; TEST - BEGIN Custom coffee - + showCustomCoffee 1080 "auto" @@ -6257,7 +6403,7 @@ 986 - "auto" + "auto" "vertical" showCustomCoffee @@ -6271,19 +6417,22 @@ 64 showCustomCoffee - Var( DirImageInter + "/bg_top_custom_coffee.png" ) + "ROOT/taobin_project/image/topping_mmr/bg_top_custom_coffee.png" + + + 40 + 10 + 500 + 72 - 53 - 16 - 120 - 42 000103 + ; ; -; Customer Coffee Water Level +; Customer Coffee Water Level 986 "auto" @@ -6291,9 +6440,20 @@ 0 0 - Var( DirImageInter + "/bg_custom_coffee_water_level.png" ) + "ROOT/taobin_project/image/topping_mmr/bg_custom_coffee_water_level.png" + + 120 + 4 + 0x513C2F + + 000104 + + 800 + 65 + + - - ; next + + + 924 + 1804 + KanitTTF + 36 + 1080 + 0xFFFFFF + ShowNormalNextButton + + + "OnValueChange" + + PriceDrinkTmpShow + + + + + +; +; +; +; +; +; +; +; +; +; +; +; +; +; +; +; +; +; +; +; +; +; +; +; +; +; liveness + camera + IDcard + +;include=ROOT/taobin_project/inc/remove_cup_step.inc + +; +; +; +; +; +; +; + + + + SpeicalButtonPositionX + 1785 + 360 + 92 + center-vertical-horizontal + ShowSpecialButton + TextShowSpecialButton + KanitTTF + TextSize + + +; +; +; +; +; +; +; +; +; +; + + Var img_cold_no_flag = 0 @@ -7418,6 +8203,7 @@ Var img_cold_sel = "/bt_cold_selected_no.png" Var img_cold_dis = "/bt_cold_disable_no.png" Var img_cold_dis2 = "/bt_cold_disable2_no.png" + If PD_CODE2 = "12-05-02-0016" Then Var img_cold = "/bt_normal_no.png" Var img_cold_sel = "/bt_normal_selected_no.png" @@ -7430,7 +8216,7 @@ Var img_cold_dis = "/bt_cold_disable.png" Var img_cold_dis2 = "/bt_cold_disable2.png" EndIf - + If img_smth_no_flag = 1 Then SAVELOG "Smoothies change img. 1" Var img_smth = "/bt_smoothie_no.png" @@ -7457,6 +8243,7 @@ Var img_cold_sel = "/bt_cold_selected_no.png" Var img_cold_dis = "/bt_cold_disable_no.png" Var img_cold_dis2 = "/bt_cold_disable2_no.png" + If PD_CODE2 = "12-05-02-0016" Then Var img_cold = "/bt_normal_no.png" Var img_cold_sel = "/bt_normal_selected_no.png" @@ -7471,32 +8258,22 @@ DEBUGVAR menu_name_thai_cold SAVELOG "FUNCTION2" - + Var TOPPING_PRICE = 0 Var SelectDrinkType = 0 - + ; Set default If SelectCountDrinkType = 1 Then If DefaultDrinkType = 1 Then Var hot_button_state = "PressForever" - Var IndexDrinktType = 0 EndIf If DefaultDrinkType = 2 Then Var cold_button_state = "PressForever" - - If PD_CODE2 = "12-05-02-0016" Then - Var cold_button_state = "Invisible" - Var normal_button_state = "PressForever" - Var SelectDrinkType = 1 - EndIf - - Var IndexDrinktType = 1 EndIf If DefaultDrinkType = 3 Then Var blend_button_state = "PressForever" - Var IndexDrinktType = 2 EndIf EndIf @@ -7507,7 +8284,9 @@ Var UserSelectProductCode = PD_CODE1 If showShotEnable = "Disable" Then - Var showShotEnable = "Enable" + If CustomCoffeeEnable = "False" Then + Var showShotEnable = "Enable" + EndIf EndIf If showCustomCoffee = "Invisible" Then @@ -7516,11 +8295,15 @@ EndIf EndIf + Var showText4 = "Invisible" Var showname = NameLang[0][LanguageShowByIndex] Var showdesc = DescLang[0][LanguageShowByIndex] + Var Seeker.NameDrinkEN = menu_name_eng_hot + Var Seeker.NameDrinkTH = menu_name_thai_hot + Var text_hot_color = "0xFFFFFF" Var text_cold_color = "0x84776F" Var text_blender_color = "0x84776F" @@ -7529,15 +8312,18 @@ Machine PreparCup EndIf - + If cold_button_state = "PressForever" Then Var PriceDrinkNoTop = PriceD2 + Var OriginalPrice = OriginalPriceD2 Var UserSelectProductCode = PD_CODE2 If showShotEnable = "Disable" Then - Var showShotEnable = "Enable" + If CustomCoffeeEnable = "False" Then + Var showShotEnable = "Enable" + EndIf EndIf - + If showCustomCoffee = "Invisible" Then If CustomCoffeeEnable = "True" Then Var showCustomCoffee = "Enable" @@ -7549,6 +8335,9 @@ Var showname = NameLang[1][LanguageShowByIndex] Var showdesc = DescLang[1][LanguageShowByIndex] + Var Seeker.NameDrinkEN = menu_name_eng_cold + Var Seeker.NameDrinkTH = menu_name_thai_cold + Var text_hot_color = "0x84776F" Var text_cold_color = "0xFFFFFF" Var text_blender_color = "0x84776F" @@ -7557,9 +8346,10 @@ Machine PreparCup EndIf - + If blend_button_state = "PressForever" Then Var PriceDrinkNoTop = PriceD3 + Var OriginalPrice = OriginalPriceD3 Var UserSelectProductCode = PD_CODE3 If showShotEnable = "Invisible" Then @@ -7587,6 +8377,9 @@ Var showname = NameLang[2][LanguageShowByIndex] Var showdesc = DescLang[2][LanguageShowByIndex] + Var Seeker.NameDrinkEN = menu_name_eng_blender + Var Seeker.NameDrinkTH = menu_name_thai_blender + Var text_hot_color = "0x84776F" Var text_cold_color = "0x84776F" Var text_blender_color = "0xFFFFFF" @@ -7596,14 +8389,11 @@ Machine PreparCup EndIf - BackslashNToEnter showname - BackslashNToEnter showdesc - CRLFToSpace showname - CRLFToSpace showdesc - + Var OatMilkAddAmount = 5 + Var CerealMilkPrice = "(+฿5)" + DEBUGVAR PriceDrinkNoTop - DEBUGVAR PriceDiff DEBUGVAR showShotEnable Var TOPPING_PRICE = 0 @@ -7616,18 +8406,18 @@ Var TOPPING_PRICE = 0 Var TOPPING_PRICE = TOPPING_PRICE + toppingID2price2 - + Var topping2 = toppingID2index2 - + Var DisableUsingCode = "true" - + Var showText7 = "Enable" SAVELOG "Select premi normal shot" Else - If showShotEnable = "Press" Then + If showShotEnable = "Press" Then If blendedState = "Press" Then Var PriceDrinkTmp = PriceDrinkNoTop EndIf @@ -7638,11 +8428,11 @@ ;Var PriceDrinkTmp = PriceDrinkNoTop + toppingID2price2 Var TOPPING_PRICE = TOPPING_PRICE + toppingID2price2 - + Var topping2 = toppingID2index2 - + Var DisableUsingCode = "true" - + Var showText7 = "Enable" SAVELOG "Select add normal shot" @@ -7650,7 +8440,7 @@ If blendedState = "Disable" Then Var blendedState = "Enable" EndIf - + Var PriceDrinkTmp = PriceDrinkNoTop Var topping2 = toppingID2index1 @@ -7678,9 +8468,10 @@ Var topping6 = toppingID6index1 Var DisableUsingCode = "false" - + EndIf + If SugarZeroCalEnable = "true" Then If SugarZeroCalOption = "Enable" Then If SugarZeroCalCheck = "PressForever" Then @@ -7688,7 +8479,7 @@ EndIf EndIf EndIf - + DEBUGVAR OatMilkEnable DEBUGVAR MenuCodeName1 DEBUGVAR MenuCodeName1_State @@ -7701,8 +8492,7 @@ EndIf EndIf EndIf - - + Var CustomCoffeeDefault = "true" DEBUGVAR showCustomCoffee DEBUGVAR CustomCoffeeDefault @@ -7718,7 +8508,7 @@ If showCustomCoffee = "Enable" Then - If showCoffeeWater = "Enable" Then + If showCoffeeWater = "Enable" Then If CurrentCoffeeWaterId = toppingID7Default Then Else Var CustomCoffeeDefault = "false" @@ -7731,7 +8521,7 @@ Var CustomCoffeeDefault = "false" EndIf EndIf - + If showCoffeeLevel = "Enable" Then If CurrentCoffeeLevelId = toppingID9Default Then Else @@ -7753,7 +8543,7 @@ EndIf Else If showShotEnable = "Invisible" Then - + Else If blend_button_state = "PressForever" Then Else @@ -7761,8 +8551,8 @@ EndIf EndIf EndIf - - + + If CustomCoffeeQuantityState[0] = "PressForever" Then Var TOPPING_PRICE = TOPPING_PRICE + toppingID2price1 EndIf @@ -7792,6 +8582,7 @@ DEBUGVAR showShotEnable DEBUGVAR PriceDrinkTmpShow + If Price5Active = 1 Then Var PriceDrinkNoTop = 5 If blend_button_state = "PressForever" Then @@ -7802,21 +8593,25 @@ Var PriceDrinkTmp = PriceDrinkNoTop + TOPPING_PRICE Var PriceDrinkTmpShow = charOfBaht + PriceDrinkTmp + If SelectDrinkType = 0 Then Var PriceDrinkTmpShow = "---" Else - Var PriceDrinkTmpShow !assigned StringFmt( PriceDrinkTmp , DisplayFormatFull, PreScaleConvertShow) + Var PriceDrinkTmpShow !assigned StringFmt( PriceDrinkTmp , DisplayFormat, PreScaleConvertShow) EndIf SAVELOG PriceDrinkTmp If RoadShow = "true" Then - + Var PriceDrinkTmpShow = "Free" DEBUGVAR SelectDrink2 DEBUGVAR PriceDrinkTmpShow EndIf + + ; echo -n true > /mnt/sdcard/coffeevending/menu_blend_free + READ_FILE "/mnt/sdcard/coffeevending/menu_blend_free" menu_blend_free DEBUGVAR menu_blend_free DEBUGVAR blend_button_state @@ -7827,41 +8622,87 @@ Var PriceDrinkTmpShow = "Free" EndIf EndIf + If SugarZeroCalCheck = "PressForever" Then If SugarNormalCheck = "PressForever" Then Var SugarZeroCalCheck = "Enable" EndIf EndIf + + If OatMilkEnable = "Enable" Then + DEBUGVAR LanguageShowByIndex + Var StringToppingOatMilkWithPrice !assigned GetLanguageID( 000108, LanguageShowByIndex) + Var StringToppingOatMilkWithPrice = StringToppingOatMilkWithPrice + OatMilkPrice + DEBUGVAR StringToppingOatMilkWithPrice + EndIf + + BackslashNToEnter showname + BackslashNToEnter showdesc CRLFToSpace showname CRLFToSpace showdesc - DEBUGVAR showname DEBUGVAR showdesc + Strlen showname show_name_len + If show_eng = "true" Then + If show_name_len > 24 Then + Var showname = showname + "###size=54" + EndIf + Else + If show_name_len > 0 Then + Var showname = showname + "###size=68" + EndIf + EndIf + Var Timeout = 0 - + RefreshAll + + + +; next2 button Protect + + +; zone + + + 0 380 @@ -7874,7 +8715,7 @@ 543 920 - 1080 high_light_drink_type - - 000075 - + KanitTTF + 36 + 1080 + 0xFF0000 + eval( + If show_eng = "true" Then + Var return = "Please choose drink type" + Else + Var return ="โปรดเลือกประเภทเครื่องดื่ม" + EndIf + ) + + 1 + 1 + KanitTTF + 22 + 1080 + end + 0xFF0000 + "#7" + + + ; - + + __CMD "UpdateCupOnArm" UserSelectProductCode "-" + + + + + + + Topping "Select" UserSelectProductCode + + ; Set option toppinng and pack + Topping "Select1-ID" topping1 + Topping "Select2-ID" topping2 + Topping "Select3-ID" topping3 + ;Topping "Select6-ID" topping6 + Topping "Select7-ID" topping7 + Topping "Select8-ID" topping8 + Topping "Select9-ID" topping9 + Topping "Select10-ID" topping10 + + Topping "ClearMultiTopping" "Test 4" + Var strMulti6_1 = "TPID=311,multiply=2" + Var strMulti6_2 = "TPID=313,multiply=1" + + Topping "Multiply6-ID" strMulti6_1 + Topping "Multiply6-ID" strMulti6_2 + + Topping "Pack" ExtendDataCurr + + + + \ No newline at end of file diff --git a/xml/menutab/page_catalog_group_coffee.skt b/xml/menutab/page_catalog_group_coffee.skt index 8666d2bb..b19001d1 100644 --- a/xml/menutab/page_catalog_group_coffee.skt +++ b/xml/menutab/page_catalog_group_coffee.skt @@ -98,6 +98,50 @@ TimerReset + + + InstanceGetString SaveStringInst + DEBUGVAR SaveStringInst + DEBUGVAR show_eng + DEBUGVAR EnabledBlockUpdateInst5 + DEBUGVAR EnabledBlocksDrawInst5 + + + + If SaveStringInst = "RefreshNow" Then + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + Else + If EnabledBlocksDrawInst5 = EnabledBlockUpdateInst5 Then + Var StatusRefresh = "NoRefresh" + DEBUGVAR StatusRefresh + Else + Var StatusRefresh = "Refresh" + DEBUGVAR StatusRefresh + GetXMLFileNameCurrentRunning CurrentOpenFile2 + Open CurrentOpenFile2 + EndIf + 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 + + + + diff --git a/xml/menutab/page_catalog_group_coffee.xml b/xml/menutab/page_catalog_group_coffee.xml index 0e825bca..d16514a2 100644 --- a/xml/menutab/page_catalog_group_coffee.xml +++ b/xml/menutab/page_catalog_group_coffee.xml @@ -78,6 +78,7 @@ ; 5 fruit Var Menu5Selected = "Invisible" ;Var Menu6Selected = "Enable" + Var Menu22Selected = "Enable" Var Menu61Selected = "Enable" Var Menu62Selected = "Enable" @@ -118,7 +119,7 @@ Var Menu22Selected = "Invisible" EndIf ; - + Var Menu22Selected = "Enable" @@ -158,12 +159,15 @@ SetInstanceIgnoreTouch DEBUGVAR SlientRefreshIndex - + If SlientRefreshIndex = 2 Then Var SlientRefreshIndex = 3 EndIf + DEBUGVAR EnabledBlocks5 + + @@ -182,7 +186,6 @@ 1000 ;DEBUGVAR ICE_PROCESS_STATUS - If ICE_PROCESS_STATUS = 2 Then Var ice_tab_process_show = "Enable" Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT @@ -238,6 +241,9 @@ EndIf + + + TimerReset @@ -306,14 +312,29 @@ + InstanceGetString SaveStringInst DEBUGVAR SaveStringInst DEBUGVAR show_eng + DEBUGVAR EnabledBlockUpdateInst5 + DEBUGVAR EnabledBlocksDrawInst5 + + If SaveStringInst = "RefreshNow" Then GetXMLFileNameCurrentRunning CurrentOpenFile Open CurrentOpenFile + Else + If EnabledBlocksDrawInst5 = EnabledBlockUpdateInst5 Then + Var StatusRefresh = "NoRefresh" + DEBUGVAR StatusRefresh + Else + Var StatusRefresh = "Refresh" + DEBUGVAR StatusRefresh + GetXMLFileNameCurrentRunning CurrentOpenFile2 + Open CurrentOpenFile2 + EndIf EndIf If show_eng = "true" Then @@ -332,15 +353,20 @@ EndIf EndIf + + + + + ; 1080 "auto" 0 395 - + "Enable" 896 102 diff --git a/xml/menutab/page_catalog_group_forkid.skt b/xml/menutab/page_catalog_group_forkid.skt index aeb7a7e2..0f2a6af4 100644 --- a/xml/menutab/page_catalog_group_forkid.skt +++ b/xml/menutab/page_catalog_group_forkid.skt @@ -107,6 +107,50 @@ + + InstanceGetString SaveStringInst + DEBUGVAR SaveStringInst + DEBUGVAR show_eng + + DEBUGVAR EnabledBlockUpdateInst8 + DEBUGVAR EnabledBlocksDrawInst8 + + + + If SaveStringInst = "RefreshNow" Then + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + Else + If EnabledBlocksDrawInst8 = EnabledBlockUpdateInst8 Then + Var StatusRefresh = "NoRefresh" + DEBUGVAR StatusRefresh + Else + Var StatusRefresh = "Refresh" + DEBUGVAR StatusRefresh + GetXMLFileNameCurrentRunning CurrentOpenFile2 + Open CurrentOpenFile2 + EndIf + 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 + + + + diff --git a/xml/menutab/page_catalog_group_forkid.xml b/xml/menutab/page_catalog_group_forkid.xml index 587bfb25..81c73bc8 100644 --- a/xml/menutab/page_catalog_group_forkid.xml +++ b/xml/menutab/page_catalog_group_forkid.xml @@ -320,9 +320,24 @@ DEBUGVAR SaveStringInst DEBUGVAR show_eng + DEBUGVAR EnabledBlockUpdateInst8 + DEBUGVAR EnabledBlocksDrawInst8 + + + If SaveStringInst = "RefreshNow" Then GetXMLFileNameCurrentRunning CurrentOpenFile Open CurrentOpenFile + Else + If EnabledBlocksDrawInst8 = EnabledBlockUpdateInst8 Then + Var StatusRefresh = "NoRefresh" + DEBUGVAR StatusRefresh + Else + Var StatusRefresh = "Refresh" + DEBUGVAR StatusRefresh + GetXMLFileNameCurrentRunning CurrentOpenFile2 + Open CurrentOpenFile2 + EndIf EndIf If show_eng = "true" Then diff --git a/xml/menutab/page_catalog_group_health.skt b/xml/menutab/page_catalog_group_health.skt index 00d19758..d4e7cc57 100644 --- a/xml/menutab/page_catalog_group_health.skt +++ b/xml/menutab/page_catalog_group_health.skt @@ -100,6 +100,51 @@ TimerReset + + + InstanceGetString SaveStringInst + DEBUGVAR SaveStringInst + DEBUGVAR show_eng + + DEBUGVAR EnabledBlockUpdateInst9 + DEBUGVAR EnabledBlocksDrawInst9 + + + + + If SaveStringInst = "RefreshNow" Then + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + Else + If EnabledBlocksDrawInst9 = EnabledBlockUpdateInst9 Then + Var StatusRefresh = "NoRefresh" + DEBUGVAR StatusRefresh + Else + Var StatusRefresh = "Refresh" + DEBUGVAR StatusRefresh + GetXMLFileNameCurrentRunning CurrentOpenFile2 + Open CurrentOpenFile2 + EndIf + 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 + + + diff --git a/xml/menutab/page_catalog_group_health.xml b/xml/menutab/page_catalog_group_health.xml index cb0d647a..3fe47607 100644 --- a/xml/menutab/page_catalog_group_health.xml +++ b/xml/menutab/page_catalog_group_health.xml @@ -312,9 +312,25 @@ DEBUGVAR SaveStringInst DEBUGVAR show_eng + DEBUGVAR EnabledBlockUpdateInst9 + DEBUGVAR EnabledBlocksDrawInst9 + + + + If SaveStringInst = "RefreshNow" Then GetXMLFileNameCurrentRunning CurrentOpenFile Open CurrentOpenFile + Else + If EnabledBlocksDrawInst9 = EnabledBlockUpdateInst9 Then + Var StatusRefresh = "NoRefresh" + DEBUGVAR StatusRefresh + Else + Var StatusRefresh = "Refresh" + DEBUGVAR StatusRefresh + GetXMLFileNameCurrentRunning CurrentOpenFile2 + Open CurrentOpenFile2 + EndIf EndIf If show_eng = "true" Then diff --git a/xml/menutab/page_catalog_group_milk.skt b/xml/menutab/page_catalog_group_milk.skt index 7c37ca4e..b3f2294b 100644 --- a/xml/menutab/page_catalog_group_milk.skt +++ b/xml/menutab/page_catalog_group_milk.skt @@ -100,6 +100,49 @@ + + InstanceGetString SaveStringInst + DEBUGVAR SaveStringInst + DEBUGVAR show_eng + + DEBUGVAR EnabledBlockUpdateInst7 + DEBUGVAR EnabledBlocksDrawInst7 + + + If SaveStringInst = "RefreshNow" Then + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + Else + If EnabledBlocksDrawInst7 = EnabledBlockUpdateInst7 Then + Var StatusRefresh = "NoRefresh" + DEBUGVAR StatusRefresh + Else + Var StatusRefresh = "Refresh" + DEBUGVAR StatusRefresh + GetXMLFileNameCurrentRunning CurrentOpenFile2 + Open CurrentOpenFile2 + EndIf + + 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 + + + diff --git a/xml/menutab/page_catalog_group_milk.xml b/xml/menutab/page_catalog_group_milk.xml index 7b8b69af..ce18d665 100644 --- a/xml/menutab/page_catalog_group_milk.xml +++ b/xml/menutab/page_catalog_group_milk.xml @@ -313,9 +313,24 @@ DEBUGVAR SaveStringInst DEBUGVAR show_eng + DEBUGVAR EnabledBlockUpdateInst7 + DEBUGVAR EnabledBlocksDrawInst7 + + + If SaveStringInst = "RefreshNow" Then GetXMLFileNameCurrentRunning CurrentOpenFile Open CurrentOpenFile + Else + If EnabledBlocksDrawInst7 = EnabledBlockUpdateInst7 Then + Var StatusRefresh = "NoRefresh" + DEBUGVAR StatusRefresh + Else + Var StatusRefresh = "Refresh" + DEBUGVAR StatusRefresh + GetXMLFileNameCurrentRunning CurrentOpenFile2 + Open CurrentOpenFile2 + EndIf EndIf If show_eng = "true" Then diff --git a/xml/menutab/page_catalog_group_other.skt b/xml/menutab/page_catalog_group_other.skt index 32ea0839..1b5063f8 100644 --- a/xml/menutab/page_catalog_group_other.skt +++ b/xml/menutab/page_catalog_group_other.skt @@ -101,6 +101,50 @@ + + InstanceGetString SaveStringInst + DEBUGVAR SaveStringInst + DEBUGVAR show_eng + + DEBUGVAR EnabledBlockUpdateInst10 + DEBUGVAR EnabledBlocksDrawInst10 + + + + + If SaveStringInst = "RefreshNow" Then + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + Else + If EnabledBlocksDrawInst10 = EnabledBlockUpdateInst10 Then + Var StatusRefresh = "NoRefresh" + DEBUGVAR StatusRefresh + Else + Var StatusRefresh = "Refresh" + DEBUGVAR StatusRefresh + GetXMLFileNameCurrentRunning CurrentOpenFile2 + Open CurrentOpenFile2 + EndIf + 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 + + + diff --git a/xml/menutab/page_catalog_group_other.xml b/xml/menutab/page_catalog_group_other.xml index 5d5929b0..edef0828 100644 --- a/xml/menutab/page_catalog_group_other.xml +++ b/xml/menutab/page_catalog_group_other.xml @@ -313,9 +313,24 @@ DEBUGVAR SaveStringInst DEBUGVAR show_eng + DEBUGVAR EnabledBlockUpdateInst10 + DEBUGVAR EnabledBlocksDrawInst10 + + + If SaveStringInst = "RefreshNow" Then GetXMLFileNameCurrentRunning CurrentOpenFile Open CurrentOpenFile + Else + If EnabledBlocksDrawInst10 = EnabledBlockUpdateInst10 Then + Var StatusRefresh = "NoRefresh" + DEBUGVAR StatusRefresh + Else + Var StatusRefresh = "Refresh" + DEBUGVAR StatusRefresh + GetXMLFileNameCurrentRunning CurrentOpenFile2 + Open CurrentOpenFile2 + EndIf EndIf If show_eng = "true" Then diff --git a/xml/menutab/page_catalog_group_other_other.skt b/xml/menutab/page_catalog_group_other_other.skt index cce2c9b7..b968c9da 100644 --- a/xml/menutab/page_catalog_group_other_other.skt +++ b/xml/menutab/page_catalog_group_other_other.skt @@ -26,9 +26,59 @@ #include=menu_catalog_new_menu.py ?> + DEBUGVAR SlientRefreshIndex + + If SlientRefreshIndex = 7 Then + Var SlientRefreshIndex = 8 + EndIf + + + InstanceGetString SaveStringInst + DEBUGVAR SaveStringInst + DEBUGVAR show_eng + + DEBUGVAR EnabledBlockUpdateInst10 + DEBUGVAR EnabledBlocksDrawInst10 + + + + + If SaveStringInst = "RefreshNow" Then + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + Else + If EnabledBlocksDrawInst10 = EnabledBlockUpdateInst10 Then + Var StatusRefresh = "NoRefresh" + DEBUGVAR StatusRefresh + Else + Var StatusRefresh = "Refresh" + DEBUGVAR StatusRefresh + GetXMLFileNameCurrentRunning CurrentOpenFile2 + Open CurrentOpenFile2 + EndIf + 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 + + + diff --git a/xml/menutab/page_catalog_group_other_other.xml b/xml/menutab/page_catalog_group_other_other.xml index a3661c94..3b069655 100644 --- a/xml/menutab/page_catalog_group_other_other.xml +++ b/xml/menutab/page_catalog_group_other_other.xml @@ -1,596 +1,619 @@ - - - - "Enable" - 1080 - 1920 -; "0xeae6e1" - SoundVolume - - ; On open - Var NextPage = "-" - - DEBUGVAR ICE_PROCESS_STATUS - DEBUGVAR ICE_PROCESS_TXT - - - If show_eng = "true" Then - Var showthaiText = "Invisible" - Var showengText = "Enable" - Var DirImage = "ROOT/taobin_project/image/page3_en" - Var show_btp = "ROOT/taobin_project/image/page2/bn_thai_lang_press_2.png" - Var show_btn = "ROOT/taobin_project/image/page2/bn_thai_lang_2.png" - - Var ice_tab_text = "Ice will be ready at " - Var text_unavailable = "UNAVAILABLE###size=16" - - InstanceSetString "ShowEng" - Else - Var showengText = "Invisible" - Var showthaiText = "Enable" - - Var DirImage = "ROOT/taobin_project/image/page3" - Var show_btp = "ROOT/taobin_project/image/page2/bn_eng_lang_2.png" - Var show_btn = "ROOT/taobin_project/image/page2/bn_eng_lang_2.png" - - Var ice_tab_text = "น้ำแข็งจะพร้อมเวลา " - Var text_unavailable = "หมด###size=32" - - InstanceSetString "ShowThai" - EndIf - - If ICE_PROCESS_STATUS = 2 Then - Var ice_tab_process_show = "Enable" - Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT - Else - Var ice_tab_process_show = "Invisible" - EndIf - - - ; SpiralOnline - - Var MenuVSelected2 = "Invisible" - - Var Menu1Selected2 = "Invisible" - Var Menu2Selected2 = "Invisible" - Var Menu3Selected2 = "Invisible" - Var Menu4Selected2 = "Invisible" - - Var Menu6Selected2 = "Invisible" - Var Menu7Selected2 = "Invisible" - Var MenuVSelected2 = "Invisible" - Var Menu11Selected2 = "Invisible" - - Var Menu21Selected2 = "Invisible" - - Var MenuVSelected2 = "Invisible" - If SpiralOnline = "true" Then - If Seeker = "curr" Then - Var MenuVSelected2 = "Enable" - EndIf - EndIf - - ; init default - Var Menu1Selected = "Enable" - Var Menu2Selected = "Enable" - Var Menu3Selected = "Enable" - Var Menu4Selected = "Enable" - ; 5 fruit - Var Menu5Selected = "Invisible" - ;Var Menu6Selected = "Enable" - - Var Menu61Selected = "Enable" - Var Menu62Selected = "Enable" - - Var Menu7Selected = "Enable" - ; 8 cocktail - Var Menu8Selected = "Invisible" - - If CocktailShow = "true" Then - Var Menu7Selected = "Invisible" - Var Menu8Selected = "Enable" - EndIf - - - If AppFastEnable = "true" Then - Var Menu11Selected = "Enable" - Var Menu21Selected = "Invisible" - Var Menu7Selected = "Invisible" - Else - If MenuKidEnable = "true" Then - Var Menu11Selected = "Invisible" - Var Menu21Selected = "Enable" - Var Menu7Selected = "Invisible" - Else - Var Menu11Selected = "Invisible" - Var Menu21Selected = "Invisible" - Var Menu7Selected = "Enable" - EndIf - EndIf - - If CocktailShow = "true" Then - Var Menu7Selected = "Invisible" - EndIf - - If RecipeTag1 = "HealthTurnOn" Then - Var Menu22Selected = "Enable" - Else - Var Menu22Selected = "Invisible" - EndIf - ; - - - - - - - - - - - - - - - - - - - Var Menu62Selected = "PressForever" - - - SAVELOG PreviseXMLFileName2 - - Var Timeout = 0 - - - - If show_eng = "true" Then - Var DirImageDrinkOption = "ROOT/taobin_project/image/drink_option_en/" - Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/" - - Else - Var DirImageDrinkOption = "ROOT/taobin_project/image/drink_option/" - Var DirImageAlter = "ROOT/taobin_project/image/page3_2/" - EndIf - - SetInstanceIgnoreTouch - - - - - -; notice enable heathy menu - - - 0 - 380 - 1080 - 1540 - "0xeae6e1" - - - - - 1000 - - ;DEBUGVAR ICE_PROCESS_STATUS - - If ICE_PROCESS_STATUS = 2 Then - Var ice_tab_process_show = "Enable" - Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT - Else - Var ice_tab_process_show = "Invisible" - EndIf - - - GetVisible inst_show - ;DEBUGVAR inst_show - - InstanceGetString SaveStringInst - ;DEBUGVAR SaveStringInst - - If inst_show = 1 Then - If SaveStringInst = "RefreshNow" Then - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - - If show_eng = "true" Then - InstanceSetString "ShowEng" - Else - InstanceSetString "ShowThai" - EndIf - - EndIf - EndIf - - ; setvarint SlientRefreshEnable 1 - ;DEBUGVAR SlientRefreshEnable - - If SlientRefreshEnable = 1 Then - If SaveStringInst = "RefreshNow" Then - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - - If show_eng = "true" Then - InstanceSetString "ShowEng" - Else - InstanceSetString "ShowThai" - EndIf - - EndIf - EndIf - - - TimerReset - - - - SAVELOG " EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 " - RefreshAll - - - -; under line - - 0 - 494 - "ROOT/taobin_project/image/page3/tab_line_bottom.png" - - - -; under line - - 0 - 358 - "ROOT/taobin_project/image/page3/bg1.png" - - - -; back - - - - - - InstanceGetString SaveStringInst - DEBUGVAR SaveStringInst - DEBUGVAR show_eng - - 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 - - - -; - - 1080 - "auto" - 0 - 395 - - "Enable" - 896 - 102 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - DEBUGVAR web_ready - If web_ready = "true" Then - If web_ref = QRCODE99x Then - - Var web_readyOK = web_ready - Var web_telnumOK = web_telnum - - Var web_app_prepar = "true" - - ; Handle penetrator - - If Only18 = "true" Then - - Open "ROOT/taobin_project/xml/page_identity18_verification.xml" - Else - - Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_payment.xml" - EndIf - - ; Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_payment.xml" - - EndIf - Else - EndIf - - - - - - - - - + + + + "Enable" + 1080 + 1920 +; "0xeae6e1" + SoundVolume + + ; On open + Var NextPage = "-" + + DEBUGVAR ICE_PROCESS_STATUS + DEBUGVAR ICE_PROCESS_TXT + + + If show_eng = "true" Then + Var showthaiText = "Invisible" + Var showengText = "Enable" + Var DirImage = "ROOT/taobin_project/image/page3_en" + Var show_btp = "ROOT/taobin_project/image/page2/bn_thai_lang_press_2.png" + Var show_btn = "ROOT/taobin_project/image/page2/bn_thai_lang_2.png" + + Var ice_tab_text = "Ice will be ready at " + Var text_unavailable = "UNAVAILABLE###size=16" + + InstanceSetString "ShowEng" + Else + Var showengText = "Invisible" + Var showthaiText = "Enable" + + Var DirImage = "ROOT/taobin_project/image/page3" + Var show_btp = "ROOT/taobin_project/image/page2/bn_eng_lang_2.png" + Var show_btn = "ROOT/taobin_project/image/page2/bn_eng_lang_2.png" + + Var ice_tab_text = "น้ำแข็งจะพร้อมเวลา " + Var text_unavailable = "หมด###size=32" + + InstanceSetString "ShowThai" + EndIf + + If ICE_PROCESS_STATUS = 2 Then + Var ice_tab_process_show = "Enable" + Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT + Else + Var ice_tab_process_show = "Invisible" + EndIf + + + ; SpiralOnline + + Var MenuVSelected2 = "Invisible" + + Var Menu1Selected2 = "Invisible" + Var Menu2Selected2 = "Invisible" + Var Menu3Selected2 = "Invisible" + Var Menu4Selected2 = "Invisible" + + Var Menu6Selected2 = "Invisible" + Var Menu7Selected2 = "Invisible" + Var MenuVSelected2 = "Invisible" + Var Menu11Selected2 = "Invisible" + + Var Menu21Selected2 = "Invisible" + + Var MenuVSelected2 = "Invisible" + If SpiralOnline = "true" Then + If Seeker = "curr" Then + Var MenuVSelected2 = "Enable" + EndIf + EndIf + + ; init default + Var Menu1Selected = "Enable" + Var Menu2Selected = "Enable" + Var Menu3Selected = "Enable" + Var Menu4Selected = "Enable" + ; 5 fruit + Var Menu5Selected = "Invisible" + ;Var Menu6Selected = "Enable" + + Var Menu61Selected = "Enable" + Var Menu62Selected = "Enable" + + Var Menu7Selected = "Enable" + ; 8 cocktail + Var Menu8Selected = "Invisible" + + If CocktailShow = "true" Then + Var Menu7Selected = "Invisible" + Var Menu8Selected = "Enable" + EndIf + + + If AppFastEnable = "true" Then + Var Menu11Selected = "Enable" + Var Menu21Selected = "Invisible" + Var Menu7Selected = "Invisible" + Else + If MenuKidEnable = "true" Then + Var Menu11Selected = "Invisible" + Var Menu21Selected = "Enable" + Var Menu7Selected = "Invisible" + Else + Var Menu11Selected = "Invisible" + Var Menu21Selected = "Invisible" + Var Menu7Selected = "Enable" + EndIf + EndIf + + If CocktailShow = "true" Then + Var Menu7Selected = "Invisible" + EndIf + + If RecipeTag1 = "HealthTurnOn" Then + Var Menu22Selected = "Enable" + Else + Var Menu22Selected = "Invisible" + EndIf + ; + + + + + + + + + + + + + + + + + + + Var Menu62Selected = "PressForever" + + + SAVELOG PreviseXMLFileName2 + + Var Timeout = 0 + + + + If show_eng = "true" Then + Var DirImageDrinkOption = "ROOT/taobin_project/image/drink_option_en/" + Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/" + + Else + Var DirImageDrinkOption = "ROOT/taobin_project/image/drink_option/" + Var DirImageAlter = "ROOT/taobin_project/image/page3_2/" + EndIf + + SetInstanceIgnoreTouch + + + DEBUGVAR SlientRefreshIndex + + If SlientRefreshIndex = 7 Then + Var SlientRefreshIndex = 8 + EndIf + + + + + +; notice enable heathy menu + + + 0 + 380 + 1080 + 1540 + "0xeae6e1" + + + + + 1000 + + ;DEBUGVAR ICE_PROCESS_STATUS + + If ICE_PROCESS_STATUS = 2 Then + Var ice_tab_process_show = "Enable" + Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT + Else + Var ice_tab_process_show = "Invisible" + EndIf + + + GetVisible inst_show + ;DEBUGVAR inst_show + + InstanceGetString SaveStringInst + ;DEBUGVAR SaveStringInst + + If inst_show = 1 Then + If SaveStringInst = "RefreshNow" Then + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + + If show_eng = "true" Then + InstanceSetString "ShowEng" + Else + InstanceSetString "ShowThai" + EndIf + + EndIf + EndIf + + ; setvarint SlientRefreshEnable 1 + ;DEBUGVAR SlientRefreshEnable + + If SlientRefreshEnable = 1 Then + If SaveStringInst = "RefreshNow" Then + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + + If show_eng = "true" Then + InstanceSetString "ShowEng" + Else + InstanceSetString "ShowThai" + EndIf + + EndIf + EndIf + + + TimerReset + + + + SAVELOG " EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 " + RefreshAll + + + +; under line + + 0 + 494 + "ROOT/taobin_project/image/page3/tab_line_bottom.png" + + + +; under line + + 0 + 358 + "ROOT/taobin_project/image/page3/bg1.png" + + + +; back + + + + + + InstanceGetString SaveStringInst + DEBUGVAR SaveStringInst + DEBUGVAR show_eng + + DEBUGVAR EnabledBlockUpdateInst10 + DEBUGVAR EnabledBlocksDrawInst10 + + + + + If SaveStringInst = "RefreshNow" Then + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + Else + If EnabledBlocksDrawInst10 = EnabledBlockUpdateInst10 Then + Var StatusRefresh = "NoRefresh" + DEBUGVAR StatusRefresh + Else + Var StatusRefresh = "Refresh" + DEBUGVAR StatusRefresh + GetXMLFileNameCurrentRunning CurrentOpenFile2 + Open CurrentOpenFile2 + EndIf + 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 + + + +; + + 1080 + "auto" + 0 + 395 + + "Enable" + 896 + 102 + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DEBUGVAR web_ready + If web_ready = "true" Then + If web_ref = QRCODE99x Then + + Var web_readyOK = web_ready + Var web_telnumOK = web_telnum + + Var web_app_prepar = "true" + + ; Handle penetrator + + If Only18 = "true" Then + + Open "ROOT/taobin_project/xml/page_identity18_verification.xml" + Else + + Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_payment.xml" + EndIf + + ; Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_payment.xml" + + EndIf + Else + EndIf + + + + + + + + + 10 497 @@ -706,7 +729,7 @@ KanitMediumTTF 0x6F5F51 showthaiText - "เครื่องดื่มเต่าทรงพลัง โซดา + "เครื่องดื่มเต่าทรงพลัง โซดา (มีคาเฟอีน)" @@ -718,7 +741,7 @@ KanitMediumTTF 0x322B26 showengText - "TAO POWER + "TAO POWER DRINK SODA" @@ -961,7 +984,7 @@ DRINK SODA" KanitMediumTTF 0x6F5F51 showthaiText - "น้ำเชื่อมเมล่อน โซดา + "น้ำเชื่อมเมล่อน โซดา และน้ำแข็ง" @@ -1215,7 +1238,7 @@ DRINK SODA" KanitMediumTTF 0x6F5F51 showthaiText - "น้ำเชื่อมยูซุ โซดา + "น้ำเชื่อมยูซุ โซดา และน้ำแข็ง" @@ -1480,7 +1503,7 @@ DRINK SODA" KanitMediumTTF 0x322B26 showengText - "LIMENADE + "LIMENADE SODA" @@ -1976,7 +1999,7 @@ SODA" KanitMediumTTF 0x6F5F51 showthaiText - "น้ำเชื่อมลิ้นจี่ มะนาว + "น้ำเชื่อมลิ้นจี่ มะนาว โซดา " @@ -1988,7 +2011,7 @@ SODA" KanitMediumTTF 0x322B26 showengText - "LYCHEE + "LYCHEE LIMENADE SODA" @@ -1999,7 +2022,7 @@ LIMENADE SODA" KanitMediumTTF 0x6F5F51 showengText - "Lychee Syrup, + "Lychee Syrup, Limenade, Soda & Ice" @@ -3002,7 +3025,7 @@ Limenade, Soda & Ice" KanitMediumTTF 0x322B26 showengText - "LIME + "LIME SALAK SODA" @@ -3013,7 +3036,7 @@ SALAK SODA" KanitMediumTTF 0x6F5F51 showengText - "Salak Syrup, Limenade, + "Salak Syrup, Limenade, Soda & Ice" @@ -3510,7 +3533,7 @@ Soda & Ice" KanitMediumTTF 0x322B26 showengText - "PLUM + "PLUM LIMENADE SODA" @@ -3521,7 +3544,7 @@ LIMENADE SODA" KanitMediumTTF 0x6F5F51 showengText - "Ume Syrup, Limenade, + "Ume Syrup, Limenade, Soda & Ice" @@ -4018,7 +4041,7 @@ Soda & Ice" KanitMediumTTF 0x322B26 showengText - "GINGER LIME + "GINGER LIME SODA" @@ -4525,7 +4548,7 @@ SODA" KanitMediumTTF 0x322B26 showengText - "GINGER LIME + "GINGER LIME SODA" @@ -5011,7 +5034,7 @@ SODA" KanitMediumTTF 0x322B26 showthaiText - "สตรอเบอร์รี่ + "สตรอเบอร์รี่ มินต์โซดา" @@ -5033,7 +5056,7 @@ SODA" KanitMediumTTF 0x322B26 showengText - "STRAWBERRY + "STRAWBERRY MINT SODA" @@ -5519,7 +5542,7 @@ MINT SODA" KanitMediumTTF 0x322B26 showthaiText - "บ๊วยมะนาว + "บ๊วยมะนาว มินต์โซดา" @@ -5541,7 +5564,7 @@ MINT SODA" KanitMediumTTF 0x322B26 showengText - "PLUM LIMENADE + "PLUM LIMENADE MINT SODA" @@ -5774,7 +5797,7 @@ MINT SODA" KanitMediumTTF 0x322B26 showthaiText - "มินต์ลิ้นจี่ + "มินต์ลิ้นจี่ มะนาวโซดา" @@ -5796,7 +5819,7 @@ MINT SODA" KanitMediumTTF 0x322B26 showengText - "MINT LYCHEE + "MINT LYCHEE LEMON SODA" @@ -7547,7 +7570,7 @@ LEMON SODA" KanitMediumTTF 0x322B26 showthaiText - "มะพร้าวน้ำหอม + "มะพร้าวน้ำหอม ลิ้นจี่โซดา" @@ -7569,7 +7592,7 @@ LEMON SODA" KanitMediumTTF 0x322B26 showengText - "Coconut + "Coconut Lychee Soda" @@ -8318,7 +8341,7 @@ Lychee Soda" KanitMediumTTF 0x6F5F51 showthaiText - "เครื่องดื่มเต่าทรงพลัง + "เครื่องดื่มเต่าทรงพลัง (มีคาเฟอีน)" @@ -8572,7 +8595,7 @@ Lychee Soda" KanitMediumTTF 0x6F5F51 showthaiText - "น้ำแดงกลิ่นสละ น้ำมะนาว + "น้ำแดงกลิ่นสละ น้ำมะนาว " @@ -8594,7 +8617,7 @@ Lychee Soda" KanitMediumTTF 0x6F5F51 showengText - "Salak Syrup, Limenade, + "Salak Syrup, Limenade, Water & Ice" @@ -8848,7 +8871,7 @@ Water & Ice" KanitMediumTTF 0x6F5F51 showengText - "Lychee Syrup, Sugar, + "Lychee Syrup, Sugar, Water & Ice" @@ -9081,7 +9104,7 @@ Water & Ice" KanitMediumTTF 0x6F5F51 showthaiText - "น้ำแดงกลิ่นสละ + "น้ำแดงกลิ่นสละ " @@ -9335,7 +9358,7 @@ Water & Ice" KanitMediumTTF 0x6F5F51 showthaiText - "น้ำเชื่อมสตอเบอร์รี่ น้ำ + "น้ำเชื่อมสตอเบอร์รี่ น้ำ " @@ -9357,7 +9380,7 @@ Water & Ice" KanitMediumTTF 0x6F5F51 showengText - "Strawberry Syrup, + "Strawberry Syrup, Water & Ice" @@ -10121,7 +10144,7 @@ Water & Ice" KanitMediumTTF 0x6F5F51 showengText - "Lychee Syrup, Sugar, + "Lychee Syrup, Sugar, Water & Ice" @@ -10375,7 +10398,7 @@ Water & Ice" KanitMediumTTF 0x6F5F51 showengText - "Strawberry Syrup, + "Strawberry Syrup, Water, Ice" @@ -10871,7 +10894,7 @@ Water, Ice" KanitMediumTTF 0x322B26 showengText - "CONGEE WITH + "CONGEE WITH PLANT PROTEIN" @@ -12049,14 +12072,14 @@ PLANT PROTEIN" Open "ROOT/taobin_project/xml/page_payment_multi.xml" - - - - - - - RefreshAll - - - - + + + + + + + RefreshAll + + + + diff --git a/xml/menutab/page_catalog_group_pepsi_7up.skt b/xml/menutab/page_catalog_group_pepsi_7up.skt index 2890c2c3..0dfd4172 100644 --- a/xml/menutab/page_catalog_group_pepsi_7up.skt +++ b/xml/menutab/page_catalog_group_pepsi_7up.skt @@ -29,6 +29,116 @@ + 1000 + + ;DEBUGVAR ICE_PROCESS_STATUS + + If ICE_PROCESS_STATUS = 2 Then + Var ice_tab_process_show = "Enable" + Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT + Else + Var ice_tab_process_show = "Invisible" + EndIf + + + GetVisible inst_show8 + ;DEBUGVAR inst_show8 + + + + If inst_show8 = 1 Then + InstanceGetString SaveStringInst + ;DEBUGVAR SaveStringInst + If SaveStringInst = "RefreshNow" Then + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + + If show_eng = "true" Then + InstanceSetString "ShowEng" + Else + InstanceSetString "ShowThai" + EndIf + + EndIf + EndIf + + ; setvarint SlientRefreshEnable 1 + ;DEBUGVAR SlientRefreshEnable + + If SlientRefreshEnable = 1 Then + If SaveStringInst = "RefreshNow" Then + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + + If show_eng = "true" Then + InstanceSetString "ShowEng" + Else + InstanceSetString "ShowThai" + EndIf + + EndIf + EndIf + + + If SlientRefreshIndex = 8 Then + If inst_show8 = 0 Then + GetXMLFileNameCurrentRunning CurrentOpenFile7 + Open CurrentOpenFile7 + Else + Var SlientRefreshIndex = 9 + EndIf + EndIf + + + TimerReset + + + + InstanceGetString SaveStringInst + DEBUGVAR SaveStringInst + DEBUGVAR show_eng + + + DEBUGVAR EnabledBlockUpdateInst11 + DEBUGVAR EnabledBlocksDrawInst11 + + + + + If SaveStringInst = "RefreshNow" Then + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + Else + If EnabledBlocksDrawInst11 = EnabledBlockUpdateInst11 Then + Var StatusRefresh = "NoRefresh" + DEBUGVAR StatusRefresh + Else + Var StatusRefresh = "Refresh" + DEBUGVAR StatusRefresh + GetXMLFileNameCurrentRunning CurrentOpenFile2 + Open CurrentOpenFile2 + EndIf + 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 + + + + diff --git a/xml/menutab/page_catalog_group_pepsi_7up.xml b/xml/menutab/page_catalog_group_pepsi_7up.xml index 74bd522e..bd87071b 100644 --- a/xml/menutab/page_catalog_group_pepsi_7up.xml +++ b/xml/menutab/page_catalog_group_pepsi_7up.xml @@ -1,596 +1,628 @@ - - - - "Enable" - 1080 - 1920 -; "0xeae6e1" - SoundVolume - - ; On open - Var NextPage = "-" - - DEBUGVAR ICE_PROCESS_STATUS - DEBUGVAR ICE_PROCESS_TXT - - - If show_eng = "true" Then - Var showthaiText = "Invisible" - Var showengText = "Enable" - Var DirImage = "ROOT/taobin_project/image/page3_en" - Var show_btp = "ROOT/taobin_project/image/page2/bn_thai_lang_press_2.png" - Var show_btn = "ROOT/taobin_project/image/page2/bn_thai_lang_2.png" - - Var ice_tab_text = "Ice will be ready at " - Var text_unavailable = "UNAVAILABLE###size=16" - - InstanceSetString "ShowEng" - Else - Var showengText = "Invisible" - Var showthaiText = "Enable" - - Var DirImage = "ROOT/taobin_project/image/page3" - Var show_btp = "ROOT/taobin_project/image/page2/bn_eng_lang_2.png" - Var show_btn = "ROOT/taobin_project/image/page2/bn_eng_lang_2.png" - - Var ice_tab_text = "น้ำแข็งจะพร้อมเวลา " - Var text_unavailable = "หมด###size=32" - - InstanceSetString "ShowThai" - EndIf - - If ICE_PROCESS_STATUS = 2 Then - Var ice_tab_process_show = "Enable" - Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT - Else - Var ice_tab_process_show = "Invisible" - EndIf - - - ; SpiralOnline - - Var MenuVSelected2 = "Invisible" - - Var Menu1Selected2 = "Invisible" - Var Menu2Selected2 = "Invisible" - Var Menu3Selected2 = "Invisible" - Var Menu4Selected2 = "Invisible" - - Var Menu6Selected2 = "Invisible" - Var Menu7Selected2 = "Invisible" - Var MenuVSelected2 = "Invisible" - Var Menu11Selected2 = "Invisible" - - Var Menu21Selected2 = "Invisible" - - Var MenuVSelected2 = "Invisible" - If SpiralOnline = "true" Then - If Seeker = "curr" Then - Var MenuVSelected2 = "Enable" - EndIf - EndIf - - ; init default - Var Menu1Selected = "Enable" - Var Menu2Selected = "Enable" - Var Menu3Selected = "Enable" - Var Menu4Selected = "Enable" - ; 5 fruit - Var Menu5Selected = "Invisible" - ;Var Menu6Selected = "Enable" - - Var Menu61Selected = "Enable" - Var Menu62Selected = "Enable" - - Var Menu7Selected = "Enable" - ; 8 cocktail - Var Menu8Selected = "Invisible" - - If CocktailShow = "true" Then - Var Menu7Selected = "Invisible" - Var Menu8Selected = "Enable" - EndIf - - - If AppFastEnable = "true" Then - Var Menu11Selected = "Enable" - Var Menu21Selected = "Invisible" - Var Menu7Selected = "Invisible" - Else - If MenuKidEnable = "true" Then - Var Menu11Selected = "Invisible" - Var Menu21Selected = "Enable" - Var Menu7Selected = "Invisible" - Else - Var Menu11Selected = "Invisible" - Var Menu21Selected = "Invisible" - Var Menu7Selected = "Enable" - EndIf - EndIf - - If CocktailShow = "true" Then - Var Menu7Selected = "Invisible" - EndIf - - If RecipeTag1 = "HealthTurnOn" Then - Var Menu22Selected = "Enable" - Else - Var Menu22Selected = "Invisible" - EndIf - ; - - - - - - - - - - - - - - - - - - - ; pepsi 7up - Var Menu61Selected = "PressForever" - - SAVELOG PreviseXMLFileName2 - - Var Timeout = 0 - - - - If show_eng = "true" Then - Var DirImageDrinkOption = "ROOT/taobin_project/image/drink_option_en/" - Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/" - - Else - Var DirImageDrinkOption = "ROOT/taobin_project/image/drink_option/" - Var DirImageAlter = "ROOT/taobin_project/image/page3_2/" - EndIf - - SetInstanceIgnoreTouch - - - - - -; notice enable heathy menu - - - 0 - 380 - 1080 - 1540 - "0xeae6e1" - - - - - 1000 - - ;DEBUGVAR ICE_PROCESS_STATUS - - If ICE_PROCESS_STATUS = 2 Then - Var ice_tab_process_show = "Enable" - Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT - Else - Var ice_tab_process_show = "Invisible" - EndIf - - - GetVisible inst_show - ;DEBUGVAR inst_show - - InstanceGetString SaveStringInst - ;DEBUGVAR SaveStringInst - - If inst_show = 1 Then - If SaveStringInst = "RefreshNow" Then - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - - If show_eng = "true" Then - InstanceSetString "ShowEng" - Else - InstanceSetString "ShowThai" - EndIf - - EndIf - EndIf - - ; setvarint SlientRefreshEnable 1 - ;DEBUGVAR SlientRefreshEnable - - If SlientRefreshEnable = 1 Then - If SaveStringInst = "RefreshNow" Then - GetXMLFileNameCurrentRunning CurrentOpenFile - Open CurrentOpenFile - - If show_eng = "true" Then - InstanceSetString "ShowEng" - Else - InstanceSetString "ShowThai" - EndIf - - EndIf - EndIf - - - TimerReset - - - - SAVELOG " EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 " - RefreshAll - - - -; under line - - 0 - 494 - "ROOT/taobin_project/image/page3/tab_line_bottom.png" - - - -; under line - - 0 - 358 - "ROOT/taobin_project/image/page3/bg1.png" - - - -; back - - - - - - InstanceGetString SaveStringInst - DEBUGVAR SaveStringInst - DEBUGVAR show_eng - - 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 - - - -; - - 1080 - "auto" - 0 - 395 - - "Enable" - 896 - 102 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - DEBUGVAR web_ready - If web_ready = "true" Then - If web_ref = QRCODE99x Then - - Var web_readyOK = web_ready - Var web_telnumOK = web_telnum - - Var web_app_prepar = "true" - - ; Handle penetrator - - If Only18 = "true" Then - - Open "ROOT/taobin_project/xml/page_identity18_verification.xml" - Else - - Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_payment.xml" - EndIf - - ; Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_payment.xml" - - EndIf - Else - EndIf - - - - - - - - - + + + + "Enable" + 1080 + 1920 +; "0xeae6e1" + SoundVolume + + ; On open + Var NextPage = "-" + + DEBUGVAR ICE_PROCESS_STATUS + DEBUGVAR ICE_PROCESS_TXT + + + If show_eng = "true" Then + Var showthaiText = "Invisible" + Var showengText = "Enable" + Var DirImage = "ROOT/taobin_project/image/page3_en" + Var show_btp = "ROOT/taobin_project/image/page2/bn_thai_lang_press_2.png" + Var show_btn = "ROOT/taobin_project/image/page2/bn_thai_lang_2.png" + + Var ice_tab_text = "Ice will be ready at " + Var text_unavailable = "UNAVAILABLE###size=16" + + InstanceSetString "ShowEng" + Else + Var showengText = "Invisible" + Var showthaiText = "Enable" + + Var DirImage = "ROOT/taobin_project/image/page3" + Var show_btp = "ROOT/taobin_project/image/page2/bn_eng_lang_2.png" + Var show_btn = "ROOT/taobin_project/image/page2/bn_eng_lang_2.png" + + Var ice_tab_text = "น้ำแข็งจะพร้อมเวลา " + Var text_unavailable = "หมด###size=32" + + InstanceSetString "ShowThai" + EndIf + + If ICE_PROCESS_STATUS = 2 Then + Var ice_tab_process_show = "Enable" + Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT + Else + Var ice_tab_process_show = "Invisible" + EndIf + + + ; SpiralOnline + + Var MenuVSelected2 = "Invisible" + + Var Menu1Selected2 = "Invisible" + Var Menu2Selected2 = "Invisible" + Var Menu3Selected2 = "Invisible" + Var Menu4Selected2 = "Invisible" + + Var Menu6Selected2 = "Invisible" + Var Menu7Selected2 = "Invisible" + Var MenuVSelected2 = "Invisible" + Var Menu11Selected2 = "Invisible" + + Var Menu21Selected2 = "Invisible" + + Var MenuVSelected2 = "Invisible" + If SpiralOnline = "true" Then + If Seeker = "curr" Then + Var MenuVSelected2 = "Enable" + EndIf + EndIf + + ; init default + Var Menu1Selected = "Enable" + Var Menu2Selected = "Enable" + Var Menu3Selected = "Enable" + Var Menu4Selected = "Enable" + ; 5 fruit + Var Menu5Selected = "Invisible" + ;Var Menu6Selected = "Enable" + + Var Menu61Selected = "Enable" + Var Menu62Selected = "Enable" + + Var Menu7Selected = "Enable" + ; 8 cocktail + Var Menu8Selected = "Invisible" + + If CocktailShow = "true" Then + Var Menu7Selected = "Invisible" + Var Menu8Selected = "Enable" + EndIf + + + If AppFastEnable = "true" Then + Var Menu11Selected = "Enable" + Var Menu21Selected = "Invisible" + Var Menu7Selected = "Invisible" + Else + If MenuKidEnable = "true" Then + Var Menu11Selected = "Invisible" + Var Menu21Selected = "Enable" + Var Menu7Selected = "Invisible" + Else + Var Menu11Selected = "Invisible" + Var Menu21Selected = "Invisible" + Var Menu7Selected = "Enable" + EndIf + EndIf + + If CocktailShow = "true" Then + Var Menu7Selected = "Invisible" + EndIf + + If RecipeTag1 = "HealthTurnOn" Then + Var Menu22Selected = "Enable" + Else + Var Menu22Selected = "Invisible" + EndIf + ; + + + + + + + + + + + + + + + + + + + ; pepsi 7up + Var Menu61Selected = "PressForever" + + SAVELOG PreviseXMLFileName2 + + Var Timeout = 0 + + + + If show_eng = "true" Then + Var DirImageDrinkOption = "ROOT/taobin_project/image/drink_option_en/" + Var DirImageAlter = "ROOT/taobin_project/image/page3_2_en/" + + Else + Var DirImageDrinkOption = "ROOT/taobin_project/image/drink_option/" + Var DirImageAlter = "ROOT/taobin_project/image/page3_2/" + EndIf + + SetInstanceIgnoreTouch + + If SlientRefreshIndex = 8 Then + Var SlientRefreshIndex = 9 + EndIf + + + + + +; notice enable heathy menu + + + 0 + 380 + 1080 + 1540 + "0xeae6e1" + + + + + 1000 + + ;DEBUGVAR ICE_PROCESS_STATUS + + If ICE_PROCESS_STATUS = 2 Then + Var ice_tab_process_show = "Enable" + Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT + Else + Var ice_tab_process_show = "Invisible" + EndIf + + + GetVisible inst_show8 + ;DEBUGVAR inst_show8 + + + + If inst_show8 = 1 Then + InstanceGetString SaveStringInst + ;DEBUGVAR SaveStringInst + If SaveStringInst = "RefreshNow" Then + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + + If show_eng = "true" Then + InstanceSetString "ShowEng" + Else + InstanceSetString "ShowThai" + EndIf + + EndIf + EndIf + + ; setvarint SlientRefreshEnable 1 + ;DEBUGVAR SlientRefreshEnable + + If SlientRefreshEnable = 1 Then + If SaveStringInst = "RefreshNow" Then + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + + If show_eng = "true" Then + InstanceSetString "ShowEng" + Else + InstanceSetString "ShowThai" + EndIf + + EndIf + EndIf + + + If SlientRefreshIndex = 8 Then + If inst_show8 = 0 Then + GetXMLFileNameCurrentRunning CurrentOpenFile7 + Open CurrentOpenFile7 + Else + Var SlientRefreshIndex = 9 + EndIf + EndIf + + + TimerReset + + + + SAVELOG " EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 EventUnitTest1 " + RefreshAll + + + +; under line + + 0 + 494 + "ROOT/taobin_project/image/page3/tab_line_bottom.png" + + + +; under line + + 0 + 358 + "ROOT/taobin_project/image/page3/bg1.png" + + + +; back + + + + + + InstanceGetString SaveStringInst + DEBUGVAR SaveStringInst + DEBUGVAR show_eng + + + DEBUGVAR EnabledBlockUpdateInst11 + DEBUGVAR EnabledBlocksDrawInst11 + + + + + If SaveStringInst = "RefreshNow" Then + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + Else + If EnabledBlocksDrawInst11 = EnabledBlockUpdateInst11 Then + Var StatusRefresh = "NoRefresh" + DEBUGVAR StatusRefresh + Else + Var StatusRefresh = "Refresh" + DEBUGVAR StatusRefresh + GetXMLFileNameCurrentRunning CurrentOpenFile2 + Open CurrentOpenFile2 + EndIf + 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 + + + +; + + 1080 + "auto" + 0 + 395 + + "Enable" + 896 + 102 + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + DEBUGVAR web_ready + If web_ready = "true" Then + If web_ref = QRCODE99x Then + + Var web_readyOK = web_ready + Var web_telnumOK = web_telnum + + Var web_app_prepar = "true" + + ; Handle penetrator + + If Only18 = "true" Then + + Open "ROOT/taobin_project/xml/page_identity18_verification.xml" + Else + + Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_payment.xml" + EndIf + + ; Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_payment.xml" + + EndIf + Else + EndIf + + + + + + + + + 10 497 @@ -1455,7 +1487,7 @@ KanitMediumTTF 0x322B26 showthaiText - "เซเว่นอัพชูกำลัง + "เซเว่นอัพชูกำลัง บ๊วยโซดา" @@ -1477,7 +1509,7 @@ KanitMediumTTF 0x322B26 showengText - "7UP TAO POWER + "7UP TAO POWER PLUM SODA" @@ -1710,7 +1742,7 @@ PLUM SODA" KanitMediumTTF 0x322B26 showthaiText - "เซเว่นอัพลิ้นจี่ + "เซเว่นอัพลิ้นจี่ มะนาวโซดา" @@ -1964,7 +1996,7 @@ PLUM SODA" KanitMediumTTF 0x322B26 showthaiText - "เซเว่นอัพสละ + "เซเว่นอัพสละ มะนาวโซดา" @@ -2977,7 +3009,7 @@ PLUM SODA" KanitMediumTTF 0x322B26 showthaiText - "เซเว่นอัพบ๊วย + "เซเว่นอัพบ๊วย มะนาวโซดา" @@ -3231,7 +3263,7 @@ PLUM SODA" KanitMediumTTF 0x322B26 showthaiText - "เซเว่นอัพ + "เซเว่นอัพ สตรอเบอรี่ร์บ๊วยโซดา" @@ -3253,7 +3285,7 @@ PLUM SODA" KanitMediumTTF 0x322B26 showengText - "7UP PLUM + "7UP PLUM STRAWBERRY LIME" @@ -5004,7 +5036,7 @@ STRAWBERRY LIME" KanitMediumTTF 0x322B26 showthaiText - "เซเว่นอัพยูซุ + "เซเว่นอัพยูซุ มะนาวโซดา" @@ -6017,7 +6049,7 @@ STRAWBERRY LIME" KanitMediumTTF 0x322B26 showthaiText - "เซเว่นอัพมินต์ + "เซเว่นอัพมินต์ มะนาวโซดา" @@ -7963,14 +7995,14 @@ STRAWBERRY LIME" Open "ROOT/taobin_project/xml/page_payment_multi.xml" - - - - - - - RefreshAll - - - - + + + + + + + RefreshAll + + + + diff --git a/xml/menutab/page_catalog_group_tea.skt b/xml/menutab/page_catalog_group_tea.skt index 57bd95bf..6311cf0a 100644 --- a/xml/menutab/page_catalog_group_tea.skt +++ b/xml/menutab/page_catalog_group_tea.skt @@ -87,6 +87,51 @@ TimerReset + + + InstanceGetString SaveStringInst + DEBUGVAR SaveStringInst + DEBUGVAR show_eng + + DEBUGVAR EnabledBlockUpdateInst6 + DEBUGVAR EnabledBlocksDrawInst6 + + + If SaveStringInst = "RefreshNow" Then + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + Else + If EnabledBlocksDrawInst6 = EnabledBlockUpdateInst6 Then + Var StatusRefresh = "NoRefresh" + DEBUGVAR StatusRefresh + Else + Var StatusRefresh = "Refresh" + DEBUGVAR StatusRefresh + GetXMLFileNameCurrentRunning CurrentOpenFile2 + Open CurrentOpenFile2 + EndIf + 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 + + + + + diff --git a/xml/menutab/page_catalog_group_tea.xml b/xml/menutab/page_catalog_group_tea.xml index 54db8ad6..59dd43a6 100644 --- a/xml/menutab/page_catalog_group_tea.xml +++ b/xml/menutab/page_catalog_group_tea.xml @@ -85,7 +85,7 @@ Var Menu7Selected = "Enable" ; 8 cocktail Var Menu8Selected = "Invisible" - + Var Menu22Selected = "Enable" If CocktailShow = "true" Then Var Menu7Selected = "Invisible" Var Menu8Selected = "Enable" @@ -193,14 +193,13 @@ EndIf - GetVisible inst_show3 - ;DEBUGVAR inst_show3 + GetVisible inst_show + ;DEBUGVAR inst_show - + InstanceGetString SaveStringInst + ;DEBUGVAR SaveStringInst - If inst_show3 = 1 Then - InstanceGetString SaveStringInst - ;DEBUGVAR SaveStringInst + If inst_show = 1 Then If SaveStringInst = "RefreshNow" Then GetXMLFileNameCurrentRunning CurrentOpenFile Open CurrentOpenFile @@ -212,20 +211,23 @@ EndIf EndIf - EndIf ; setvarint SlientRefreshEnable 1 ;DEBUGVAR SlientRefreshEnable - If SlientRefreshIndex = 3 Then - If inst_show3 = 0 Then - GetXMLFileNameCurrentRunning CurrentOpenFile3 - Open CurrentOpenFile3 - Else - Var SlientRefreshIndex = 4 - - EndIf + If SlientRefreshEnable = 1 Then + If SaveStringInst = "RefreshNow" Then + GetXMLFileNameCurrentRunning CurrentOpenFile + Open CurrentOpenFile + + If show_eng = "true" Then + InstanceSetString "ShowEng" + Else + InstanceSetString "ShowThai" + EndIf + + EndIf EndIf @@ -302,9 +304,23 @@ DEBUGVAR SaveStringInst DEBUGVAR show_eng + DEBUGVAR EnabledBlockUpdateInst6 + DEBUGVAR EnabledBlocksDrawInst6 + + If SaveStringInst = "RefreshNow" Then GetXMLFileNameCurrentRunning CurrentOpenFile Open CurrentOpenFile + Else + If EnabledBlocksDrawInst6 = EnabledBlockUpdateInst6 Then + Var StatusRefresh = "NoRefresh" + DEBUGVAR StatusRefresh + Else + Var StatusRefresh = "Refresh" + DEBUGVAR StatusRefresh + GetXMLFileNameCurrentRunning CurrentOpenFile2 + Open CurrentOpenFile2 + EndIf EndIf If show_eng = "true" Then