doing soda

inter/tha/xml/multi/instance8.inc

@@ -0,0 +1,137 @@
+
+    GetVisible inst_show5
+    ;DEBUGVAR inst_show5
+
+
+    If inst_show5 = 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 SlientRefreshEnable = 1 Then
+        If SaveStringInst = "RefreshNow" Then
+            GetXMLFileNameCurrentRunning CurrentOpenFile
+            Open CurrentOpenFile
+
+            If show_eng = "true" Then
+                InstanceSetString "ShowEng"
+            Else
+                InstanceSetString "ShowThai"
+            EndIf
+
+        EndIf
+    EndIf
+
+
+	If SlientRefreshIndex = 5 Then
+		If inst_show5 = 0 Then
+			GetXMLFileNameCurrentRunning CurrentOpenFile5
+			Open CurrentOpenFile5
+		Else
+			Var SlientRefreshIndex = 6
+		EndIf
+    EndIf
+
+    If langnext4 = "true" Then
+        Var langnext4 = "false"
+        DEBUGVAR langnext4
+        RefreshAll
+    EndIf
+
+    If inst_show5 = 1 Then
+        
+
+        InstanceGetString SaveStringInst
+		If SaveStringInst = "RefreshNow" Then
+
+		Else
+			If LanguageShow = "ENG" Then
+				Var SaveStringInst = "ShowEng"
+				Var show_eng = "false"
+			EndIf
+			If LanguageShow = "THAI" Then
+				Var SaveStringInst = "ShowThai"
+				Var show_eng = "true"
+			EndIf
+
+			If LanguageShow = "MYANMAR" Then
+				Var show_eng = "false"
+				Var SaveStringInst = "ShowMYANMAR"
+			EndIf
+		EndIf
+    EndIf
+
+
+    Var Inst8CountMenuEnable = 0
+    Var Inst8CountCurrentMenuEnable = 0
+    GetFrameScrollBlockCount Inst8CountCurrentMenuEnable
+    GetCurrentEnableBlockCount Inst8CountMenuEnable
+
+    ;DEBUGVAR Inst8CountMenuEnable
+    ;DEBUGVAR Inst8CountMenuEnablePrev
+    ;DEBUGVAR Inst8CountCurrentMenuEnable
+
+    If Inst8CountMenuEnablePrev = "" Then
+        Var Inst8CountMenuEnablePrev = Inst8CountMenuEnable
+        Var Inst8CountDownForOpenXML = 0
+        Var Inst8CountDownOpenXMLFromMenuZero = 20
+    EndIf
+
+    If Inst8CountMenuEnable = Inst8CountMenuEnablePrev Then
+
+    Else
+        SAVELOG "Inst8 Refresh ===================================================================== Refresh"
+        Var Inst8CountDownForOpenXML = 10
+        Var Inst8CountMenuEnablePrev = CountMenuEnable
+    EndIf
+
+   If Inst8CountMenuEnable = Inst8CountCurrentMenuEnable Then
+
+    Else
+        If Inst8CountDownForOpenXML = 0 Then
+            SAVELOG "Inst8 Refresh =======================Inst8CountMenuEnable / Inst8CountCurrentMenuEnable ============================================== Refresh"
+            Var Inst8CountDownForOpenXML = 10
+        EndIf
+    EndIf
+
+
+    If Inst8CountCurrentMenuEnable = 0 Then
+
+        DEBUGVAR Inst8CountDownOpenXMLFromMenuZero
+
+        If Inst8CountDownOpenXMLFromMenuZero > 0 Then
+            Var Inst8CountDownOpenXMLFromMenuZero = Inst8CountDownOpenXMLFromMenuZero - 1
+            If Inst8CountDownOpenXMLFromMenuZero = 0 Then
+                Var Inst8CountDownOpenXMLFromMenuZero = 20
+                Open "ROOT/taobin_project/inter/tha/xml/multi/v3/page_catalog_group_forkid.lxml"
+            EndIf
+        EndIf
+    EndIf
+
+    If Inst8CountMenuEnable = Inst8CountCurrentMenuEnable Then
+        If Inst8CountCurrentMenuEnable > 0 Then
+            Var Inst8MenuLoaded = "done"
+        EndIf
+    EndIf
+
+    If Inst8CountDownForOpenXML > 0 Then
+        Var Inst8CountDownForOpenXML = Inst8CountDownForOpenXML - 1
+        DEBUGVAR Inst8CountDownForOpenXML
+        If Inst8CountDownForOpenXML = 0 Then
+            Open "ROOT/taobin_project/inter/tha/xml/multi/v3/page_catalog_group_forkid.lxml"
+        EndIf
+    EndIf
+