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