167 lines
No EOL
4.4 KiB
HTML
167 lines
No EOL
4.4 KiB
HTML
|
|
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
|
|
|
|
|