Merge remote-tracking branch 'origin/masterpiece' into th_inter
This commit is contained in:
commit
7c084cd7c6
92 changed files with 70785 additions and 21165 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
|
||||
|
||||
|
|
|
|||
|
|
@ -18,6 +18,8 @@
|
|||
|
||||
DEBUGVAR ToppingNewShow
|
||||
|
||||
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/sometime/campaign_sound.ev"
|
||||
|
||||
DEBUGVAR OpenFromPageBoard
|
||||
If OpenFromPageBoard = 1 Then
|
||||
Var OpenFromPageBoard = 0
|
||||
|
|
@ -44,16 +46,16 @@
|
|||
Var web_telnumOK = ""
|
||||
|
||||
Var PicturePath = "/mnt/sdcard/coffeevending/taobin_project/image/page_doing/"
|
||||
|
||||
If CocktailShow = "true" Then
|
||||
Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_catalog_cocktail.xml"
|
||||
|
||||
If CocktailShow = "true" Then
|
||||
Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_catalog_cocktail.xml"
|
||||
EndIf
|
||||
|
||||
|
||||
If TermTemOnline = "true" Then
|
||||
Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_tt_catalog.xml"
|
||||
EndIf
|
||||
|
||||
If Seeker = "curr" Then
|
||||
|
||||
If Seeker = "curr" Then
|
||||
Machine DoorLidClose
|
||||
EndIf
|
||||
|
||||
|
|
@ -64,11 +66,11 @@
|
|||
|
||||
CoinVending OFF
|
||||
|
||||
|
||||
|
||||
; Clear value
|
||||
Topping "clear" "-"
|
||||
|
||||
|
||||
|
||||
Var DirImage = "ROOT/taobin_project/image/page2_inter/"
|
||||
|
||||
Var StrawAutoRelease1 = "false"
|
||||
|
|
@ -98,7 +100,7 @@
|
|||
|
||||
;GenHashWithTimeStamp QRCODE99x
|
||||
WEB "ENABLE"
|
||||
|
||||
|
||||
Else
|
||||
Var ShowNetworkProblem = "Enable"
|
||||
Var ShowButtonClick2 = "Invisible"
|
||||
|
|
@ -114,9 +116,9 @@
|
|||
Var ShowNetworkProblem = "Invisible"
|
||||
Var ShowNetworkProblemText = ""
|
||||
EndIf
|
||||
|
||||
|
||||
; 1035 is Coke.
|
||||
STRCONTAIN "1035" MaterialAvailable CokeUI
|
||||
STRCONTAIN "1035" MaterialAvailable CokeUI
|
||||
|
||||
Var bnSodaAndOther = DirImage + "/bn_soda_coke.png"
|
||||
Var bpSodaAndOther = DirImage + "/bp_soda_coke.png"
|
||||
|
|
@ -131,8 +133,8 @@
|
|||
Var QRCODE99_Y = 1718
|
||||
|
||||
Var showCart = "Invisible"
|
||||
If MultiPayEnable = "true" Then
|
||||
|
||||
If MultiPayEnable = "true" Then
|
||||
|
||||
If CART_COUNT = 1 Then
|
||||
Var showCart = "Enable"
|
||||
Var cart_image_bn = DirImageCart + "/bn_cart1.png"
|
||||
|
|
@ -141,7 +143,7 @@
|
|||
Var QRCODE99_Y = 1580
|
||||
|
||||
EndIf
|
||||
|
||||
|
||||
If CART_COUNT = 2 Then
|
||||
Var showCart = "Enable"
|
||||
Var cart_image_bn = DirImageCart + "/bn_cart2.png"
|
||||
|
|
@ -151,7 +153,7 @@
|
|||
|
||||
EndIf
|
||||
|
||||
|
||||
|
||||
|
||||
If CART_COUNT = 3 Then
|
||||
Open "ROOT/taobin_project/xml/page_payment_multi.xml"
|
||||
|
|
@ -169,10 +171,10 @@
|
|||
|
||||
If XMLProfile = "taobin_notopup" Then
|
||||
Var ButtontoTopupMenu = "Disable"
|
||||
|
||||
|
||||
EndIf
|
||||
|
||||
|
||||
|
||||
Var menu_name_eng_hot = ""
|
||||
Var menu_desc_eng_hot = ""
|
||||
Var menu_name_thai_hot = ""
|
||||
|
|
@ -194,29 +196,29 @@
|
|||
TRY "ROOT/taobin_project/xml/sometime/RoadShow.ev"
|
||||
|
||||
|
||||
|
||||
|
||||
If BoxID = 0 Then
|
||||
|
||||
|
||||
If BoxID = 0 Then
|
||||
RebootWithCause "BoxID was zero"
|
||||
EndIf
|
||||
|
||||
|
||||
|
||||
|
||||
DEBUGVAR ShowButtonClick2
|
||||
|
||||
DEBUGVAR MenuKidButtonState
|
||||
DEBUGVAR New_Payment
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Var PromotionIDCurrentOrder = 0
|
||||
RootLayoutVisible 3 "show"
|
||||
|
||||
|
||||
Var ButtonLanguageCurrentXPosition = 1005
|
||||
Var ButtonLanguageCurrentYPosition = 458 - 38
|
||||
|
||||
Var ButtonLanguageListXPosition = 970
|
||||
Var ButtonLanguageListXPosition = 970
|
||||
Var ButtonLanguageListYPosition = 450 - 38
|
||||
|
||||
Var SelectedMenu = ""
|
||||
|
|
@ -232,7 +234,7 @@
|
|||
|
||||
</EventOpen>
|
||||
<Timeout> 1000 </Timeout>
|
||||
<EventTimeout>
|
||||
<EventTimeout>
|
||||
|
||||
;SAVELOG SoundPlaying
|
||||
|
||||
|
|
@ -241,15 +243,15 @@
|
|||
EndIf
|
||||
|
||||
If countDownRetrun = 0 Then
|
||||
If Seeker = "next" Then
|
||||
If Seeker = "next" Then
|
||||
RootLayoutVisible 3 "hide"
|
||||
Open "ROOT/taobin_project/xml/page_brewing3Conti.xml"
|
||||
Open "ROOT/taobin_project/xml/page_brewing3Conti.xml"
|
||||
Else
|
||||
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
|
||||
|
||||
|
||||
; zone cup on arm
|
||||
If CupOnArm = "true" Then
|
||||
|
|
@ -280,7 +282,7 @@
|
|||
DEBUGVAR Inst11MenuLoaded
|
||||
|
||||
DEBUGVAR MultiProcessTimer
|
||||
|
||||
|
||||
|
||||
If MultiProcess = "Enable" Then
|
||||
If SelectedMenu = "coffee" Then
|
||||
|
|
@ -289,7 +291,7 @@
|
|||
Var MultiProcess = "Invisible"
|
||||
TabMenuVisibleInst 2
|
||||
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/page_instance2.xml"
|
||||
Else
|
||||
Else
|
||||
If MultiProcessTimer >= 20 Then
|
||||
Var MultiProcess = "Invisible"
|
||||
TabMenuVisibleInst 2
|
||||
|
|
@ -400,10 +402,10 @@
|
|||
|
||||
Refresh
|
||||
TimerReset
|
||||
</EventTimeout>
|
||||
</EventTimeout>
|
||||
|
||||
<EventChangeStatus>
|
||||
;If ChangeStatus = "payout-end" Then
|
||||
;If ChangeStatus = "payout-end" Then
|
||||
; Var ChangeOK = 1
|
||||
;EndIf
|
||||
</EventChangeStatus>
|
||||
|
|
@ -416,15 +418,15 @@
|
|||
Cart "DeleteMenuID" "ALL"
|
||||
Var web_readyOK = web_ready
|
||||
Var web_telnumOK = web_telnum
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_payment.xml"
|
||||
EndIf
|
||||
|
||||
|
||||
Else
|
||||
EndIf
|
||||
|
||||
|
||||
</EventWebApp>
|
||||
|
||||
<Image>
|
||||
|
|
@ -448,26 +450,31 @@
|
|||
If LanguageShow = "MALAY" Then
|
||||
Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_eng/What_would_you_like_to_drink_today.mp3"
|
||||
EndIf
|
||||
|
||||
|
||||
If LanguageShow = "THAI" Then
|
||||
Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/taobin_sawade.mp3"
|
||||
|
||||
Var DirImage2 = "ROOT/taobin_project/image/drink_option/"
|
||||
Var DirImageAlter = "ROOT/taobin_project/image/page3_2/"
|
||||
|
||||
If SongkranSoundCampaign = 1 Then
|
||||
Var PlaySoundLag = GreetingSound[SoundCampaignIndex]
|
||||
EndIf
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "MYANMAR" Then
|
||||
If LanguageShow = "MYANMAR" Then
|
||||
Var show_eng = "true"
|
||||
Var DirImage2 = "ROOT/taobin_project/image/drink_option_mmr/"
|
||||
Var DirImageAlter = "ROOT/taobin_project/image/page3_2_mmr/"
|
||||
EndIf
|
||||
|
||||
If LanguageShow = "MSC" Then
|
||||
|
||||
If LanguageShow = "MSC" Then
|
||||
Var show_eng = "true"
|
||||
Var DirImage2 = "ROOT/taobin_project/inter/hkg/image/drink_option_msc/"
|
||||
Var DirImageAlter = "ROOT/taobin_project/inter/hkg/image/page3_2_msc/"
|
||||
EndIf
|
||||
|
||||
Play PlaySoundLag
|
||||
Play PlaySoundLag
|
||||
Var countDownRetrun = 120
|
||||
|
||||
Var LanguageButtonEnable = "Enable"
|
||||
|
|
@ -485,10 +492,10 @@
|
|||
<FilenamePress> "ROOT/taobin_project/image/page2/bn_back_arrow.png" </FilenamePress>
|
||||
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
|
||||
<Volume> SoundVolume </Volume>
|
||||
<EventClick>
|
||||
If Seeker = "next" Then
|
||||
<EventClick>
|
||||
If Seeker = "next" Then
|
||||
RootLayoutVisible 3 "hide"
|
||||
Open "ROOT/taobin_project/xml/page_brewing3Conti.xml"
|
||||
Open "ROOT/taobin_project/xml/page_brewing3Conti.xml"
|
||||
Else
|
||||
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
|
||||
EndIf
|
||||
|
|
@ -519,7 +526,7 @@
|
|||
|
||||
|
||||
|
||||
<FrameScroll>
|
||||
<FrameScroll>
|
||||
<X> 1 </X>
|
||||
<Y> 844 </Y>
|
||||
<Width> 1080 </Width>
|
||||
|
|
@ -544,7 +551,7 @@
|
|||
Var ColumnGravity[1] = 2
|
||||
Var ColumnGravity[2] = 2
|
||||
Var ColumnGravity[3] = 2
|
||||
|
||||
|
||||
</Script>
|
||||
<Block>
|
||||
<Width> 296 </Width>
|
||||
|
|
@ -558,15 +565,15 @@
|
|||
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
|
||||
<Volume> SoundVolume </Volume>
|
||||
|
||||
<EventClick>
|
||||
|
||||
<EventClick>
|
||||
|
||||
Var OpenFromMulti = 1
|
||||
|
||||
|
||||
TRY "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/event/script_common_for_open_promotion_xml.ev"
|
||||
|
||||
|
||||
RootLayoutVisible 3 "hide"
|
||||
RootLayoutVisible 13 "hide"
|
||||
|
||||
|
||||
</EventClick>
|
||||
<Language>
|
||||
<ID> 000003 </ID>
|
||||
|
|
@ -588,12 +595,12 @@
|
|||
<FilenamePress> Var(DirImage + "/bp_coffee.png") </FilenamePress>
|
||||
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
|
||||
<Volume> SoundVolume </Volume>
|
||||
<EventClick>
|
||||
<EventClick>
|
||||
|
||||
If Inst5MenuLoaded = "done" Then
|
||||
Var MultiProcess = "Invisible"
|
||||
TabMenuVisibleInst 2
|
||||
|
||||
TabMenuVisibleInst 2
|
||||
|
||||
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/page_instance2.xml"
|
||||
Else
|
||||
Var MultiProcessTimer = 0
|
||||
|
|
@ -630,10 +637,10 @@
|
|||
Else
|
||||
Var show_eng = "true"
|
||||
EndIf
|
||||
|
||||
|
||||
RootLayoutVisible 3 "hide"
|
||||
RootLayoutVisible 13 "hide"
|
||||
|
||||
|
||||
; eng
|
||||
Open "ROOT/taobin_project/spiral/xml/page_catalog_vending_machine.xml"
|
||||
|
||||
|
|
@ -659,17 +666,17 @@
|
|||
<FilenamePress> Var(DirImage + "/bp_tea.png") </FilenamePress>
|
||||
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
|
||||
<Volume> SoundVolume </Volume>
|
||||
<EventClick>
|
||||
<EventClick>
|
||||
|
||||
If Inst6MenuLoaded = "done" Then
|
||||
Var MultiProcess = "Invisible"
|
||||
TabMenuVisibleInst 3
|
||||
|
||||
TabMenuVisibleInst 3
|
||||
|
||||
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/page_instance2.xml"
|
||||
Else
|
||||
Var MultiProcessTimer = 0
|
||||
Var MultiProcess = "Enable"
|
||||
Var SelectedMenu = "tea"
|
||||
Var SelectedMenu = "tea"
|
||||
EndIf
|
||||
|
||||
</EventClick>
|
||||
|
|
@ -693,17 +700,17 @@
|
|||
<FilenamePress> Var(DirImage + "/bp_cho_caramel.png") </FilenamePress>
|
||||
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
|
||||
<Volume> SoundVolume </Volume>
|
||||
<EventClick>
|
||||
<EventClick>
|
||||
|
||||
If Inst7MenuLoaded = "done" Then
|
||||
Var MultiProcess = "Invisible"
|
||||
TabMenuVisibleInst 4
|
||||
|
||||
TabMenuVisibleInst 4
|
||||
|
||||
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/page_instance2.xml"
|
||||
Else
|
||||
Var MultiProcessTimer = 0
|
||||
Var MultiProcess = "Enable"
|
||||
Var SelectedMenu = "caramel"
|
||||
Var SelectedMenu = "caramel"
|
||||
EndIf
|
||||
</EventClick>
|
||||
<Language>
|
||||
|
|
@ -727,17 +734,17 @@
|
|||
<FilenamePress> bpSodaAndOther </FilenamePress>
|
||||
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
|
||||
<Volume> SoundVolume </Volume>
|
||||
<EventClick>
|
||||
<EventClick>
|
||||
|
||||
If Inst11MenuLoaded = "done" Then
|
||||
Var MultiProcess = "Invisible"
|
||||
TabMenuVisibleInst 7
|
||||
|
||||
|
||||
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/page_instance2.xml"
|
||||
Else
|
||||
Var MultiProcessTimer = 0
|
||||
Var MultiProcess = "Enable"
|
||||
Var SelectedMenu = "soda"
|
||||
Var SelectedMenu = "soda"
|
||||
EndIf
|
||||
</EventClick>
|
||||
<Language>
|
||||
|
|
@ -761,17 +768,17 @@
|
|||
<FilenamePress> Var(DirImage + "/bp_Pepsi_7up.png") </FilenamePress>
|
||||
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
|
||||
<Volume> SoundVolume </Volume>
|
||||
<EventClick>
|
||||
<EventClick>
|
||||
|
||||
If Inst10MenuLoaded = "done" Then
|
||||
Var MultiProcess = "Invisible"
|
||||
TabMenuVisibleInst 8
|
||||
|
||||
|
||||
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/page_instance2.xml"
|
||||
Else
|
||||
Var MultiProcessTimer = 0
|
||||
Var MultiProcess = "Enable"
|
||||
Var SelectedMenu = "pepsi"
|
||||
Var SelectedMenu = "pepsi"
|
||||
EndIf
|
||||
|
||||
</EventClick>
|
||||
|
|
@ -798,17 +805,17 @@
|
|||
<FilenamePress> Var(DirImage + "/bn_kidmenu.png") </FilenamePress>
|
||||
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
|
||||
<Volume> SoundVolume </Volume>
|
||||
<EventClick>
|
||||
<EventClick>
|
||||
|
||||
If Inst8MenuLoaded = "done" Then
|
||||
Var MultiProcess = "Invisible"
|
||||
TabMenuVisibleInst 5
|
||||
|
||||
TabMenuVisibleInst 5
|
||||
|
||||
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/page_instance2.xml"
|
||||
Else
|
||||
Var MultiProcessTimer = 0
|
||||
Var MultiProcess = "Enable"
|
||||
Var SelectedMenu = "kidmenu"
|
||||
Var SelectedMenu = "kidmenu"
|
||||
EndIf
|
||||
</EventClick>
|
||||
<Language>
|
||||
|
|
@ -832,16 +839,16 @@
|
|||
<FilenamePress> Var(DirImage + "/bp_appfast.png") </FilenamePress>
|
||||
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
|
||||
<Volume> SoundVolume </Volume>
|
||||
<EventClick>
|
||||
<EventClick>
|
||||
If Inst8MenuLoaded = "done" Then
|
||||
Var MultiProcess = "Invisible"
|
||||
TabMenuVisibleInst 5
|
||||
|
||||
TabMenuVisibleInst 5
|
||||
|
||||
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/page_instance2.xml"
|
||||
Else
|
||||
Var MultiProcessTimer = 0
|
||||
Var MultiProcess = "Enable"
|
||||
Var SelectedMenu = "appfast"
|
||||
Var SelectedMenu = "appfast"
|
||||
EndIf
|
||||
|
||||
</EventClick>
|
||||
|
|
@ -866,7 +873,7 @@
|
|||
<FilenamePress> Var(DirImage + "/bp_protein.png") </FilenamePress>
|
||||
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
|
||||
<Volume> SoundVolume </Volume>
|
||||
<EventClick>
|
||||
<EventClick>
|
||||
TabMenuVisibleInst 5
|
||||
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/page_instance2.xml"
|
||||
|
||||
|
|
@ -892,17 +899,17 @@
|
|||
<FilenamePress> Var(DirImage + "/bp_HealthyOption.png") </FilenamePress>
|
||||
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
|
||||
<Volume> SoundVolume </Volume>
|
||||
<EventClick>
|
||||
|
||||
<EventClick>
|
||||
|
||||
If Inst9MenuLoaded = "done" Then
|
||||
Var MultiProcess = "Invisible"
|
||||
TabMenuVisibleInst 6
|
||||
|
||||
|
||||
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/inter/tha/xml/multi/page_instance2.xml"
|
||||
Else
|
||||
Var MultiProcessTimer = 0
|
||||
Var MultiProcess = "Enable"
|
||||
Var SelectedMenu = "healthy"
|
||||
Var SelectedMenu = "healthy"
|
||||
EndIf
|
||||
|
||||
</EventClick>
|
||||
|
|
@ -928,11 +935,11 @@
|
|||
<FilenamePress> Var(DirImage + "/bp_main_page_member.png") </FilenamePress>
|
||||
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
|
||||
<Volume> SoundVolume </Volume>
|
||||
<EventClick>
|
||||
<EventClick>
|
||||
; eng
|
||||
Var CheckMemberPage = "ROOT/taobin_project/xml/page_before_check_member.xml"
|
||||
Open CheckMemberPage
|
||||
|
||||
|
||||
</EventClick>
|
||||
|
||||
<Language>
|
||||
|
|
@ -953,11 +960,11 @@
|
|||
<FilenameDisable> Var(DirImage + "/bp_main_page_topup.png") </FilenameDisable>
|
||||
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
|
||||
<Volume> SoundVolume </Volume>
|
||||
<EventClick>
|
||||
<EventClick>
|
||||
; eng
|
||||
Var PayDetail=""
|
||||
Open "ROOT/taobin_project/xml/page_back_to_topup.xml"
|
||||
|
||||
Open "ROOT/taobin_project/xml/page_back_to_topup.xml"
|
||||
|
||||
</EventClick>
|
||||
<Language>
|
||||
<ID> 002004 </ID>
|
||||
|
|
@ -975,10 +982,10 @@
|
|||
<Color> "0xFF0000" </Color>
|
||||
<Width> 1080 </Width>
|
||||
<Height> 60 </Height>
|
||||
<EventClick>
|
||||
|
||||
<EventClick>
|
||||
|
||||
Open "ROOT/taobin_project/xml/page_camera.xml"
|
||||
|
||||
|
||||
</EventClick>
|
||||
</Button>
|
||||
|
||||
|
|
@ -1002,7 +1009,7 @@
|
|||
|
||||
Var web_readyOK = web_ready
|
||||
Var web_telnumOK = web_telnum
|
||||
|
||||
|
||||
Var web_app_prepar = "true"
|
||||
|
||||
Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_payment.xml"
|
||||
|
|
@ -1010,7 +1017,7 @@
|
|||
EndIf
|
||||
Else
|
||||
EndIf
|
||||
|
||||
|
||||
</EventWebApp>
|
||||
|
||||
|
||||
|
|
@ -1044,12 +1051,12 @@
|
|||
<Height> 100 </Height>
|
||||
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
|
||||
<Volume> SoundVolume </Volume>
|
||||
<EventClick>
|
||||
<EventClick>
|
||||
Var ClickCountMainTe = ClickCountMainTe + 1
|
||||
|
||||
|
||||
DEBUGVAR ClickCountMainTe
|
||||
|
||||
If ClickCountMainTe = 2 Then
|
||||
If ClickCountMainTe = 2 Then
|
||||
Var OpenRouteManTest = 1
|
||||
Open "ROOT/taobin_project/xml/page_back_to_main.xml"
|
||||
Var ClickCountMainTe = 0
|
||||
|
|
@ -1074,7 +1081,7 @@
|
|||
Var bg_lidProblem_ST = "Invisible"
|
||||
Var GetLidButtonState2 = "Enable"
|
||||
Var bg_lidProblem_ST2 ="Invisible"
|
||||
|
||||
|
||||
Var EnableGetMoreStrawFileName2 = "Enable"
|
||||
Var bg_strawProblem_ST2 ="Invisible"
|
||||
</EventUnitTest1>
|
||||
|
|
@ -1084,7 +1091,7 @@
|
|||
Var bg_lidProblem_ST = "Enable"
|
||||
Var GetLidButtonState2 = "Invisible"
|
||||
Var bg_lidProblem_ST2 ="Enable"
|
||||
|
||||
|
||||
Var XStraw = 376
|
||||
Var EnableGetMoreStrawFileName2 = "Invisible"
|
||||
Var bg_strawProblem_ST2 ="Enable"
|
||||
|
|
@ -1097,7 +1104,7 @@
|
|||
Var CountDownBrewing = 122
|
||||
Var MachineStage = "testing"
|
||||
Var BREW_CNT = 122
|
||||
|
||||
|
||||
Var InternationalEnable = 1
|
||||
DEBUGVAR InternationalEnable
|
||||
Var LanguageObjectShow = "Enable"
|
||||
|
|
|
|||
|
|
@ -55,213 +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
|
||||
|
||||
;inter-multi
|
||||
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
|
||||
|
||||
;inter-multi
|
||||
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
|
||||
;inter-multi
|
||||
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
|
||||
;inter-multi
|
||||
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,176 +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
|
||||
|
||||
;inter-multi
|
||||
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
|
||||
|
||||
;inter-multi
|
||||
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
|
||||
;inter-multi
|
||||
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,174 +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
|
||||
|
||||
;inter-multi
|
||||
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
|
||||
|
||||
;inter-multi
|
||||
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
|
||||
;inter-multi
|
||||
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,155 +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
|
||||
|
||||
;inter-multi
|
||||
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
|
||||
|
||||
;inter-multi
|
||||
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,165 +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
|
||||
|
||||
;inter-multi
|
||||
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
|
||||
|
||||
;inter-multi
|
||||
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
|
||||
;inter-multi
|
||||
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,143 +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
|
||||
;inter-multi
|
||||
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,176 +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
|
||||
|
||||
;inter-multi
|
||||
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
|
||||
|
||||
;inter-multi
|
||||
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
|
||||
;inter-multi
|
||||
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