137 lines
No EOL
3.6 KiB
HTML
137 lines
No EOL
3.6 KiB
HTML
|
|
|
|
|
|
|
|
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
|
|
|
|
|