fix: resolve white screen bug and 3-language bug

2024-11-19 10:48:10 +07:00 · 2024-11-19 10:48:10 +07:00 · 9a6a893984
commit 9a6a893984
parent ecc9ba1fe0
38 changed files with 6928 additions and 4012 deletions
--- a/xml/menutab/page_catalog_group_coffee.skt
+++ b/xml/menutab/page_catalog_group_coffee.skt
@ -98,6 +98,50 @@
    TimerReset
 </EventTimeout> 

+
+<EventOnShow>
+    InstanceGetString SaveStringInst
+    DEBUGVAR SaveStringInst
+    DEBUGVAR show_eng
+	DEBUGVAR EnabledBlockUpdateInst5
+	DEBUGVAR EnabledBlocksDrawInst5
+
+	
+	
+    If SaveStringInst = "RefreshNow" Then
+        GetXMLFileNameCurrentRunning CurrentOpenFile
+        Open CurrentOpenFile
+    Else
+        If EnabledBlocksDrawInst5 = EnabledBlockUpdateInst5 Then
+            Var StatusRefresh = "NoRefresh"
+            DEBUGVAR StatusRefresh
+	    Else 
+            Var StatusRefresh = "Refresh"
+            DEBUGVAR StatusRefresh
+            GetXMLFileNameCurrentRunning CurrentOpenFile2
+            Open CurrentOpenFile2
+	    EndIf
+    EndIf
+
+    If show_eng = "true" Then 
+        If SaveStringInst = "ShowThai" Then
+
+            InstanceSetString "ShowEng"
+            GetXMLFileNameCurrentRunning CurrentOpenFile
+            Open CurrentOpenFile
+        EndIf
+    Else
+        If SaveStringInst = "ShowEng" Then
+
+            InstanceSetString "ShowThai"
+            GetXMLFileNameCurrentRunning CurrentOpenFile
+            Open CurrentOpenFile
+        EndIf
+    EndIf
+
+
+</EventOnShow>
+
 <?hurr 
    #include=menu_catalog_new.py
 ?>
--- a/xml/menutab/page_catalog_group_coffee.xml
+++ b/xml/menutab/page_catalog_group_coffee.xml
@ -78,6 +78,7 @@
        ; 5 fruit
        Var Menu5Selected = "Invisible"
        ;Var Menu6Selected = "Enable"
+		Var Menu22Selected = "Enable"

        Var Menu61Selected = "Enable"
        Var Menu62Selected = "Enable"
@ -118,7 +119,7 @@
            Var Menu22Selected = "Invisible"
        EndIf
        ;
-        
+        Var Menu22Selected = "Enable"



@ -158,12 +159,15 @@
    SetInstanceIgnoreTouch

 	DEBUGVAR SlientRefreshIndex
-	
+
 	If SlientRefreshIndex = 2 Then
 		Var SlientRefreshIndex = 3

 	EndIf

+	DEBUGVAR EnabledBlocks5
+
+
 </EventOpen>


@ -182,7 +186,6 @@
 <Timeout> 1000 </Timeout>
 <EventTimeout> 
    ;DEBUGVAR ICE_PROCESS_STATUS
-
    If ICE_PROCESS_STATUS = 2 Then
        Var ice_tab_process_show = "Enable"
        Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT
@ -238,6 +241,9 @@
    EndIf


+
+	
+
    TimerReset
 </EventTimeout> 

@ -306,14 +312,29 @@
 </EventClick>
 </Button>

+
 <EventOnShow>
    InstanceGetString SaveStringInst
    DEBUGVAR SaveStringInst
    DEBUGVAR show_eng
+	DEBUGVAR EnabledBlockUpdateInst5
+	DEBUGVAR EnabledBlocksDrawInst5

+	
+	
    If SaveStringInst = "RefreshNow" Then
        GetXMLFileNameCurrentRunning CurrentOpenFile
        Open CurrentOpenFile
+	Else
+		If EnabledBlocksDrawInst5 = EnabledBlockUpdateInst5 Then
+			Var StatusRefresh = "NoRefresh"
+			DEBUGVAR StatusRefresh
+		Else 
+			Var StatusRefresh = "Refresh"
+			DEBUGVAR StatusRefresh
+			GetXMLFileNameCurrentRunning CurrentOpenFile2
+			Open CurrentOpenFile2
+		EndIf
    EndIf

    If show_eng = "true" Then 
@ -332,15 +353,20 @@
        EndIf
    EndIf

+
 </EventOnShow>

+
+
+
+
 ;
 <ListView1>
    <Width> 1080 </Width>
    <Height> "auto" </Height>   
    <X> 0 </X>
    <Y> 395 </Y>
-    <Row2>
+	<Row2>
    <State>"Enable"</State>
    <Width> 896 </Width>
    <Height> 102 </Height> 
--- a/xml/menutab/page_catalog_group_forkid.skt
+++ b/xml/menutab/page_catalog_group_forkid.skt
@ -107,6 +107,50 @@
 </EventTimeout> 


+<EventOnShow>
+    InstanceGetString SaveStringInst
+    DEBUGVAR SaveStringInst
+    DEBUGVAR show_eng
+
+	DEBUGVAR EnabledBlockUpdateInst8
+	DEBUGVAR EnabledBlocksDrawInst8
+	
+	
+
+    If SaveStringInst = "RefreshNow" Then
+        GetXMLFileNameCurrentRunning CurrentOpenFile
+        Open CurrentOpenFile
+    Else
+        If EnabledBlocksDrawInst8 = EnabledBlockUpdateInst8 Then
+            Var StatusRefresh = "NoRefresh"
+            DEBUGVAR StatusRefresh
+        Else 
+            Var StatusRefresh = "Refresh"
+            DEBUGVAR StatusRefresh
+            GetXMLFileNameCurrentRunning CurrentOpenFile2
+            Open CurrentOpenFile2
+        EndIf
+    EndIf
+
+    If show_eng = "true" Then 
+        If SaveStringInst = "ShowThai" Then
+
+            InstanceSetString "ShowEng"
+            GetXMLFileNameCurrentRunning CurrentOpenFile
+            Open CurrentOpenFile
+        EndIf
+    Else
+        If SaveStringInst = "ShowEng" Then
+
+            InstanceSetString "ShowThai"
+            GetXMLFileNameCurrentRunning CurrentOpenFile
+            Open CurrentOpenFile
+        EndIf
+    EndIf
+
+</EventOnShow>
+
+
 <?hurr 
    #include=menu_catalog_new.py
 ?>
--- a/xml/menutab/page_catalog_group_forkid.xml
+++ b/xml/menutab/page_catalog_group_forkid.xml
@ -320,9 +320,24 @@
    DEBUGVAR SaveStringInst
    DEBUGVAR show_eng

+	DEBUGVAR EnabledBlockUpdateInst8
+	DEBUGVAR EnabledBlocksDrawInst8
+	
+	
+
    If SaveStringInst = "RefreshNow" Then
        GetXMLFileNameCurrentRunning CurrentOpenFile
        Open CurrentOpenFile
+	Else
+		If EnabledBlocksDrawInst8 = EnabledBlockUpdateInst8 Then
+			Var StatusRefresh = "NoRefresh"
+			DEBUGVAR StatusRefresh
+		Else 
+			Var StatusRefresh = "Refresh"
+			DEBUGVAR StatusRefresh
+			GetXMLFileNameCurrentRunning CurrentOpenFile2
+			Open CurrentOpenFile2
+		EndIf
    EndIf

    If show_eng = "true" Then 
--- a/xml/menutab/page_catalog_group_health.skt
+++ b/xml/menutab/page_catalog_group_health.skt
@ -100,6 +100,51 @@
    TimerReset
 </EventTimeout> 

+
+<EventOnShow>
+    InstanceGetString SaveStringInst
+    DEBUGVAR SaveStringInst
+    DEBUGVAR show_eng
+
+	DEBUGVAR EnabledBlockUpdateInst9
+	DEBUGVAR EnabledBlocksDrawInst9
+	
+	
+
+
+    If SaveStringInst = "RefreshNow" Then
+        GetXMLFileNameCurrentRunning CurrentOpenFile
+        Open CurrentOpenFile
+    Else
+        If EnabledBlocksDrawInst9 = EnabledBlockUpdateInst9 Then
+            Var StatusRefresh = "NoRefresh"
+            DEBUGVAR StatusRefresh
+        Else 
+            Var StatusRefresh = "Refresh"
+            DEBUGVAR StatusRefresh
+            GetXMLFileNameCurrentRunning CurrentOpenFile2
+            Open CurrentOpenFile2
+        EndIf
+    EndIf
+
+    If show_eng = "true" Then 
+        If SaveStringInst = "ShowThai" Then
+
+            InstanceSetString "ShowEng"
+            GetXMLFileNameCurrentRunning CurrentOpenFile
+            Open CurrentOpenFile
+        EndIf
+    Else
+        If SaveStringInst = "ShowEng" Then
+
+            InstanceSetString "ShowThai"
+            GetXMLFileNameCurrentRunning CurrentOpenFile
+            Open CurrentOpenFile
+        EndIf
+    EndIf
+
+</EventOnShow>
+
 <?hurr 
    #include=menu_catalog_new.py
 ?>
--- a/xml/menutab/page_catalog_group_health.xml
+++ b/xml/menutab/page_catalog_group_health.xml
@ -312,9 +312,25 @@
    DEBUGVAR SaveStringInst
    DEBUGVAR show_eng

+	DEBUGVAR EnabledBlockUpdateInst9
+	DEBUGVAR EnabledBlocksDrawInst9
+	
+	
+
+
    If SaveStringInst = "RefreshNow" Then
        GetXMLFileNameCurrentRunning CurrentOpenFile
        Open CurrentOpenFile
+	Else
+		If EnabledBlocksDrawInst9 = EnabledBlockUpdateInst9 Then
+			Var StatusRefresh = "NoRefresh"
+			DEBUGVAR StatusRefresh
+		Else 
+			Var StatusRefresh = "Refresh"
+			DEBUGVAR StatusRefresh
+			GetXMLFileNameCurrentRunning CurrentOpenFile2
+			Open CurrentOpenFile2
+		EndIf
    EndIf

    If show_eng = "true" Then 
--- a/xml/menutab/page_catalog_group_milk.skt
+++ b/xml/menutab/page_catalog_group_milk.skt
@ -100,6 +100,49 @@
 </EventTimeout> 


+<EventOnShow>
+    InstanceGetString SaveStringInst
+    DEBUGVAR SaveStringInst
+    DEBUGVAR show_eng
+
+	DEBUGVAR EnabledBlockUpdateInst7
+	DEBUGVAR EnabledBlocksDrawInst7
+	
+	
+    If SaveStringInst = "RefreshNow" Then
+        GetXMLFileNameCurrentRunning CurrentOpenFile
+        Open CurrentOpenFile
+    Else
+        If EnabledBlocksDrawInst7 = EnabledBlockUpdateInst7 Then
+            Var StatusRefresh = "NoRefresh"
+            DEBUGVAR StatusRefresh
+        Else 
+            Var StatusRefresh = "Refresh"
+            DEBUGVAR StatusRefresh
+            GetXMLFileNameCurrentRunning CurrentOpenFile2
+            Open CurrentOpenFile2
+        EndIf
+
+    EndIf
+
+    If show_eng = "true" Then 
+        If SaveStringInst = "ShowThai" Then
+
+            InstanceSetString "ShowEng"
+            GetXMLFileNameCurrentRunning CurrentOpenFile
+            Open CurrentOpenFile
+        EndIf
+    Else
+        If SaveStringInst = "ShowEng" Then
+
+            InstanceSetString "ShowThai"
+            GetXMLFileNameCurrentRunning CurrentOpenFile
+            Open CurrentOpenFile
+        EndIf
+    EndIf
+
+</EventOnShow>
+
 <?hurr 
    #include=menu_catalog_new.py
 ?>
--- a/xml/menutab/page_catalog_group_milk.xml
+++ b/xml/menutab/page_catalog_group_milk.xml
@ -313,9 +313,24 @@
    DEBUGVAR SaveStringInst
    DEBUGVAR show_eng

+	DEBUGVAR EnabledBlockUpdateInst7
+	DEBUGVAR EnabledBlocksDrawInst7
+	
+	
+
    If SaveStringInst = "RefreshNow" Then
        GetXMLFileNameCurrentRunning CurrentOpenFile
        Open CurrentOpenFile
+	Else
+		If EnabledBlocksDrawInst7 = EnabledBlockUpdateInst7 Then
+			Var StatusRefresh = "NoRefresh"
+			DEBUGVAR StatusRefresh
+		Else 
+			Var StatusRefresh = "Refresh"
+			DEBUGVAR StatusRefresh
+			GetXMLFileNameCurrentRunning CurrentOpenFile2
+			Open CurrentOpenFile2
+		EndIf
    EndIf

    If show_eng = "true" Then 
--- a/xml/menutab/page_catalog_group_other.skt
+++ b/xml/menutab/page_catalog_group_other.skt
@ -101,6 +101,50 @@
 </EventTimeout> 


+<EventOnShow>
+    InstanceGetString SaveStringInst
+    DEBUGVAR SaveStringInst
+    DEBUGVAR show_eng
+
+	DEBUGVAR EnabledBlockUpdateInst10
+	DEBUGVAR EnabledBlocksDrawInst10
+	
+	
+
+
+    If SaveStringInst = "RefreshNow" Then
+        GetXMLFileNameCurrentRunning CurrentOpenFile
+        Open CurrentOpenFile
+    Else    
+        If EnabledBlocksDrawInst10 = EnabledBlockUpdateInst10 Then
+            Var StatusRefresh = "NoRefresh"
+            DEBUGVAR StatusRefresh
+        Else 
+            Var StatusRefresh = "Refresh"
+            DEBUGVAR StatusRefresh
+            GetXMLFileNameCurrentRunning CurrentOpenFile2
+            Open CurrentOpenFile2
+        EndIf
+    EndIf
+
+    If show_eng = "true" Then 
+        If SaveStringInst = "ShowThai" Then
+
+            InstanceSetString "ShowEng"
+            GetXMLFileNameCurrentRunning CurrentOpenFile
+            Open CurrentOpenFile
+        EndIf
+    Else
+        If SaveStringInst = "ShowEng" Then
+
+            InstanceSetString "ShowThai"
+            GetXMLFileNameCurrentRunning CurrentOpenFile
+            Open CurrentOpenFile
+        EndIf
+    EndIf
+
+</EventOnShow>
+
 <?hurr 
    #include=menu_catalog_new.py
 ?>
--- a/xml/menutab/page_catalog_group_other.xml
+++ b/xml/menutab/page_catalog_group_other.xml
@ -313,9 +313,24 @@
    DEBUGVAR SaveStringInst
    DEBUGVAR show_eng

+	DEBUGVAR EnabledBlockUpdateInst10
+	DEBUGVAR EnabledBlocksDrawInst10
+	
+	
+
    If SaveStringInst = "RefreshNow" Then
        GetXMLFileNameCurrentRunning CurrentOpenFile
        Open CurrentOpenFile
+	Else
+		If EnabledBlocksDrawInst10 = EnabledBlockUpdateInst10 Then
+			Var StatusRefresh = "NoRefresh"
+			DEBUGVAR StatusRefresh
+		Else 
+			Var StatusRefresh = "Refresh"
+			DEBUGVAR StatusRefresh
+			GetXMLFileNameCurrentRunning CurrentOpenFile2
+			Open CurrentOpenFile2
+		EndIf
    EndIf

    If show_eng = "true" Then 
--- a/xml/menutab/page_catalog_group_other_other.skt
+++ b/xml/menutab/page_catalog_group_other_other.skt
@ -26,9 +26,59 @@
        #include=menu_catalog_new_menu.py
    ?>

+    DEBUGVAR SlientRefreshIndex
+
+	If SlientRefreshIndex = 7 Then
+		Var SlientRefreshIndex = 8
+	EndIf
+
 </EventOpen>


+<EventOnShow>
+    InstanceGetString SaveStringInst
+    DEBUGVAR SaveStringInst
+    DEBUGVAR show_eng
+
+	DEBUGVAR EnabledBlockUpdateInst10
+	DEBUGVAR EnabledBlocksDrawInst10
+	
+	
+
+
+    If SaveStringInst = "RefreshNow" Then
+        GetXMLFileNameCurrentRunning CurrentOpenFile
+        Open CurrentOpenFile
+    Else
+        If EnabledBlocksDrawInst10 = EnabledBlockUpdateInst10 Then
+            Var StatusRefresh = "NoRefresh"
+            DEBUGVAR StatusRefresh
+        Else 
+            Var StatusRefresh = "Refresh"
+            DEBUGVAR StatusRefresh
+            GetXMLFileNameCurrentRunning CurrentOpenFile2
+            Open CurrentOpenFile2
+        EndIf
+    EndIf
+
+    If show_eng = "true" Then 
+        If SaveStringInst = "ShowThai" Then
+
+            InstanceSetString "ShowEng"
+            GetXMLFileNameCurrentRunning CurrentOpenFile
+            Open CurrentOpenFile
+        EndIf
+    Else
+        If SaveStringInst = "ShowEng" Then
+
+            InstanceSetString "ShowThai"
+            GetXMLFileNameCurrentRunning CurrentOpenFile
+            Open CurrentOpenFile
+        EndIf
+    EndIf
+
+</EventOnShow>
+
 <?hurr 
    #include=menu_catalog_new.py
 ?>
--- a/xml/menutab/page_catalog_group_other_other.xml
+++ b/xml/menutab/page_catalog_group_other_other.xml
--- a/xml/menutab/page_catalog_group_pepsi_7up.skt
+++ b/xml/menutab/page_catalog_group_pepsi_7up.skt
@ -29,6 +29,116 @@
 </EventOpen>


+<Timeout> 1000 </Timeout>
+<EventTimeout> 
+    ;DEBUGVAR ICE_PROCESS_STATUS
+
+    If ICE_PROCESS_STATUS = 2 Then
+        Var ice_tab_process_show = "Enable"
+        Var ice_show_open = ice_tab_text + ICE_PROCESS_TXT
+    Else
+        Var ice_tab_process_show = "Invisible"
+    EndIf
+
+
+    GetVisible inst_show8
+    ;DEBUGVAR inst_show8
+
+    
+
+    If inst_show8 = 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 = 8 Then
+		If inst_show8 = 0 Then
+			GetXMLFileNameCurrentRunning CurrentOpenFile7
+			Open CurrentOpenFile7
+		Else
+			Var SlientRefreshIndex = 9
+		EndIf
+    EndIf
+
+
+    TimerReset
+</EventTimeout>  
+
+<EventOnShow>
+    InstanceGetString SaveStringInst
+    DEBUGVAR SaveStringInst
+    DEBUGVAR show_eng
+
+
+	DEBUGVAR EnabledBlockUpdateInst11
+	DEBUGVAR EnabledBlocksDrawInst11
+	
+	
+
+
+    If SaveStringInst = "RefreshNow" Then
+        GetXMLFileNameCurrentRunning CurrentOpenFile
+        Open CurrentOpenFile
+    Else
+        If EnabledBlocksDrawInst11 = EnabledBlockUpdateInst11 Then
+            Var StatusRefresh = "NoRefresh"
+            DEBUGVAR StatusRefresh
+        Else 
+            Var StatusRefresh = "Refresh"
+            DEBUGVAR StatusRefresh
+            GetXMLFileNameCurrentRunning CurrentOpenFile2
+            Open CurrentOpenFile2
+        EndIf
+    EndIf
+
+    If show_eng = "true" Then 
+        If SaveStringInst = "ShowThai" Then
+
+            InstanceSetString "ShowEng"
+            GetXMLFileNameCurrentRunning CurrentOpenFile
+            Open CurrentOpenFile
+        EndIf
+    Else
+        If SaveStringInst = "ShowEng" Then
+
+            InstanceSetString "ShowThai"
+            GetXMLFileNameCurrentRunning CurrentOpenFile
+            Open CurrentOpenFile
+        EndIf
+    EndIf
+
+</EventOnShow>
+
+
 <?hurr 
    #include=menu_catalog_new.py
 ?>
--- a/xml/menutab/page_catalog_group_pepsi_7up.xml
+++ b/xml/menutab/page_catalog_group_pepsi_7up.xml
--- a/xml/menutab/page_catalog_group_tea.skt
+++ b/xml/menutab/page_catalog_group_tea.skt
@ -87,6 +87,51 @@
    TimerReset
 </EventTimeout> 

+
+<EventOnShow>
+    InstanceGetString SaveStringInst
+    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 
+        If SaveStringInst = "ShowThai" Then
+
+            InstanceSetString "ShowEng"
+            GetXMLFileNameCurrentRunning CurrentOpenFile
+            Open CurrentOpenFile
+        EndIf
+    Else
+        If SaveStringInst = "ShowEng" Then
+
+            InstanceSetString "ShowThai"
+            GetXMLFileNameCurrentRunning CurrentOpenFile
+            Open CurrentOpenFile
+        EndIf
+    EndIf
+
+</EventOnShow>
+
+
+
 <?hurr 
    #include=menu_catalog_new.py
 ?>
--- a/xml/menutab/page_catalog_group_tea.xml
+++ b/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