do multi

inter/tha/xml/multi/instance6.inc

@@ -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
+
+