diff --git a/inter/tha/xml/multi/instance5.inc b/inter/tha/xml/multi/instance5.inc new file mode 100644 index 00000000..82e26180 --- /dev/null +++ b/inter/tha/xml/multi/instance5.inc @@ -0,0 +1,183 @@ + + + GetVisible inst_show2 + ;DEBUGVAR inst_show2 + + + If inst_show2 = 1 Then + InstanceGetString SaveStringInst + ;DEBUGVAR SaveStringInst + If SaveStringInst = "RefreshNow" Then + SAVELOG "OPEN slient Refresh" + 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 + SAVELOG "OPEN slient 2" + 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 + SAVELOG "OPEN slient 1" + GetXMLFileNameCurrentRunning CurrentOpenFile2 + Open CurrentOpenFile2 + + Else + Var SlientRefreshIndex = 3 + EndIf + EndIf + + If langnext1 = "true" Then + DEBUGVAR langnext1 + Var langnext1 = "false" + RefreshAll + EndIf + + If inst_show2 = 1 Then + + + 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 + + + + + + Var Inst5CountMenuEnable = 0 + Var Inst5CountCurrentMenuEnable = 0 + GetFrameScrollBlockCount Inst5CountCurrentMenuEnable + GetCurrentEnableBlockCount Inst5CountMenuEnable + + ;DEBUGVAR Inst5CountMenuEnable + ;DEBUGVAR Inst5CountMenuEnablePrev + ;DEBUGVAR Inst5CountCurrentMenuEnable + + If Inst5CountMenuEnablePrev = "" Then + Var Inst5CountMenuEnablePrev = Inst5CountMenuEnable + Var Inst5CountDownForOpenXML = 0 + Var Inst5CountDownOpenXMLFromMenuZero = 20 + EndIf + + If Inst5CountMenuEnable = Inst5CountMenuEnablePrev Then + + Else + SAVELOG "Inst5 Refresh ===================================================================== Refresh" + Var Inst5CountDownForOpenXML = 10 + Var Inst5CountMenuEnablePrev = CountMenuEnable + EndIf + + If Inst5CountMenuEnable = Inst5CountCurrentMenuEnable Then + + Else + If Inst5CountDownForOpenXML = 0 Then + SAVELOG "Inst5 Refresh =======================Inst5CountMenuEnable / Inst5CountCurrentMenuEnable ============================================== Refresh" + Var Inst5CountDownForOpenXML = 10 + EndIf + EndIf + + If Inst5CountCurrentMenuEnable = 0 Then + + DEBUGVAR Inst5CountDownOpenXMLFromMenuZero + + If Inst5CountDownOpenXMLFromMenuZero > 0 Then + Var Inst5CountDownOpenXMLFromMenuZero = Inst5CountDownOpenXMLFromMenuZero - 1 + If Inst5CountDownOpenXMLFromMenuZero = 0 Then + Var Inst5CountDownOpenXMLFromMenuZero = 20 + SAVELOG "OPEN FROM 1" + Open "ROOT/taobin_project/inter/tha/xml/multi/v3/page_catalog_group_coffee.lxml" + EndIf + EndIf + EndIf + + If Inst5CountMenuEnable = Inst5CountCurrentMenuEnable Then + If Inst5CountCurrentMenuEnable > 0 Then + Var Inst5MenuLoaded = "done" + EndIf + EndIf + + If Inst5CountDownForOpenXML > 0 Then + Var Inst5CountDownForOpenXML = Inst5CountDownForOpenXML - 1 + DEBUGVAR Inst5CountDownForOpenXML + If Inst5CountDownForOpenXML = 0 Then + SAVELOG "OPEN FROM 2" + Open "ROOT/taobin_project/inter/tha/xml/multi/v3/page_catalog_group_coffee.lxml" + 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 + + ; setvarint RefreshCoffeeMenu 1 + If RefreshCoffeeMenu = 1 Then + Var RefreshCoffeeMenu = 0 + SAVELOG "OPEN FROM 3" + ;Open "ROOT/taobin_project/inter/tha/xml/multi/v3/page_catalog_group_coffee.lxml" + RefreshAll + EndIf + + ; setvarint ScriptCoffeeMenu 1 + If ScriptCoffeeMenu = 1 Then + Var ScriptCoffeeMenu = 0 + SAVELOG "Runscript 3" + Script "-" "-" + EndIf + + If CoffeeRefreshTimeOut > 15 Then + Var CoffeeRefreshTimeOut = 0 + Script "-" "-" + EndIf + + Var CoffeeRefreshTimeOut = CoffeeRefreshTimeOut + 1 + \ No newline at end of file diff --git a/inter/tha/xml/multi/instance8.inc b/inter/tha/xml/multi/instance8.inc new file mode 100644 index 00000000..542941c9 --- /dev/null +++ b/inter/tha/xml/multi/instance8.inc @@ -0,0 +1,137 @@ + + 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 langnext4 = "true" Then + Var langnext4 = "false" + DEBUGVAR langnext4 + RefreshAll + EndIf + + If inst_show5 = 1 Then + + + 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 + + + Var Inst8CountMenuEnable = 0 + Var Inst8CountCurrentMenuEnable = 0 + GetFrameScrollBlockCount Inst8CountCurrentMenuEnable + GetCurrentEnableBlockCount Inst8CountMenuEnable + + ;DEBUGVAR Inst8CountMenuEnable + ;DEBUGVAR Inst8CountMenuEnablePrev + ;DEBUGVAR Inst8CountCurrentMenuEnable + + If Inst8CountMenuEnablePrev = "" Then + Var Inst8CountMenuEnablePrev = Inst8CountMenuEnable + Var Inst8CountDownForOpenXML = 0 + Var Inst8CountDownOpenXMLFromMenuZero = 20 + EndIf + + If Inst8CountMenuEnable = Inst8CountMenuEnablePrev Then + + Else + SAVELOG "Inst8 Refresh ===================================================================== Refresh" + Var Inst8CountDownForOpenXML = 10 + Var Inst8CountMenuEnablePrev = CountMenuEnable + EndIf + + If Inst8CountMenuEnable = Inst8CountCurrentMenuEnable Then + + Else + If Inst8CountDownForOpenXML = 0 Then + SAVELOG "Inst8 Refresh =======================Inst8CountMenuEnable / Inst8CountCurrentMenuEnable ============================================== Refresh" + Var Inst8CountDownForOpenXML = 10 + EndIf + EndIf + + + If Inst8CountCurrentMenuEnable = 0 Then + + DEBUGVAR Inst8CountDownOpenXMLFromMenuZero + + If Inst8CountDownOpenXMLFromMenuZero > 0 Then + Var Inst8CountDownOpenXMLFromMenuZero = Inst8CountDownOpenXMLFromMenuZero - 1 + If Inst8CountDownOpenXMLFromMenuZero = 0 Then + Var Inst8CountDownOpenXMLFromMenuZero = 20 + Open "ROOT/taobin_project/inter/tha/xml/multi/v3/page_catalog_group_forkid.lxml" + EndIf + EndIf + EndIf + + If Inst8CountMenuEnable = Inst8CountCurrentMenuEnable Then + If Inst8CountCurrentMenuEnable > 0 Then + Var Inst8MenuLoaded = "done" + EndIf + EndIf + + If Inst8CountDownForOpenXML > 0 Then + Var Inst8CountDownForOpenXML = Inst8CountDownForOpenXML - 1 + DEBUGVAR Inst8CountDownForOpenXML + If Inst8CountDownForOpenXML = 0 Then + Open "ROOT/taobin_project/inter/tha/xml/multi/v3/page_catalog_group_forkid.lxml" + EndIf + EndIf + \ No newline at end of file diff --git a/inter/tha/xml/multi/v3/page_catalog_group_coffee.lxml b/inter/tha/xml/multi/v3/page_catalog_group_coffee.lxml index c71d957a..0c3b1cc9 100644 --- a/inter/tha/xml/multi/v3/page_catalog_group_coffee.lxml +++ b/inter/tha/xml/multi/v3/page_catalog_group_coffee.lxml @@ -52,187 +52,7 @@ 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 - SAVELOG "OPEN slient Refresh" - 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 - SAVELOG "OPEN slient 2" - 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 - SAVELOG "OPEN slient 1" - GetXMLFileNameCurrentRunning CurrentOpenFile2 - Open CurrentOpenFile2 - - Else - Var SlientRefreshIndex = 3 - EndIf - EndIf - - If langnext1 = "true" Then - DEBUGVAR langnext1 - Var langnext1 = "false" - RefreshAll - EndIf - - If inst_show2 = 1 Then - - - 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 - - - - - - Var Inst5CountMenuEnable = 0 - Var Inst5CountCurrentMenuEnable = 0 - GetFrameScrollBlockCount Inst5CountCurrentMenuEnable - GetCurrentEnableBlockCount Inst5CountMenuEnable - - ;DEBUGVAR Inst5CountMenuEnable - ;DEBUGVAR Inst5CountMenuEnablePrev - ;DEBUGVAR Inst5CountCurrentMenuEnable - - If Inst5CountMenuEnablePrev = "" Then - Var Inst5CountMenuEnablePrev = Inst5CountMenuEnable - Var Inst5CountDownForOpenXML = 0 - Var Inst5CountDownOpenXMLFromMenuZero = 20 - EndIf - - If Inst5CountMenuEnable = Inst5CountMenuEnablePrev Then - - Else - SAVELOG "Inst5 Refresh ===================================================================== Refresh" - Var Inst5CountDownForOpenXML = 10 - Var Inst5CountMenuEnablePrev = CountMenuEnable - EndIf - - If Inst5CountMenuEnable = Inst5CountCurrentMenuEnable Then - - Else - If Inst5CountDownForOpenXML = 0 Then - SAVELOG "Inst5 Refresh =======================Inst5CountMenuEnable / Inst5CountCurrentMenuEnable ============================================== Refresh" - Var Inst5CountDownForOpenXML = 10 - EndIf - EndIf - - If Inst5CountCurrentMenuEnable = 0 Then - - DEBUGVAR Inst5CountDownOpenXMLFromMenuZero - - If Inst5CountDownOpenXMLFromMenuZero > 0 Then - Var Inst5CountDownOpenXMLFromMenuZero = Inst5CountDownOpenXMLFromMenuZero - 1 - If Inst5CountDownOpenXMLFromMenuZero = 0 Then - Var Inst5CountDownOpenXMLFromMenuZero = 20 - SAVELOG "OPEN FROM 1" - Open "ROOT/taobin_project/inter/tha/xml/multi/v3/page_catalog_group_coffee.lxml" - EndIf - EndIf - EndIf - - If Inst5CountMenuEnable = Inst5CountCurrentMenuEnable Then - If Inst5CountCurrentMenuEnable > 0 Then - Var Inst5MenuLoaded = "done" - EndIf - EndIf - - If Inst5CountDownForOpenXML > 0 Then - Var Inst5CountDownForOpenXML = Inst5CountDownForOpenXML - 1 - DEBUGVAR Inst5CountDownForOpenXML - If Inst5CountDownForOpenXML = 0 Then - SAVELOG "OPEN FROM 2" - Open "ROOT/taobin_project/inter/tha/xml/multi/v3/page_catalog_group_coffee.lxml" - 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 - - ; setvarint RefreshCoffeeMenu 1 - If RefreshCoffeeMenu = 1 Then - Var RefreshCoffeeMenu = 0 - SAVELOG "OPEN FROM 3" - ;Open "ROOT/taobin_project/inter/tha/xml/multi/v3/page_catalog_group_coffee.lxml" - RefreshAll - EndIf - - ; setvarint ScriptCoffeeMenu 1 - If ScriptCoffeeMenu = 1 Then - Var ScriptCoffeeMenu = 0 - SAVELOG "Runscript 3" - Script "-" "-" - EndIf - - If CoffeeRefreshTimeOut > 15 Then - Var CoffeeRefreshTimeOut = 0 - Script "-" "-" - EndIf - - Var CoffeeRefreshTimeOut = CoffeeRefreshTimeOut + 1 + ;include="ROOT/taobin_project/inter/tha/xml/multi/coffee_instance.inc" TimerReset diff --git a/inter/tha/xml/multi/v3/page_catalog_group_coffee.skt b/inter/tha/xml/multi/v3/page_catalog_group_coffee.skt index 4e5d32f2..c2a9990c 100644 --- a/inter/tha/xml/multi/v3/page_catalog_group_coffee.skt +++ b/inter/tha/xml/multi/v3/page_catalog_group_coffee.skt @@ -54,187 +54,7 @@ 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 - SAVELOG "OPEN slient Refresh" - 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 - SAVELOG "OPEN slient 2" - 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 - SAVELOG "OPEN slient 1" - GetXMLFileNameCurrentRunning CurrentOpenFile2 - Open CurrentOpenFile2 - - Else - Var SlientRefreshIndex = 3 - EndIf - EndIf - - If langnext1 = "true" Then - DEBUGVAR langnext1 - Var langnext1 = "false" - RefreshAll - EndIf - - If inst_show2 = 1 Then - - - 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 - - - - - - Var Inst5CountMenuEnable = 0 - Var Inst5CountCurrentMenuEnable = 0 - GetFrameScrollBlockCount Inst5CountCurrentMenuEnable - GetCurrentEnableBlockCount Inst5CountMenuEnable - - ;DEBUGVAR Inst5CountMenuEnable - ;DEBUGVAR Inst5CountMenuEnablePrev - ;DEBUGVAR Inst5CountCurrentMenuEnable - - If Inst5CountMenuEnablePrev = "" Then - Var Inst5CountMenuEnablePrev = Inst5CountMenuEnable - Var Inst5CountDownForOpenXML = 0 - Var Inst5CountDownOpenXMLFromMenuZero = 20 - EndIf - - If Inst5CountMenuEnable = Inst5CountMenuEnablePrev Then - - Else - SAVELOG "Inst5 Refresh ===================================================================== Refresh" - Var Inst5CountDownForOpenXML = 10 - Var Inst5CountMenuEnablePrev = CountMenuEnable - EndIf - - If Inst5CountMenuEnable = Inst5CountCurrentMenuEnable Then - - Else - If Inst5CountDownForOpenXML = 0 Then - SAVELOG "Inst5 Refresh =======================Inst5CountMenuEnable / Inst5CountCurrentMenuEnable ============================================== Refresh" - Var Inst5CountDownForOpenXML = 10 - EndIf - EndIf - - If Inst5CountCurrentMenuEnable = 0 Then - - DEBUGVAR Inst5CountDownOpenXMLFromMenuZero - - If Inst5CountDownOpenXMLFromMenuZero > 0 Then - Var Inst5CountDownOpenXMLFromMenuZero = Inst5CountDownOpenXMLFromMenuZero - 1 - If Inst5CountDownOpenXMLFromMenuZero = 0 Then - Var Inst5CountDownOpenXMLFromMenuZero = 20 - SAVELOG "OPEN FROM 1" - Open "ROOT/taobin_project/inter/tha/xml/multi/v3/page_catalog_group_coffee.lxml" - EndIf - EndIf - EndIf - - If Inst5CountMenuEnable = Inst5CountCurrentMenuEnable Then - If Inst5CountCurrentMenuEnable > 0 Then - Var Inst5MenuLoaded = "done" - EndIf - EndIf - - If Inst5CountDownForOpenXML > 0 Then - Var Inst5CountDownForOpenXML = Inst5CountDownForOpenXML - 1 - DEBUGVAR Inst5CountDownForOpenXML - If Inst5CountDownForOpenXML = 0 Then - SAVELOG "OPEN FROM 2" - Open "ROOT/taobin_project/inter/tha/xml/multi/v3/page_catalog_group_coffee.lxml" - 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 - - ; setvarint RefreshCoffeeMenu 1 - If RefreshCoffeeMenu = 1 Then - Var RefreshCoffeeMenu = 0 - SAVELOG "OPEN FROM 3" - ;Open "ROOT/taobin_project/inter/tha/xml/multi/v3/page_catalog_group_coffee.lxml" - RefreshAll - EndIf - - ; setvarint ScriptCoffeeMenu 1 - If ScriptCoffeeMenu = 1 Then - Var ScriptCoffeeMenu = 0 - SAVELOG "Runscript 3" - Script "-" "-" - EndIf - - If CoffeeRefreshTimeOut > 15 Then - Var CoffeeRefreshTimeOut = 0 - Script "-" "-" - EndIf - - Var CoffeeRefreshTimeOut = CoffeeRefreshTimeOut + 1 + ;include="ROOT/taobin_project/inter/tha/xml/multi/coffee_instance.inc" TimerReset diff --git a/inter/tha/xml/multi/v3/page_catalog_group_forkid.lxml b/inter/tha/xml/multi/v3/page_catalog_group_forkid.lxml index 9b66e1bb..7235eed2 100644 --- a/inter/tha/xml/multi/v3/page_catalog_group_forkid.lxml +++ b/inter/tha/xml/multi/v3/page_catalog_group_forkid.lxml @@ -59,141 +59,9 @@ - GetVisible inst_show5 - ;DEBUGVAR inst_show5 + ;include="ROOT/taobin_project/inter/tha/xml/multi/instance5.inc" - 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 langnext4 = "true" Then - Var langnext4 = "false" - DEBUGVAR langnext4 - RefreshAll - EndIf - - If inst_show5 = 1 Then - - - 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 - - - Var Inst8CountMenuEnable = 0 - Var Inst8CountCurrentMenuEnable = 0 - GetFrameScrollBlockCount Inst8CountCurrentMenuEnable - GetCurrentEnableBlockCount Inst8CountMenuEnable - - ;DEBUGVAR Inst8CountMenuEnable - ;DEBUGVAR Inst8CountMenuEnablePrev - ;DEBUGVAR Inst8CountCurrentMenuEnable - - If Inst8CountMenuEnablePrev = "" Then - Var Inst8CountMenuEnablePrev = Inst8CountMenuEnable - Var Inst8CountDownForOpenXML = 0 - Var Inst8CountDownOpenXMLFromMenuZero = 20 - EndIf - - If Inst8CountMenuEnable = Inst8CountMenuEnablePrev Then - - Else - SAVELOG "Inst8 Refresh ===================================================================== Refresh" - Var Inst8CountDownForOpenXML = 10 - Var Inst8CountMenuEnablePrev = CountMenuEnable - EndIf - - If Inst8CountMenuEnable = Inst8CountCurrentMenuEnable Then - - Else - If Inst8CountDownForOpenXML = 0 Then - SAVELOG "Inst8 Refresh =======================Inst8CountMenuEnable / Inst8CountCurrentMenuEnable ============================================== Refresh" - Var Inst8CountDownForOpenXML = 10 - EndIf - EndIf - - - If Inst8CountCurrentMenuEnable = 0 Then - - DEBUGVAR Inst8CountDownOpenXMLFromMenuZero - - If Inst8CountDownOpenXMLFromMenuZero > 0 Then - Var Inst8CountDownOpenXMLFromMenuZero = Inst8CountDownOpenXMLFromMenuZero - 1 - If Inst8CountDownOpenXMLFromMenuZero = 0 Then - Var Inst8CountDownOpenXMLFromMenuZero = 20 - Open "ROOT/taobin_project/inter/tha/xml/multi/v3/page_catalog_group_forkid.lxml" - EndIf - EndIf - EndIf - - If Inst8CountMenuEnable = Inst8CountCurrentMenuEnable Then - If Inst8CountCurrentMenuEnable > 0 Then - Var Inst8MenuLoaded = "done" - EndIf - EndIf - - If Inst8CountDownForOpenXML > 0 Then - Var Inst8CountDownForOpenXML = Inst8CountDownForOpenXML - 1 - DEBUGVAR Inst8CountDownForOpenXML - If Inst8CountDownForOpenXML = 0 Then - Open "ROOT/taobin_project/inter/tha/xml/multi/v3/page_catalog_group_forkid.lxml" - EndIf - EndIf TimerReset diff --git a/inter/tha/xml/multi/v3/page_catalog_group_forkid.skt b/inter/tha/xml/multi/v3/page_catalog_group_forkid.skt index 6320d480..bd14f096 100644 --- a/inter/tha/xml/multi/v3/page_catalog_group_forkid.skt +++ b/inter/tha/xml/multi/v3/page_catalog_group_forkid.skt @@ -62,141 +62,9 @@ - GetVisible inst_show5 - ;DEBUGVAR inst_show5 + ;include="ROOT/taobin_project/inter/tha/xml/multi/instance5.inc" - 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 langnext4 = "true" Then - Var langnext4 = "false" - DEBUGVAR langnext4 - RefreshAll - EndIf - - If inst_show5 = 1 Then - - - 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 - - - Var Inst8CountMenuEnable = 0 - Var Inst8CountCurrentMenuEnable = 0 - GetFrameScrollBlockCount Inst8CountCurrentMenuEnable - GetCurrentEnableBlockCount Inst8CountMenuEnable - - ;DEBUGVAR Inst8CountMenuEnable - ;DEBUGVAR Inst8CountMenuEnablePrev - ;DEBUGVAR Inst8CountCurrentMenuEnable - - If Inst8CountMenuEnablePrev = "" Then - Var Inst8CountMenuEnablePrev = Inst8CountMenuEnable - Var Inst8CountDownForOpenXML = 0 - Var Inst8CountDownOpenXMLFromMenuZero = 20 - EndIf - - If Inst8CountMenuEnable = Inst8CountMenuEnablePrev Then - - Else - SAVELOG "Inst8 Refresh ===================================================================== Refresh" - Var Inst8CountDownForOpenXML = 10 - Var Inst8CountMenuEnablePrev = CountMenuEnable - EndIf - - If Inst8CountMenuEnable = Inst8CountCurrentMenuEnable Then - - Else - If Inst8CountDownForOpenXML = 0 Then - SAVELOG "Inst8 Refresh =======================Inst8CountMenuEnable / Inst8CountCurrentMenuEnable ============================================== Refresh" - Var Inst8CountDownForOpenXML = 10 - EndIf - EndIf - - - If Inst8CountCurrentMenuEnable = 0 Then - - DEBUGVAR Inst8CountDownOpenXMLFromMenuZero - - If Inst8CountDownOpenXMLFromMenuZero > 0 Then - Var Inst8CountDownOpenXMLFromMenuZero = Inst8CountDownOpenXMLFromMenuZero - 1 - If Inst8CountDownOpenXMLFromMenuZero = 0 Then - Var Inst8CountDownOpenXMLFromMenuZero = 20 - Open "ROOT/taobin_project/inter/tha/xml/multi/v3/page_catalog_group_forkid.lxml" - EndIf - EndIf - EndIf - - If Inst8CountMenuEnable = Inst8CountCurrentMenuEnable Then - If Inst8CountCurrentMenuEnable > 0 Then - Var Inst8MenuLoaded = "done" - EndIf - EndIf - - If Inst8CountDownForOpenXML > 0 Then - Var Inst8CountDownForOpenXML = Inst8CountDownForOpenXML - 1 - DEBUGVAR Inst8CountDownForOpenXML - If Inst8CountDownForOpenXML = 0 Then - Open "ROOT/taobin_project/inter/tha/xml/multi/v3/page_catalog_group_forkid.lxml" - EndIf - EndIf TimerReset diff --git a/menu/new-layout.tsv b/menu/new-layout.tsv index 96647404..a31ba2d7 100644 --- a/menu/new-layout.tsv +++ b/menu/new-layout.tsv @@ -170,7 +170,7 @@ Name=Milk,file=page_catalog_group_milk.skt โอรีโอปั่นภูเขาไฟ Oreo Smoothie \nVolcano นม น้ำตาล โอรีโอ \n Milk, Sugar, Oreo, Ice - - 12-03-03-0009 bn_smoothie_oreo.png - - - posi2 - - - - - #REF! NN #REF! ซูเปอร์โกโก้เข้ม คูณ 3 Super Cocoa X3 โกโก้ 3x นม และน้ำตาล Milk, Cocoa, Sugar - 12-03-02-0067 12-03-03-0067 IcedCocoax3.png - - - posi1 - - - โอวัลตินรถโรงเรียน\nภูเขาไฟ Mini Bus Ovaltine\nVolcano โอวัลติน น้ำตาล และ นม Ovaltine, Sugar, milk - - 12-03-03-0094 bn_iced_Ovaltine_cocoa_smoothie.png - - - posi1 2024/12/16T00:00:00 - - - ยูสุโอริโอ้โวคาโน่ Yuzu Milk Oreo Volcano ยูซุ นม โอริโอ้ Yuzu Milk Oreo - - 12-03-03-0087 bn_bn_Yuzu_Milk_Oreo_Volcano.png - - - posi1 2025/04/01T00:00:00 - - +IGNORE ยูสุโอริโอ้โวคาโน่ Yuzu Milk Oreo Volcano ยูซุ นม โอริโอ้ Yuzu Milk Oreo - - 12-03-03-0087 bn_bn_Yuzu_Milk_Oreo_Volcano.png - - - posi1 2025/04/01T00:00:00 - - เต่าบินไอติมถัง\nกะทิ Coconut Milk\nIce Cream มะพร้าว, คาราเมล, นม, น้ำตาล\nและ น้ำแข็ง Coconut, Caramel, Milk, Sugar\nAnd Ice - - 12-03-03-0103 bn_Coconut_Milk_Smoothie.png - - - posi1 2025/03/01T00:00:00 - - เต่าบินไอติมถัง\nสตรอเบอรี Coconut Milk\nStrawberry Ice Cream มะพร้าว, คาราเมล, สตรอเบอรี, นม,\nน้ำตาล และ น้ำแข็ง Coconut, Caramel, Strawberry, Milk,\nSugar And Ice - - 12-03-03-0104 bn_Coconut_Milk_Strawberry_Smoothie.png - - - posi1 2025/03/01T00:00:00 - - เต่าบินไอติมถัง\nโกโก้ Coconut Milk\nCocoa Ice Cream มะพร้าว, คาราเมล, โกโก้, นม, น้ำตาล\nและ น้ำแข็ง Coconut, Caramel, Cocoa, Milk,\nSugar And Ice - - 12-03-03-0105 bn_Coconut_Milk_Cocoa_Smoothie.png - - - posi1 2025/03/01T00:00:00 - - diff --git a/xml/page_board.xml b/xml/page_board.xml index 1e8bfe59..d1712438 100644 --- a/xml/page_board.xml +++ b/xml/page_board.xml @@ -1228,7 +1228,8 @@ If CountryName = "Thailand" Then Var MyanmarLangEnable = "true" - Var CatalogLayoutV3 = 0 + + Var CatalogLayoutV3 = 1 ; test payment Var New_Payment = 1 diff --git a/xml/page_catalog_group_milk.xml b/xml/page_catalog_group_milk.xml index 296b74b0..f15a105a 100644 --- a/xml/page_catalog_group_milk.xml +++ b/xml/page_catalog_group_milk.xml @@ -1047,257 +1047,6 @@ Volcano" text_unavailable center-vertical-horizontal - - ; - - - - ; ==================> Len = 15 - ; - - 12-03-03-0087 - - 33 - 22 - 225 - 296 - Flag( 12-03-03-0087.Button,DateTimeStart="2025/04/01T00:00:00",$Sum1203030087) - - - 16 - 164 - 24 - 220 - "multi2" - KanitMediumTTF - 0x322B26 - showthaiText - "ยูสุโอริโอ้โวคาโน่" - - - 16 - 220 - 14 - 220 - KanitMediumTTF - 0x6F5F51 - showthaiText - "ยูซุ นม โอริโอ้" - - - 16 - 164 - 22 - 220 - "multi2" - KanitMediumTTF - 0x322B26 - showengText - "Yuzu Milk Oreo Volcano" - - - 16 - 220 - 14 - 220 - KanitMediumTTF - 0x6F5F51 - showengText - "Yuzu Milk Oreo" - - - 16 - 264 - Var( DirImage2 + "option_deactive.png" ) - - - 16 - 264 - "Invisible" - Var( DirImage2 + "hot.png" ) - Var( DirImage2 + "hot_db.png" ) - - - 50 - TextPriceMenuY - TextPriceMenuSize - 220 - KanitMediumTTF - 0x6F5F51 - 0xEAE6E1 - "Invisible" - StringFmt( $-.Price , DisplayFormat, PreScaleConvertShow) ; test - - - 81 - 264 - Var( DirImage2 + "cold.png" ) - Var( DirImage2 + "cold_db.png" ) - "Invisible" - - - 115 - TextPriceMenuY - TextPriceMenuSize - 220 - KanitMediumTTF - 0x6F5F51 - 0xEAE6E1 - "Invisible" - StringFmt( $-.Price , DisplayFormat, PreScaleConvertShow) ; test - - - 146 - 264 - Var( DirImage2 + "blend.png" ) - Var( DirImage2 + "blend_db.png" ) - $12-03-03-0087.Button - - - 180 - TextPriceMenuY - TextPriceMenuSize - 220 - KanitRegularTTF - 0x6F5F51 - 0xEAE6E1 - $12-03-03-0087.Button - StringFmt( $12-03-03-0087.Price , DisplayFormat, PreScaleConvertShow) ; test - - - 81 - 264 - - eval( - If ICE_PROCESS_STATUS = 2 Then - - Var ice_tab_process_show = "Invisible" - - Else - Var ice_tab_process_show = "Invisible" - EndIf - Var return = ice_tab_process_show - ) - - "ROOT/taobin_project/image/drink_option/ice_tab_unavalible.png" - "ROOT/taobin_project/image/drink_option/ice_tab_unavalible_dis.png" - - - 49 - 117 - - eval( - If $Sum1203030087 = "Disable" Then - STRCONTAIN "ERR" $##-##-##-####.TAG tag1_is_disable - STRCONTAIN "ERR" $##-##-##-####.TAG tag2_is_disable - STRCONTAIN "ERR" $12-03-03-0087.TAG tag3_is_disable - Var return = "Invisible" - If tag1_is_disable = "true" Then - Var return = "Enable" - EndIf - If tag2_is_disable = "true" Then - Var return = "Enable" - EndIf - If tag3_is_disable = "true" Then - Var return = "Enable" - EndIf - Else - Var return = "Invisible" - EndIf - ) - - "ROOT/taobin_project/image//img_menu_err2.png" - - - 84 - 266 - 10 - OpunMediumTTF - 0xDE794E - ice_tab_process_show - ice_show_open - - - 48 - 116 - 32 - 128 - 64 - MITRegularTTF - 0x5A5A5A - "disable-show" - $Sum1203030087 - text_unavailable - center-vertical-horizontal - ; - - - ; ==================> Len = 15 diff --git a/xml/page_topping_select5.xml b/xml/page_topping_select5.xml index 65a3b2e1..3fa173ec 100644 --- a/xml/page_topping_select5.xml +++ b/xml/page_topping_select5.xml @@ -95,6 +95,25 @@ Open "ROOT/taobin_project/xml/page_topping_select8.xml" EndIf + Var ProductSodaCat = "12-05-02-0014,12-05-02-0015,12-05-02-0008,12-05-03-0008,12-05-02-0009,12-05-03-0009,12-05-02-0003,12-05-03-0003,12-05-02-0002,12-05-03-0002,12-05-02-0033,12-05-03-0033,12-05-02-0032,12-05-03-0032,12-05-02-0041,12-05-03-0041,12-05-02-0023,12-05-03-0023,12-05-02-0040,12-05-03-0040,12-05-02-0010,12-05-03-0010,12-05-02-0001,12-05-03-0001,12-05-02-0024,12-05-03-0024,12-05-02-0025,12-05-03-0025,12-05-02-0026,12-05-03-0026,12-05-02-0090,12-05-02-0104,12-05-03-0104,12-05-02-0094,12-05-03-0094,12-05-02-0104,12-05-02-0093,12-05-02-0106,12-05-02-0114,12-05-03-0114,12-05-02-0136,12-05-03-0136,12-05-02-0137,12-05-03-0137,12-05-02-0138,12-05-03-0138,12-05-02-0139,12-05-03-0139,12-05-02-0140,12-05-03-0140,12-05-02-0141,12-05-03-0141,12-05-02-0142,12-05-03-0142,12-05-02-0143,12-05-03-0143" + STRCONTAIN PD_CODE1 ProductSodaCat IsCatalogSoda + DEBUGVAR IsCatalogSoda + If IsCatalogSoda = "true" Then + Open "ROOT/taobin_project/xml/page_topping_select8.xml" + EndIf + + STRCONTAIN PD_CODE2 ProductSodaCat IsCatalogSoda + DEBUGVAR IsCatalogSoda + If IsCatalogSoda = "true" Then + Open "ROOT/taobin_project/xml/page_topping_select8.xml" + EndIf + + STRCONTAIN PD_CODE3 ProductSodaCat IsCatalogSoda + DEBUGVAR IsCatalogSoda + If IsCatalogSoda = "true" Then + Open "ROOT/taobin_project/xml/page_topping_select8.xml" + EndIf + EndIf