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

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

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

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

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

@ -48,13 +48,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
@ -86,14 +86,25 @@
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
Var Inst11CountCurrentMenuEnable = 0 Var Inst11CountCurrentMenuEnable = 0

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,14 +89,25 @@
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
Var Inst11CountCurrentMenuEnable = 0 Var Inst11CountCurrentMenuEnable = 0

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

@ -53,13 +53,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
@ -94,15 +94,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
@ -158,12 +158,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
@ -180,6 +180,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

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