do multi
This commit is contained in:
wanlop run
parent
6d1dc5797b
commit
927831f9e1
17 changed files with 716 additions and 1176 deletions
156
inter/tha/xml/multi/instace10.inc
Normal file
156
inter/tha/xml/multi/instace10.inc
Normal file
|
|
@ -0,0 +1,156 @@
|
|||
|
||||
|
||||
GetVisible inst_show9
|
||||
;DEBUGVAR inst_show9
|
||||
|
||||
|
||||
|
||||
If inst_show9 = 1 Then
|
||||
InstanceGetString SaveStringInst
|
||||
;DEBUGVAR SaveStringInst
|
||||
If SaveStringInst = "RefreshNow" Then
|
||||
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||
Open CurrentOpenFile
|
||||
|
||||
If LanguageShow = "THAI" Then
|
||||
InstanceSetString "ShowThai"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "ENG" Then
|
||||
InstanceSetString "ShowEng"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "MYANMAR" Then
|
||||
InstanceSetString "ShowMYANMAR"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "MSC" Then
|
||||
InstanceSetString "ShowMSC"
|
||||
EndIf
|
||||
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
; setvarint SlientRefreshEnable 1
|
||||
;DEBUGVAR SlientRefreshEnable
|
||||
|
||||
If SlientRefreshEnable = 1 Then
|
||||
If SaveStringInst = "RefreshNow" Then
|
||||
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||
Open CurrentOpenFile
|
||||
|
||||
If LanguageShow = "THAI" Then
|
||||
InstanceSetString "ShowThai"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "ENG" Then
|
||||
InstanceSetString "ShowEng"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "MYANMAR" Then
|
||||
InstanceSetString "ShowMYANMAR"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "MSC" Then
|
||||
InstanceSetString "ShowMSC"
|
||||
EndIf
|
||||
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
|
||||
If SlientRefreshIndex = 8 Then
|
||||
If inst_show9 = 0 Then
|
||||
GetXMLFileNameCurrentRunning CurrentOpenFile5
|
||||
Open CurrentOpenFile5
|
||||
Else
|
||||
Var SlientRefreshIndex = 9
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If langnext9 = "true" Then
|
||||
Var langnext9 = "false"
|
||||
RefreshAll
|
||||
EndIf
|
||||
|
||||
If inst_show9 = 1 Then
|
||||
|
||||
InstanceGetString SaveStringInst
|
||||
If SaveStringInst = "RefreshNow" Then
|
||||
|
||||
Else
|
||||
If LanguageShow = "ENG" Then
|
||||
Var SaveStringInst = "ShowEng"
|
||||
EndIf
|
||||
If LanguageShow = "THAI" Then
|
||||
Var SaveStringInst = "ShowThai"
|
||||
EndIf
|
||||
If LanguageShow = "MYANMAR" Then
|
||||
Var SaveStringInst = "ShowMYANMAR"
|
||||
EndIf
|
||||
If LanguageShow = "MSC" Then
|
||||
Var SaveStringInst = "ShowMSC"
|
||||
EndIf
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
Var Inst10CountMenuEnable = 0
|
||||
Var Inst10CountCurrentMenuEnable = 0
|
||||
GetFrameScrollBlockCount Inst10CountCurrentMenuEnable
|
||||
GetCurrentEnableBlockCount Inst10CountMenuEnable
|
||||
|
||||
If XMLMultiDebug = 1 Then
|
||||
DEBUGVAR Inst10CountMenuEnable
|
||||
DEBUGVAR Inst10CountMenuEnablePrev
|
||||
DEBUGVAR Inst10CountCurrentMenuEnable
|
||||
EndIf
|
||||
|
||||
If Inst10CountMenuEnablePrev = "" Then
|
||||
Var Inst10CountMenuEnablePrev = Inst10CountMenuEnable
|
||||
Var Inst10CountDownForOpenXML = 0
|
||||
Var Inst10CountDownOpenXMLFromMenuZero = 20
|
||||
EndIf
|
||||
|
||||
If Inst10CountMenuEnable = Inst10CountMenuEnablePrev Then
|
||||
|
||||
Else
|
||||
SAVELOG "Inst10 Refresh ===================================================================== Refresh"
|
||||
Var Inst10CountDownForOpenXML = 10
|
||||
Var Inst10CountMenuEnablePrev = CountMenuEnable
|
||||
EndIf
|
||||
|
||||
If Inst10CountMenuEnable = Inst10CountCurrentMenuEnable Then
|
||||
|
||||
Else
|
||||
If Inst10CountDownForOpenXML = 0 Then
|
||||
SAVELOG "Inst10 Refresh =======================Inst10CountMenuEnable / Inst10CountCurrentMenuEnable ============================================== Refresh"
|
||||
Var Inst10CountDownForOpenXML = 10
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If Inst10CountCurrentMenuEnable = 0 Then
|
||||
|
||||
DEBUGVAR Inst10CountDownOpenXMLFromMenuZero
|
||||
|
||||
If Inst10CountDownOpenXMLFromMenuZero > 0 Then
|
||||
Var Inst10CountDownOpenXMLFromMenuZero = Inst10CountDownOpenXMLFromMenuZero - 1
|
||||
If Inst10CountDownOpenXMLFromMenuZero = 0 Then
|
||||
Var Inst10CountDownOpenXMLFromMenuZero = 20
|
||||
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_pepsi_7up.lxml"
|
||||
EndIf
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If Inst10CountMenuEnable = Inst10CountCurrentMenuEnable Then
|
||||
If Inst10CountCurrentMenuEnable > 0 Then
|
||||
Var Inst10MenuLoaded = "done"
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If Inst10CountDownForOpenXML > 0 Then
|
||||
Var Inst10CountDownForOpenXML = Inst10CountDownForOpenXML - 1
|
||||
DEBUGVAR Inst10CountDownForOpenXML
|
||||
If Inst10CountDownForOpenXML = 0 Then
|
||||
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_pepsi_7up.lxml"
|
||||
EndIf
|
||||
EndIf
|
||||
148
inter/tha/xml/multi/instance11.inc
Normal file
148
inter/tha/xml/multi/instance11.inc
Normal file
|
|
@ -0,0 +1,148 @@
|
|||
|
||||
|
||||
GetVisible inst_show7
|
||||
;DEBUGVAR inst_show7
|
||||
|
||||
InstanceGetString SaveStringInst
|
||||
;DEBUGVAR SaveStringInst
|
||||
|
||||
If inst_show7 = 1 Then
|
||||
If SaveStringInst = "RefreshNow" Then
|
||||
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||
Open CurrentOpenFile
|
||||
|
||||
If LanguageShow = "THAI" Then
|
||||
InstanceSetString "ShowThai"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "ENG" Then
|
||||
InstanceSetString "ShowEng"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "MYANMAR" Then
|
||||
InstanceSetString "ShowMYANMAR"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "MSC" Then
|
||||
InstanceSetString "ShowMSC"
|
||||
EndIf
|
||||
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
; setvarint SlientRefreshEnable 1
|
||||
;DEBUGVAR SlientRefreshEnable
|
||||
|
||||
If SlientRefreshEnable = 1 Then
|
||||
If SaveStringInst = "RefreshNow" Then
|
||||
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||
Open CurrentOpenFile
|
||||
|
||||
If LanguageShow = "THAI" Then
|
||||
InstanceSetString "ShowThai"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "ENG" Then
|
||||
InstanceSetString "ShowEng"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "MYANMAR" Then
|
||||
InstanceSetString "ShowMYANMAR"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "MSC" Then
|
||||
InstanceSetString "ShowMSC"
|
||||
EndIf
|
||||
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If SlientRefreshIndex = 7 Then
|
||||
If inst_show7 = 0 Then
|
||||
GetXMLFileNameCurrentRunning CurrentOpenFile7
|
||||
Open CurrentOpenFile7
|
||||
Else
|
||||
Var SlientRefreshIndex = 8
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If langnext6 = "true" Then
|
||||
Var langnext6 = "false"
|
||||
DEBUGVAR langnext6
|
||||
RefreshAll
|
||||
EndIf
|
||||
|
||||
|
||||
Var Inst11CountMenuEnable = 0
|
||||
Var Inst11CountCurrentMenuEnable = 0
|
||||
GetFrameScrollBlockCount Inst11CountCurrentMenuEnable
|
||||
GetCurrentEnableBlockCount Inst11CountMenuEnable
|
||||
|
||||
;DEBUGVAR Inst11CountMenuEnable
|
||||
;DEBUGVAR Inst11CountMenuEnablePrev
|
||||
;DEBUGVAR Inst11CountCurrentMenuEnable
|
||||
|
||||
If Inst11CountMenuEnablePrev = "" Then
|
||||
Var Inst11CountMenuEnablePrev = Inst11CountMenuEnable
|
||||
Var Inst11CountDownForOpenXML = 0
|
||||
Var Inst11CountDownOpenXMLFromMenuZero = 20
|
||||
EndIf
|
||||
|
||||
If Inst11CountMenuEnable = Inst11CountMenuEnablePrev Then
|
||||
|
||||
Else
|
||||
SAVELOG "Inst11 Refresh ===================================================================== Refresh"
|
||||
Var Inst11CountDownForOpenXML = 10
|
||||
Var Inst11CountMenuEnablePrev = CountMenuEnable
|
||||
EndIf
|
||||
|
||||
If Inst11CountMenuEnable = Inst11CountCurrentMenuEnable Then
|
||||
|
||||
Else
|
||||
If Inst11CountDownForOpenXML = 0 Then
|
||||
SAVELOG "Inst11 Refresh =======================Inst11CountMenuEnable / Inst11CountCurrentMenuEnable ============================================== Refresh"
|
||||
Var Inst11CountDownForOpenXML = 10
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If Inst11CountCurrentMenuEnable = 0 Then
|
||||
|
||||
DEBUGVAR Inst11CountDownOpenXMLFromMenuZero
|
||||
|
||||
If Inst11CountDownOpenXMLFromMenuZero > 0 Then
|
||||
Var Inst11CountDownOpenXMLFromMenuZero = Inst11CountDownOpenXMLFromMenuZero - 1
|
||||
If Inst11CountDownOpenXMLFromMenuZero = 0 Then
|
||||
Var Inst11CountDownOpenXMLFromMenuZero = 20
|
||||
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_other_other.lxml"
|
||||
EndIf
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
|
||||
If Inst11CountMenuEnable = Inst11CountCurrentMenuEnable Then
|
||||
If Inst11CountCurrentMenuEnable > 0 Then
|
||||
Var Inst11MenuLoaded = "done"
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If Inst11CountDownForOpenXML > 0 Then
|
||||
Var Inst11CountDownForOpenXML = Inst11CountDownForOpenXML - 1
|
||||
DEBUGVAR Inst11CountDownForOpenXML
|
||||
If Inst11CountDownForOpenXML = 0 Then
|
||||
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_other_other.lxml"
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
; setvarint RefreshOtherMenu 1
|
||||
If RefreshOtherMenu = 1 Then
|
||||
Var RefreshOtherMenu = 0
|
||||
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_other_other.lxml"
|
||||
EndIf
|
||||
|
||||
If OtherOtherRefreshTimeOut > 15 Then
|
||||
Var OtherOtherRefreshTimeOut = 0
|
||||
Script "-" "-"
|
||||
EndIf
|
||||
|
||||
Var OtherOtherRefreshTimeOut = OtherOtherRefreshTimeOut + 1
|
||||
|
||||
|
|
@ -1,6 +1,4 @@
|
|||
|
||||
|
||||
GetVisible inst_show2
|
||||
GetVisible inst_show2
|
||||
;DEBUGVAR inst_show2
|
||||
|
||||
|
||||
|
|
@ -12,10 +10,20 @@
|
|||
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||
Open CurrentOpenFile
|
||||
|
||||
If show_eng = "true" Then
|
||||
If LanguageShow = "THAI" Then
|
||||
InstanceSetString "ShowThai"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "ENG" Then
|
||||
InstanceSetString "ShowEng"
|
||||
Else
|
||||
InstanceSetString "ShowThai"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "MYANMAR" Then
|
||||
InstanceSetString "ShowMYANMAR"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "MSC" Then
|
||||
InstanceSetString "ShowMSC"
|
||||
EndIf
|
||||
EndIf
|
||||
EndIf
|
||||
|
|
@ -29,10 +37,20 @@
|
|||
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||
Open CurrentOpenFile
|
||||
|
||||
If show_eng = "true" Then
|
||||
If LanguageShow = "THAI" Then
|
||||
InstanceSetString "ShowThai"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "ENG" Then
|
||||
InstanceSetString "ShowEng"
|
||||
Else
|
||||
InstanceSetString "ShowThai"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "MYANMAR" Then
|
||||
InstanceSetString "ShowMYANMAR"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "MSC" Then
|
||||
InstanceSetString "ShowMSC"
|
||||
EndIf
|
||||
|
||||
EndIf
|
||||
|
|
@ -64,16 +82,16 @@
|
|||
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
|
||||
If LanguageShow = "MSC" Then
|
||||
Var SaveStringInst = "ShowMSC"
|
||||
EndIf
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
|
|
@ -86,9 +104,11 @@
|
|||
GetFrameScrollBlockCount Inst5CountCurrentMenuEnable
|
||||
GetCurrentEnableBlockCount Inst5CountMenuEnable
|
||||
|
||||
;DEBUGVAR Inst5CountMenuEnable
|
||||
;DEBUGVAR Inst5CountMenuEnablePrev
|
||||
;DEBUGVAR Inst5CountCurrentMenuEnable
|
||||
If XMLMultiDebug = 1 Then
|
||||
DEBUGVAR Inst5CountMenuEnable
|
||||
DEBUGVAR Inst5CountMenuEnablePrev
|
||||
DEBUGVAR Inst5CountCurrentMenuEnable
|
||||
EndIf
|
||||
|
||||
If Inst5CountMenuEnablePrev = "" Then
|
||||
Var Inst5CountMenuEnablePrev = Inst5CountMenuEnable
|
||||
|
|
@ -122,7 +142,7 @@
|
|||
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"
|
||||
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_coffee.lxml"
|
||||
EndIf
|
||||
EndIf
|
||||
EndIf
|
||||
|
|
@ -138,7 +158,7 @@
|
|||
DEBUGVAR Inst5CountDownForOpenXML
|
||||
If Inst5CountDownForOpenXML = 0 Then
|
||||
SAVELOG "OPEN FROM 2"
|
||||
Open "ROOT/taobin_project/inter/tha/xml/multi/v3/page_catalog_group_coffee.lxml"
|
||||
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_coffee.lxml"
|
||||
EndIf
|
||||
InstanceGetString SaveStringInst
|
||||
If SaveStringInst = "RefreshNow" Then
|
||||
|
|
@ -146,16 +166,16 @@
|
|||
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
|
||||
If LanguageShow = "MSC" Then
|
||||
Var SaveStringInst = "ShowMSC"
|
||||
EndIf
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
|
|
@ -163,7 +183,7 @@
|
|||
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"
|
||||
;Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_coffee.lxml"
|
||||
RefreshAll
|
||||
EndIf
|
||||
|
||||
|
|
|
|||
137
inter/tha/xml/multi/instance6.inc
Normal file
137
inter/tha/xml/multi/instance6.inc
Normal file
|
|
@ -0,0 +1,137 @@
|
|||
|
||||
|
||||
|
||||
|
||||
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 langnext2 = "true" Then
|
||||
Var langnext2 = "false"
|
||||
RefreshAll
|
||||
EndIf
|
||||
|
||||
If inst_show3 = 1 Then
|
||||
|
||||
|
||||
InstanceGetString SaveStringInst
|
||||
If SaveStringInst = "RefreshNow" Then
|
||||
|
||||
Else
|
||||
If LanguageShow = "ENG" Then
|
||||
Var SaveStringInst = "ShowEng"
|
||||
EndIf
|
||||
If LanguageShow = "THAI" Then
|
||||
Var SaveStringInst = "ShowThai"
|
||||
EndIf
|
||||
If LanguageShow = "MYANMAR" Then
|
||||
Var SaveStringInst = "ShowMYANMAR"
|
||||
EndIf
|
||||
If LanguageShow = "MSC" Then
|
||||
Var SaveStringInst = "ShowMSC"
|
||||
EndIf
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
Var Inst6CountMenuEnable = 0
|
||||
Var Inst6CountCurrentMenuEnable = 0
|
||||
GetFrameScrollBlockCount Inst6CountCurrentMenuEnable
|
||||
GetCurrentEnableBlockCount Inst6CountMenuEnable
|
||||
|
||||
If XMLMultiDebug = 1 Then
|
||||
DEBUGVAR Inst6CountMenuEnable
|
||||
DEBUGVAR Inst6CountMenuEnablePrev
|
||||
DEBUGVAR Inst6CountCurrentMenuEnable
|
||||
EndIf
|
||||
|
||||
|
||||
If Inst6CountMenuEnablePrev = "" Then
|
||||
Var Inst6CountMenuEnablePrev = Inst6CountMenuEnable
|
||||
Var Inst6CountDownForOpenXML = 0
|
||||
Var Inst6CountDownOpenXMLFromMenuZero = 20
|
||||
EndIf
|
||||
|
||||
If Inst6CountMenuEnable = Inst6CountMenuEnablePrev Then
|
||||
|
||||
Else
|
||||
SAVELOG "Inst6 Refresh ===================================================================== Refresh"
|
||||
Var Inst6CountDownForOpenXML = 10
|
||||
Var Inst6CountMenuEnablePrev = CountMenuEnable
|
||||
EndIf
|
||||
|
||||
If Inst6CountMenuEnable = Inst6CountCurrentMenuEnable Then
|
||||
|
||||
Else
|
||||
If Inst6CountDownForOpenXML = 0 Then
|
||||
SAVELOG "Inst6 Refresh =======================Inst6CountMenuEnable / Inst6CountCurrentMenuEnable ============================================== Refresh"
|
||||
Var Inst6CountDownForOpenXML = 10
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If Inst6CountMenuEnable = Inst6CountCurrentMenuEnable Then
|
||||
If Inst6CountCurrentMenuEnable > 0 Then
|
||||
Var Inst6MenuLoaded = "done"
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
|
||||
If Inst6CountCurrentMenuEnable = 0 Then
|
||||
|
||||
DEBUGVAR Inst6CountDownOpenXMLFromMenuZero
|
||||
|
||||
If Inst6CountDownOpenXMLFromMenuZero > 0 Then
|
||||
Var Inst6CountDownOpenXMLFromMenuZero = Inst6CountDownOpenXMLFromMenuZero - 1
|
||||
If Inst6CountDownOpenXMLFromMenuZero = 0 Then
|
||||
Var Inst6CountDownOpenXMLFromMenuZero = 20
|
||||
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_tea.lxml"
|
||||
EndIf
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If Inst6CountDownForOpenXML > 0 Then
|
||||
Var Inst6CountDownForOpenXML = Inst6CountDownForOpenXML - 1
|
||||
DEBUGVAR Inst6CountDownForOpenXML
|
||||
If Inst6CountDownForOpenXML = 0 Then
|
||||
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_tea.lxml"
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If TeakRefreshTimeOut > 15 Then
|
||||
Var TeakRefreshTimeOut = 0
|
||||
Script "-" "-"
|
||||
EndIf
|
||||
|
||||
Var TeakRefreshTimeOut = TeakRefreshTimeOut + 1
|
||||
|
||||
|
||||
167
inter/tha/xml/multi/instance7.inc
Normal file
167
inter/tha/xml/multi/instance7.inc
Normal file
|
|
@ -0,0 +1,167 @@
|
|||
|
||||
GetVisible inst_show4
|
||||
;DEBUGVAR inst_show4
|
||||
|
||||
If inst_show4 = 1 Then
|
||||
InstanceGetString SaveStringInst
|
||||
;DEBUGVAR SaveStringInst
|
||||
If SaveStringInst = "RefreshNow" Then
|
||||
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||
Open CurrentOpenFile
|
||||
|
||||
If LanguageShow = "THAI" Then
|
||||
InstanceSetString "ShowThai"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "ENG" Then
|
||||
InstanceSetString "ShowEng"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "MYANMAR" Then
|
||||
InstanceSetString "ShowMYANMAR"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "MSC" Then
|
||||
InstanceSetString "ShowMSC"
|
||||
EndIf
|
||||
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
; setvarint SlientRefreshEnable 1
|
||||
;DEBUGVAR SlientRefreshEnable
|
||||
|
||||
If SlientRefreshEnable = 1 Then
|
||||
If SaveStringInst = "RefreshNow" Then
|
||||
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||
Open CurrentOpenFile
|
||||
|
||||
If LanguageShow = "THAI" Then
|
||||
InstanceSetString "ShowThai"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "ENG" Then
|
||||
InstanceSetString "ShowEng"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "MYANMAR" Then
|
||||
InstanceSetString "ShowMYANMAR"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "MSC" Then
|
||||
InstanceSetString "ShowMSC"
|
||||
EndIf
|
||||
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If SlientRefreshIndex = 4 Then
|
||||
If inst_show4 = 0 Then
|
||||
GetXMLFileNameCurrentRunning CurrentOpenFile4
|
||||
Open CurrentOpenFile4
|
||||
|
||||
Else
|
||||
Var SlientRefreshIndex = 5
|
||||
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If langnext3 = "true" Then
|
||||
Var langnext3 = "false"
|
||||
DEBUGVAR langnext3
|
||||
RefreshAll
|
||||
EndIf
|
||||
|
||||
If inst_show4 = 1 Then
|
||||
|
||||
InstanceGetString SaveStringInst
|
||||
If SaveStringInst = "RefreshNow" Then
|
||||
|
||||
Else
|
||||
If LanguageShow = "ENG" Then
|
||||
Var SaveStringInst = "ShowEng"
|
||||
EndIf
|
||||
If LanguageShow = "THAI" Then
|
||||
Var SaveStringInst = "ShowThai"
|
||||
EndIf
|
||||
If LanguageShow = "MYANMAR" Then
|
||||
Var SaveStringInst = "ShowMYANMAR"
|
||||
EndIf
|
||||
If LanguageShow = "MSC" Then
|
||||
Var SaveStringInst = "ShowMSC"
|
||||
EndIf
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
|
||||
Var Inst7CountMenuEnable = 0
|
||||
Var Inst7CountCurrentMenuEnable = 0
|
||||
GetFrameScrollBlockCount Inst7CountCurrentMenuEnable
|
||||
GetCurrentEnableBlockCount Inst7CountMenuEnable
|
||||
|
||||
If XMLMultiDebug = 1 Then
|
||||
DEBUGVAR Inst7CountMenuEnable
|
||||
DEBUGVAR Inst7CountMenuEnablePrev
|
||||
DEBUGVAR Inst7CountCurrentMenuEnable
|
||||
EndIf
|
||||
|
||||
If Inst7CountMenuEnablePrev = "" Then
|
||||
Var Inst7CountMenuEnablePrev = Inst7CountMenuEnable
|
||||
Var Inst7CountDownForOpenXML = 0
|
||||
Var Inst7CountDownOpenXMLFromMenuZero = 20
|
||||
EndIf
|
||||
|
||||
If Inst7CountMenuEnable = Inst7CountMenuEnablePrev Then
|
||||
|
||||
Else
|
||||
SAVELOG "Inst7 Refresh ===================================================================== Refresh"
|
||||
Var Inst7CountDownForOpenXML = 10
|
||||
Var Inst7CountMenuEnablePrev = CountMenuEnable
|
||||
EndIf
|
||||
|
||||
If Inst7CountMenuEnable = Inst7CountCurrentMenuEnable Then
|
||||
|
||||
Else
|
||||
If Inst7CountDownForOpenXML = 0 Then
|
||||
SAVELOG "Inst7 Refresh =======================Inst7CountMenuEnable / Inst7CountCurrentMenuEnable ============================================== Refresh"
|
||||
Var Inst7CountDownForOpenXML = 10
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
|
||||
If Inst7CountCurrentMenuEnable = 0 Then
|
||||
|
||||
DEBUGVAR Inst7CountDownOpenXMLFromMenuZero
|
||||
|
||||
If Inst7CountDownOpenXMLFromMenuZero > 0 Then
|
||||
Var Inst7CountDownOpenXMLFromMenuZero = Inst7CountDownOpenXMLFromMenuZero - 1
|
||||
If Inst7CountDownOpenXMLFromMenuZero = 0 Then
|
||||
Var Inst7CountDownOpenXMLFromMenuZero = 20
|
||||
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_milk.lxml"
|
||||
EndIf
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If Inst7CountMenuEnable = Inst7CountCurrentMenuEnable Then
|
||||
If Inst7CountCurrentMenuEnable > 0 Then
|
||||
Var Inst7MenuLoaded = "done"
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If Inst7CountDownForOpenXML > 0 Then
|
||||
Var Inst7CountDownForOpenXML = Inst7CountDownForOpenXML - 1
|
||||
DEBUGVAR Inst7CountDownForOpenXML
|
||||
If Inst7CountDownForOpenXML = 0 Then
|
||||
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_milk.lxml"
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
|
||||
If MilkRefreshTimeOut > 15 Then
|
||||
Var MilkRefreshTimeOut = 0
|
||||
Script "-" "-"
|
||||
EndIf
|
||||
|
||||
Var MilkRefreshTimeOut = MilkRefreshTimeOut + 1
|
||||
|
||||
|
||||
|
|
@ -1,4 +1,6 @@
|
|||
|
||||
|
||||
|
||||
GetVisible inst_show5
|
||||
;DEBUGVAR inst_show5
|
||||
|
||||
|
|
@ -10,10 +12,20 @@
|
|||
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||
Open CurrentOpenFile
|
||||
|
||||
If show_eng = "true" Then
|
||||
If LanguageShow = "THAI" Then
|
||||
InstanceSetString "ShowThai"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "ENG" Then
|
||||
InstanceSetString "ShowEng"
|
||||
Else
|
||||
InstanceSetString "ShowThai"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "MYANMAR" Then
|
||||
InstanceSetString "ShowMYANMAR"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "MSC" Then
|
||||
InstanceSetString "ShowMSC"
|
||||
EndIf
|
||||
EndIf
|
||||
EndIf
|
||||
|
|
@ -26,10 +38,20 @@
|
|||
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||
Open CurrentOpenFile
|
||||
|
||||
If show_eng = "true" Then
|
||||
If LanguageShow = "THAI" Then
|
||||
InstanceSetString "ShowThai"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "ENG" Then
|
||||
InstanceSetString "ShowEng"
|
||||
Else
|
||||
InstanceSetString "ShowThai"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "MYANMAR" Then
|
||||
InstanceSetString "ShowMYANMAR"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "MSC" Then
|
||||
InstanceSetString "ShowMSC"
|
||||
EndIf
|
||||
|
||||
EndIf
|
||||
|
|
@ -60,17 +82,16 @@
|
|||
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
|
||||
If LanguageShow = "MSC" Then
|
||||
Var SaveStringInst = "ShowMSC"
|
||||
EndIf
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
|
|
@ -80,9 +101,11 @@
|
|||
GetFrameScrollBlockCount Inst8CountCurrentMenuEnable
|
||||
GetCurrentEnableBlockCount Inst8CountMenuEnable
|
||||
|
||||
;DEBUGVAR Inst8CountMenuEnable
|
||||
;DEBUGVAR Inst8CountMenuEnablePrev
|
||||
;DEBUGVAR Inst8CountCurrentMenuEnable
|
||||
If XMLMultiDebug = 1 Then
|
||||
DEBUGVAR Inst8CountMenuEnable
|
||||
DEBUGVAR Inst8CountMenuEnablePrev
|
||||
DEBUGVAR Inst8CountCurrentMenuEnable
|
||||
EndIf
|
||||
|
||||
If Inst8CountMenuEnablePrev = "" Then
|
||||
Var Inst8CountMenuEnablePrev = Inst8CountMenuEnable
|
||||
|
|
@ -116,7 +139,7 @@
|
|||
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"
|
||||
Open CurrentXMLFileName8
|
||||
EndIf
|
||||
EndIf
|
||||
EndIf
|
||||
|
|
@ -131,7 +154,15 @@
|
|||
Var Inst8CountDownForOpenXML = Inst8CountDownForOpenXML - 1
|
||||
DEBUGVAR Inst8CountDownForOpenXML
|
||||
If Inst8CountDownForOpenXML = 0 Then
|
||||
Open "ROOT/taobin_project/inter/tha/xml/multi/v3/page_catalog_group_forkid.lxml"
|
||||
Open CurrentXMLFileName8
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
|
||||
|
||||
If ForKidRefreshTimeOut > 15 Then
|
||||
Var ForKidRefreshTimeOut = 0
|
||||
Script "-" "-"
|
||||
EndIf
|
||||
|
||||
Var ForKidRefreshTimeOut = ForKidRefreshTimeOut + 1
|
||||
|
||||
|
|
|
|||
|
|
@ -55,209 +55,9 @@
|
|||
EndIf
|
||||
|
||||
|
||||
GetVisible inst_show2
|
||||
;DEBUGVAR inst_show2
|
||||
;include="ROOT/taobin_project/inter/tha/xml/multi/instance5.inc"
|
||||
|
||||
|
||||
If inst_show2 = 1 Then
|
||||
InstanceGetString SaveStringInst
|
||||
;DEBUGVAR SaveStringInst
|
||||
If SaveStringInst = "RefreshNow" Then
|
||||
SAVELOG "OPEN slient Refresh"
|
||||
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||
Open CurrentOpenFile
|
||||
|
||||
If LanguageShow = "THAI" Then
|
||||
InstanceSetString "ShowThai"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "ENG" Then
|
||||
InstanceSetString "ShowEng"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "MYANMAR" Then
|
||||
InstanceSetString "ShowMYANMAR"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "MSC" Then
|
||||
InstanceSetString "ShowMSC"
|
||||
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 LanguageShow = "THAI" Then
|
||||
InstanceSetString "ShowThai"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "ENG" Then
|
||||
InstanceSetString "ShowEng"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "MYANMAR" Then
|
||||
InstanceSetString "ShowMYANMAR"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "MSC" Then
|
||||
InstanceSetString "ShowMSC"
|
||||
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"
|
||||
EndIf
|
||||
If LanguageShow = "THAI" Then
|
||||
Var SaveStringInst = "ShowThai"
|
||||
EndIf
|
||||
If LanguageShow = "MYANMAR" Then
|
||||
Var SaveStringInst = "ShowMYANMAR"
|
||||
EndIf
|
||||
If LanguageShow = "MSC" Then
|
||||
Var SaveStringInst = "ShowMSC"
|
||||
EndIf
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Var Inst5CountMenuEnable = 0
|
||||
Var Inst5CountCurrentMenuEnable = 0
|
||||
GetFrameScrollBlockCount Inst5CountCurrentMenuEnable
|
||||
GetCurrentEnableBlockCount Inst5CountMenuEnable
|
||||
|
||||
If XMLMultiDebug = 1 Then
|
||||
DEBUGVAR Inst5CountMenuEnable
|
||||
DEBUGVAR Inst5CountMenuEnablePrev
|
||||
DEBUGVAR Inst5CountCurrentMenuEnable
|
||||
EndIf
|
||||
|
||||
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/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/page_catalog_group_coffee.lxml"
|
||||
EndIf
|
||||
InstanceGetString SaveStringInst
|
||||
If SaveStringInst = "RefreshNow" Then
|
||||
|
||||
Else
|
||||
If LanguageShow = "ENG" Then
|
||||
Var SaveStringInst = "ShowEng"
|
||||
EndIf
|
||||
If LanguageShow = "THAI" Then
|
||||
Var SaveStringInst = "ShowThai"
|
||||
EndIf
|
||||
If LanguageShow = "MYANMAR" Then
|
||||
Var SaveStringInst = "ShowMYANMAR"
|
||||
EndIf
|
||||
If LanguageShow = "MSC" Then
|
||||
Var SaveStringInst = "ShowMSC"
|
||||
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/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
|
||||
|
||||
|
||||
TimerReset
|
||||
</EventTimeout>
|
||||
|
|
|
|||
|
|
@ -61,173 +61,7 @@
|
|||
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 LanguageShow = "THAI" Then
|
||||
InstanceSetString "ShowThai"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "ENG" Then
|
||||
InstanceSetString "ShowEng"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "MYANMAR" Then
|
||||
InstanceSetString "ShowMYANMAR"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "MSC" Then
|
||||
InstanceSetString "ShowMSC"
|
||||
EndIf
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
; setvarint SlientRefreshEnable 1
|
||||
;DEBUGVAR SlientRefreshEnable
|
||||
|
||||
If SlientRefreshEnable = 1 Then
|
||||
If SaveStringInst = "RefreshNow" Then
|
||||
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||
Open CurrentOpenFile
|
||||
|
||||
If LanguageShow = "THAI" Then
|
||||
InstanceSetString "ShowThai"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "ENG" Then
|
||||
InstanceSetString "ShowEng"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "MYANMAR" Then
|
||||
InstanceSetString "ShowMYANMAR"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "MSC" Then
|
||||
InstanceSetString "ShowMSC"
|
||||
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"
|
||||
EndIf
|
||||
If LanguageShow = "THAI" Then
|
||||
Var SaveStringInst = "ShowThai"
|
||||
EndIf
|
||||
If LanguageShow = "MYANMAR" Then
|
||||
Var SaveStringInst = "ShowMYANMAR"
|
||||
EndIf
|
||||
If LanguageShow = "MSC" Then
|
||||
Var SaveStringInst = "ShowMSC"
|
||||
EndIf
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
|
||||
Var Inst8CountMenuEnable = 0
|
||||
Var Inst8CountCurrentMenuEnable = 0
|
||||
GetFrameScrollBlockCount Inst8CountCurrentMenuEnable
|
||||
GetCurrentEnableBlockCount Inst8CountMenuEnable
|
||||
|
||||
If XMLMultiDebug = 1 Then
|
||||
DEBUGVAR Inst8CountMenuEnable
|
||||
DEBUGVAR Inst8CountMenuEnablePrev
|
||||
DEBUGVAR Inst8CountCurrentMenuEnable
|
||||
EndIf
|
||||
|
||||
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/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/page_catalog_group_forkid.lxml"
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
|
||||
If ForKidRefreshTimeOut > 15 Then
|
||||
Var ForKidRefreshTimeOut = 0
|
||||
Script "-" "-"
|
||||
EndIf
|
||||
|
||||
Var ForKidRefreshTimeOut = ForKidRefreshTimeOut + 1
|
||||
|
||||
|
||||
TimerReset
|
||||
</EventTimeout>
|
||||
|
|
|
|||
|
|
@ -50,171 +50,8 @@
|
|||
|
||||
|
||||
|
||||
|
||||
GetVisible inst_show4
|
||||
;DEBUGVAR inst_show4
|
||||
;include="ROOT/taobin_project/inter/tha/xml/multi/instance7.inc"
|
||||
|
||||
If inst_show4 = 1 Then
|
||||
InstanceGetString SaveStringInst
|
||||
;DEBUGVAR SaveStringInst
|
||||
If SaveStringInst = "RefreshNow" Then
|
||||
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||
Open CurrentOpenFile
|
||||
|
||||
If LanguageShow = "THAI" Then
|
||||
InstanceSetString "ShowThai"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "ENG" Then
|
||||
InstanceSetString "ShowEng"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "MYANMAR" Then
|
||||
InstanceSetString "ShowMYANMAR"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "MSC" Then
|
||||
InstanceSetString "ShowMSC"
|
||||
EndIf
|
||||
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
; setvarint SlientRefreshEnable 1
|
||||
;DEBUGVAR SlientRefreshEnable
|
||||
|
||||
If SlientRefreshEnable = 1 Then
|
||||
If SaveStringInst = "RefreshNow" Then
|
||||
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||
Open CurrentOpenFile
|
||||
|
||||
If LanguageShow = "THAI" Then
|
||||
InstanceSetString "ShowThai"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "ENG" Then
|
||||
InstanceSetString "ShowEng"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "MYANMAR" Then
|
||||
InstanceSetString "ShowMYANMAR"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "MSC" Then
|
||||
InstanceSetString "ShowMSC"
|
||||
EndIf
|
||||
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If SlientRefreshIndex = 4 Then
|
||||
If inst_show4 = 0 Then
|
||||
GetXMLFileNameCurrentRunning CurrentOpenFile4
|
||||
Open CurrentOpenFile4
|
||||
|
||||
Else
|
||||
Var SlientRefreshIndex = 5
|
||||
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If langnext3 = "true" Then
|
||||
Var langnext3 = "false"
|
||||
DEBUGVAR langnext3
|
||||
RefreshAll
|
||||
EndIf
|
||||
|
||||
If inst_show4 = 1 Then
|
||||
|
||||
InstanceGetString SaveStringInst
|
||||
If SaveStringInst = "RefreshNow" Then
|
||||
|
||||
Else
|
||||
If LanguageShow = "ENG" Then
|
||||
Var SaveStringInst = "ShowEng"
|
||||
EndIf
|
||||
If LanguageShow = "THAI" Then
|
||||
Var SaveStringInst = "ShowThai"
|
||||
EndIf
|
||||
If LanguageShow = "MYANMAR" Then
|
||||
Var SaveStringInst = "ShowMYANMAR"
|
||||
EndIf
|
||||
If LanguageShow = "MSC" Then
|
||||
Var SaveStringInst = "ShowMSC"
|
||||
EndIf
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
|
||||
Var Inst7CountMenuEnable = 0
|
||||
Var Inst7CountCurrentMenuEnable = 0
|
||||
GetFrameScrollBlockCount Inst7CountCurrentMenuEnable
|
||||
GetCurrentEnableBlockCount Inst7CountMenuEnable
|
||||
|
||||
If XMLMultiDebug = 1 Then
|
||||
DEBUGVAR Inst7CountMenuEnable
|
||||
DEBUGVAR Inst7CountMenuEnablePrev
|
||||
DEBUGVAR Inst7CountCurrentMenuEnable
|
||||
EndIf
|
||||
|
||||
If Inst7CountMenuEnablePrev = "" Then
|
||||
Var Inst7CountMenuEnablePrev = Inst7CountMenuEnable
|
||||
Var Inst7CountDownForOpenXML = 0
|
||||
Var Inst7CountDownOpenXMLFromMenuZero = 20
|
||||
EndIf
|
||||
|
||||
If Inst7CountMenuEnable = Inst7CountMenuEnablePrev Then
|
||||
|
||||
Else
|
||||
SAVELOG "Inst7 Refresh ===================================================================== Refresh"
|
||||
Var Inst7CountDownForOpenXML = 10
|
||||
Var Inst7CountMenuEnablePrev = CountMenuEnable
|
||||
EndIf
|
||||
|
||||
If Inst7CountMenuEnable = Inst7CountCurrentMenuEnable Then
|
||||
|
||||
Else
|
||||
If Inst7CountDownForOpenXML = 0 Then
|
||||
SAVELOG "Inst7 Refresh =======================Inst7CountMenuEnable / Inst7CountCurrentMenuEnable ============================================== Refresh"
|
||||
Var Inst7CountDownForOpenXML = 10
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
|
||||
If Inst7CountCurrentMenuEnable = 0 Then
|
||||
|
||||
DEBUGVAR Inst7CountDownOpenXMLFromMenuZero
|
||||
|
||||
If Inst7CountDownOpenXMLFromMenuZero > 0 Then
|
||||
Var Inst7CountDownOpenXMLFromMenuZero = Inst7CountDownOpenXMLFromMenuZero - 1
|
||||
If Inst7CountDownOpenXMLFromMenuZero = 0 Then
|
||||
Var Inst7CountDownOpenXMLFromMenuZero = 20
|
||||
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_milk.lxml"
|
||||
EndIf
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If Inst7CountMenuEnable = Inst7CountCurrentMenuEnable Then
|
||||
If Inst7CountCurrentMenuEnable > 0 Then
|
||||
Var Inst7MenuLoaded = "done"
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If Inst7CountDownForOpenXML > 0 Then
|
||||
Var Inst7CountDownForOpenXML = Inst7CountDownForOpenXML - 1
|
||||
DEBUGVAR Inst7CountDownForOpenXML
|
||||
If Inst7CountDownForOpenXML = 0 Then
|
||||
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_milk.lxml"
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
|
||||
If MilkRefreshTimeOut > 15 Then
|
||||
Var MilkRefreshTimeOut = 0
|
||||
Script "-" "-"
|
||||
EndIf
|
||||
|
||||
Var MilkRefreshTimeOut = MilkRefreshTimeOut + 1
|
||||
|
||||
|
||||
TimerReset
|
||||
|
|
|
|||
|
|
@ -51,153 +51,8 @@
|
|||
EndIf
|
||||
|
||||
|
||||
|
||||
|
||||
GetVisible inst_show7
|
||||
;DEBUGVAR inst_show7
|
||||
;include="ROOT/taobin_project/inter/tha/xml/multi/instance11.inc"
|
||||
|
||||
InstanceGetString SaveStringInst
|
||||
;DEBUGVAR SaveStringInst
|
||||
|
||||
If inst_show7 = 1 Then
|
||||
If SaveStringInst = "RefreshNow" Then
|
||||
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||
Open CurrentOpenFile
|
||||
|
||||
If LanguageShow = "THAI" Then
|
||||
InstanceSetString "ShowThai"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "ENG" Then
|
||||
InstanceSetString "ShowEng"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "MYANMAR" Then
|
||||
InstanceSetString "ShowMYANMAR"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "MSC" Then
|
||||
InstanceSetString "ShowMSC"
|
||||
EndIf
|
||||
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
; setvarint SlientRefreshEnable 1
|
||||
;DEBUGVAR SlientRefreshEnable
|
||||
|
||||
If SlientRefreshEnable = 1 Then
|
||||
If SaveStringInst = "RefreshNow" Then
|
||||
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||
Open CurrentOpenFile
|
||||
|
||||
If LanguageShow = "THAI" Then
|
||||
InstanceSetString "ShowThai"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "ENG" Then
|
||||
InstanceSetString "ShowEng"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "MYANMAR" Then
|
||||
InstanceSetString "ShowMYANMAR"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "MSC" Then
|
||||
InstanceSetString "ShowMSC"
|
||||
EndIf
|
||||
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If SlientRefreshIndex = 7 Then
|
||||
If inst_show7 = 0 Then
|
||||
GetXMLFileNameCurrentRunning CurrentOpenFile7
|
||||
Open CurrentOpenFile7
|
||||
Else
|
||||
Var SlientRefreshIndex = 8
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If langnext6 = "true" Then
|
||||
Var langnext6 = "false"
|
||||
DEBUGVAR langnext6
|
||||
RefreshAll
|
||||
EndIf
|
||||
|
||||
|
||||
Var Inst11CountMenuEnable = 0
|
||||
Var Inst11CountCurrentMenuEnable = 0
|
||||
GetFrameScrollBlockCount Inst11CountCurrentMenuEnable
|
||||
GetCurrentEnableBlockCount Inst11CountMenuEnable
|
||||
|
||||
;DEBUGVAR Inst11CountMenuEnable
|
||||
;DEBUGVAR Inst11CountMenuEnablePrev
|
||||
;DEBUGVAR Inst11CountCurrentMenuEnable
|
||||
|
||||
If Inst11CountMenuEnablePrev = "" Then
|
||||
Var Inst11CountMenuEnablePrev = Inst11CountMenuEnable
|
||||
Var Inst11CountDownForOpenXML = 0
|
||||
Var Inst11CountDownOpenXMLFromMenuZero = 20
|
||||
EndIf
|
||||
|
||||
If Inst11CountMenuEnable = Inst11CountMenuEnablePrev Then
|
||||
|
||||
Else
|
||||
SAVELOG "Inst11 Refresh ===================================================================== Refresh"
|
||||
Var Inst11CountDownForOpenXML = 10
|
||||
Var Inst11CountMenuEnablePrev = CountMenuEnable
|
||||
EndIf
|
||||
|
||||
If Inst11CountMenuEnable = Inst11CountCurrentMenuEnable Then
|
||||
|
||||
Else
|
||||
If Inst11CountDownForOpenXML = 0 Then
|
||||
SAVELOG "Inst11 Refresh =======================Inst11CountMenuEnable / Inst11CountCurrentMenuEnable ============================================== Refresh"
|
||||
Var Inst11CountDownForOpenXML = 10
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If Inst11CountCurrentMenuEnable = 0 Then
|
||||
|
||||
DEBUGVAR Inst11CountDownOpenXMLFromMenuZero
|
||||
|
||||
If Inst11CountDownOpenXMLFromMenuZero > 0 Then
|
||||
Var Inst11CountDownOpenXMLFromMenuZero = Inst11CountDownOpenXMLFromMenuZero - 1
|
||||
If Inst11CountDownOpenXMLFromMenuZero = 0 Then
|
||||
Var Inst11CountDownOpenXMLFromMenuZero = 20
|
||||
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_other_other.lxml"
|
||||
EndIf
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
|
||||
If Inst11CountMenuEnable = Inst11CountCurrentMenuEnable Then
|
||||
If Inst11CountCurrentMenuEnable > 0 Then
|
||||
Var Inst11MenuLoaded = "done"
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If Inst11CountDownForOpenXML > 0 Then
|
||||
Var Inst11CountDownForOpenXML = Inst11CountDownForOpenXML - 1
|
||||
DEBUGVAR Inst11CountDownForOpenXML
|
||||
If Inst11CountDownForOpenXML = 0 Then
|
||||
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_other_other.lxml"
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
; setvarint RefreshOtherMenu 1
|
||||
If RefreshOtherMenu = 1 Then
|
||||
Var RefreshOtherMenu = 0
|
||||
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_other_other.lxml"
|
||||
EndIf
|
||||
|
||||
If OtherOtherRefreshTimeOut > 15 Then
|
||||
Var OtherOtherRefreshTimeOut = 0
|
||||
Script "-" "-"
|
||||
EndIf
|
||||
|
||||
Var OtherOtherRefreshTimeOut = OtherOtherRefreshTimeOut + 1
|
||||
|
||||
|
||||
TimerReset
|
||||
|
|
|
|||
|
|
@ -50,162 +50,7 @@
|
|||
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 LanguageShow = "THAI" Then
|
||||
InstanceSetString "ShowThai"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "ENG" Then
|
||||
InstanceSetString "ShowEng"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "MYANMAR" Then
|
||||
InstanceSetString "ShowMYANMAR"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "MSC" Then
|
||||
InstanceSetString "ShowMSC"
|
||||
EndIf
|
||||
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
; setvarint SlientRefreshEnable 1
|
||||
;DEBUGVAR SlientRefreshEnable
|
||||
|
||||
If SlientRefreshEnable = 1 Then
|
||||
If SaveStringInst = "RefreshNow" Then
|
||||
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||
Open CurrentOpenFile
|
||||
|
||||
If LanguageShow = "THAI" Then
|
||||
InstanceSetString "ShowThai"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "ENG" Then
|
||||
InstanceSetString "ShowEng"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "MYANMAR" Then
|
||||
InstanceSetString "ShowMYANMAR"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "MSC" Then
|
||||
InstanceSetString "ShowMSC"
|
||||
EndIf
|
||||
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
|
||||
If SlientRefreshIndex = 8 Then
|
||||
If inst_show9 = 0 Then
|
||||
GetXMLFileNameCurrentRunning CurrentOpenFile5
|
||||
Open CurrentOpenFile5
|
||||
Else
|
||||
Var SlientRefreshIndex = 9
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If langnext9 = "true" Then
|
||||
Var langnext9 = "false"
|
||||
RefreshAll
|
||||
EndIf
|
||||
|
||||
If inst_show9 = 1 Then
|
||||
|
||||
InstanceGetString SaveStringInst
|
||||
If SaveStringInst = "RefreshNow" Then
|
||||
|
||||
Else
|
||||
If LanguageShow = "ENG" Then
|
||||
Var SaveStringInst = "ShowEng"
|
||||
EndIf
|
||||
If LanguageShow = "THAI" Then
|
||||
Var SaveStringInst = "ShowThai"
|
||||
EndIf
|
||||
If LanguageShow = "MYANMAR" Then
|
||||
Var SaveStringInst = "ShowMYANMAR"
|
||||
EndIf
|
||||
If LanguageShow = "MSC" Then
|
||||
Var SaveStringInst = "ShowMSC"
|
||||
EndIf
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
Var Inst10CountMenuEnable = 0
|
||||
Var Inst10CountCurrentMenuEnable = 0
|
||||
GetFrameScrollBlockCount Inst10CountCurrentMenuEnable
|
||||
GetCurrentEnableBlockCount Inst10CountMenuEnable
|
||||
|
||||
If XMLMultiDebug = 1 Then
|
||||
DEBUGVAR Inst10CountMenuEnable
|
||||
DEBUGVAR Inst10CountMenuEnablePrev
|
||||
DEBUGVAR Inst10CountCurrentMenuEnable
|
||||
EndIf
|
||||
|
||||
If Inst10CountMenuEnablePrev = "" Then
|
||||
Var Inst10CountMenuEnablePrev = Inst10CountMenuEnable
|
||||
Var Inst10CountDownForOpenXML = 0
|
||||
Var Inst10CountDownOpenXMLFromMenuZero = 20
|
||||
EndIf
|
||||
|
||||
If Inst10CountMenuEnable = Inst10CountMenuEnablePrev Then
|
||||
|
||||
Else
|
||||
SAVELOG "Inst10 Refresh ===================================================================== Refresh"
|
||||
Var Inst10CountDownForOpenXML = 10
|
||||
Var Inst10CountMenuEnablePrev = CountMenuEnable
|
||||
EndIf
|
||||
|
||||
If Inst10CountMenuEnable = Inst10CountCurrentMenuEnable Then
|
||||
|
||||
Else
|
||||
If Inst10CountDownForOpenXML = 0 Then
|
||||
SAVELOG "Inst10 Refresh =======================Inst10CountMenuEnable / Inst10CountCurrentMenuEnable ============================================== Refresh"
|
||||
Var Inst10CountDownForOpenXML = 10
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If Inst10CountCurrentMenuEnable = 0 Then
|
||||
|
||||
DEBUGVAR Inst10CountDownOpenXMLFromMenuZero
|
||||
|
||||
If Inst10CountDownOpenXMLFromMenuZero > 0 Then
|
||||
Var Inst10CountDownOpenXMLFromMenuZero = Inst10CountDownOpenXMLFromMenuZero - 1
|
||||
If Inst10CountDownOpenXMLFromMenuZero = 0 Then
|
||||
Var Inst10CountDownOpenXMLFromMenuZero = 20
|
||||
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_pepsi_7up.lxml"
|
||||
EndIf
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If Inst10CountMenuEnable = Inst10CountCurrentMenuEnable Then
|
||||
If Inst10CountCurrentMenuEnable > 0 Then
|
||||
Var Inst10MenuLoaded = "done"
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If Inst10CountDownForOpenXML > 0 Then
|
||||
Var Inst10CountDownForOpenXML = Inst10CountDownForOpenXML - 1
|
||||
DEBUGVAR Inst10CountDownForOpenXML
|
||||
If Inst10CountDownForOpenXML = 0 Then
|
||||
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_pepsi_7up.lxml"
|
||||
EndIf
|
||||
EndIf
|
||||
;include="ROOT/taobin_project/inter/tha/xml/multi/instance10.inc"
|
||||
|
||||
|
||||
TimerReset
|
||||
|
|
|
|||
|
|
@ -53,142 +53,8 @@
|
|||
Var ice_tab_process_show = "Invisible"
|
||||
EndIf
|
||||
|
||||
;include="ROOT/taobin_project/inter/tha/xml/multi/instance6.inc"
|
||||
|
||||
|
||||
|
||||
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 langnext2 = "true" Then
|
||||
Var langnext2 = "false"
|
||||
RefreshAll
|
||||
EndIf
|
||||
|
||||
If inst_show3 = 1 Then
|
||||
|
||||
|
||||
InstanceGetString SaveStringInst
|
||||
If SaveStringInst = "RefreshNow" Then
|
||||
|
||||
Else
|
||||
If LanguageShow = "ENG" Then
|
||||
Var SaveStringInst = "ShowEng"
|
||||
EndIf
|
||||
If LanguageShow = "THAI" Then
|
||||
Var SaveStringInst = "ShowThai"
|
||||
EndIf
|
||||
If LanguageShow = "MYANMAR" Then
|
||||
Var SaveStringInst = "ShowMYANMAR"
|
||||
EndIf
|
||||
If LanguageShow = "MSC" Then
|
||||
Var SaveStringInst = "ShowMSC"
|
||||
EndIf
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
Var Inst6CountMenuEnable = 0
|
||||
Var Inst6CountCurrentMenuEnable = 0
|
||||
GetFrameScrollBlockCount Inst6CountCurrentMenuEnable
|
||||
GetCurrentEnableBlockCount Inst6CountMenuEnable
|
||||
|
||||
If XMLMultiDebug = 1 Then
|
||||
DEBUGVAR Inst6CountMenuEnable
|
||||
DEBUGVAR Inst6CountMenuEnablePrev
|
||||
DEBUGVAR Inst6CountCurrentMenuEnable
|
||||
EndIf
|
||||
|
||||
|
||||
If Inst6CountMenuEnablePrev = "" Then
|
||||
Var Inst6CountMenuEnablePrev = Inst6CountMenuEnable
|
||||
Var Inst6CountDownForOpenXML = 0
|
||||
Var Inst6CountDownOpenXMLFromMenuZero = 20
|
||||
EndIf
|
||||
|
||||
If Inst6CountMenuEnable = Inst6CountMenuEnablePrev Then
|
||||
|
||||
Else
|
||||
SAVELOG "Inst6 Refresh ===================================================================== Refresh"
|
||||
Var Inst6CountDownForOpenXML = 10
|
||||
Var Inst6CountMenuEnablePrev = CountMenuEnable
|
||||
EndIf
|
||||
|
||||
If Inst6CountMenuEnable = Inst6CountCurrentMenuEnable Then
|
||||
|
||||
Else
|
||||
If Inst6CountDownForOpenXML = 0 Then
|
||||
SAVELOG "Inst6 Refresh =======================Inst6CountMenuEnable / Inst6CountCurrentMenuEnable ============================================== Refresh"
|
||||
Var Inst6CountDownForOpenXML = 10
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If Inst6CountMenuEnable = Inst6CountCurrentMenuEnable Then
|
||||
If Inst6CountCurrentMenuEnable > 0 Then
|
||||
Var Inst6MenuLoaded = "done"
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
|
||||
If Inst6CountCurrentMenuEnable = 0 Then
|
||||
|
||||
DEBUGVAR Inst6CountDownOpenXMLFromMenuZero
|
||||
|
||||
If Inst6CountDownOpenXMLFromMenuZero > 0 Then
|
||||
Var Inst6CountDownOpenXMLFromMenuZero = Inst6CountDownOpenXMLFromMenuZero - 1
|
||||
If Inst6CountDownOpenXMLFromMenuZero = 0 Then
|
||||
Var Inst6CountDownOpenXMLFromMenuZero = 20
|
||||
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_tea.lxml"
|
||||
EndIf
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If Inst6CountDownForOpenXML > 0 Then
|
||||
Var Inst6CountDownForOpenXML = Inst6CountDownForOpenXML - 1
|
||||
DEBUGVAR Inst6CountDownForOpenXML
|
||||
If Inst6CountDownForOpenXML = 0 Then
|
||||
Open "ROOT/taobin_project/inter/tha/xml/multi/page_catalog_group_tea.lxml"
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If TeakRefreshTimeOut > 15 Then
|
||||
Var TeakRefreshTimeOut = 0
|
||||
Script "-" "-"
|
||||
EndIf
|
||||
|
||||
Var TeakRefreshTimeOut = TeakRefreshTimeOut + 1
|
||||
|
||||
|
||||
|
||||
TimerReset
|
||||
</EventTimeout>
|
||||
|
|
|
|||
|
|
@ -54,173 +54,8 @@
|
|||
EndIf
|
||||
|
||||
|
||||
|
||||
|
||||
GetVisible inst_show5
|
||||
;DEBUGVAR inst_show5
|
||||
;include="ROOT/taobin_project/inter/tha/xml/multi/instance8.inc"
|
||||
|
||||
InstanceGetString SaveStringInst
|
||||
;DEBUGVAR SaveStringInst
|
||||
|
||||
If inst_show5 = 1 Then
|
||||
InstanceGetString SaveStringInst
|
||||
;DEBUGVAR SaveStringInst
|
||||
If SaveStringInst = "RefreshNow" Then
|
||||
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||
Open CurrentOpenFile
|
||||
|
||||
If LanguageShow = "THAI" Then
|
||||
InstanceSetString "ShowThai"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "ENG" Then
|
||||
InstanceSetString "ShowEng"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "MYANMAR" Then
|
||||
InstanceSetString "ShowMYANMAR"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "MSC" Then
|
||||
InstanceSetString "ShowMSC"
|
||||
EndIf
|
||||
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
; setvarint SlientRefreshEnable 1
|
||||
;DEBUGVAR SlientRefreshEnable
|
||||
|
||||
If SlientRefreshEnable = 1 Then
|
||||
If SaveStringInst = "RefreshNow" Then
|
||||
GetXMLFileNameCurrentRunning CurrentOpenFile
|
||||
Open CurrentOpenFile
|
||||
|
||||
If LanguageShow = "THAI" Then
|
||||
InstanceSetString "ShowThai"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "ENG" Then
|
||||
InstanceSetString "ShowEng"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "MYANMAR" Then
|
||||
InstanceSetString "ShowMYANMAR"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "MSC" Then
|
||||
InstanceSetString "ShowMSC"
|
||||
EndIf
|
||||
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
|
||||
If SlientRefreshIndex = 5 Then
|
||||
If inst_show5 = 0 Then
|
||||
GetXMLFileNameCurrentRunning CurrentOpenFile5
|
||||
Open CurrentOpenFile5
|
||||
Else
|
||||
Var SlientRefreshIndex = 6
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If langnext7 = "true" Then
|
||||
Var langnext7 = "false"
|
||||
DEBUGVAR langnext7
|
||||
RefreshAll
|
||||
EndIf
|
||||
|
||||
If inst_show5 = 1 Then
|
||||
|
||||
|
||||
InstanceGetString SaveStringInst
|
||||
If SaveStringInst = "RefreshNow" Then
|
||||
|
||||
Else
|
||||
If LanguageShow = "ENG" Then
|
||||
Var SaveStringInst = "ShowEng"
|
||||
EndIf
|
||||
If LanguageShow = "THAI" Then
|
||||
Var SaveStringInst = "ShowThai"
|
||||
EndIf
|
||||
If LanguageShow = "MYANMAR" Then
|
||||
Var SaveStringInst = "ShowMYANMAR"
|
||||
EndIf
|
||||
If LanguageShow = "MSC" Then
|
||||
Var SaveStringInst = "ShowMSC"
|
||||
EndIf
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
|
||||
Var Inst8CountMenuEnable = 0
|
||||
Var Inst8CountCurrentMenuEnable = 0
|
||||
GetFrameScrollBlockCount Inst8CountCurrentMenuEnable
|
||||
GetCurrentEnableBlockCount Inst8CountMenuEnable
|
||||
|
||||
If XMLMultiDebug = 1 Then
|
||||
DEBUGVAR Inst8CountMenuEnable
|
||||
DEBUGVAR Inst8CountMenuEnablePrev
|
||||
DEBUGVAR Inst8CountCurrentMenuEnable
|
||||
EndIf
|
||||
|
||||
If Inst8CountMenuEnablePrev = "" Then
|
||||
Var Inst8CountMenuEnablePrev = Inst8CountMenuEnable
|
||||
Var Inst8CountDownForOpenXML = 0
|
||||
Var Inst8CountDownOpenXMLFromMenuZero = 20
|
||||
EndIf
|
||||
|
||||
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/page_catalog_group_whey.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/page_catalog_group_whey.lxml"
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
|
||||
|
||||
TimerReset
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue