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

THAI INTER: Fix Page_check_member / Vending machine

Browse source
This commit is contained in:
Ittipat Lusuk 2024-11-29 13:24:24 +07:00
parent 01163df0f8
commit 1f8f29f0f6
8 changed files with 140 additions and 118 deletions
Download patch file Download diff file Expand all files Collapse all files

164
xml/page_board.xml
View file

@ -1115,7 +1115,85 @@
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/sold_cup_count.xml"
EndIf
; New mode
; Inter + Multi-Instance available ./inter/tha/multi
; Below. Pendding from XMLProfile
DEBUGVAR MyanmarLangEnable
DEBUGVAR EnableMultiInstance
;Var MyanmarLangEnable = "true"
Var MyanmarLangEnable = "false"
;Var MyanmarLangEnable = ""
If MyanmarLangEnable = "" Then
Else
If EnableMultiInstance = "true" Then
If CountryName = "Thailand" Then
Var InternationalEnable = 1
DEBUGVAR InternationalEnable
;TRY "/mnt/sdcard/coffeevending/taobin_project/inter/tha/video/script_video.ev"
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/multi_ads/ads_path.ev"
;specified to unittest4
Var CountryRootPath = "ROOT/taobin_project/inter/tha/"
Var CountryShortName = "tha"
Var OpenFileXML = CountryRootPath + "xml/event/tricker.ev"
DEBUGVAR OpenFileXML
TRY OpenFileXML
Var WebAppShow = "Invisible"
Var ENABLE_UAE_DUBAI = "Invisible"
EnableLanguage "ENG"
EnableLanguage "THAI"
EnableLanguage "MYANMAR"
If MyanmarLangEnable = "true" Then
EnableLanguage "MYANMAR"
EndIf
SetLanguage "THAI"
LanguageControl "UpdateList" "-"
Var show_eng = "false"
;Var ShowNetworkProblemText = "Network error. Payment Cash only."
Var TextPriceMenuSize = 12
Var TextPriceMenuY = 266
Var TextPriceMenuBlendX = 180
Var TextPriceMenuHotX = 48
Var ShowButtonClick2 = "Invisible"
Var ButtontoTopupMenu = "Enable"
Var PriceUnitText = ""
Var show_eng_button_stage = "Invisible"
Var XButtonMember = 384
Var YButtonMember = 1695
If Not#LanguageLoaded = "" Then
LoadLanguage "/mnt/sdcard/coffeevending/taobin_project/inter/tha/menu/lang.tsv"
EndIf
Var cups_sold_text = "Cups Sold Worldwide"
Var MinPhoneNumber = 10
Var MaxPhoneNumber = 10
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/sold_cup_count.xml"
EndIf
EndIf
EndIf
DEBUGVAR InternationalEnable
DEBUGVAR CountryRootPath
@ -1318,86 +1396,6 @@
Var RoadShow = "false"
TRY "ROOT/taobin_project/xml/sometime/RoadShow.ev"
; New mode
; Inter + Multi-Instance available ./inter/tha/multi
; Below. Pendding from XMLProfile
DEBUGVAR MyanmarLangEnable
DEBUGVAR EnableMultiInstance
;Var MyanmarLangEnable = "true"
Var MyanmarLangEnable = "false"
;Var MyanmarLangEnable = ""
If MyanmarLangEnable = "" Then
Else
If EnableMultiInstance = "true" Then
If CountryName = "Thailand" Then
Var InternationalEnable = 1
DEBUGVAR InternationalEnable
;TRY "/mnt/sdcard/coffeevending/taobin_project/inter/tha/video/script_video.ev"
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/multi_ads/ads_path.ev"
;specified to unittest4
Var OpenFileXML = CountryRootPath + "xml/event/tricker.ev"
DEBUGVAR OpenFileXML
TRY OpenFileXML
Var WebAppShow = "Invisible"
EnableLanguage "ENG"
EnableLanguage "THAI"
;EnableLanguage "MYANMAR"
If MyanmarLangEnable = "true" Then
EnableLanguage "MYANMAR"
EndIf
SetLanguage "THAI"
LanguageControl "UpdateList" "-"
Var show_eng = "false"
;Var ShowNetworkProblemText = "Network error. Payment Cash only."
Var CountryRootPath = "ROOT/taobin_project/inter/tha/"
Var CountryShortName = "tha"
Var TextPriceMenuSize = 12
Var TextPriceMenuY = 266
Var TextPriceMenuBlendX = 180
Var TextPriceMenuHotX = 48
Var ShowButtonClick2 = "Invisible"
Var ButtontoTopupMenu = "Enable"
Var PriceUnitText = ""
Var show_eng_button_stage = "Invisible"
Var XButtonMember = 384
Var YButtonMember = 1695
If Not#LanguageLoaded = "" Then
LoadLanguage "/mnt/sdcard/coffeevending/taobin_project/inter/tha/menu/lang.tsv"
EndIf
Var cups_sold_text = "Cups Sold Worldwide"
Var MinPhoneNumber = 10
Var MaxPhoneNumber = 10
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/sold_cup_count.xml"
EndIf
EndIf
EndIf
If UsePepsiTheme = 1 Then
If InternationalEnable = 1 Then
; enable-color
@ -1885,7 +1883,11 @@ PRICE "Reset" "-"
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
SAVELOG " Thailand Thailand Thailand Thailand Pooon Pooon Pooon Pooon Pooon"
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/event/script_common_for_open_promotion_xml.ev"
; show language icon
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
RootLayoutVisible 3 "show"
Var OpenFileXML = "ROOT/taobin_project/inter/tha/xml/event/script_common_for_open_promotion_xml.ev"
TRY OpenFileXML
Else
; show language icon
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"