fix bug redirect

2023-12-18 19:21:13 +07:00 · 2023-12-18 19:21:13 +07:00 · b1fb0ac6aa
commit b1fb0ac6aa
parent 29e3a205e6
24 changed files with 1168 additions and 707 deletions
--- a/xml/menutab/menu_catalog_new.xml
+++ b/xml/menutab/menu_catalog_new.xml
@ -23,6 +23,28 @@
    EndIf


+    If RoutineSlientRefresh > 0 Then
+        If RoutineSlientRefresh = 2 Then
+            InstanceGetString SaveStringInst
+            
+            DEBUGVAR show_eng
+            DEBUGVAR SaveStringInst
+
+            If SaveStringInst = "RefreshNow" Then
+                GetXMLFileNameCurrentRunning CurrentOpenFile
+                Open CurrentOpenFile
+
+                If show_eng = "true" Then 
+                    InstanceSetString "ShowEng"
+                Else
+                    InstanceSetString "ShowThai"
+                EndIf
+           
+            EndIf
+        EndIf
+    EndIf
+
+


    TimerReset
--- a/xml/menutab/page_catalog_group_appfast.xml
+++ b/xml/menutab/page_catalog_group_appfast.xml
@ -187,6 +187,28 @@
    EndIf


+    If RoutineSlientRefresh > 0 Then
+        If RoutineSlientRefresh = 2 Then
+            InstanceGetString SaveStringInst
+            
+            DEBUGVAR show_eng
+            DEBUGVAR SaveStringInst
+
+            If SaveStringInst = "RefreshNow" Then
+                GetXMLFileNameCurrentRunning CurrentOpenFile
+                Open CurrentOpenFile
+
+                If show_eng = "true" Then 
+                    InstanceSetString "ShowEng"
+                Else
+                    InstanceSetString "ShowThai"
+                EndIf
+           
+            EndIf
+        EndIf
+    EndIf
+
+


    TimerReset
--- a/xml/menutab/page_catalog_group_cocktail.xml
+++ b/xml/menutab/page_catalog_group_cocktail.xml
@ -179,6 +179,28 @@
    EndIf


+    If RoutineSlientRefresh > 0 Then
+        If RoutineSlientRefresh = 2 Then
+            InstanceGetString SaveStringInst
+            
+            DEBUGVAR show_eng
+            DEBUGVAR SaveStringInst
+
+            If SaveStringInst = "RefreshNow" Then
+                GetXMLFileNameCurrentRunning CurrentOpenFile
+                Open CurrentOpenFile
+
+                If show_eng = "true" Then 
+                    InstanceSetString "ShowEng"
+                Else
+                    InstanceSetString "ShowThai"
+                EndIf
+           
+            EndIf
+        EndIf
+    EndIf
+
+


    TimerReset
--- a/xml/menutab/page_catalog_group_coffee.xml
+++ b/xml/menutab/page_catalog_group_coffee.xml
--- a/xml/menutab/page_catalog_group_forkid.xml
+++ b/xml/menutab/page_catalog_group_forkid.xml
@ -188,6 +188,28 @@
    EndIf


+    If RoutineSlientRefresh > 0 Then
+        If RoutineSlientRefresh = 2 Then
+            InstanceGetString SaveStringInst
+            
+            DEBUGVAR show_eng
+            DEBUGVAR SaveStringInst
+
+            If SaveStringInst = "RefreshNow" Then
+                GetXMLFileNameCurrentRunning CurrentOpenFile
+                Open CurrentOpenFile
+
+                If show_eng = "true" Then 
+                    InstanceSetString "ShowEng"
+                Else
+                    InstanceSetString "ShowThai"
+                EndIf
+           
+            EndIf
+        EndIf
+    EndIf
+
+


    TimerReset
--- a/xml/menutab/page_catalog_group_health.xml
+++ b/xml/menutab/page_catalog_group_health.xml
@ -179,6 +179,28 @@
    EndIf


+    If RoutineSlientRefresh > 0 Then
+        If RoutineSlientRefresh = 2 Then
+            InstanceGetString SaveStringInst
+            
+            DEBUGVAR show_eng
+            DEBUGVAR SaveStringInst
+
+            If SaveStringInst = "RefreshNow" Then
+                GetXMLFileNameCurrentRunning CurrentOpenFile
+                Open CurrentOpenFile
+
+                If show_eng = "true" Then 
+                    InstanceSetString "ShowEng"
+                Else
+                    InstanceSetString "ShowThai"
+                EndIf
+           
+            EndIf
+        EndIf
+    EndIf
+
+


    TimerReset
--- a/xml/menutab/page_catalog_group_milk.xml
+++ b/xml/menutab/page_catalog_group_milk.xml
@ -177,6 +177,28 @@
    EndIf


+    If RoutineSlientRefresh > 0 Then
+        If RoutineSlientRefresh = 2 Then
+            InstanceGetString SaveStringInst
+            
+            DEBUGVAR show_eng
+            DEBUGVAR SaveStringInst
+
+            If SaveStringInst = "RefreshNow" Then
+                GetXMLFileNameCurrentRunning CurrentOpenFile
+                Open CurrentOpenFile
+
+                If show_eng = "true" Then 
+                    InstanceSetString "ShowEng"
+                Else
+                    InstanceSetString "ShowThai"
+                EndIf
+           
+            EndIf
+        EndIf
+    EndIf
+
+


    TimerReset
--- a/xml/menutab/page_catalog_group_oreo.xml
+++ b/xml/menutab/page_catalog_group_oreo.xml
@ -175,6 +175,28 @@
    EndIf


+    If RoutineSlientRefresh > 0 Then
+        If RoutineSlientRefresh = 2 Then
+            InstanceGetString SaveStringInst
+            
+            DEBUGVAR show_eng
+            DEBUGVAR SaveStringInst
+
+            If SaveStringInst = "RefreshNow" Then
+                GetXMLFileNameCurrentRunning CurrentOpenFile
+                Open CurrentOpenFile
+
+                If show_eng = "true" Then 
+                    InstanceSetString "ShowEng"
+                Else
+                    InstanceSetString "ShowThai"
+                EndIf
+           
+            EndIf
+        EndIf
+    EndIf
+
+


    TimerReset
--- a/xml/menutab/page_catalog_group_other.xml
+++ b/xml/menutab/page_catalog_group_other.xml
@ -178,6 +178,28 @@
    EndIf


+    If RoutineSlientRefresh > 0 Then
+        If RoutineSlientRefresh = 2 Then
+            InstanceGetString SaveStringInst
+            
+            DEBUGVAR show_eng
+            DEBUGVAR SaveStringInst
+
+            If SaveStringInst = "RefreshNow" Then
+                GetXMLFileNameCurrentRunning CurrentOpenFile
+                Open CurrentOpenFile
+
+                If show_eng = "true" Then 
+                    InstanceSetString "ShowEng"
+                Else
+                    InstanceSetString "ShowThai"
+                EndIf
+           
+            EndIf
+        EndIf
+    EndIf
+
+


    TimerReset
--- a/xml/menutab/page_catalog_group_pepsi_pro.xml
+++ b/xml/menutab/page_catalog_group_pepsi_pro.xml
@ -175,6 +175,28 @@
    EndIf


+    If RoutineSlientRefresh > 0 Then
+        If RoutineSlientRefresh = 2 Then
+            InstanceGetString SaveStringInst
+            
+            DEBUGVAR show_eng
+            DEBUGVAR SaveStringInst
+
+            If SaveStringInst = "RefreshNow" Then
+                GetXMLFileNameCurrentRunning CurrentOpenFile
+                Open CurrentOpenFile
+
+                If show_eng = "true" Then 
+                    InstanceSetString "ShowEng"
+                Else
+                    InstanceSetString "ShowThai"
+                EndIf
+           
+            EndIf
+        EndIf
+    EndIf
+
+


    TimerReset
--- a/xml/menutab/page_catalog_group_pro_15THB.xml
+++ b/xml/menutab/page_catalog_group_pro_15THB.xml
@ -197,6 +197,28 @@
    EndIf


+    If RoutineSlientRefresh > 0 Then
+        If RoutineSlientRefresh = 2 Then
+            InstanceGetString SaveStringInst
+            
+            DEBUGVAR show_eng
+            DEBUGVAR SaveStringInst
+
+            If SaveStringInst = "RefreshNow" Then
+                GetXMLFileNameCurrentRunning CurrentOpenFile
+                Open CurrentOpenFile
+
+                If show_eng = "true" Then 
+                    InstanceSetString "ShowEng"
+                Else
+                    InstanceSetString "ShowThai"
+                EndIf
+           
+            EndIf
+        EndIf
+    EndIf
+
+


    TimerReset
--- a/xml/menutab/page_catalog_group_pro_melon.xml
+++ b/xml/menutab/page_catalog_group_pro_melon.xml
@ -173,6 +173,28 @@
    EndIf


+    If RoutineSlientRefresh > 0 Then
+        If RoutineSlientRefresh = 2 Then
+            InstanceGetString SaveStringInst
+            
+            DEBUGVAR show_eng
+            DEBUGVAR SaveStringInst
+
+            If SaveStringInst = "RefreshNow" Then
+                GetXMLFileNameCurrentRunning CurrentOpenFile
+                Open CurrentOpenFile
+
+                If show_eng = "true" Then 
+                    InstanceSetString "ShowEng"
+                Else
+                    InstanceSetString "ShowThai"
+                EndIf
+           
+            EndIf
+        EndIf
+    EndIf
+
+


    TimerReset
--- a/xml/menutab/page_catalog_group_pro_mymint.xml
+++ b/xml/menutab/page_catalog_group_pro_mymint.xml
@ -176,6 +176,28 @@
    EndIf


+    If RoutineSlientRefresh > 0 Then
+        If RoutineSlientRefresh = 2 Then
+            InstanceGetString SaveStringInst
+            
+            DEBUGVAR show_eng
+            DEBUGVAR SaveStringInst
+
+            If SaveStringInst = "RefreshNow" Then
+                GetXMLFileNameCurrentRunning CurrentOpenFile
+                Open CurrentOpenFile
+
+                If show_eng = "true" Then 
+                    InstanceSetString "ShowEng"
+                Else
+                    InstanceSetString "ShowThai"
+                EndIf
+           
+            EndIf
+        EndIf
+    EndIf
+
+


    TimerReset
--- a/xml/menutab/page_catalog_group_pro_pepween.xml
+++ b/xml/menutab/page_catalog_group_pro_pepween.xml
@ -204,6 +204,28 @@
    EndIf


+    If RoutineSlientRefresh > 0 Then
+        If RoutineSlientRefresh = 2 Then
+            InstanceGetString SaveStringInst
+            
+            DEBUGVAR show_eng
+            DEBUGVAR SaveStringInst
+
+            If SaveStringInst = "RefreshNow" Then
+                GetXMLFileNameCurrentRunning CurrentOpenFile
+                Open CurrentOpenFile
+
+                If show_eng = "true" Then 
+                    InstanceSetString "ShowEng"
+                Else
+                    InstanceSetString "ShowThai"
+                EndIf
+           
+            EndIf
+        EndIf
+    EndIf
+
+


    TimerReset
--- a/xml/menutab/page_catalog_group_recommend.xml
+++ b/xml/menutab/page_catalog_group_recommend.xml
@ -196,6 +196,28 @@
    EndIf


+    If RoutineSlientRefresh > 0 Then
+        If RoutineSlientRefresh = 2 Then
+            InstanceGetString SaveStringInst
+            
+            DEBUGVAR show_eng
+            DEBUGVAR SaveStringInst
+
+            If SaveStringInst = "RefreshNow" Then
+                GetXMLFileNameCurrentRunning CurrentOpenFile
+                Open CurrentOpenFile
+
+                If show_eng = "true" Then 
+                    InstanceSetString "ShowEng"
+                Else
+                    InstanceSetString "ShowThai"
+                EndIf
+           
+            EndIf
+        EndIf
+    EndIf
+
+


    TimerReset
--- a/xml/menutab/page_catalog_group_soft_serve.xml
+++ b/xml/menutab/page_catalog_group_soft_serve.xml
@ -175,6 +175,28 @@
    EndIf


+    If RoutineSlientRefresh > 0 Then
+        If RoutineSlientRefresh = 2 Then
+            InstanceGetString SaveStringInst
+            
+            DEBUGVAR show_eng
+            DEBUGVAR SaveStringInst
+
+            If SaveStringInst = "RefreshNow" Then
+                GetXMLFileNameCurrentRunning CurrentOpenFile
+                Open CurrentOpenFile
+
+                If show_eng = "true" Then 
+                    InstanceSetString "ShowEng"
+                Else
+                    InstanceSetString "ShowThai"
+                EndIf
+           
+            EndIf
+        EndIf
+    EndIf
+
+


    TimerReset
--- a/xml/menutab/page_catalog_group_songkran.xml
+++ b/xml/menutab/page_catalog_group_songkran.xml
@ -175,6 +175,28 @@
    EndIf


+    If RoutineSlientRefresh > 0 Then
+        If RoutineSlientRefresh = 2 Then
+            InstanceGetString SaveStringInst
+            
+            DEBUGVAR show_eng
+            DEBUGVAR SaveStringInst
+
+            If SaveStringInst = "RefreshNow" Then
+                GetXMLFileNameCurrentRunning CurrentOpenFile
+                Open CurrentOpenFile
+
+                If show_eng = "true" Then 
+                    InstanceSetString "ShowEng"
+                Else
+                    InstanceSetString "ShowThai"
+                EndIf
+           
+            EndIf
+        EndIf
+    EndIf
+
+


    TimerReset
--- a/xml/menutab/page_catalog_group_tea.xml
+++ b/xml/menutab/page_catalog_group_tea.xml
@ -179,6 +179,28 @@
    EndIf


+    If RoutineSlientRefresh > 0 Then
+        If RoutineSlientRefresh = 2 Then
+            InstanceGetString SaveStringInst
+            
+            DEBUGVAR show_eng
+            DEBUGVAR SaveStringInst
+
+            If SaveStringInst = "RefreshNow" Then
+                GetXMLFileNameCurrentRunning CurrentOpenFile
+                Open CurrentOpenFile
+
+                If show_eng = "true" Then 
+                    InstanceSetString "ShowEng"
+                Else
+                    InstanceSetString "ShowThai"
+                EndIf
+           
+            EndIf
+        EndIf
+    EndIf
+
+


    TimerReset
--- a/xml/menutab/page_catalog_group_whey.xml
+++ b/xml/menutab/page_catalog_group_whey.xml
@ -184,6 +184,28 @@
    EndIf


+    If RoutineSlientRefresh > 0 Then
+        If RoutineSlientRefresh = 2 Then
+            InstanceGetString SaveStringInst
+            
+            DEBUGVAR show_eng
+            DEBUGVAR SaveStringInst
+
+            If SaveStringInst = "RefreshNow" Then
+                GetXMLFileNameCurrentRunning CurrentOpenFile
+                Open CurrentOpenFile
+
+                If show_eng = "true" Then 
+                    InstanceSetString "ShowEng"
+                Else
+                    InstanceSetString "ShowThai"
+                EndIf
+           
+            EndIf
+        EndIf
+    EndIf
+
+


    TimerReset
--- a/xml/menutab/page_catalog_momday.xml
+++ b/xml/menutab/page_catalog_momday.xml
@ -175,6 +175,28 @@
    EndIf


+    If RoutineSlientRefresh > 0 Then
+        If RoutineSlientRefresh = 2 Then
+            InstanceGetString SaveStringInst
+            
+            DEBUGVAR show_eng
+            DEBUGVAR SaveStringInst
+
+            If SaveStringInst = "RefreshNow" Then
+                GetXMLFileNameCurrentRunning CurrentOpenFile
+                Open CurrentOpenFile
+
+                If show_eng = "true" Then 
+                    InstanceSetString "ShowEng"
+                Else
+                    InstanceSetString "ShowThai"
+                EndIf
+           
+            EndIf
+        EndIf
+    EndIf
+
+


    TimerReset