fix: resolve white screen bug and 3-language bug

xml/menutab/page_catalog_group_tea.xml

@@ -85,7 +85,7 @@
         Var Menu7Selected = "Enable"
         ; 8 cocktail
         Var Menu8Selected = "Invisible"
-
+		Var Menu22Selected = "Enable"
         If CocktailShow = "true" Then 
             Var Menu7Selected = "Invisible"
             Var Menu8Selected = "Enable"
@@ -193,14 +193,13 @@
     EndIf
 
 
-    GetVisible inst_show3
-    ;DEBUGVAR inst_show3
+    GetVisible inst_show
+    ;DEBUGVAR inst_show
 
-    
+    InstanceGetString SaveStringInst
+    ;DEBUGVAR SaveStringInst
 
-    If inst_show3 = 1 Then
-        InstanceGetString SaveStringInst
-        ;DEBUGVAR SaveStringInst
+    If inst_show = 1 Then
         If SaveStringInst = "RefreshNow" Then
             GetXMLFileNameCurrentRunning CurrentOpenFile
             Open CurrentOpenFile
@@ -212,20 +211,23 @@
             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
+    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
 
 
@@ -302,9 +304,23 @@
     DEBUGVAR SaveStringInst
     DEBUGVAR show_eng
 
+	DEBUGVAR EnabledBlockUpdateInst6
+	DEBUGVAR EnabledBlocksDrawInst6
+	
+	
     If SaveStringInst = "RefreshNow" Then
         GetXMLFileNameCurrentRunning CurrentOpenFile
         Open CurrentOpenFile
+	Else
+		If EnabledBlocksDrawInst6 = EnabledBlockUpdateInst6 Then
+			Var StatusRefresh = "NoRefresh"
+			DEBUGVAR StatusRefresh
+		Else 
+			Var StatusRefresh = "Refresh"
+			DEBUGVAR StatusRefresh
+			GetXMLFileNameCurrentRunning CurrentOpenFile2
+			Open CurrentOpenFile2
+		EndIf
     EndIf
 
     If show_eng = "true" Then