156 lines
4.2 KiB
HTML
156 lines
4.2 KiB
HTML
|
|
|
|
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
|