Fix

2024-02-22 18:46:01 +07:00 · 2024-02-22 18:46:01 +07:00 · ff3b85a63c
commit ff3b85a63c
parent bd0aa40509
34 changed files with 1539 additions and 1214 deletions
--- a/xml/menutab/menu_catalog_new.xml
+++ b/xml/menutab/menu_catalog_new.xml
@ -43,7 +43,22 @@
        EndIf
    EndIf

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


    TimerReset
@ -116,6 +131,7 @@

 <EventOnShow>
    InstanceGetString SaveStringInst
+    DEBUGVAR SaveStringInst
    DEBUGVAR show_eng

    If SaveStringInst = "RefreshNow" Then
--- a/xml/menutab/page_catalog_group_appfast.xml
+++ b/xml/menutab/page_catalog_group_appfast.xml
@ -209,7 +209,22 @@
        EndIf
    EndIf

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


    TimerReset
@ -282,6 +297,7 @@

 <EventOnShow>
    InstanceGetString SaveStringInst
+    DEBUGVAR SaveStringInst
    DEBUGVAR show_eng

    If SaveStringInst = "RefreshNow" Then
--- a/xml/menutab/page_catalog_group_coffee.xml
+++ b/xml/menutab/page_catalog_group_coffee.xml
@ -201,7 +201,22 @@
        EndIf
    EndIf

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


    TimerReset
@ -274,6 +289,7 @@

 <EventOnShow>
    InstanceGetString SaveStringInst
+    DEBUGVAR SaveStringInst
    DEBUGVAR show_eng

    If SaveStringInst = "RefreshNow" Then
--- a/xml/menutab/page_catalog_group_forkid.xml
+++ b/xml/menutab/page_catalog_group_forkid.xml
@ -210,7 +210,22 @@
        EndIf
    EndIf

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


    TimerReset
@ -283,6 +298,7 @@

 <EventOnShow>
    InstanceGetString SaveStringInst
+    DEBUGVAR SaveStringInst
    DEBUGVAR show_eng

    If SaveStringInst = "RefreshNow" Then
--- a/xml/menutab/page_catalog_group_health.xml
+++ b/xml/menutab/page_catalog_group_health.xml
@ -201,7 +201,22 @@
        EndIf
    EndIf

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


    TimerReset
@ -274,6 +289,7 @@

 <EventOnShow>
    InstanceGetString SaveStringInst
+    DEBUGVAR SaveStringInst
    DEBUGVAR show_eng

    If SaveStringInst = "RefreshNow" Then
--- a/xml/menutab/page_catalog_group_milk.xml
+++ b/xml/menutab/page_catalog_group_milk.xml
@ -199,7 +199,22 @@
        EndIf
    EndIf

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


    TimerReset
@ -272,6 +287,7 @@

 <EventOnShow>
    InstanceGetString SaveStringInst
+    DEBUGVAR SaveStringInst
    DEBUGVAR show_eng

    If SaveStringInst = "RefreshNow" Then
--- a/xml/menutab/page_catalog_group_oreo.xml
+++ b/xml/menutab/page_catalog_group_oreo.xml
@ -197,7 +197,22 @@
        EndIf
    EndIf

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


    TimerReset
@ -270,6 +285,7 @@

 <EventOnShow>
    InstanceGetString SaveStringInst
+    DEBUGVAR SaveStringInst
    DEBUGVAR show_eng

    If SaveStringInst = "RefreshNow" Then
--- a/xml/menutab/page_catalog_group_other.xml
+++ b/xml/menutab/page_catalog_group_other.xml
@ -200,7 +200,22 @@
        EndIf
    EndIf

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


    TimerReset
@ -273,6 +288,7 @@

 <EventOnShow>
    InstanceGetString SaveStringInst
+    DEBUGVAR SaveStringInst
    DEBUGVAR show_eng

    If SaveStringInst = "RefreshNow" Then
--- a/xml/menutab/page_catalog_group_pepsi_pro.xml
+++ b/xml/menutab/page_catalog_group_pepsi_pro.xml
@ -197,7 +197,22 @@
        EndIf
    EndIf

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


    TimerReset
@ -270,6 +285,7 @@

 <EventOnShow>
    InstanceGetString SaveStringInst
+    DEBUGVAR SaveStringInst
    DEBUGVAR show_eng

    If SaveStringInst = "RefreshNow" Then
--- a/xml/menutab/page_catalog_group_pro_15THB.xml
+++ b/xml/menutab/page_catalog_group_pro_15THB.xml
@ -219,7 +219,22 @@
        EndIf
    EndIf

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


    TimerReset
@ -292,6 +307,7 @@

 <EventOnShow>
    InstanceGetString SaveStringInst
+    DEBUGVAR SaveStringInst
    DEBUGVAR show_eng

    If SaveStringInst = "RefreshNow" Then
--- a/xml/menutab/page_catalog_group_pro_melon.xml
+++ b/xml/menutab/page_catalog_group_pro_melon.xml
@ -195,7 +195,22 @@
        EndIf
    EndIf

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


    TimerReset
@ -268,6 +283,7 @@

 <EventOnShow>
    InstanceGetString SaveStringInst
+    DEBUGVAR SaveStringInst
    DEBUGVAR show_eng

    If SaveStringInst = "RefreshNow" Then
--- a/xml/menutab/page_catalog_group_pro_mymint.xml
+++ b/xml/menutab/page_catalog_group_pro_mymint.xml
@ -198,7 +198,22 @@
        EndIf
    EndIf

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


    TimerReset
@ -271,6 +286,7 @@

 <EventOnShow>
    InstanceGetString SaveStringInst
+    DEBUGVAR SaveStringInst
    DEBUGVAR show_eng

    If SaveStringInst = "RefreshNow" Then
--- a/xml/menutab/page_catalog_group_pro_pepween.xml
+++ b/xml/menutab/page_catalog_group_pro_pepween.xml
@ -226,7 +226,22 @@
        EndIf
    EndIf

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


    TimerReset
@ -299,6 +314,7 @@

 <EventOnShow>
    InstanceGetString SaveStringInst
+    DEBUGVAR SaveStringInst
    DEBUGVAR show_eng

    If SaveStringInst = "RefreshNow" Then
--- a/xml/menutab/page_catalog_group_pro_rerun.xml
+++ b/xml/menutab/page_catalog_group_pro_rerun.xml
@ -199,7 +199,22 @@
        EndIf
    EndIf

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


    TimerReset
@ -272,6 +287,7 @@

 <EventOnShow>
    InstanceGetString SaveStringInst
+    DEBUGVAR SaveStringInst
    DEBUGVAR show_eng

    If SaveStringInst = "RefreshNow" Then
--- a/xml/menutab/page_catalog_group_recommend.xml
+++ b/xml/menutab/page_catalog_group_recommend.xml
@ -218,7 +218,22 @@
        EndIf
    EndIf

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


    TimerReset
@ -291,6 +306,7 @@

 <EventOnShow>
    InstanceGetString SaveStringInst
+    DEBUGVAR SaveStringInst
    DEBUGVAR show_eng

    If SaveStringInst = "RefreshNow" Then
--- a/xml/menutab/page_catalog_group_soft_serve.xml
+++ b/xml/menutab/page_catalog_group_soft_serve.xml
@ -197,7 +197,22 @@
        EndIf
    EndIf

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


    TimerReset
@ -270,6 +285,7 @@

 <EventOnShow>
    InstanceGetString SaveStringInst
+    DEBUGVAR SaveStringInst
    DEBUGVAR show_eng

    If SaveStringInst = "RefreshNow" Then
--- a/xml/menutab/page_catalog_group_songkran.xml
+++ b/xml/menutab/page_catalog_group_songkran.xml
@ -197,7 +197,22 @@
        EndIf
    EndIf

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


    TimerReset
@ -270,6 +285,7 @@

 <EventOnShow>
    InstanceGetString SaveStringInst
+    DEBUGVAR SaveStringInst
    DEBUGVAR show_eng

    If SaveStringInst = "RefreshNow" Then
--- a/xml/menutab/page_catalog_group_tea.xml
+++ b/xml/menutab/page_catalog_group_tea.xml
@ -201,7 +201,22 @@
        EndIf
    EndIf

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


    TimerReset
@ -274,6 +289,7 @@

 <EventOnShow>
    InstanceGetString SaveStringInst
+    DEBUGVAR SaveStringInst
    DEBUGVAR show_eng

    If SaveStringInst = "RefreshNow" Then
--- a/xml/menutab/page_catalog_group_whey.xml
+++ b/xml/menutab/page_catalog_group_whey.xml
@ -206,7 +206,22 @@
        EndIf
    EndIf

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


    TimerReset
@ -279,6 +294,7 @@

 <EventOnShow>
    InstanceGetString SaveStringInst
+    DEBUGVAR SaveStringInst
    DEBUGVAR show_eng

    If SaveStringInst = "RefreshNow" Then
--- a/xml/menutab/page_catalog_momday.xml
+++ b/xml/menutab/page_catalog_momday.xml
@ -197,7 +197,22 @@
        EndIf
    EndIf

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


    TimerReset
@ -270,6 +285,7 @@

 <EventOnShow>
    InstanceGetString SaveStringInst
+    DEBUGVAR SaveStringInst
    DEBUGVAR show_eng

    If SaveStringInst = "RefreshNow" Then