will release 9.51

This commit is contained in:
wanlop run 2025-01-29 18:39:17 +07:00
parent 30af491a40
commit 14d12d050d
24 changed files with 2117 additions and 23394 deletions

View file

@ -1,20 +1,3 @@
If WinterWarmersCatalogFlag = 1 Then
Var RecommendPage = "ROOT/taobin_project/inter/tha/xml/event/promotion_winter_warmers.lxml"
EndIf
If WestfieldCatalogFlag = 1 Then
Var RecommendPage = "ROOT/taobin_project/inter/tha/xml/event/promotion_westfield.lxml"
EndIf
If AnniverseryPro = 1 Then
Var RecommendPage = "ROOT/taobin_project/inter/tha/xml/event/promotion_anniversary_1st.lxml"
EndIf
; thailand
@ -48,8 +31,24 @@ If MyanmarLangEnable = "true" Then
EndIf
EndIf
Else
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/event/script_common_for_open_promotion_xml.ev"
Else
SAVELOG " ===================== MyanmarLangEnable false =========================="
If LanguageShow = "ENG" Then
Var show_eng = "true"
EndIf
If LanguageShow = "THAI" Then
Var show_eng = "false"
EndIf
If LanguageShow = "MYANMAR" Then
Var show_eng = "true"
EndIf
SAVELOG " ===================== MyanmarLangEnable false 2 =========================="
TRY "ROOT/taobin_project/xml/event/script_common_for_open_promotion_xml.ev"
EndIf
Var OpenFromPageBoard = 0

View file

@ -121,7 +121,7 @@
Var SaveStringInst = "ShowThai"
Var show_eng = "true"
EndIf
If LanguageShow "MYANMAR" Then
If LanguageShow = "MYANMAR" Then
Var show_eng = "false"
Var SaveStringInst = "ShowMYANMAR"
EndIf

View file

@ -123,7 +123,7 @@
Var SaveStringInst = "ShowThai"
Var show_eng = "true"
EndIf
If LanguageShow "MYANMAR" Then
If LanguageShow = "MYANMAR" Then
Var show_eng = "false"
Var SaveStringInst = "ShowMYANMAR"
EndIf

View file

@ -93,24 +93,6 @@
EndIf
EndIf
InstanceGetString SaveStringInst
If SaveStringInst = "RefreshNow" Then
Else
If LanguageShow = "ENG" Then
Var SaveStringInst = "ShowEng"
Var show_eng = "false"
EndIf
If LanguageShow = "THAI" Then
Var SaveStringInst = "ShowThai"
Var show_eng = "true"
EndIf
If LanguageShow = "MYANMAR" Then
Var show_eng = "false"
Var SaveStringInst = "ShowMYANMAR"
EndIf
EndIf
EndIf
@ -142,7 +124,7 @@
Var SaveStringInst = "ShowThai"
Var show_eng = "true"
EndIf
If LanguageShow "MYANMAR" Then
If LanguageShow ="MYANMAR" Then
Var show_eng = "false"
Var SaveStringInst = "ShowMYANMAR"
EndIf
@ -213,62 +195,6 @@
TimerReset
</EventTimeout>
<EventOnShow>
InstanceGetString SaveStringInst
DEBUGVAR SaveStringInst
DEBUGVAR show_eng
Var ButtonLanguageCurrentXPosition = 1005
Var ButtonLanguageCurrentYPosition = 458 - 38
Var ButtonLanguageListXPosition = 970
Var ButtonLanguageListYPosition = 450 - 38
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
DEBUGVAR LanguageShow
If SaveStringInst = "ShowThai" Then
If LanguageShow = "THAI" Then
Else
Var show_eng = "true"
InstanceSetString "ShowMYANMAR"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
If SaveStringInst = "ShowMYANMAR" Then
If LanguageShow = "MYANMAR" Then
Else
Var show_eng = "false"
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
If SaveStringInst = "ShowEng" Then
If LanguageShow = "ENG" Then
Else
Var show_eng = "false"
InstanceSetString "ShowThai"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
</EventOnShow>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"

View file

@ -96,24 +96,6 @@
EndIf
EndIf
InstanceGetString SaveStringInst
If SaveStringInst = "RefreshNow" Then
Else
If LanguageShow = "ENG" Then
Var SaveStringInst = "ShowEng"
Var show_eng = "false"
EndIf
If LanguageShow = "THAI" Then
Var SaveStringInst = "ShowThai"
Var show_eng = "true"
EndIf
If LanguageShow = "MYANMAR" Then
Var show_eng = "false"
Var SaveStringInst = "ShowMYANMAR"
EndIf
EndIf
EndIf
@ -145,7 +127,7 @@
Var SaveStringInst = "ShowThai"
Var show_eng = "true"
EndIf
If LanguageShow "MYANMAR" Then
If LanguageShow ="MYANMAR" Then
Var show_eng = "false"
Var SaveStringInst = "ShowMYANMAR"
EndIf
@ -216,62 +198,6 @@
TimerReset
</EventTimeout>
<EventOnShow>
InstanceGetString SaveStringInst
DEBUGVAR SaveStringInst
DEBUGVAR show_eng
Var ButtonLanguageCurrentXPosition = 1005
Var ButtonLanguageCurrentYPosition = 458 - 38
Var ButtonLanguageListXPosition = 970
Var ButtonLanguageListYPosition = 450 - 38
If SaveStringInst = "RefreshNow" Then
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
DEBUGVAR LanguageShow
If SaveStringInst = "ShowThai" Then
If LanguageShow = "THAI" Then
Else
Var show_eng = "true"
InstanceSetString "ShowMYANMAR"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
If SaveStringInst = "ShowMYANMAR" Then
If LanguageShow = "MYANMAR" Then
Else
Var show_eng = "false"
InstanceSetString "ShowEng"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
If SaveStringInst = "ShowEng" Then
If LanguageShow = "ENG" Then
Else
Var show_eng = "false"
InstanceSetString "ShowThai"
GetXMLFileNameCurrentRunning CurrentOpenFile
Open CurrentOpenFile
EndIf
EndIf
</EventOnShow>
;include="ROOT/taobin_project/inter/tha/xml/multi/menu_catalog_new.lxml"

View file

@ -116,7 +116,7 @@
Var SaveStringInst = "ShowThai"
Var show_eng = "true"
EndIf
If LanguageShow "MYANMAR" Then
If LanguageShow = "MYANMAR" Then
Var show_eng = "false"
Var SaveStringInst = "ShowMYANMAR"
EndIf

View file

@ -119,7 +119,7 @@
Var SaveStringInst = "ShowThai"
Var show_eng = "true"
EndIf
If LanguageShow "MYANMAR" Then
If LanguageShow = "MYANMAR" Then
Var show_eng = "false"
Var SaveStringInst = "ShowMYANMAR"
EndIf