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

THAI INTER : Fix Page_catalog_group... multi not refresh langs, OpenfromPageboard not refresh langs

Browse source
This commit is contained in:
Ittipat Lusuk 2025-01-08 15:47:21 +07:00
parent 025ffd84af
commit 59f72b6add
8 changed files with 838 additions and 787 deletions
Download patch file Download diff file Expand all files Collapse all files

14
inter/tha/xml/multi/page_catalog.lxml
View file

@ -18,6 +18,20 @@
DEBUGVAR ToppingNewShow DEBUGVAR ToppingNewShow
DEBUGVAR OpenFromPageBoard
If OpenFromPageBoard = 1 Then
Var OpenFromPageBoard = 0
Var langnext1 = "true"
Var langnext2 = "true"
Var langnext3 = "true"
Var langnext4 = "true"
Var langnext5 = "true"
Var langnext6 = "true"
Var langnext7 = "true"
Var langnext8 = "true"
SAVELOG "======================================= RefreshAll Languages ================================"
EndIf
Var NextPage = "-" Var NextPage = "-"
Var Seeker.thankLidFlag = 0 Var Seeker.thankLidFlag = 0

519
inter/tha/xml/multi/page_catalog_group_coffee.lxml
View file

@ -1,255 +1,256 @@
<Popup> <Popup>
<Cache> "Enable" </Cache> <Cache> "Enable" </Cache>
<Width> 1080 </Width> <Width> 1080 </Width>
<Height> 1920 </Height> <Height> 1920 </Height>
;<Background> "0xeae6e1" </Background> ;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
; On open ; On open
If SlientRefreshIndex = 2 Then If SlientRefreshIndex = 2 Then
Var SlientRefreshIndex = 3 Var SlientRefreshIndex = 3
EndIf EndIf
</EventOpen> </EventOpen>
<EventOnShow> <EventOnShow>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
Var Menu2Selected = "PressForever" Var Menu2Selected = "PressForever"
;include="ROOT/taobin_project/inter/tha/xml/multi/tab_menu_show_and_refresh.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/tab_menu_show_and_refresh.lxml"
Var Timeout = 0 Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
DEBUGVAR SlientRefreshIndex DEBUGVAR SlientRefreshIndex
</EventOnShow> </EventOnShow>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;DEBUGVAR ICE_PROCESS_STATUS ;DEBUGVAR ICE_PROCESS_STATUS
If ICE_PROCESS_STATUS = 2 Then If ICE_PROCESS_STATUS = 2 Then
Var ice_tab_process_show = "Enable" Var ice_tab_process_show = "Enable"
Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT
Else Else
Var ice_tab_process_show = "Invisible" Var ice_tab_process_show = "Invisible"
EndIf EndIf
GetVisible inst_show2 GetVisible inst_show2
;DEBUGVAR inst_show2 ;DEBUGVAR inst_show2
If inst_show2 = 1 Then If inst_show2 = 1 Then
InstanceGetString SaveStringInst InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst ;DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile Open CurrentOpenFile
If show_eng = "true" Then If show_eng = "true" Then
InstanceSetString "ShowEng" InstanceSetString "ShowEng"
Else Else
InstanceSetString "ShowThai" InstanceSetString "ShowThai"
EndIf EndIf
EndIf EndIf
EndIf EndIf
; setvarint SlientRefreshEnable 1 ; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable ;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile Open CurrentOpenFile
If show_eng = "true" Then If show_eng = "true" Then
InstanceSetString "ShowEng" InstanceSetString "ShowEng"
Else Else
InstanceSetString "ShowThai" InstanceSetString "ShowThai"
EndIf EndIf
EndIf EndIf
EndIf EndIf
If SlientRefreshIndex = 2 Then If SlientRefreshIndex = 2 Then
If inst_show2 = 0 Then If inst_show2 = 0 Then
GetXMLFileNameCurrentRunning CurrentOpenFile2 GetXMLFileNameCurrentRunning CurrentOpenFile2
Open CurrentOpenFile2 Open CurrentOpenFile2
Else Else
Var SlientRefreshIndex = 3 Var SlientRefreshIndex = 3
EndIf EndIf
EndIf EndIf
If inst_show2 = 1 Then If inst_show2 = 1 Then
If langnext1 = "true" Then If langnext1 = "true" Then
Var langnext1 = "false" Var langnext1 = "false"
DEBUGVAR langnext DEBUGVAR langnext
EndIf RefreshAll
EndIf EndIf
EndIf
Var Inst5CountMenuEnable = 0
Var Inst5CountCurrentMenuEnable = 0 Var Inst5CountMenuEnable = 0
GetFrameScrollBlockCount Inst5CountCurrentMenuEnable Var Inst5CountCurrentMenuEnable = 0
GetCurrentEnableBlockCount Inst5CountMenuEnable GetFrameScrollBlockCount Inst5CountCurrentMenuEnable
GetCurrentEnableBlockCount Inst5CountMenuEnable
;DEBUGVAR Inst5CountMenuEnable
;DEBUGVAR Inst5CountMenuEnablePrev ;DEBUGVAR Inst5CountMenuEnable
;DEBUGVAR Inst5CountCurrentMenuEnable ;DEBUGVAR Inst5CountMenuEnablePrev
;DEBUGVAR Inst5CountCurrentMenuEnable
If Inst5CountMenuEnablePrev = "" Then
Var Inst5CountMenuEnablePrev = Inst5CountMenuEnable If Inst5CountMenuEnablePrev = "" Then
Var Inst5CountDownForOpenXML = 0 Var Inst5CountMenuEnablePrev = Inst5CountMenuEnable
Var Inst5CountDownOpenXMLFromMenuZero = 20 Var Inst5CountDownForOpenXML = 0
EndIf Var Inst5CountDownOpenXMLFromMenuZero = 20
EndIf
If Inst5CountMenuEnable = Inst5CountMenuEnablePrev Then
If Inst5CountMenuEnable = Inst5CountMenuEnablePrev Then
Else
SAVELOG "Inst5 Refresh ===================================================================== Refresh" Else
Var Inst5CountDownForOpenXML = 10 SAVELOG "Inst5 Refresh ===================================================================== Refresh"
Var Inst5CountMenuEnablePrev = CountMenuEnable Var Inst5CountDownForOpenXML = 10
EndIf Var Inst5CountMenuEnablePrev = CountMenuEnable
EndIf
If Inst5CountMenuEnable = Inst5CountCurrentMenuEnable Then
If Inst5CountMenuEnable = Inst5CountCurrentMenuEnable Then
Else
If Inst5CountDownForOpenXML = 0 Then Else
SAVELOG "Inst5 Refresh =======================Inst5CountMenuEnable / Inst5CountCurrentMenuEnable ============================================== Refresh" If Inst5CountDownForOpenXML = 0 Then
Var Inst5CountDownForOpenXML = 10 SAVELOG "Inst5 Refresh =======================Inst5CountMenuEnable / Inst5CountCurrentMenuEnable ============================================== Refresh"
EndIf Var Inst5CountDownForOpenXML = 10
EndIf EndIf
EndIf
If Inst5CountCurrentMenuEnable = 0 Then
If Inst5CountCurrentMenuEnable = 0 Then
DEBUGVAR Inst5CountDownOpenXMLFromMenuZero
DEBUGVAR Inst5CountDownOpenXMLFromMenuZero
If Inst5CountDownOpenXMLFromMenuZero > 0 Then
Var Inst5CountDownOpenXMLFromMenuZero = Inst5CountDownOpenXMLFromMenuZero - 1 If Inst5CountDownOpenXMLFromMenuZero > 0 Then
If Inst5CountDownOpenXMLFromMenuZero = 0 Then Var Inst5CountDownOpenXMLFromMenuZero = Inst5CountDownOpenXMLFromMenuZero - 1
Var Inst5CountDownOpenXMLFromMenuZero = 20 If Inst5CountDownOpenXMLFromMenuZero = 0 Then
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_coffee.lxml" Var Inst5CountDownOpenXMLFromMenuZero = 20
EndIf Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_coffee.lxml"
EndIf EndIf
EndIf EndIf
EndIf
If Inst5CountMenuEnable = Inst5CountCurrentMenuEnable Then
If Inst5CountCurrentMenuEnable > 0 Then If Inst5CountMenuEnable = Inst5CountCurrentMenuEnable Then
Var Inst5MenuLoaded = "done" If Inst5CountCurrentMenuEnable > 0 Then
EndIf Var Inst5MenuLoaded = "done"
EndIf EndIf
EndIf
If Inst5CountDownForOpenXML > 0 Then
Var Inst5CountDownForOpenXML = Inst5CountDownForOpenXML - 1 If Inst5CountDownForOpenXML > 0 Then
DEBUGVAR Inst5CountDownForOpenXML Var Inst5CountDownForOpenXML = Inst5CountDownForOpenXML - 1
If Inst5CountDownForOpenXML = 0 Then DEBUGVAR Inst5CountDownForOpenXML
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_coffee.lxml" If Inst5CountDownForOpenXML = 0 Then
EndIf Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_coffee.lxml"
InstanceGetString SaveStringInst EndIf
If SaveStringInst = "RefreshNow" Then InstanceGetString SaveStringInst
If SaveStringInst = "RefreshNow" Then
Else
If LanguageShow = "ENG" Then Else
Var SaveStringInst = "ShowEng" If LanguageShow = "ENG" Then
Var show_eng = "false" Var SaveStringInst = "ShowEng"
EndIf Var show_eng = "false"
If LanguageShow = "THAI" Then EndIf
Var SaveStringInst = "ShowThai" If LanguageShow = "THAI" Then
Var show_eng = "true" Var SaveStringInst = "ShowThai"
EndIf Var show_eng = "true"
If LanguageShow = "MYANMAR" Then EndIf
Var show_eng = "false" If LanguageShow = "MYANMAR" Then
Var SaveStringInst = "ShowMYANMAR" Var show_eng = "false"
EndIf Var SaveStringInst = "ShowMYANMAR"
EndIf EndIf
EndIf EndIf
EndIf
TimerReset
</EventTimeout> TimerReset
</EventTimeout>
<EventOnShow>
InstanceGetString SaveStringInst <EventOnShow>
DEBUGVAR SaveStringInst InstanceGetString SaveStringInst
DEBUGVAR show_eng DEBUGVAR SaveStringInst
DEBUGVAR show_eng
Var ButtonLanguageCurrentXPosition = 1005
Var ButtonLanguageCurrentYPosition = 458 - 38 Var ButtonLanguageCurrentXPosition = 1005
Var ButtonLanguageCurrentYPosition = 458 - 38
Var ButtonLanguageListXPosition = 970
Var ButtonLanguageListYPosition = 450 - 38 Var ButtonLanguageListXPosition = 970
Var ButtonLanguageListYPosition = 450 - 38
DEBUGVAR EnabledBlockUpdateInst6
DEBUGVAR EnabledBlocksDrawInst6 DEBUGVAR EnabledBlockUpdateInst6
DEBUGVAR EnabledBlocksDrawInst6
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile If SaveStringInst = "RefreshNow" Then
Open CurrentOpenFile GetXMLFileNameCurrentRunning CurrentOpenFile
EndIf Open CurrentOpenFile
DEBUGVAR LanguageShow EndIf
DEBUGVAR LanguageShow
If SaveStringInst = "ShowThai" Then
If LanguageShow = "THAI" Then If SaveStringInst = "ShowThai" Then
If LanguageShow = "THAI" Then
Else
Var show_eng = "true" Else
InstanceSetString "ShowMYANMAR" Var show_eng = "true"
GetXMLFileNameCurrentRunning CurrentOpenFile InstanceSetString "ShowMYANMAR"
Open CurrentOpenFile GetXMLFileNameCurrentRunning CurrentOpenFile
EndIf Open CurrentOpenFile
EndIf EndIf
EndIf
If SaveStringInst = "ShowMYANMAR" Then
If LanguageShow = "MYANMAR" Then If SaveStringInst = "ShowMYANMAR" Then
If LanguageShow = "MYANMAR" Then
Else
Var show_eng = "false" Else
InstanceSetString "ShowEng" Var show_eng = "false"
GetXMLFileNameCurrentRunning CurrentOpenFile InstanceSetString "ShowEng"
Open CurrentOpenFile GetXMLFileNameCurrentRunning CurrentOpenFile
EndIf Open CurrentOpenFile
EndIf EndIf
EndIf
If SaveStringInst = "ShowEng" Then
If LanguageShow = "ENG" Then If SaveStringInst = "ShowEng" Then
If LanguageShow = "ENG" Then
Else
Var show_eng = "false" Else
InstanceSetString "ShowThai" Var show_eng = "false"
GetXMLFileNameCurrentRunning CurrentOpenFile InstanceSetString "ShowThai"
Open CurrentOpenFile GetXMLFileNameCurrentRunning CurrentOpenFile
EndIf Open CurrentOpenFile
EndIf EndIf
EndIf
</EventOnShow>
</EventOnShow>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<FrameScroll> <FrameScroll>
<X> 10 </X> <X> 10 </X>
<Y> 497 </Y> <Y> 497 </Y>
@ -30472,10 +30473,10 @@
Open "ROOT/taobin_project/xml/page_payment_multi.xml" Open "ROOT/taobin_project/xml/page_payment_multi.xml"
</EventClick> </EventClick>
</Button> </Button>
</Popup> </Popup>

1
inter/tha/xml/multi/page_catalog_group_coffee.skt
View file

@ -101,6 +101,7 @@
If langnext1 = "true" Then If langnext1 = "true" Then
Var langnext1 = "false" Var langnext1 = "false"
DEBUGVAR langnext DEBUGVAR langnext
RefreshAll
EndIf EndIf
EndIf EndIf

479
inter/tha/xml/multi/page_catalog_group_other_other.lxml
View file

@ -1,232 +1,243 @@
<Popup> <Popup>
<Cache> "Enable" </Cache> <Cache> "Enable" </Cache>
<Width> 1080 </Width> <Width> 1080 </Width>
<Height> 1920 </Height> <Height> 1920 </Height>
;<Background> "0xeae6e1" </Background> ;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
DEBUGVAR SlientRefreshIndex DEBUGVAR SlientRefreshIndex
If SlientRefreshIndex = 7 Then If SlientRefreshIndex = 7 Then
Var SlientRefreshIndex = 8 Var SlientRefreshIndex = 8
EndIf EndIf
</EventOpen> </EventOpen>
<EventOnShow> <EventOnShow>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
; soda and other ; soda and other
Var Menu62Selected = "PressForever" Var Menu62Selected = "PressForever"
RootLayoutVisible 12 "show" RootLayoutVisible 12 "show"
Var Timeout = 0 Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/tab_menu_show_and_refresh.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/tab_menu_show_and_refresh.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
DEBUGVAR SlientRefreshIndex DEBUGVAR SlientRefreshIndex
</EventOnShow> </EventOnShow>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;DEBUGVAR ICE_PROCESS_STATUS ;DEBUGVAR ICE_PROCESS_STATUS
If ICE_PROCESS_STATUS = 2 Then If ICE_PROCESS_STATUS = 2 Then
Var ice_tab_process_show = "Enable" Var ice_tab_process_show = "Enable"
Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT
Else Else
Var ice_tab_process_show = "Invisible" Var ice_tab_process_show = "Invisible"
EndIf EndIf
GetVisible inst_show GetVisible inst_show7
;DEBUGVAR inst_show ;DEBUGVAR inst_show7
InstanceGetString SaveStringInst InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst ;DEBUGVAR SaveStringInst
If inst_show = 1 Then If inst_show7 = 1 Then
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile Open CurrentOpenFile
If show_eng = "true" Then If show_eng = "true" Then
InstanceSetString "ShowEng" InstanceSetString "ShowEng"
Else Else
InstanceSetString "ShowThai" InstanceSetString "ShowThai"
EndIf EndIf
EndIf EndIf
EndIf EndIf
; setvarint SlientRefreshEnable 1 ; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable ;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile Open CurrentOpenFile
If show_eng = "true" Then If show_eng = "true" Then
InstanceSetString "ShowEng" InstanceSetString "ShowEng"
Else Else
InstanceSetString "ShowThai" InstanceSetString "ShowThai"
EndIf EndIf
EndIf EndIf
EndIf EndIf
If SlientRefreshIndex = 7 Then If SlientRefreshIndex = 7 Then
If inst_show9 = 0 Then If inst_show7 = 0 Then
GetXMLFileNameCurrentRunning CurrentOpenFile5 GetXMLFileNameCurrentRunning CurrentOpenFile7
Open CurrentOpenFile5 Open CurrentOpenFile7
Else Else
Var SlientRefreshIndex = 8 Var SlientRefreshIndex = 8
EndIf EndIf
EndIf EndIf
If inst_show7 = 1 Then
Var Inst11CountMenuEnable = 0 If langnext6 = "true" Then
Var Inst11CountCurrentMenuEnable = 0 Var langnext6 = "false"
GetFrameScrollBlockCount Inst11CountCurrentMenuEnable DEBUGVAR langnext
GetCurrentEnableBlockCount Inst11CountMenuEnable ;GetXMLFileNameCurrentRunning CurrentOpenFile
DEBUGVAR CurrentOpenFile4
;DEBUGVAR Inst11CountMenuEnable Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_other_other.lxml"
;DEBUGVAR Inst11CountMenuEnablePrev RefreshAll
;DEBUGVAR Inst11CountCurrentMenuEnable EndIf
EndIf
If Inst11CountMenuEnablePrev = "" Then
Var Inst11CountMenuEnablePrev = Inst11CountMenuEnable
Var Inst11CountDownForOpenXML = 0 Var Inst11CountMenuEnable = 0
Var Inst11CountDownOpenXMLFromMenuZero = 20 Var Inst11CountCurrentMenuEnable = 0
EndIf GetFrameScrollBlockCount Inst11CountCurrentMenuEnable
GetCurrentEnableBlockCount Inst11CountMenuEnable
If Inst11CountMenuEnable = Inst11CountMenuEnablePrev Then
;DEBUGVAR Inst11CountMenuEnable
Else ;DEBUGVAR Inst11CountMenuEnablePrev
SAVELOG "Inst11 Refresh ===================================================================== Refresh" ;DEBUGVAR Inst11CountCurrentMenuEnable
Var Inst11CountDownForOpenXML = 10
Var Inst11CountMenuEnablePrev = CountMenuEnable If Inst11CountMenuEnablePrev = "" Then
EndIf Var Inst11CountMenuEnablePrev = Inst11CountMenuEnable
Var Inst11CountDownForOpenXML = 0
If Inst11CountMenuEnable = Inst11CountCurrentMenuEnable Then Var Inst11CountDownOpenXMLFromMenuZero = 20
EndIf
Else
If Inst11CountDownForOpenXML = 0 Then If Inst11CountMenuEnable = Inst11CountMenuEnablePrev Then
SAVELOG "Inst11 Refresh =======================Inst11CountMenuEnable / Inst11CountCurrentMenuEnable ============================================== Refresh"
Var Inst11CountDownForOpenXML = 10 Else
EndIf SAVELOG "Inst11 Refresh ===================================================================== Refresh"
EndIf Var Inst11CountDownForOpenXML = 10
Var Inst11CountMenuEnablePrev = CountMenuEnable
If Inst11CountCurrentMenuEnable = 0 Then EndIf
DEBUGVAR Inst11CountDownOpenXMLFromMenuZero If Inst11CountMenuEnable = Inst11CountCurrentMenuEnable Then
If Inst11CountDownOpenXMLFromMenuZero > 0 Then Else
Var Inst11CountDownOpenXMLFromMenuZero = Inst11CountDownOpenXMLFromMenuZero - 1 If Inst11CountDownForOpenXML = 0 Then
If Inst11CountDownOpenXMLFromMenuZero = 0 Then SAVELOG "Inst11 Refresh =======================Inst11CountMenuEnable / Inst11CountCurrentMenuEnable ============================================== Refresh"
Var Inst11CountDownOpenXMLFromMenuZero = 20 Var Inst11CountDownForOpenXML = 10
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_other_other.lxml" EndIf
EndIf EndIf
EndIf
EndIf If Inst11CountCurrentMenuEnable = 0 Then
DEBUGVAR Inst11CountDownOpenXMLFromMenuZero
If Inst11CountMenuEnable = Inst11CountCurrentMenuEnable Then
If Inst11CountCurrentMenuEnable > 0 Then If Inst11CountDownOpenXMLFromMenuZero > 0 Then
Var Inst11MenuLoaded = "done" Var Inst11CountDownOpenXMLFromMenuZero = Inst11CountDownOpenXMLFromMenuZero - 1
EndIf If Inst11CountDownOpenXMLFromMenuZero = 0 Then
EndIf Var Inst11CountDownOpenXMLFromMenuZero = 20
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_other_other.lxml"
If Inst11CountDownForOpenXML > 0 Then EndIf
Var Inst11CountDownForOpenXML = Inst11CountDownForOpenXML - 1 EndIf
DEBUGVAR Inst11CountDownForOpenXML EndIf
If Inst11CountDownForOpenXML = 0 Then
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_other_other.lxml"
EndIf If Inst11CountMenuEnable = Inst11CountCurrentMenuEnable Then
EndIf If Inst11CountCurrentMenuEnable > 0 Then
Var Inst11MenuLoaded = "done"
EndIf
EndIf
TimerReset
</EventTimeout> If Inst11CountDownForOpenXML > 0 Then
Var Inst11CountDownForOpenXML = Inst11CountDownForOpenXML - 1
DEBUGVAR Inst11CountDownForOpenXML
<EventOnShow> If Inst11CountDownForOpenXML = 0 Then
InstanceGetString SaveStringInst Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_other_other.lxml"
DEBUGVAR SaveStringInst EndIf
DEBUGVAR show_eng EndIf
Var ButtonLanguageCurrentXPosition = 1005
Var ButtonLanguageCurrentYPosition = 458 - 38 TimerReset
</EventTimeout>
Var ButtonLanguageListXPosition = 970
Var ButtonLanguageListYPosition = 450 - 38
<EventOnShow>
InstanceGetString SaveStringInst
DEBUGVAR SaveStringInst
DEBUGVAR show_eng
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile Var ButtonLanguageCurrentXPosition = 1005
Var ButtonLanguageCurrentYPosition = 458 - 38
EndIf
DEBUGVAR LanguageShow Var ButtonLanguageListXPosition = 970
Var ButtonLanguageListYPosition = 450 - 38
If SaveStringInst = "ShowThai" Then
If LanguageShow = "THAI" Then
Else If SaveStringInst = "RefreshNow" Then
Var show_eng = "true" GetXMLFileNameCurrentRunning CurrentOpenFile
InstanceSetString "ShowMYANMAR" Open CurrentOpenFile
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile EndIf
EndIf DEBUGVAR LanguageShow
EndIf
If SaveStringInst = "ShowMYANMAR" Then If SaveStringInst = "ShowThai" Then
If LanguageShow = "MYANMAR" Then If LanguageShow = "THAI" Then
Else Else
Var show_eng = "false" Var show_eng = "true"
InstanceSetString "ShowEng" InstanceSetString "ShowMYANMAR"
GetXMLFileNameCurrentRunning CurrentOpenFile GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile Open CurrentOpenFile
EndIf EndIf
EndIf EndIf
If SaveStringInst = "ShowEng" Then If SaveStringInst = "ShowMYANMAR" Then
If LanguageShow = "ENG" Then If LanguageShow = "MYANMAR" Then
Else Else
Var show_eng = "false" Var show_eng = "false"
InstanceSetString "ShowThai" InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile Open CurrentOpenFile
EndIf EndIf
EndIf EndIf
If SaveStringInst = "ShowEng" Then
If LanguageShow = "ENG" Then
</EventOnShow> Else
Var show_eng = "false"
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml" InstanceSetString "ShowThai"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
</EventOnShow>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<FrameScroll> <FrameScroll>
<X> 10 </X> <X> 10 </X>
<Y> 497 </Y> <Y> 497 </Y>
@ -14322,8 +14333,8 @@
Open "ROOT/taobin_project/xml/page_payment_multi.xml" Open "ROOT/taobin_project/xml/page_payment_multi.xml"
</EventClick> </EventClick>
</Button> </Button>
</Popup> </Popup>

23
inter/tha/xml/multi/page_catalog_group_other_other.skt
View file

@ -51,13 +51,13 @@
GetVisible inst_show GetVisible inst_show7
;DEBUGVAR inst_show ;DEBUGVAR inst_show7
InstanceGetString SaveStringInst InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst ;DEBUGVAR SaveStringInst
If inst_show = 1 Then If inst_show7 = 1 Then
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile Open CurrentOpenFile
@ -89,13 +89,24 @@
EndIf EndIf
If SlientRefreshIndex = 7 Then If SlientRefreshIndex = 7 Then
If inst_show9 = 0 Then If inst_show7 = 0 Then
GetXMLFileNameCurrentRunning CurrentOpenFile5 GetXMLFileNameCurrentRunning CurrentOpenFile7
Open CurrentOpenFile5 Open CurrentOpenFile7
Else Else
Var SlientRefreshIndex = 8 Var SlientRefreshIndex = 8
EndIf EndIf
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_other.lxml"
RefreshAll
EndIf
EndIf
Var Inst11CountMenuEnable = 0 Var Inst11CountMenuEnable = 0

560
inter/tha/xml/multi/page_catalog_group_whey.lxml
View file

@ -1,275 +1,281 @@
<Popup> <Popup>
<Cache> "Enable" </Cache> <Cache> "Enable" </Cache>
<Width> 1080 </Width> <Width> 1080 </Width>
<Height> 1920 </Height> <Height> 1920 </Height>
;<Background> "0xeae6e1" </Background> ;<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventOpen> <EventOpen>
DEBUGVAR SlientRefreshIndex DEBUGVAR SlientRefreshIndex
If SlientRefreshIndex = 5 Then If SlientRefreshIndex = 5 Then
Var SlientRefreshIndex = 6 Var SlientRefreshIndex = 6
EndIf EndIf
</EventOpen> </EventOpen>
<EventOnShow> <EventOnShow>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_default_init.lxml"
If AppFastEnable = "true" Then If AppFastEnable = "true" Then
Var Menu11Selected = "PressForever" Var Menu11Selected = "PressForever"
Var Menu7Selected = "Invisible" Var Menu7Selected = "Invisible"
Else Else
Var Menu11Selected = "Invisible" Var Menu11Selected = "Invisible"
Var Menu7Selected = "PressForever" Var Menu7Selected = "PressForever"
EndIf EndIf
RootLayoutVisible 12 "show" RootLayoutVisible 12 "show"
Var Timeout = 0 Var Timeout = 0
;include="ROOT/taobin_project/inter/tha/xml/multi/tab_menu_show_and_refresh.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/tab_menu_show_and_refresh.lxml"
SetInstanceIgnoreTouch SetInstanceIgnoreTouch
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml" ;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new_menu.lxml"
DEBUGVAR SlientRefreshIndex DEBUGVAR SlientRefreshIndex
</EventOnShow> </EventOnShow>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
;DEBUGVAR ICE_PROCESS_STATUS ;DEBUGVAR ICE_PROCESS_STATUS
If ICE_PROCESS_STATUS = 2 Then If ICE_PROCESS_STATUS = 2 Then
Var ice_tab_process_show = "Enable" Var ice_tab_process_show = "Enable"
Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT
Else Else
Var ice_tab_process_show = "Invisible" Var ice_tab_process_show = "Invisible"
EndIf EndIf
GetVisible inst_show8 GetVisible inst_show5
;DEBUGVAR inst_show8 ;DEBUGVAR inst_show5
InstanceGetString SaveStringInst InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst ;DEBUGVAR SaveStringInst
If inst_show8 = 1 Then If inst_show5 = 1 Then
InstanceGetString SaveStringInst InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst ;DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile Open CurrentOpenFile
If show_eng = "true" Then If show_eng = "true" Then
InstanceSetString "ShowEng" InstanceSetString "ShowEng"
Else Else
InstanceSetString "ShowThai" InstanceSetString "ShowThai"
EndIf EndIf
EndIf EndIf
EndIf EndIf
; setvarint SlientRefreshEnable 1 ; setvarint SlientRefreshEnable 1
;DEBUGVAR SlientRefreshEnable ;DEBUGVAR SlientRefreshEnable
If SlientRefreshEnable = 1 Then If SlientRefreshEnable = 1 Then
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile Open CurrentOpenFile
If show_eng = "true" Then If show_eng = "true" Then
InstanceSetString "ShowEng" InstanceSetString "ShowEng"
Else Else
InstanceSetString "ShowThai" InstanceSetString "ShowThai"
EndIf EndIf
EndIf EndIf
EndIf EndIf
If SlientRefreshIndex = 5 Then If SlientRefreshIndex = 5 Then
If inst_show8 = 0 Then If inst_show5 = 0 Then
GetXMLFileNameCurrentRunning CurrentOpenFile8 GetXMLFileNameCurrentRunning CurrentOpenFile5
Open CurrentOpenFile8 Open CurrentOpenFile5
Else Else
Var SlientRefreshIndex = 6 Var SlientRefreshIndex = 6
EndIf EndIf
EndIf EndIf
If inst_show8 = 1 Then If inst_show5 = 1 Then
If langnext7 = "true" Then If langnext7 = "true" Then
Var langnext7 = "false" Var langnext7 = "false"
DEBUGVAR langnext DEBUGVAR langnext
RefreshAll RefreshAll
EndIf EndIf
InstanceGetString SaveStringInst InstanceGetString SaveStringInst
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then
Else Else
If LanguageShow = "ENG" Then If LanguageShow = "ENG" Then
Var SaveStringInst = "ShowEng" Var SaveStringInst = "ShowEng"
Var show_eng = "false" Var show_eng = "false"
EndIf EndIf
If LanguageShow = "THAI" Then If LanguageShow = "THAI" Then
Var SaveStringInst = "ShowThai" Var SaveStringInst = "ShowThai"
Var show_eng = "true" Var show_eng = "true"
EndIf EndIf
If LanguageShow = "MYANMAR" Then If LanguageShow = "MYANMAR" Then
Var show_eng = "false" Var show_eng = "false"
Var SaveStringInst = "ShowMYANMAR" Var SaveStringInst = "ShowMYANMAR"
EndIf EndIf
EndIf EndIf
EndIf EndIf
Var Inst8CountMenuEnable = 0 Var Inst8CountMenuEnable = 0
Var Inst8CountCurrentMenuEnable = 0 Var Inst8CountCurrentMenuEnable = 0
GetFrameScrollBlockCount Inst8CountCurrentMenuEnable GetFrameScrollBlockCount Inst8CountCurrentMenuEnable
GetCurrentEnableBlockCount Inst8CountMenuEnable GetCurrentEnableBlockCount Inst8CountMenuEnable
;DEBUGVAR Inst8CountMenuEnable ;DEBUGVAR Inst8CountMenuEnable
;DEBUGVAR Inst8CountMenuEnablePrev ;DEBUGVAR Inst8CountMenuEnablePrev
;DEBUGVAR Inst8CountCurrentMenuEnable ;DEBUGVAR Inst8CountCurrentMenuEnable
If Inst8CountMenuEnablePrev = "" Then If Inst8CountMenuEnablePrev = "" Then
Var Inst8CountMenuEnablePrev = Inst8CountMenuEnable Var Inst8CountMenuEnablePrev = Inst8CountMenuEnable
Var Inst8CountDownForOpenXML = 0 Var Inst8CountDownForOpenXML = 0
Var Inst8CountDownOpenXMLFromMenuZero = 20 Var Inst8CountDownOpenXMLFromMenuZero = 20
EndIf EndIf
If Inst8CountMenuEnablePrev = "" Then If Inst8CountMenuEnablePrev = "" Then
Var Inst8CountMenuEnablePrev = Inst8CountMenuEnable Var Inst8CountMenuEnablePrev = Inst8CountMenuEnable
Var Inst8CountDownForOpenXML = 0 Var Inst8CountDownForOpenXML = 0
Var Inst8CountDownOpenXMLFromMenuZero = 20 Var Inst8CountDownOpenXMLFromMenuZero = 20
EndIf EndIf
If Inst8CountMenuEnable = Inst8CountMenuEnablePrev Then If Inst8CountMenuEnable = Inst8CountMenuEnablePrev Then
Else Else
SAVELOG "Inst8 Refresh ===================================================================== Refresh" SAVELOG "Inst8 Refresh ===================================================================== Refresh"
Var Inst8CountDownForOpenXML = 10 Var Inst8CountDownForOpenXML = 10
Var Inst8CountMenuEnablePrev = CountMenuEnable Var Inst8CountMenuEnablePrev = CountMenuEnable
EndIf EndIf
If Inst6CountMenuEnable = Inst6CountCurrentMenuEnable Then If Inst8CountMenuEnable = Inst8CountCurrentMenuEnable Then
Else Else
If Inst6CountDownForOpenXML = 0 Then If Inst8CountDownForOpenXML = 0 Then
SAVELOG "Inst6 Refresh =======================Inst6CountMenuEnable / Inst6CountCurrentMenuEnable ============================================== Refresh" SAVELOG "Inst8 Refresh =======================Inst8CountMenuEnable / Inst8CountCurrentMenuEnable ============================================== Refresh"
Var Inst6CountDownForOpenXML = 10 Var Inst8CountDownForOpenXML = 10
EndIf EndIf
EndIf EndIf
If Inst8CountCurrentMenuEnable = 0 Then If Inst8CountCurrentMenuEnable = 0 Then
DEBUGVAR Inst8CountDownOpenXMLFromMenuZero DEBUGVAR Inst8CountDownOpenXMLFromMenuZero
If Inst8CountDownOpenXMLFromMenuZero > 0 Then If Inst8CountDownOpenXMLFromMenuZero > 0 Then
Var Inst8CountDownOpenXMLFromMenuZero = Inst8CountDownOpenXMLFromMenuZero - 1 Var Inst8CountDownOpenXMLFromMenuZero = Inst8CountDownOpenXMLFromMenuZero - 1
If Inst8CountDownOpenXMLFromMenuZero = 0 Then If Inst8CountDownOpenXMLFromMenuZero = 0 Then
Var Inst8CountDownOpenXMLFromMenuZero = 20 Var Inst8CountDownOpenXMLFromMenuZero = 20
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_whey.lxml" Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_whey.lxml"
EndIf EndIf
EndIf EndIf
EndIf EndIf
If Inst8CountDownForOpenXML > 0 Then If Inst8CountMenuEnable = Inst8CountCurrentMenuEnable Then
Var Inst8CountDownForOpenXML = Inst8CountDownForOpenXML - 1 If Inst8CountCurrentMenuEnable > 0 Then
DEBUGVAR Inst8CountDownForOpenXML Var Inst8MenuLoaded = "done"
If Inst8CountDownForOpenXML = 0 Then EndIf
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_whey.lxml" EndIf
EndIf
EndIf If Inst8CountDownForOpenXML > 0 Then
Var Inst8CountDownForOpenXML = Inst8CountDownForOpenXML - 1
DEBUGVAR Inst8CountDownForOpenXML
If Inst8CountDownForOpenXML = 0 Then
TimerReset Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_whey.lxml"
</EventTimeout> EndIf
EndIf
<EventOnShow>
InstanceGetString SaveStringInst
DEBUGVAR SaveStringInst
DEBUGVAR show_eng TimerReset
</EventTimeout>
Var ButtonLanguageCurrentXPosition = 1005 <EventOnShow>
Var ButtonLanguageCurrentYPosition = 458 - 38 InstanceGetString SaveStringInst
DEBUGVAR SaveStringInst
Var ButtonLanguageListXPosition = 970 DEBUGVAR show_eng
Var ButtonLanguageListYPosition = 450 - 38
DEBUGVAR EnabledBlockUpdateInst6 Var ButtonLanguageCurrentXPosition = 1005
DEBUGVAR EnabledBlocksDrawInst6 Var ButtonLanguageCurrentYPosition = 458 - 38
Var ButtonLanguageListXPosition = 970
If SaveStringInst = "RefreshNow" Then Var ButtonLanguageListYPosition = 450 - 38
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile DEBUGVAR EnabledBlockUpdateInst6
Else DEBUGVAR EnabledBlocksDrawInst6
If EnabledBlocksDrawInst6 = EnabledBlockUpdateInst6 Then
Var StatusRefresh = "NoRefresh"
DEBUGVAR StatusRefresh If SaveStringInst = "RefreshNow" Then
Else GetXMLFileNameCurrentRunning CurrentOpenFile
Var StatusRefresh = "Refresh" Open CurrentOpenFile
DEBUGVAR StatusRefresh Else
GetXMLFileNameCurrentRunning CurrentOpenFile2 If EnabledBlocksDrawInst6 = EnabledBlockUpdateInst6 Then
Open CurrentOpenFile2 Var StatusRefresh = "NoRefresh"
EndIf DEBUGVAR StatusRefresh
Else
EndIf Var StatusRefresh = "Refresh"
DEBUGVAR LanguageShow DEBUGVAR StatusRefresh
GetXMLFileNameCurrentRunning CurrentOpenFile2
Open CurrentOpenFile2
If SaveStringInst = "ShowThai" Then EndIf
If LanguageShow = "THAI" Then
EndIf
Else DEBUGVAR LanguageShow
Var show_eng = "true"
InstanceSetString "ShowMYANMAR"
GetXMLFileNameCurrentRunning CurrentOpenFile If SaveStringInst = "ShowThai" Then
Open CurrentOpenFile If LanguageShow = "THAI" Then
EndIf
EndIf Else
Var show_eng = "true"
If SaveStringInst = "ShowMYANMAR" Then InstanceSetString "ShowMYANMAR"
If LanguageShow = "MYANMAR" Then GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
Else EndIf
Var show_eng = "false" EndIf
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile If SaveStringInst = "ShowMYANMAR" Then
Open CurrentOpenFile If LanguageShow = "MYANMAR" Then
EndIf
EndIf Else
Var show_eng = "false"
If SaveStringInst = "ShowEng" Then InstanceSetString "ShowEng"
If LanguageShow = "ENG" Then GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
Else EndIf
Var show_eng = "false" EndIf
InstanceSetString "ShowThai"
GetXMLFileNameCurrentRunning CurrentOpenFile If SaveStringInst = "ShowEng" Then
Open CurrentOpenFile If LanguageShow = "ENG" Then
EndIf
EndIf Else
Var show_eng = "false"
InstanceSetString "ShowThai"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
</EventOnShow> EndIf
EndIf
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
</EventOnShow>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"
<FrameScroll> <FrameScroll>
<X> 10 </X> <X> 10 </X>
<Y> 497 </Y> <Y> 497 </Y>
@ -5080,8 +5086,8 @@
Open "ROOT/taobin_project/xml/page_payment_multi.xml" Open "ROOT/taobin_project/xml/page_payment_multi.xml"
</EventClick> </EventClick>
</Button> </Button>
</Popup> </Popup>

28
inter/tha/xml/multi/page_catalog_group_whey.skt
View file

@ -56,13 +56,13 @@
GetVisible inst_show8 GetVisible inst_show5
;DEBUGVAR inst_show8 ;DEBUGVAR inst_show5
InstanceGetString SaveStringInst InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst ;DEBUGVAR SaveStringInst
If inst_show8 = 1 Then If inst_show5 = 1 Then
InstanceGetString SaveStringInst InstanceGetString SaveStringInst
;DEBUGVAR SaveStringInst ;DEBUGVAR SaveStringInst
If SaveStringInst = "RefreshNow" Then If SaveStringInst = "RefreshNow" Then
@ -97,15 +97,15 @@
If SlientRefreshIndex = 5 Then If SlientRefreshIndex = 5 Then
If inst_show8 = 0 Then If inst_show5 = 0 Then
GetXMLFileNameCurrentRunning CurrentOpenFile8 GetXMLFileNameCurrentRunning CurrentOpenFile5
Open CurrentOpenFile8 Open CurrentOpenFile5
Else Else
Var SlientRefreshIndex = 6 Var SlientRefreshIndex = 6
EndIf EndIf
EndIf EndIf
If inst_show8 = 1 Then If inst_show5 = 1 Then
If langnext7 = "true" Then If langnext7 = "true" Then
Var langnext7 = "false" Var langnext7 = "false"
DEBUGVAR langnext DEBUGVAR langnext
@ -161,12 +161,12 @@
Var Inst8CountMenuEnablePrev = CountMenuEnable Var Inst8CountMenuEnablePrev = CountMenuEnable
EndIf EndIf
If Inst6CountMenuEnable = Inst6CountCurrentMenuEnable Then If Inst8CountMenuEnable = Inst8CountCurrentMenuEnable Then
Else Else
If Inst6CountDownForOpenXML = 0 Then If Inst8CountDownForOpenXML = 0 Then
SAVELOG "Inst6 Refresh =======================Inst6CountMenuEnable / Inst6CountCurrentMenuEnable ============================================== Refresh" SAVELOG "Inst8 Refresh =======================Inst8CountMenuEnable / Inst8CountCurrentMenuEnable ============================================== Refresh"
Var Inst6CountDownForOpenXML = 10 Var Inst8CountDownForOpenXML = 10
EndIf EndIf
EndIf EndIf
@ -183,6 +183,12 @@
EndIf EndIf
EndIf EndIf
If Inst8CountMenuEnable = Inst8CountCurrentMenuEnable Then
If Inst8CountCurrentMenuEnable > 0 Then
Var Inst8MenuLoaded = "done"
EndIf
EndIf
If Inst8CountDownForOpenXML > 0 Then If Inst8CountDownForOpenXML > 0 Then
Var Inst8CountDownForOpenXML = Inst8CountDownForOpenXML - 1 Var Inst8CountDownForOpenXML = Inst8CountDownForOpenXML - 1
DEBUGVAR Inst8CountDownForOpenXML DEBUGVAR Inst8CountDownForOpenXML

1
xml/page_catalog.lxml
View file

@ -14,6 +14,7 @@
If CountryName = "Thailand" Then If CountryName = "Thailand" Then
If InternationalEnable = 1 Then If InternationalEnable = 1 Then
If EnableMultiInstance = "true" Then If EnableMultiInstance = "true" Then
Var OpenFromPageBoard = 1
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml" OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml"
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/page_catalog.lxml" OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/page_catalog.lxml"
EndIf EndIf