pakin/taobin_project
1
0
Fork 0
Code Issues Pull requests Projects 1 Releases 1 Packages Wiki Activity Actions

Fix

Browse source
This commit is contained in:
wanlop run 2024-02-22 18:46:01 +07:00
parent bd0aa40509
commit ff3b85a63c
34 changed files with 1539 additions and 1214 deletions
Download patch file Download diff file Expand all files Collapse all files

16
xml/menutab/menu_catalog_new.xml
View file

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

16
xml/menutab/page_catalog_group_appfast.xml
View file

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

16
xml/menutab/page_catalog_group_coffee.xml
View file

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

16
xml/menutab/page_catalog_group_forkid.xml
View file

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

16
xml/menutab/page_catalog_group_health.xml
View file

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

16
xml/menutab/page_catalog_group_milk.xml
View file

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

16
xml/menutab/page_catalog_group_oreo.xml
View file

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

16
xml/menutab/page_catalog_group_other.xml
View file

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

16
xml/menutab/page_catalog_group_pepsi_pro.xml
View file

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

16
xml/menutab/page_catalog_group_pro_15THB.xml
View file

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

16
xml/menutab/page_catalog_group_pro_melon.xml
View file

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

16
xml/menutab/page_catalog_group_pro_mymint.xml
View file

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

16
xml/menutab/page_catalog_group_pro_pepween.xml
View file

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

16
xml/menutab/page_catalog_group_pro_rerun.xml
View file

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

16
xml/menutab/page_catalog_group_recommend.xml
View file

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

16
xml/menutab/page_catalog_group_soft_serve.xml
View file

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

16
xml/menutab/page_catalog_group_songkran.xml
View file

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

16
xml/menutab/page_catalog_group_tea.xml
View file

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

16
xml/menutab/page_catalog_group_whey.xml
View file

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

16
xml/menutab/page_catalog_momday.xml
View file

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

2
xml/page_brewing3.xml
View file

@ -7,7 +7,7 @@
<EventOpen>
Var SendNotiPaySuccess = 2
Var GetMoreStrawCount = 1
Var GetMoreStrawCount = 2
Var CountUpWhenBREW_CNT = 0
DEBUGVAR TxRef1

1
xml/page_drinkok.xml
View file

@ -183,6 +183,7 @@
EndIf
EndIf
Var SlientRefreshEnable = 1
Var TimeDelayDefault = 1200

4
xml/topview2.xml
View file

@ -159,6 +159,7 @@
EndIf
EndIf
If RoutineSlientRefresh > 0 Then
Var RoutineSlientRefresh = RoutineSlientRefresh - 1
EndIf
@ -167,6 +168,9 @@
</EventTimeout>
; setvar SlientRefreshEnable 1
;
;
<Button>
<X> ButtonLanguageCurrentXPosition </X>