THAI INTER: layout Thai inter 3 lang with image.

This commit is contained in:
Ittipat Lusuk 2024-11-27 14:58:15 +07:00
parent f3a2774d63
commit 7e3c847aef
903 changed files with 4726 additions and 18999 deletions

View file

@ -734,7 +734,9 @@
</EventUnitTest1>
<EventUnitTest2>
;Open "ROOT/taobin_project/inter/tha/xml/page_collect_point_1.lxml"
Open "ROOT/taobin_project/xml/page_check_member2.xml"
</EventUnitTest2>

View file

@ -3,7 +3,11 @@
Var PageCollectPoint1 = "ROOT/taobin_project/xml/page_collect_point_1.xml"
If InternationalEnable = 1 Then
Var PageCollectPoint1 = CountryRootPath + "/xml/page_collect_point_1.lxml"
If CountryName = "Thailand" Then
Var PageCollectPoint1 = "ROOT/taobin_project/xml/page_collect_point_1.xml"
Else
Var PageCollectPoint1 = CountryRootPath + "/xml/page_collect_point_1.lxml"
EndIf
EndIf
If CountryName = "Singapore" Then

View file

@ -11,23 +11,72 @@
Var OpenCheckCoupon = 0
Var ChangeMemberPassword = 0
; Default language (Thai).
Var show_btn = "ROOT/taobin_project/image/page2/bn_eng_lang_2.png"
Var text = "เลือกบริการที่คุณต้องการ"
Var Extension = ".png"
If show_eng = "false" Then
;Var show_btn = "ROOT/taobin_project/image/page2/bn_eng_lang_2.png"
;Var text = "เลือกบริการที่คุณต้องการ"
;Var Extension = ".png"
SetLanguage "THAI"
EndIf
; language (Eng).
If show_eng = "true" Then
;Var show_btn = "ROOT/taobin_project/image/page2/bn_thai_lang_2.png"
;Var text = "Manage your Tao Bin account"
;Var Extension = "_en.png"
If LanguageShow = "MYANMAR" Then
;Var text = "သင်၏ Tao Bin အကောင့်ကို စီမံခန့်ခွဲပါ။"
;Var Extension = "_mmr.png"
SetLanguage "MYANMAR"
Else
SetLanguage "ENG"
EndIf
EndIf
</EventOpen>
<EventLanguageOnChange>
DEBUGVAR LanguageShow
If LanguageShow = "ENG" Then
Var show_btn = "ROOT/taobin_project/image/page2/bn_thai_lang_2.png"
Var text = "Manage your Tao Bin account"
Var Extension = "_en.png"
EndIf
If LanguageShow = "THAI" Then
Var show_btn = "ROOT/taobin_project/image/page2/bn_eng_lang_2.png"
Var text = "เลือกบริการที่คุณต้องการ"
Var Extension = ".png"
EndIf
If LanguageShow = "MYANMAR" Then
Var text = "သင်၏ Tao Bin အကောင့်ကို စီမံခန့်ခွဲပါ။"
Var Extension = "_mmr.png"
EndIf
SAVELOG "EventLanguageOnChange menu -list"
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
Var show_eng_button_stage = "Invisible"
Var LanguageButtonEnable = "Enable"
EndIf
Else
Var LanguageButtonEnable = "Invisible"
Var show_eng_button_stage = "Enable"
EndIf
</EventOpen>
DEBUGVAR LanguageButtonEnable
DEBUGVAR show_eng_button_stage
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
RefreshAll
</EventLanguageOnChange>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var Timeout = Timeout + 1
@ -59,6 +108,7 @@
<Button>
<X> 990 </X>
<Y> 381 </Y>
<State> show_eng_button_stage </State>
<Filename> show_btn </Filename>
<FilenamePress> show_btn </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>

View file

@ -945,9 +945,9 @@
If BoxID = 210604 Then
Var SettingIgnoreCollectPoint = 0
EndIf
If BoxID = 210699 Then
Var SettingIgnoreCollectPoint = 0
EndIf
;If BoxID = 210699 Then
;Var SettingIgnoreCollectPoint = 0
;EndIf
READ_FILE "/mnt/sdcard/coffeevending/use_pt_dev" use_pt_dev
STRCONTAIN "1" use_pt_dev enable_pt_mode_by_cfg
@ -1314,6 +1314,8 @@
TRY "ROOT/taobin_project/xml/sometime/RoadShow.ev"
;MyanmarLangEnable
;
;
If BoxID = 210699 Then
If CountryName = "Thailand" Then
Var InternationalEnable = 1
@ -1332,6 +1334,7 @@
EnableLanguage "ENG"
EnableLanguage "THAI"
EnableLanguage "MYANMAR"
Var ENABLE_UAE_DUBAI = "Invisible"
SetLanguage "THAI"
LanguageControl "UpdateList" "-"
Var show_eng = "false"
@ -1351,10 +1354,12 @@
Var TextPriceMenuBlendX = 180
Var TextPriceMenuHotX = 48
Var ShowButtonClick = "Enable"
Var ShowButtonClick2 = "Invisible"
Var ButtontoTopupMenu = "Enable"
Var LanguageObjectShow = "Enable"
Var NoLangObjectShow = "Invisible"
Var PriceUnitText = ""
;Var MemberButtonFileName = "ROOT/taobin_project/image/TermTempage2/bp_main_page_member.png"
@ -1615,7 +1620,7 @@ PRICE "Reset" "-"
</EventUnitTest4>
<EventUnitTest5>
Var XMLProfile = "ProfileIncrease30"
Var XMLProfile = "y18IDCardCaffeine"
Var TimeProfilePrice = 0
</EventUnitTest5>
@ -1807,6 +1812,7 @@ PRICE "Reset" "-"
EndIf
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
Var ShowButtonClick = "Enable"
Var ShowButtonClickFull = "Enable"
EndIf
EndIf
@ -1824,6 +1830,7 @@ PRICE "Reset" "-"
EndIf
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
Var ShowButtonClick = "Enable"
Var ShowButtonClickFull = "Enable"
EndIf
EndIf
@ -2140,15 +2147,19 @@ PRICE "Reset" "-"
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml"
If InternationalEnable = 1 Then
;inter-xml-open
DEBUGVAR CountryName
If CountryName = "UnitedArabEmirates Dubai" Then
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_check_member.xml"
If CountryName = "Thailand" Then
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_before_check_member.xml"
Else
Var ChackMemberPage = CountryRootPath + "xml/page_check_member.lxml"
OpenInst 2 ChackMemberPage
;inter-xml-open
DEBUGVAR CountryName
If CountryName = "UnitedArabEmirates Dubai" Then
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_check_member.xml"
Else
Var ChackMemberPage = CountryRootPath + "xml/page_check_member.lxml"
OpenInst 2 ChackMemberPage
EndIf
EndIf
Else
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_before_check_member.xml"

View file

@ -52,6 +52,16 @@
Var PrintCoinAmount = 0
Var DirImageDoing = "ROOT/taobin_project/image/page_doing"
If show_eng = "true" Then
Var DirImageDoing = "ROOT/taobin_project/image/page_doing_en"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImageDoing = "ROOT/taobin_project/image/page_doing_mmr/"
EndIf
If show_eng = "true" Then
@ -116,6 +126,31 @@
Var XStraw = 142
EndIf
If LanguageShow = "MYANMAR" Then
Var IMG_CNT = DirImageDoing + "/img2_mmr.png"
Play "ROOT/taobin_project/sound_eng/Wait_a_moment.mp3"
Var bnGetMoreStrawFileName = DirImageDoing + "/bn_get_more_straw.png"
Var bpGetMoreStrawFileName = DirImageDoing + "/bp_get_more_straw.png"
Var bnStrawProblemReport = DirImageDoing + "/bn_send_report_straw_mmr.png"
Var bpStrawProblemReport = DirImageDoing + "/bp_send_report_straw_mmr.png"
Var bnLidProblemReport = DirImageDoing + "/bn_send_report_lid_mmr.png"
Var bpLidProblemReport = DirImageDoing + "/bp_send_report_lid_mmr.png"
Var bn_get_lid_image = DirImageDoing + "/bn_get_lid.png"
Var bp_get_lid_image = DirImageDoing + "/bp_get_lid.png"
Var brew_txt2 = "ROOT/taobin_project/video/brewing_txt_adv3_mmr.png"
Var brew_txt1 = "ROOT/taobin_project/video/brewing_txt_adv1_mmr.png"
Var XStraw = 274
EndIf
Var waitAckPay = 0
Var VendingTSIDTmp = ""
@ -258,6 +293,11 @@
Var DirImage2 = "ROOT/taobin_project/image/topping2"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_mmr/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/topping2_mmr"
EndIf
DEBUGVAR show_eng
Var next_pic_bn = DirImage + "/bn_add_order.png"

View file

@ -14,10 +14,14 @@
If InternationalEnable = 1 Then
Var Brewing3ContiXMLFile = CountryRootPath + "/xml/page_brewing3Conti.xml"
DEBUGVAR Brewing3ContiXMLFile
If CountryName = "Thailand" Then
;do not thing
Else
Var Brewing3ContiXMLFile = CountryRootPath + "/xml/page_brewing3Conti.xml"
DEBUGVAR Brewing3ContiXMLFile
Open Brewing3ContiXMLFile
Open Brewing3ContiXMLFile
EndIf
EndIf
@ -42,6 +46,12 @@
Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_mmr/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/topping2_mmr"
Var IMG_CNT = "ROOT/taobin_project/image/page_doing_mmr/img2_mmr.png"
EndIf
Var next_pic_bn = DirImage + "/bn_add_order.png"
Var next_pic_bp = DirImage + "/bp_add_order.png"
Var text_next_order = DirImage + "/text_next_order.png"
@ -1086,6 +1096,24 @@
<Value> ShowCountDownBrewing </Value>
</Text>
<Text>
<X> 816 </X>
<Y> 429 </Y>
<State> LanguageObjectShow </State>
<Language>
<ID> 000405 </ID>
</Language>
</Text>
<Text>
<X> 941 </X>
<Y> 518 </Y>
<State> LanguageObjectShow </State>
<Language>
<ID> 000406 </ID>
</Language>
</Text>
<Button>
<X> 792 </X>
<Y> 1787 </Y>

View file

@ -8,6 +8,10 @@
OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml"
OpenInst 0 "/mnt/sdcard/coffeevending/taobin_project/xml/page_main_blank.xml"
If InternationalEnable = 1 Then
Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_catalog.lxml"
EndIf
TopView "show"
; On open

View file

@ -21,28 +21,25 @@
Var GetCreditFlag = 0
Var Xtext19 = 260
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
;do not thing
Else
Var OpenXMLFile = CountryRootPath + "xml/page_check_member.lxml"
Open OpenXMLFile
EndIf
EndIf
If show_eng = "true" Then
Var CheckMemberTitle = CheckMemberTitleEN
Var DirImage = "ROOT/taobin_project/image/collectiing_en"
Var Xtext19 = 154
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Please_enter_your_mobile_to_credit_balance.mp3"
If show_eng = "true" Then
If LanguageShow = "MYANMAR" Then
SetLanguage "MYANMAR"
Else
SetLanguage "ENG"
EndIf
Else
Var CheckMemberTitle = CheckMemberTitleTH
Var DirImage = "ROOT/taobin_project/image/collectiing"
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_thai/Please_enter_your_mobile_to_credit_balance.mp3"
SetLanguage "THAI"
EndIf
@ -78,14 +75,61 @@
DEBUGVAR LanguageShow
If LanguageShow = "ENG" Then
Var CheckMemberTitle = CheckMemberTitleEN
Var DirImage = "ROOT/taobin_project/image/collectiing_en"
Var Xtext19 = 154
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Please_enter_your_mobile_to_credit_balance.mp3"
EndIf
If LanguageShow = "THAI" Then
Var CheckMemberTitle = CheckMemberTitleTH
Var DirImage = "ROOT/taobin_project/image/collectiing"
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_thai/Please_enter_your_mobile_to_credit_balance.mp3"
EndIf
Refresh
If LanguageShow = "MYANMAR" Then
Var CheckMemberTitle = CheckMemberTitleMMR
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr"
EndIf
SAVELOG "EventLanguageOnChange menu -list"
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
Var show_eng_button_stage = "Invisible"
Var LanguageButtonEnable = "Enable"
EndIf
;inter-max-number
If CountryName = "Malaysia" Then
Var show_eng_button_stage = "Invisible"
EndIf
;inter-max-number
If CountryName = "Indonesia" Then
Var show_eng_button_stage = "Invisible"
EndIf
;inter-max-number
If CountryName = "Australia" Then
Var show_eng_button_stage = "Invisible"
EndIf
Else
Var LanguageButtonEnable = "Invisible"
Var show_eng_button_stage = "Enable"
EndIf
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
RefreshAll
</EventLanguageOnChange>

View file

@ -10,6 +10,15 @@
<EventOpen>
; On open
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
;do not thing
Else
Var OpenXMLFile = CountryRootPath + "xml/page_check_member1.lxml"
Open OpenXMLFile
EndIf
EndIf
Var Timeout = 0
Var TimeoutSMS = 0
Var StateBGetSMS = "Enable"
@ -42,6 +51,10 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
Var Ext1a = ""
Var GetAccFlag = 0

File diff suppressed because it is too large Load diff

View file

@ -1,3 +1,4 @@
page_check_member2_campaign
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
@ -11,22 +12,14 @@
Var Timeout = 0
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/display_point_en"
Var DirImageCampaign = "ROOT/taobin_project/image/display_point_campaign_en"
Else
Var DirImage = "ROOT/taobin_project/image/display_point"
Var DirImageCampaign = "ROOT/taobin_project/image/display_point_campaign"
EndIf
If show_eng = "true" Then
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
Else
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
EndIf
If LanguageShow = "MYANMAR" Then
SetLanguage "MYANMAR"
Else
SetLanguage "ENG"
EndIf
Else
SetLanguage "THAI"
EndIf
Var CoffeePointRank = CoffeePointRankTmp
;Var PointDiff = 150 - CoffeePointRank
@ -52,273 +45,12 @@
SPLIT TaobinExpire "/" 3 TaobinExpireYear
If show_eng = "true" Then
If TaobinExpireMonth = "01" Then
Var TaobinExpireMonth = "Jan"
Var TaobinExpireMonthX = "January"
EndIf
If TaobinExpireMonth = "02" Then
Var TaobinExpireMonth = "Feb"
Var TaobinExpireMonthX = "February"
EndIf
If TaobinExpireMonth = "03" Then
Var TaobinExpireMonth = "Mar"
Var TaobinExpireMonthX = "March"
EndIf
If TaobinExpireMonth = "04" Then
Var TaobinExpireMonth = "Apr"
Var TaobinExpireMonthX = "April"
EndIf
If TaobinExpireMonth = "05" Then
Var TaobinExpireMonth = "May"
Var TaobinExpireMonthX = "May"
EndIf
If TaobinExpireMonth = "06" Then
Var TaobinExpireMonth = "Jun"
Var TaobinExpireMonthX = "June"
EndIf
If TaobinExpireMonth = "07" Then
Var TaobinExpireMonth = "Jul"
Var TaobinExpireMonthX = "July"
EndIf
If TaobinExpireMonth = "08" Then
Var TaobinExpireMonth = "Aug"
Var TaobinExpireMonthX = "August"
EndIf
If TaobinExpireMonth = "09" Then
Var TaobinExpireMonth = "Sep"
Var TaobinExpireMonthX = "September"
EndIf
If TaobinExpireMonth = "10" Then
Var TaobinExpireMonth = "Oct"
Var TaobinExpireMonthX = "October"
EndIf
If TaobinExpireMonth = "11" Then
Var TaobinExpireMonth = "Nov"
Var TaobinExpireMonthX = "November"
EndIf
If TaobinExpireMonth = "12" Then
Var TaobinExpireMonth = "Dec"
Var TaobinExpireMonthX = "December"
EndIf
INT TaobinExpireYear
INT TaobinExpireDay
Var TaobinExpireYear = TaobinExpireYear + 0
Else
If TaobinExpireMonth = "01" Then
Var TaobinExpireMonth = "ม.ค."
Var TaobinExpireMonthX = "มกราคม"
EndIf
If TaobinExpireMonth = "02" Then
Var TaobinExpireMonth = "ก.พ."
Var TaobinExpireMonthX = "กุมภาพันธ์"
EndIf
If TaobinExpireMonth = "03" Then
Var TaobinExpireMonth = "มี.ค."
Var TaobinExpireMonthX = "มีนาคม"
EndIf
If TaobinExpireMonth = "04" Then
Var TaobinExpireMonth = "เม.ย."
Var TaobinExpireMonthX = "เมษายน"
EndIf
If TaobinExpireMonth = "05" Then
Var TaobinExpireMonth = "พ.ค."
Var TaobinExpireMonthX = "พฤษภาคม"
EndIf
If TaobinExpireMonth = "06" Then
Var TaobinExpireMonth = "มิ.ย."
Var TaobinExpireMonthX = "มิถุนายน"
EndIf
If TaobinExpireMonth = "07" Then
Var TaobinExpireMonth = "ก.ค."
Var TaobinExpireMonthX = "กรกฎาคม"
EndIf
If TaobinExpireMonth = "08" Then
Var TaobinExpireMonth = "ส.ค."
Var TaobinExpireMonthX = "สิงหาคม"
EndIf
If TaobinExpireMonth = "09" Then
Var TaobinExpireMonth = "ก.ย."
Var TaobinExpireMonthX = "กันยายน"
EndIf
If TaobinExpireMonth = "10" Then
Var TaobinExpireMonth = "ต.ค."
Var TaobinExpireMonthX = "ตุลาคม"
EndIf
If TaobinExpireMonth = "11" Then
Var TaobinExpireMonth = "พ.ย."
Var TaobinExpireMonthX = "พฤศจิกายน"
EndIf
If TaobinExpireMonth = "12" Then
Var TaobinExpireMonth = "ธ.ค."
Var TaobinExpireMonthX = "ธันวาคม"
EndIf
INT TaobinExpireYear
INT TaobinExpireDay
Var TaobinExpireYear = TaobinExpireYear + 543
EndIf
Var ExpireStrTmp = ""
Var ExpireStrTmp = ExpireStrTmp + TaobinExpireDay
Var ExpireStrTmp = ExpireStrTmp + " "
Var ExpireStrTmp = ExpireStrTmp + TaobinExpireMonth
Var ExpireStrTmp = ExpireStrTmp + " "
Var ExpireStrTmp = ExpireStrTmp + TaobinExpireYear
If show_eng = "true" Then
If TaobinLevel = "1" Then
Var TaobinLevelDesc1 = "Shy turtle level"
Var TaobinLevelDesc2 = ""
Var TaobinLeveImg = "/taoLevel1.png"
EndIf
If TaobinLevel = "2" Then
Var TaobinLevelDesc1 = "Walking turtle level"
Var PointDiff = 150 - CoffeePointRank
Var TaobinLevelDesc2 = "Earn " + PointDiff
Var TaobinLevelDesc2 = TaobinLevelDesc2 + " shells "
Var TaobinLevelDesc2 = TaobinLevelDesc2 + "to move to Flying turtle level"
Var TaobinLeveImg = "/taoLevel2.png"
If CoffeePointRank > 149 Then
;Var TaobinLeveImg = "/taoLevel3.png"
;Var TaobinLevelDesc1 = "Flying turtle level "
Var TaobinLevelDesc2 = ""
;Var CoffeePointRank = CoffeePointRank - 150
EndIf
EndIf
If TaobinLevel = "3" Then
Var TaobinLevelDesc1 = "Flying turtle level until " + ExpireStrTmp
Var PointDiff = 200 - CoffeePointRank
Var TaobinLevelDesc2 = "Earn " + PointDiff
Var TaobinLevelDesc2 = TaobinLevelDesc2 + " shells "
Var TaobinLevelDesc2 = TaobinLevelDesc2 + "to move to Master turtle level"
Var TaobinLeveImg = "/taoLevel3.png"
If CoffeePointRank > 199 Then
;Var TaobinLeveImg = "/taoLevel4.png"
;Var TaobinLevelDesc1 = "Master turtle level "
Var TaobinLevelDesc2 = ""
;Var CoffeePointRank = CoffeePointRank - 350
EndIf
EndIf
If TaobinLevel = "4" Then
Var TaobinLevelDesc1 = "Master turtle level until " + ExpireStrTmp
Var TaobinLevelDesc2 = ""
Var TaobinLeveImg = "/taoLevel4.png"
EndIf
Else
If TaobinLevel = "1" Then
Var TaobinLevelDesc1 = "ระดับสมาชิก เต่าขี้อาย"
Var TaobinLevelDesc2 = ""
Var TaobinLeveImg = "/taoLevel1.png"
EndIf
If TaobinLevel = "2" Then
Var TaobinLevelDesc1 = "ระดับสมาชิก เต่าเตาะแตะ"
Var PointDiff = 150 - CoffeePointRank
Var TaobinLevelDesc2 = "สะสมกระดองอีก " + PointDiff
Var TaobinLevelDesc2 = TaobinLevelDesc2 + " กระดอง "
Var TaobinLevelDesc2 = TaobinLevelDesc2 + "เพื่อเลื่อนขั้นเป็นเต่าติดปีก"
Var TaobinLeveImg = "/taoLevel2.png"
If CoffeePointRank > 149 Then
;Var TaobinLeveImg = "/taoLevel3.png"
;Var TaobinLevelDesc1 = "ระดับสมาชิก เต่าติดปีก "
Var TaobinLevelDesc2 = ""
;Var CoffeePointRank = CoffeePointRank - 150
EndIf
EndIf
If TaobinLevel = "3" Then
Var TaobinLevelDesc1 = "ระดับสมาชิก เต่าติดปีก จนถึง " + ExpireStrTmp
Var PointDiff = 200 - CoffeePointRank
Var TaobinLevelDesc2 = "สะสมกระดองอีก " + PointDiff
Var TaobinLevelDesc2 = TaobinLevelDesc2 + " กระดอง "
Var TaobinLevelDesc2 = TaobinLevelDesc2 + "เพื่อเลื่อนขั้นเป็นผู้เฒ่าเต่า"
Var TaobinLeveImg = "/taoLevel3.png"
If CoffeePointRank > 199 Then
;Var TaobinLeveImg = "/taoLevel4.png"
;Var TaobinLevelDesc1 = "ระดับสมาชิก ผู้เฒ่าเต่า "
Var TaobinLevelDesc2 = ""
;Var CoffeePointRank = CoffeePointRank - 350
EndIf
EndIf
If TaobinLevel = "4" Then
Var TaobinLevelDesc1 = "ระดับสมาชิก ผู้เฒ่าเต่า จนถึง " + ExpireStrTmp
Var TaobinLevelDesc2 = ""
Var TaobinLeveImg = "/taoLevel4.png"
EndIf
EndIf
Var FromCheckMemberPoint = 0
@ -331,8 +63,6 @@
Var PolygonST2 = "Invisible"
;Var CouponInfo1 = Ext1a
;Var CouponInfo2 = Ext1b
;Var CouponInfo3 = Ext1c
@ -571,120 +301,8 @@
Var CouponExpireB = CouponExpireB + CouponExireB_Y
EndIf
If show_eng = "true" Then
Var Months[0] = "January"
Var Months[1] = "February"
Var Months[2] = "March"
Var Months[3] = "April"
Var Months[4] = "May"
Var Months[5] = "June"
Var Months[6] = "July"
Var Months[7] = "August"
Var Months[8] = "September"
Var Months[9] = "October"
Var Months[10] = "November"
Var Months[11] = "December"
If CouponIDA = "" Then
Else
Var MonthIndex = CouponExireA_M
INT MonthIndex
Var MonthIndex = MonthIndex - 1
Var CouponExireA_M = Months[MonthIndex]
Var CouponExpireA = "Expires " + CouponExpireA
EndIf
If CouponIDB = "" Then
Else
Var MonthIndex = CouponExireB_M
INT MonthIndex
Var MonthIndex = MonthIndex - 1
Var CouponExireB_M = Months[MonthIndex]
Var CouponExpireB = "Expires " + CouponExpireB
EndIf
Var CouponText = "Coupons (" + CouponNum
Var CouponText = CouponText + ")"
Else
Var Months[0] = "มกราคม"
Var Months[1] = "กุมภาพันธ์"
Var Months[2] = "มีนาคม"
Var Months[3] = "เมษายน"
Var Months[4] = "พฤษภาคม"
Var Months[5] = "มิถุนายน"
Var Months[6] = "กรกฎาคม"
Var Months[7] = "สิงหาคม"
Var Months[8] = "กันยายน"
Var Months[9] = "ตุลาคม"
Var Months[10] = "พฤศจิกายน"
Var Months[11] = "ธันวาคม"
If CouponIDA = "" Then
Else
Var MonthIndex = CouponExireA_M
INT MonthIndex
Var MonthIndex = MonthIndex - 1
Var CouponExireA_M = Months[MonthIndex]
Var CouponExpireA = "หมดอายุ " + CouponExpireA
EndIf
If CouponIDB = "" Then
Else
Var MonthIndex = CouponExireB_M
INT MonthIndex
Var MonthIndex = MonthIndex - 1
Var CouponExireB_M = Months[MonthIndex]
Var CouponExpireB = "หมดอายุ " + CouponExpireB
EndIf
Var CouponText = "คูปองสะสม (" + CouponNum
Var CouponText = CouponText + ")"
EndIf
If show_eng = "true" Then
Var MemberText = "MEMBERSHIP STATUS"
Var CreditTotalLabel = "TAO BIN CREDIT"
Var ShellTotalLabel = "TOTAL SHELL BALANCE"
Var CreditUnit = "BATH"
Var ShellUnit = "SHELLS"
Var dayDiff_X = 170
Var dayDiff_Y = 1154
Var dayDiff_Size = 16
Else
Var MemberText = "สถานะสมาชิก"
Var CreditTotalLabel = "เครดิตสะสม"
Var ShellTotalLabel = "กระดองสะสม"
Var CreditUnit = "บาท"
Var ShellUnit = "กระดอง"
Var dayDiff_X = 244
Var dayDiff_Y = 1138
Var dayDiff_Size = 25
EndIf
If MakeDrinkState = 1 Then
Var bn_exit = "/bn_cancel2.png"
Var bp_exit = "/bp_cancel2.png"
@ -765,6 +383,555 @@
EndIf
</EventOpen>
<EventLanguageOnChange>
DEBUGVAR LanguageShow
DEBUGVAR InternationalEnable
If LanguageShow = "ENG" Then
Var DirImage = "ROOT/taobin_project/image/display_point_en"
Var DirImageCampaign = "ROOT/taobin_project/image/display_point_campaign_en"
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
If TaobinExpireMonth = "01" Then
Var TaobinExpireMonth = "Jan"
Var TaobinExpireMonthX = "January"
EndIf
If TaobinExpireMonth = "02" Then
Var TaobinExpireMonth = "Feb"
Var TaobinExpireMonthX = "February"
EndIf
If TaobinExpireMonth = "03" Then
Var TaobinExpireMonth = "Mar"
Var TaobinExpireMonthX = "March"
EndIf
If TaobinExpireMonth = "04" Then
Var TaobinExpireMonth = "Apr"
Var TaobinExpireMonthX = "April"
EndIf
If TaobinExpireMonth = "05" Then
Var TaobinExpireMonth = "May"
Var TaobinExpireMonthX = "May"
EndIf
If TaobinExpireMonth = "06" Then
Var TaobinExpireMonth = "Jun"
Var TaobinExpireMonthX = "June"
EndIf
If TaobinExpireMonth = "07" Then
Var TaobinExpireMonth = "Jul"
Var TaobinExpireMonthX = "July"
EndIf
If TaobinExpireMonth = "08" Then
Var TaobinExpireMonth = "Aug"
Var TaobinExpireMonthX = "August"
EndIf
If TaobinExpireMonth = "09" Then
Var TaobinExpireMonth = "Sep"
Var TaobinExpireMonthX = "September"
EndIf
If TaobinExpireMonth = "10" Then
Var TaobinExpireMonth = "Oct"
Var TaobinExpireMonthX = "October"
EndIf
If TaobinExpireMonth = "11" Then
Var TaobinExpireMonth = "Nov"
Var TaobinExpireMonthX = "November"
EndIf
If TaobinExpireMonth = "12" Then
Var TaobinExpireMonth = "Dec"
Var TaobinExpireMonthX = "December"
EndIf
INT TaobinExpireYear
INT TaobinExpireDay
Var TaobinExpireYear = TaobinExpireYear + 0
If TaobinLevel = "1" Then
Var TaobinLevelDesc1 = "Shy turtle level"
Var TaobinLevelDesc2 = ""
Var TaobinLeveImg = "/taoLevel1.png"
EndIf
If TaobinLevel = "2" Then
Var TaobinLevelDesc1 = "Walking turtle level"
Var PointDiff = 150 - CoffeePointRank
Var TaobinLevelDesc2 = "Earn " + PointDiff
Var TaobinLevelDesc2 = TaobinLevelDesc2 + " shells "
Var TaobinLevelDesc2 = TaobinLevelDesc2 + "to move to Flying turtle level"
Var TaobinLeveImg = "/taoLevel2.png"
If CoffeePointRank > 149 Then
;Var TaobinLeveImg = "/taoLevel3.png"
;Var TaobinLevelDesc1 = "Flying turtle level "
Var TaobinLevelDesc2 = ""
;Var CoffeePointRank = CoffeePointRank - 150
EndIf
EndIf
If TaobinLevel = "3" Then
Var TaobinLevelDesc1 = "Flying turtle level until " + ExpireStrTmp
Var PointDiff = 200 - CoffeePointRank
Var TaobinLevelDesc2 = "Earn " + PointDiff
Var TaobinLevelDesc2 = TaobinLevelDesc2 + " shells "
Var TaobinLevelDesc2 = TaobinLevelDesc2 + "to move to Master turtle level"
Var TaobinLeveImg = "/taoLevel3.png"
If CoffeePointRank > 199 Then
;Var TaobinLeveImg = "/taoLevel4.png"
;Var TaobinLevelDesc1 = "Master turtle level "
Var TaobinLevelDesc2 = ""
;Var CoffeePointRank = CoffeePointRank - 350
EndIf
EndIf
If TaobinLevel = "4" Then
Var TaobinLevelDesc1 = "Master turtle level until " + ExpireStrTmp
Var TaobinLevelDesc2 = ""
Var TaobinLeveImg = "/taoLevel4.png"
EndIf
Var Months[0] = "January"
Var Months[1] = "February"
Var Months[2] = "March"
Var Months[3] = "April"
Var Months[4] = "May"
Var Months[5] = "June"
Var Months[6] = "July"
Var Months[7] = "August"
Var Months[8] = "September"
Var Months[9] = "October"
Var Months[10] = "November"
Var Months[11] = "December"
If CouponIDA = "" Then
Else
Var MonthIndex = CouponExireA_M
INT MonthIndex
Var MonthIndex = MonthIndex - 1
Var CouponExireA_M = Months[MonthIndex]
Var CouponExpireA = "Expires " + CouponExpireA
EndIf
If CouponIDB = "" Then
Else
Var MonthIndex = CouponExireB_M
INT MonthIndex
Var MonthIndex = MonthIndex - 1
Var CouponExireB_M = Months[MonthIndex]
Var CouponExpireB = "Expires " + CouponExpireB
EndIf
Var CouponText = "Coupons (" + CouponNum
Var CouponText = CouponText + ")"
Var MemberText = "MEMBERSHIP STATUS"
Var CreditTotalLabel = "TAO BIN CREDIT"
Var ShellTotalLabel = "TOTAL SHELL BALANCE"
Var CreditUnit = "BATH"
Var ShellUnit = "SHELLS"
Var dayDiff_X = 170
Var dayDiff_Y = 1154
Var dayDiff_Size = 16
EndIf
If LanguageShow = "THAI" Then
Var DirImage = "ROOT/taobin_project/image/display_point"
Var DirImageCampaign = "ROOT/taobin_project/image/display_point_campaign"
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
If TaobinExpireMonth = "01" Then
Var TaobinExpireMonth = "ม.ค."
Var TaobinExpireMonthX = "มกราคม"
EndIf
If TaobinExpireMonth = "02" Then
Var TaobinExpireMonth = "ก.พ."
Var TaobinExpireMonthX = "กุมภาพันธ์"
EndIf
If TaobinExpireMonth = "03" Then
Var TaobinExpireMonth = "มี.ค."
Var TaobinExpireMonthX = "มีนาคม"
EndIf
If TaobinExpireMonth = "04" Then
Var TaobinExpireMonth = "เม.ย."
Var TaobinExpireMonthX = "เมษายน"
EndIf
If TaobinExpireMonth = "05" Then
Var TaobinExpireMonth = "พ.ค."
Var TaobinExpireMonthX = "พฤษภาคม"
EndIf
If TaobinExpireMonth = "06" Then
Var TaobinExpireMonth = "มิ.ย."
Var TaobinExpireMonthX = "มิถุนายน"
EndIf
If TaobinExpireMonth = "07" Then
Var TaobinExpireMonth = "ก.ค."
Var TaobinExpireMonthX = "กรกฎาคม"
EndIf
If TaobinExpireMonth = "08" Then
Var TaobinExpireMonth = "ส.ค."
Var TaobinExpireMonthX = "สิงหาคม"
EndIf
If TaobinExpireMonth = "09" Then
Var TaobinExpireMonth = "ก.ย."
Var TaobinExpireMonthX = "กันยายน"
EndIf
If TaobinExpireMonth = "10" Then
Var TaobinExpireMonth = "ต.ค."
Var TaobinExpireMonthX = "ตุลาคม"
EndIf
If TaobinExpireMonth = "11" Then
Var TaobinExpireMonth = "พ.ย."
Var TaobinExpireMonthX = "พฤศจิกายน"
EndIf
If TaobinExpireMonth = "12" Then
Var TaobinExpireMonth = "ธ.ค."
Var TaobinExpireMonthX = "ธันวาคม"
EndIf
INT TaobinExpireYear
INT TaobinExpireDay
Var TaobinExpireYear = TaobinExpireYear + 543
If TaobinLevel = "1" Then
Var TaobinLevelDesc1 = "ระดับสมาชิก เต่าขี้อาย"
Var TaobinLevelDesc2 = ""
Var TaobinLeveImg = "/taoLevel1.png"
EndIf
If TaobinLevel = "2" Then
Var TaobinLevelDesc1 = "ระดับสมาชิก เต่าเตาะแตะ"
Var PointDiff = 150 - CoffeePointRank
Var TaobinLevelDesc2 = "สะสมกระดองอีก " + PointDiff
Var TaobinLevelDesc2 = TaobinLevelDesc2 + " กระดอง "
Var TaobinLevelDesc2 = TaobinLevelDesc2 + "เพื่อเลื่อนขั้นเป็นเต่าติดปีก"
Var TaobinLeveImg = "/taoLevel2.png"
If CoffeePointRank > 149 Then
;Var TaobinLeveImg = "/taoLevel3.png"
;Var TaobinLevelDesc1 = "ระดับสมาชิก เต่าติดปีก "
Var TaobinLevelDesc2 = ""
;Var CoffeePointRank = CoffeePointRank - 150
EndIf
EndIf
If TaobinLevel = "3" Then
Var TaobinLevelDesc1 = "ระดับสมาชิก เต่าติดปีก จนถึง " + ExpireStrTmp
Var PointDiff = 200 - CoffeePointRank
Var TaobinLevelDesc2 = "สะสมกระดองอีก " + PointDiff
Var TaobinLevelDesc2 = TaobinLevelDesc2 + " กระดอง "
Var TaobinLevelDesc2 = TaobinLevelDesc2 + "เพื่อเลื่อนขั้นเป็นผู้เฒ่าเต่า"
Var TaobinLeveImg = "/taoLevel3.png"
If CoffeePointRank > 199 Then
;Var TaobinLeveImg = "/taoLevel4.png"
;Var TaobinLevelDesc1 = "ระดับสมาชิก ผู้เฒ่าเต่า "
Var TaobinLevelDesc2 = ""
;Var CoffeePointRank = CoffeePointRank - 350
EndIf
EndIf
If TaobinLevel = "4" Then
Var TaobinLevelDesc1 = "ระดับสมาชิก ผู้เฒ่าเต่า จนถึง " + ExpireStrTmp
Var TaobinLevelDesc2 = ""
Var TaobinLeveImg = "/taoLevel4.png"
EndIf
Var Months[0] = "มกราคม"
Var Months[1] = "กุมภาพันธ์"
Var Months[2] = "มีนาคม"
Var Months[3] = "เมษายน"
Var Months[4] = "พฤษภาคม"
Var Months[5] = "มิถุนายน"
Var Months[6] = "กรกฎาคม"
Var Months[7] = "สิงหาคม"
Var Months[8] = "กันยายน"
Var Months[9] = "ตุลาคม"
Var Months[10] = "พฤศจิกายน"
Var Months[11] = "ธันวาคม"
If CouponIDA = "" Then
Else
Var MonthIndex = CouponExireA_M
INT MonthIndex
Var MonthIndex = MonthIndex - 1
Var CouponExireA_M = Months[MonthIndex]
Var CouponExpireA = "หมดอายุ " + CouponExpireA
EndIf
If CouponIDB = "" Then
Else
Var MonthIndex = CouponExireB_M
INT MonthIndex
Var MonthIndex = MonthIndex - 1
Var CouponExireB_M = Months[MonthIndex]
Var CouponExpireB = "หมดอายุ " + CouponExpireB
EndIf
Var CouponText = "คูปองสะสม (" + CouponNum
Var CouponText = CouponText + ")"
Var MemberText = "สถานะสมาชิก"
Var CreditTotalLabel = "เครดิตสะสม"
Var ShellTotalLabel = "กระดองสะสม"
Var CreditUnit = "บาท"
Var ShellUnit = "กระดอง"
Var dayDiff_X = 244
Var dayDiff_Y = 1138
Var dayDiff_Size = 25
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/display_point_mmr"
Var DirImageCampaign = "ROOT/taobin_project/image/display_point_campaign_mmr"
If TaobinExpireMonth = "01" Then
Var TaobinExpireMonth = "Jan"
Var TaobinExpireMonthX = "ဇန္နဝါရီလ"
EndIf
If TaobinExpireMonth = "02" Then
Var TaobinExpireMonth = "Feb"
Var TaobinExpireMonthX = "ေဖေဖာ္ဝါရီလ"
EndIf
If TaobinExpireMonth = "03" Then
Var TaobinExpireMonth = "Mar"
Var TaobinExpireMonthX = "မတ္လ"
EndIf
If TaobinExpireMonth = "04" Then
Var TaobinExpireMonth = "Apr"
Var TaobinExpireMonthX = "ဧျပီလ"
EndIf
If TaobinExpireMonth = "05" Then
Var TaobinExpireMonth = "May"
Var TaobinExpireMonthX = "ေမလ"
EndIf
If TaobinExpireMonth = "06" Then
Var TaobinExpireMonth = "Jun"
Var TaobinExpireMonthX = "ဇြန္လ"
EndIf
If TaobinExpireMonth = "07" Then
Var TaobinExpireMonth = "Jul"
Var TaobinExpireMonthX = "ဇူလိုင္လ"
EndIf
If TaobinExpireMonth = "08" Then
Var TaobinExpireMonth = "Aug"
Var TaobinExpireMonthX = "ၾသဂုတ္လ"
EndIf
If TaobinExpireMonth = "09" Then
Var TaobinExpireMonth = "Sep"
Var TaobinExpireMonthX = "စက္တင္ဘာလ"
EndIf
If TaobinExpireMonth = "10" Then
Var TaobinExpireMonth = "Oct"
Var TaobinExpireMonthX = "ေအာက္တိုဘာလ"
EndIf
If TaobinExpireMonth = "11" Then
Var TaobinExpireMonth = "Nov"
Var TaobinExpireMonthX = "ႏိုဝင္ဘာလ"
EndIf
If TaobinExpireMonth = "12" Then
Var TaobinExpireMonth = "Dec"
Var TaobinExpireMonthX = "ဒီဇင္ဘာလ"
EndIf
INT TaobinExpireYear
INT TaobinExpireDay
Var TaobinExpireYear = TaobinExpireYear + 0
If TaobinLevel = "1" Then
Var TaobinLevelDesc1 = "ရှက်လိပ်အဆင့်"
Var TaobinLevelDesc2 = ""
Var TaobinLeveImg = "/taoLevel1.png"
EndIf
If TaobinLevel = "2" Then
Var TaobinLevelDesc1 = "လမ်းလျှောက်လိပ်အဆင့်"
Var PointDiff = 150 - CoffeePointRank
Var TaobinLevelDesc2 = "Earn " + PointDiff
Var TaobinLevelDesc2 = TaobinLevelDesc2 + " အခွံများ "
Var TaobinLevelDesc2 = TaobinLevelDesc2 + "Flying turtle အဆင့်သို့ ရွှေ့ရန်"
Var TaobinLeveImg = "/taoLevel2.png"
If CoffeePointRank > 149 Then
;Var TaobinLeveImg = "/taoLevel3.png"
;Var TaobinLevelDesc1 = "လိပ်အဆင့် "
Var TaobinLevelDesc2 = ""
;Var CoffeePointRank = CoffeePointRank - 150
EndIf
EndIf
If TaobinLevel = "3" Then
Var TaobinLevelDesc1 = "လိပ်ပျံအဆင့်အထိ " + ExpireStrTmp
Var PointDiff = 200 - CoffeePointRank
Var TaobinLevelDesc2 = "Earn " + PointDiff
Var TaobinLevelDesc2 = TaobinLevelDesc2 + " အခွံများ "
Var TaobinLevelDesc2 = TaobinLevelDesc2 + "Master လိပ်အဆင့်သို့ ပြောင်းရွှေ့ရန်"
Var TaobinLeveImg = "/taoLevel3.png"
If CoffeePointRank > 199 Then
;Var TaobinLeveImg = "/taoLevel4.png"
;Var TaobinLevelDesc1 = "သခင်လိပ်အဆင့် "
Var TaobinLevelDesc2 = ""
;Var CoffeePointRank = CoffeePointRank - 350
EndIf
EndIf
If TaobinLevel = "4" Then
Var TaobinLevelDesc1 = "မာစတာလိပ်အဆင့်အထိ " + ExpireStrTmp
Var TaobinLevelDesc2 = ""
Var TaobinLeveImg = "/taoLevel4.png"
EndIf
Var Months[0] = "ဇန္နဝါရီလ"
Var Months[1] = "ေဖေဖာ္ဝါရီလ"
Var Months[2] = "မတ္လ"
Var Months[3] = "ဧျပီလ"
Var Months[4] = "ေမလ"
Var Months[5] = "ဇြန္လ"
Var Months[6] = "ဇူလိုင္လ"
Var Months[7] = "ၾသဂုတ္လ"
Var Months[8] = "စက္တင္ဘာလ"
Var Months[9] = "ေအာက္တိုဘာလ"
Var Months[10] = "ႏိုဝင္ဘာလ"
Var Months[11] = "ဒီဇင္ဘာလ"
If CouponIDA = "" Then
Else
Var MonthIndex = CouponExireA_M
INT MonthIndex
Var MonthIndex = MonthIndex - 1
Var CouponExireA_M = Months[MonthIndex]
Var CouponExpireA = "သက်တမ်းကုန် " + CouponExpireA
EndIf
If CouponIDB = "" Then
Else
Var MonthIndex = CouponExireB_M
INT MonthIndex
Var MonthIndex = MonthIndex - 1
Var CouponExireB_M = Months[MonthIndex]
Var CouponExpireB = "သက်တမ်းကုန် " + CouponExpireB
EndIf
Var CouponText = "ကူပွန်များ (" + CouponNum
Var CouponText = CouponText + ")"
Var MemberText = "အဖွဲ့ဝင်အခြေအနေ"
Var CreditTotalLabel = "စုစုပေါင်းခရက်ဒစ်"
Var ShellTotalLabel = "စုစုပေါင်း Shell"
Var CreditUnit = "BATH"
Var ShellUnit = "SHELLS"
Var dayDiff_X = 170
Var dayDiff_Y = 1154
Var dayDiff_Size = 16
EndIf
SAVELOG "EventLanguageOnChange menu -list"
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
Var show_eng_button_stage = "Invisible"
Var LanguageButtonEnable = "Enable"
EndIf
Else
Var LanguageButtonEnable = "Invisible"
Var show_eng_button_stage = "Enable"
EndIf
DEBUGVAR TaobinExpireYear
DEBUGVAR CouponExpireA
DEBUGVAR CouponExpireB
DEBUGVAR CouponText
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
RefreshAll
</EventLanguageOnChange>
<Timeout> 1000 </Timeout>
<EventTimeout>
@ -1091,6 +1258,9 @@
Else
Var return = "คุณได้รับรางวัล Lucky Draw ไปแล้ว"
EndIf
If LanguageShow = "MYANMAR" Then
Var return = "သင်သည် Lucky Draw ဆုလာဘ်ကို ရရှိပြီးဖြစ်သည်။"
EndIf
)
</Value>
</Text>

View file

@ -11,9 +11,14 @@
Var Timeout = 0
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
;do not thing
Else
Var OpenXMLFile = CountryRootPath + "xml/page_check_member3.lxml"
Open OpenXMLFile
EndIf
EndIf
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/display_point_en"
@ -23,6 +28,10 @@
Var DirImage = "ROOT/taobin_project/image/display_point"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/display_point_mmr"
EndIf

View file

@ -36,6 +36,10 @@
Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/display_point_mmr"
EndIf
Var CoffeePointTmp = CoffeePoint
@ -207,6 +211,73 @@
EndIf
If LanguageShow = "MYANMAR" Then
If TaobinExpireMonth = "01" Then
Var TaobinExpireMonth = "Jan"
Var TaobinExpireMonthX = "ဇန္နဝါရီလ"
EndIf
If TaobinExpireMonth = "02" Then
Var TaobinExpireMonth = "Feb"
Var TaobinExpireMonthX = "ေဖေဖာ္ဝါရီလ"
EndIf
If TaobinExpireMonth = "03" Then
Var TaobinExpireMonth = "Mar"
Var TaobinExpireMonthX = "မတ္လ"
EndIf
If TaobinExpireMonth = "04" Then
Var TaobinExpireMonth = "Apr"
Var TaobinExpireMonthX = "ဧျပီလ"
EndIf
If TaobinExpireMonth = "05" Then
Var TaobinExpireMonth = "May"
Var TaobinExpireMonthX = "ေမလ"
EndIf
If TaobinExpireMonth = "06" Then
Var TaobinExpireMonth = "Jun"
Var TaobinExpireMonthX = "ဇြန္လ"
EndIf
If TaobinExpireMonth = "07" Then
Var TaobinExpireMonth = "Jul"
Var TaobinExpireMonthX = "ဇူလိုင္လ"
EndIf
If TaobinExpireMonth = "08" Then
Var TaobinExpireMonth = "Aug"
Var TaobinExpireMonthX = "ၾသဂုတ္လ"
EndIf
If TaobinExpireMonth = "09" Then
Var TaobinExpireMonth = "Sep"
Var TaobinExpireMonthX = "စက္တင္ဘာလ"
EndIf
If TaobinExpireMonth = "10" Then
Var TaobinExpireMonth = "Oct"
Var TaobinExpireMonthX = "ေအာက္တိုဘာလ"
EndIf
If TaobinExpireMonth = "11" Then
Var TaobinExpireMonth = "Nov"
Var TaobinExpireMonthX = "ႏိုဝင္ဘာလ"
EndIf
If TaobinExpireMonth = "12" Then
Var TaobinExpireMonth = "Dec"
Var TaobinExpireMonthX = "ဒီဇင္ဘာလ"
EndIf
INT TaobinExpireYear
INT TaobinExpireDay
Var TaobinExpireYear = TaobinExpireYear + 0
EndIf
Var ExpireStrTmp = ""
Var ExpireStrTmp = ExpireStrTmp + TaobinExpireDay
@ -353,6 +424,68 @@
EndIf
If LanguageShow = "MYANMAR" Then
Var TaobinLevelDesc3 = "သင့်တွင် ကူပွန်များရှိသည်။ "
Var TaobinLevelDesc3 = TaobinLevelDesc3 + TaobinCoupons
Var TaobinLevelDesc3 = TaobinLevelDesc3 + " နံပါတ်များ"
If TaobinLevel = "1" Then
Var TaobinLevelDesc1 = "ရှက်လိပ်အဆင့်"
Var TaobinLevelDesc2 = ""
Var TaobinLeveImg = "/taoLevel1.png"
EndIf
If TaobinLevel = "2" Then
Var TaobinLevelDesc1 = "လမ်းလျှောက်လိပ်အဆင့်"
Var PointDiff = 150 - CoffeePointRank
Var TaobinLevelDesc2 = "Earn " + PointDiff
Var TaobinLevelDesc2 = TaobinLevelDesc2 + " အခွံများ "
Var TaobinLevelDesc2 = TaobinLevelDesc2 + "Flying turtle အဆင့်သို့ ရွှေ့ရန်"
Var TaobinLeveImg = "/taoLevel2.png"
If CoffeePointRank > 149 Then
;Var TaobinLeveImg = "/taoLevel3.png"
;Var TaobinLevelDesc1 = "လိပ်အဆင့် "
Var TaobinLevelDesc2 = ""
;Var CoffeePointRank = CoffeePointRank - 150
EndIf
EndIf
If TaobinLevel = "3" Then
Var TaobinLevelDesc1 = "လိပ်ပျံအဆင့်အထိ " + ExpireStrTmp
Var PointDiff = 200 - CoffeePointRank
Var TaobinLevelDesc2 = "Earn " + PointDiff
Var TaobinLevelDesc2 = TaobinLevelDesc2 + " အခွံများ "
Var TaobinLevelDesc2 = TaobinLevelDesc2 + "Master လိပ်အဆင့်သို့ ပြောင်းရွှေ့ရန်"
Var TaobinLeveImg = "/taoLevel3.png"
If CoffeePointRank > 199 Then
;Var TaobinLeveImg = "/taoLevel4.png"
;Var TaobinLevelDesc1 = "သခင်လိပ်အဆင့် "
Var TaobinLevelDesc2 = ""
;Var CoffeePointRank = CoffeePointRank - 350
EndIf
EndIf
If TaobinLevel = "4" Then
Var TaobinLevelDesc1 = "မာစတာလိပ်အဆင့်အထိ " + ExpireStrTmp
Var TaobinLevelDesc2 = ""
Var TaobinLeveImg = "/taoLevel4.png"
EndIf
EndIf
Var taobinP1 = "Invisible"
Var taobinP2 = "Invisible"

View file

@ -9,7 +9,14 @@
<Refresh> "Partial" </Refresh>
<EventOpen>
; On open
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
;do not thing
Else
Var OpenXMLFile = CountryRootPath + "xml/page_check_newmember1.lxml"
Open OpenXMLFile
EndIf
EndIf
Var Timeout = 0
Var TimeoutSMS = 0
Var StateBGetSMS = "Enable"
@ -40,6 +47,10 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr"
EndIf
Var Ext1a = ""
Var GetAccFlag = 0

View file

@ -9,7 +9,14 @@
<Refresh> "Partial" </Refresh>
<EventOpen>
; On open
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
;do not thing
Else
Var OpenXMLFile = CountryRootPath + "xml/page_check_newmember2.lxml"
Open OpenXMLFile
EndIf
EndIf
Var Timeout = 0
Var TimeoutSMS = 0
Var StateBGetSMS = "Enable"
@ -40,6 +47,10 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr"
EndIf
Var Ext1a = "ok"
Var GetAccFlag = 0

View file

@ -7,6 +7,14 @@
;<Refresh> "Partial" </Refresh>
<EventOpen>
; On open
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
;do not thing
Else
Var OpenXMLFile = CountryRootPath + "xml/page_collect_point_1.lxml"
Open OpenXMLFile
EndIf
EndIf
; jump
If IgnoreCollectPointByMe = 1 Then
@ -47,6 +55,10 @@
Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collect_point1_mmr"
EndIf
If InternationalEnable = 1 Then
If LanguageShow = "UAE_DUBAI" Then
Var IMG_CNT = CountryRootPath + "/image/page_doing/img2.png"
@ -286,6 +298,10 @@
Var Tel_Confirm_Flag = 1
If LanguageObjectShow = "Enable" Then
Var DirImageDoingInter = "ROOT/taobin_project/image/page_doing_inter/"
Var IMG_CNT = DirImageDoingInter + "/bg_show_time_remaining.png"
EndIf
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
@ -808,6 +824,10 @@
Var DirImage2 = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage2 = "ROOT/taobin_project/image/collectiing_mmr"
EndIf
Var text_show_error = DirImage2 + "/text_show_error5.png"
Var ShowErrorText = "Enable"
@ -899,6 +919,23 @@
<Value> ShowCountDownBrewing </Value>
</Text>
<Text>
<X> 816 </X>
<Y> 429 </Y>
<State> LanguageObjectShow </State>
<Language>
<ID> 000405 </ID>
</Language>
</Text>
<Text>
<X> 941 </X>
<Y> 518 </Y>
<State> LanguageObjectShow </State>
<Language>
<ID> 000406 </ID>
</Language>
</Text>
<Image>
<X> 152 </X>

View file

@ -8,6 +8,15 @@
<EventOpen>
; On open
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
;do not thing
Else
Var OpenXMLFile = CountryRootPath + "xml/page_collect_point_2.lxml"
Open OpenXMLFile
EndIf
EndIf
Var Timeout = 0
SAVELOG UnitTestType
@ -35,6 +44,10 @@
Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
If PayOfflineMode = 1 Then
Var Seeker.TaobinErrorNetwork = 1
Var Seeker.PointTaobinStr = ParamCP
@ -46,6 +59,11 @@
Var GetLuckyDraw = 0
If LanguageObjectShow = "Enable" Then
Var DirImageDoingInter = "ROOT/taobin_project/image/page_doing_inter/"
Var IMG_CNT = DirImageDoingInter + "/bg_show_time_remaining.png"
EndIf
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
@ -364,5 +382,23 @@
<Value> ShowCountDownBrewing </Value>
</Text>
<Text>
<X> 816 </X>
<Y> 429 </Y>
<State> LanguageObjectShow </State>
<Language>
<ID> 000405 </ID>
</Language>
</Text>
<Text>
<X> 941 </X>
<Y> 518 </Y>
<State> LanguageObjectShow </State>
<Language>
<ID> 000406 </ID>
</Language>
</Text>
</Popup>

View file

@ -8,6 +8,15 @@
<EventOpen>
; On open
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
;do not thing
Else
Var OpenXMLFile = CountryRootPath + "xml/page_collect_point_3.lxml"
Open OpenXMLFile
EndIf
EndIf
Var Timeout = 0
;CoffeePoint
;Var CoffeePoint = 30
@ -38,6 +47,15 @@
Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/display_point_mmr"
EndIf
If LanguageObjectShow = "Enable" Then
Var DirImageDoingInter = "ROOT/taobin_project/image/page_doing_inter/"
Var IMG_CNT = DirImageDoingInter + "/bg_show_time_remaining.png"
EndIf
Var CoffeePointTmp = CoffeePoint
@ -364,6 +382,67 @@
EndIf
If LanguageShow = "MYANMAR" Then
Var TaobinLevelDesc3 = "သင့်တွင် ကူပွန်များရှိသည်။ "
Var TaobinLevelDesc3 = TaobinLevelDesc3 + TaobinCoupons
Var TaobinLevelDesc3 = TaobinLevelDesc3 + " နံပါတ်များ"
If TaobinLevel = "1" Then
Var TaobinLevelDesc1 = "ရှက်လိပ်အဆင့်"
Var TaobinLevelDesc2 = ""
Var TaobinLeveImg = "/taoLevel1.png"
EndIf
If TaobinLevel = "2" Then
Var TaobinLevelDesc1 = "လမ်းလျှောက်လိပ်အဆင့်"
Var PointDiff = 150 - CoffeePointRank
Var TaobinLevelDesc2 = "Earn " + PointDiff
Var TaobinLevelDesc2 = TaobinLevelDesc2 + " အခွံများ "
Var TaobinLevelDesc2 = TaobinLevelDesc2 + "Flying turtle အဆင့်သို့ ရွှေ့ရန်"
Var TaobinLeveImg = "/taoLevel2.png"
If CoffeePointRank > 149 Then
;Var TaobinLeveImg = "/taoLevel3.png"
;Var TaobinLevelDesc1 = "လိပ်အဆင့် "
Var TaobinLevelDesc2 = ""
;Var CoffeePointRank = CoffeePointRank - 150
EndIf
EndIf
If TaobinLevel = "3" Then
Var TaobinLevelDesc1 = "လိပ်ပျံအဆင့်အထိ " + ExpireStrTmp
Var PointDiff = 200 - CoffeePointRank
Var TaobinLevelDesc2 = "Earn " + PointDiff
Var TaobinLevelDesc2 = TaobinLevelDesc2 + " အခွံများ "
Var TaobinLevelDesc2 = TaobinLevelDesc2 + "Master လိပ်အဆင့်သို့ ပြောင်းရွှေ့ရန်"
Var TaobinLeveImg = "/taoLevel3.png"
If CoffeePointRank > 199 Then
;Var TaobinLeveImg = "/taoLevel4.png"
;Var TaobinLevelDesc1 = "သခင်လိပ်အဆင့် "
Var TaobinLevelDesc2 = ""
;Var CoffeePointRank = CoffeePointRank - 350
EndIf
EndIf
If TaobinLevel = "4" Then
Var TaobinLevelDesc1 = "မာစတာလိပ်အဆင့်အထိ " + ExpireStrTmp
Var TaobinLevelDesc2 = ""
Var TaobinLeveImg = "/taoLevel4.png"
EndIf
EndIf
@ -749,6 +828,10 @@
Open ChackMemberPage
EndIf
If CountryName = "Thailand" Then
Open "ROOT/taobin_project/xml/page_check_member2.xml"
EndIf
Else
Open "ROOT/taobin_project/xml/page_check_member2.xml"
@ -1249,6 +1332,23 @@
<Value> ShowCountDownBrewing </Value>
</Text>
<Text>
<X> 816 </X>
<Y> 429 </Y>
<State> LanguageObjectShow </State>
<Language>
<ID> 000405 </ID>
</Language>
</Text>
<Text>
<X> 941 </X>
<Y> 518 </Y>
<State> LanguageObjectShow </State>
<Language>
<ID> 000406 </ID>
</Language>
</Text>

View file

@ -8,6 +8,14 @@
<EventOpen>
; On open
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
;do not thing
Else
Var OpenXMLFile = CountryRootPath + "xml/page_collect_point_error.lxml"
Open OpenXMLFile
EndIf
EndIf
Var Timeout = 0
SAVELOG show_eng
@ -22,6 +30,10 @@
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/display_get_free_mmr/"
EndIf
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>

View file

@ -14,6 +14,10 @@
Var DirImage = "ROOT/taobin_project/image/display_get_discount"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/display_get_discount_mmr"
EndIf
Var PopUpState1 = "Invisible"
Var PopUpState2 = "Enable"
Var PopUpErrorState = "Invisible"

View file

@ -14,6 +14,10 @@
Var DirImage = "ROOT/taobin_project/image/display_get_discount"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/display_get_discount_mmr"
EndIf
Var PopUpState1 = "Enable"
Var PopUpState2 = "Invisible"
Var PopUpErrorState = "Invisible"

View file

@ -24,6 +24,10 @@
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/display_get_free_mmr"
EndIf
Var MemberState1 = "Enable"
Var MemberState2 = "Invisible"

View file

@ -16,6 +16,10 @@
Var DirImage = "ROOT/taobin_project/image/display_disqualified"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/display_disqualified_mmr"
EndIf
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>

View file

@ -26,7 +26,7 @@
If CountryName = "HongKong" Then
Open "ROOT/taobin_project/inter/hkg/xml/page_drinkfail_hkg.lxml"
EndIf
If TelephoneNumberProblem = "" Then
@ -112,6 +112,10 @@
Var DirImage = "ROOT/taobin_project/image/collectiing/"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
Var Timeout = 0

View file

@ -17,6 +17,10 @@
Var DirImage = "ROOT/taobin_project/image/collectiing/"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
Var Timeout = 0

View file

@ -28,6 +28,10 @@
Var DirImage2 = "ROOT/taobin_project/image/topping2"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage2 = "ROOT/taobin_project/image/topping_mmr"
EndIf
Var bg_strawlid_ST = "Enable"
Var bg_strawProblem_ST = "Invisible"
;Var bg_strawProblem_Y = 1470
@ -68,6 +72,10 @@
Var DirImage = "ROOT/taobin_project/image/complete/"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/complete_mmr/"
EndIf
Var text_bottom = DirImage + "text_bottom.png"
@ -111,8 +119,13 @@
If show_eng = "true" Then
Var bnStrawProblemReport = "ROOT/taobin_project/image/page_doing/bn_send_report_straw_en.png"
Var bpStrawProblemReport = "ROOT/taobin_project/image/page_doing/bp_send_report_straw_en.png"
If LanguageShow = "MYANMAR" Then
Var bnStrawProblemReport = "ROOT/taobin_project/image/page_doing/bn_send_report_straw_mmr.png"
Var bpStrawProblemReport = "ROOT/taobin_project/image/page_doing/bp_send_report_straw_mmr.png"
Else
Var bnStrawProblemReport = "ROOT/taobin_project/image/page_doing/bn_send_report_straw_en.png"
Var bpStrawProblemReport = "ROOT/taobin_project/image/page_doing/bp_send_report_straw_en.png"
EndIf
If CART_COUNT > 0 Then
If CART_INDEX < CART_COUNT Then
@ -791,4 +804,3 @@
</EventUnitTest2>
</Popup>

View file

@ -119,14 +119,27 @@
EndIf
If InternationalEnable = 1 Then
Var Brew3Inter = CountryRootPath + "/xml/page_brewing3.lxml"
Var Brew3ConInter = CountryRootPath + "/xml/page_brewing3Conti.xml"
If CountryName = "Thailand" Then
If New_Payment = 1 Then
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/process/payment.ev"
EndIf
If Seeker = "next" Then
;CoinBack
Open Brew3ConInter
If Seeker = "next" Then
;CoinBack
Open "ROOT/taobin_project/xml/page_brewing3Conti.xml"
Else
Open "ROOT/taobin_project/xml/page_brewing3.xml"
EndIf
Else
Open Brew3Inter
Var Brew3Inter = CountryRootPath + "/xml/page_brewing3.lxml"
Var Brew3ConInter = CountryRootPath + "/xml/page_brewing3Conti.xml"
If Seeker = "next" Then
;CoinBack
Open Brew3ConInter
Else
Open Brew3Inter
EndIf
EndIf
Else

View file

@ -16,6 +16,10 @@
Var DirImage = "ROOT/taobin_project/image/display_got_free"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/display_got_free_mmr"
EndIf
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>

View file

@ -1,4 +1,4 @@
<Popup>
ins<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
@ -47,6 +47,12 @@
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_mmr/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_mmr"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing_mmr/img2_mmr.png"
EndIf
If CameraCount = 1 Then
@ -477,4 +483,3 @@
</EventUnitTest4>
</Popup>

View file

@ -105,6 +105,12 @@
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_mmr/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_mmr"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing_mmr/img2_mmr.png"
EndIf
If CameraCount = 1 Then
@ -716,4 +722,3 @@
</EventUnitTest4>
</Popup>

View file

@ -84,6 +84,40 @@
Var PictureEnd = "_en.png"
EndIf
If show_eng = "false" Then
Var DirImage = "ROOT/taobin_project/image/page_lid_straw"
Var PictureEnd = ".png"
Var BottomText = PicturePath + "text_bottom_thai2.png"
Var lid_straw_bg_iamge = DirImage + "/img4.png"
If LidState = "Enable" Then
Var lid_straw_bg_iamge = DirImage + "/img3.png"
EndIf
Var VideoPath = "/mnt/sdcard/coffeevending/taobin_project/animation01/"
Var VideoFileBegin = "TaoBin2_draft02_art"
Var VideoFileEnd = ".mp4"
Var PicturePath = "/mnt/sdcard/coffeevending/taobin_project/image/page_doing/"
Var PictureBegin = "txt_"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/page_lid_straw_mmr"
Var BottomText = PicturePath + "text_bottom_mmr.png"
Var lid_straw_bg_iamge = DirImage + "/img4.png"
If LidState = "Enable" Then
Var lid_straw_bg_iamge = DirImage + "/img3.png"
EndIf
Var PicturePath = "/mnt/sdcard/coffeevending/taobin_project/image/page_doing_mmr/"
Var PictureBegin = "txt_"
Var PictureEnd = "_mmr.png"
EndIf
Else
Var VideoPath = "/mnt/sdcard/coffeevending/taobin_project/animation01/"
Var VideoFileBegin = "TaoBin2_draft02_art"
@ -178,8 +212,16 @@
EndIf
If InternationalEnable = 1 Then
Var Brew3Inter = CountryRootPath + "/xml/page_brewing3.lxml"
Open Brew3Inter
If CountryName = "Thailand" Then
If New_Payment = 1 Then
TRY "/mnt/sdcard/coffeevending/taobin_project/xml/process/payment.ev"
EndIf
Open "ROOT/taobin_project/xml/page_brewing3.xml"
Else
Var Brew3Inter = CountryRootPath + "/xml/page_brewing3.lxml"
Open Brew3Inter
EndIf
Else
If New_Payment = 1 Then
@ -223,8 +265,12 @@
Var IgnoreLidStraw = "false"
SAVELOG "Ignore lid straw because recipe disable"
If InternationalEnable = 1 Then
Var Brew3Inter = CountryRootPath + "/xml/page_brewing3.lxml"
Open Brew3Inter
If CountryName = "Thailand" Then
Open "ROOT/taobin_project/xml/page_brewing3.xml"
Else
Var Brew3Inter = CountryRootPath + "/xml/page_brewing3.lxml"
Open Brew3Inter
EndIf
Else
Open "ROOT/taobin_project/xml/page_brewing3.xml"
EndIf
@ -233,8 +279,12 @@
If Service_LidStraw = "Disable" Then
SAVELOG "Service_LidStraw"
If InternationalEnable = 1 Then
Var Brew3Inter = CountryRootPath + "/xml/page_brewing3.lxml"
Open Brew3Inter
If CountryName = "Thailand" Then
Open "ROOT/taobin_project/xml/page_brewing3.xml"
Else
Var Brew3Inter = CountryRootPath + "/xml/page_brewing3.lxml"
Open Brew3Inter
EndIf
Else
Open "ROOT/taobin_project/xml/page_brewing3.xml"
EndIf
@ -246,8 +296,12 @@
SAVELOG "page_lid_straw.xml"
If InternationalEnable = 1 Then
Var Brew3Inter = CountryRootPath + "/xml/page_brewing3.lxml"
Open Brew3Inter
If CountryName = "Thailand" Then
Open "ROOT/taobin_project/xml/page_brewing3.xml"
Else
Var Brew3Inter = CountryRootPath + "/xml/page_brewing3.lxml"
Open Brew3Inter
EndIf
Else
Open "ROOT/taobin_project/xml/page_brewing3.xml"
EndIf
@ -267,8 +321,12 @@
If Timeout > 10 Then
If InternationalEnable = 1 Then
Var Brew3Inter = CountryRootPath + "/xml/page_brewing3.lxml"
Open Brew3Inter
If CountryName = "Thailand" Then
Open "ROOT/taobin_project/xml/page_brewing3.xml"
Else
Var Brew3Inter = CountryRootPath + "/xml/page_brewing3.lxml"
Open Brew3Inter
EndIf
Else
Open "ROOT/taobin_project/xml/page_brewing3.xml"
EndIf

View file

@ -15,30 +15,14 @@
Var SumCreditAmount = TaobinCredit
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_en"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
If show_eng = "true" Then
If LanguageShow = "MYANMAR" Then
SetLanguage "MYANMAR"
Else
SetLanguage "ENG"
EndIf
Else
Var DirImage = "ROOT/taobin_project/image/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
If show_eng = "true" Then
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
Else
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
SetLanguage "THAI"
EndIf
@ -73,6 +57,49 @@
</EventOpen>
<EventLanguageOnChange>
DEBUGVAR LanguageShow
DEBUGVAR InternationalEnable
If LanguageShow = "ENG" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_en"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
EndIf
If LanguageShow = "THAI" Then
Var DirImage = "ROOT/taobin_project/image/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_mmr/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_mmr"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing_mmr/img2_mmr.png"
EndIf
SAVELOG "EventLanguageOnChange menu -list"
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
Var show_eng_button_stage = "Invisible"
Var LanguageButtonEnable = "Enable"
EndIf
Else
Var LanguageButtonEnable = "Invisible"
Var show_eng_button_stage = "Enable"
EndIf
DEBUGVAR LanguageButtonEnable
DEBUGVAR show_eng_button_stage
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
RefreshAll
</EventLanguageOnChange>
<Timeout> 1000 </Timeout>
<EventTimeout>
@ -225,6 +252,7 @@
<Button>
<X> 990 </X>
<Y> 416 </Y>
<State> show_eng_button_stage </State>
<Filename> show_btn </Filename>
<FilenamePress> show_btp </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>

View file

@ -22,26 +22,16 @@
Var GetCreditFlag = 0
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_en"
Else
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If show_eng = "true" Then
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
If LanguageShow = "MYANMAR" Then
SetLanguage "MYANMAR"
Else
SetLanguage "ENG"
EndIf
Else
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
SetLanguage "THAI"
EndIf
Var Ext1a = ""
Var GetAccFlag = 0
@ -81,6 +71,40 @@
</EventOpen>
<EventLanguageOnChange>
DEBUGVAR LanguageShow
If LanguageShow = "ENG" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_en"
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
EndIf
If LanguageShow = "THAI" Then
Var DirImage = "ROOT/taobin_project/image/collectiing"
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr"
EndIf
SAVELOG "EventLanguageOnChange menu -list"
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
Var show_eng_button_stage = "Invisible"
Var LanguageButtonEnable = "Enable"
EndIf
Else
Var LanguageButtonEnable = "Invisible"
Var show_eng_button_stage = "Enable"
EndIf
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
RefreshAll
</EventLanguageOnChange>
<Timeout> 1000 </Timeout>
<EventTimeout>
@ -122,7 +146,11 @@
If GetPayInfoFlag = 1 Then
Var QRCODE99 = ""
If show_eng = "true" Then
If LanguageShow = "MYANMAR" Then
Var TextWaiting = "QR ကို အသုံးမပြုနိုင်ပါ၊ ကျေးဇူးပြု၍ နောက်မှ ထပ်စမ်းကြည့်ပါ။"
Else
Var TextWaiting = "Unable to use QR, please try again later."
EndIf
Else
Var TextWaiting = "ระบบ QR ขัดข้อง โปรดใช้ใหม่ภายหลัง."
EndIf
@ -139,6 +167,7 @@
<Button>
<X> 990 </X>
<Y> 416 </Y>
<State> show_eng_button_stage </State>
<Filename> show_btn </Filename>
<FilenamePress> show_btp </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
@ -594,6 +623,10 @@
Var TextWaiting = "กรุณารอซักครู่..."
EndIf
If LanguageShow = "MYANMAR" Then
Var TextWaiting = "ခဏစောင့်ပါ။..."
EndIf
Refresh
EndIf

View file

@ -16,31 +16,16 @@
Var SumCreditAmount = TaobinCredit
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_en"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
Else
Var DirImage = "ROOT/taobin_project/image/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
If show_eng = "true" Then
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
If LanguageShow = "MYANMAR" Then
SetLanguage "MYANMAR"
Else
SetLanguage "ENG"
EndIf
Else
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
SetLanguage "THAI"
EndIf
Var PayState1 = "Enable"
Var PayState3 = "Enable"
Var alphaState = "Invisible"
@ -69,8 +54,13 @@
Var PayAmount = 0
Var RemainAmountStr !assigned StringFmt( PayAmount, DisplayFormat, PreScaleConvertShow )
If show_eng = "true" Then
Var RemainAmountStr = "Top-up " + RemainAmountStr
Var RemainAmountStr = RemainAmountStr + "###size=110"
If LanguageShow = "MYANMAR" Then
Var RemainAmountStr = "ငွေဖြည့် " + RemainAmountStr
Var RemainAmountStr = RemainAmountStr + "###size=90"
Else
Var RemainAmountStr = "Top-up " + RemainAmountStr
Var RemainAmountStr = RemainAmountStr + "###size=110"
EndIf
Else
Var RemainAmountStr = "เติม " + RemainAmountStr
Var RemainAmountStr = RemainAmountStr + "###size=90"
@ -101,6 +91,49 @@
</EventOpen>
<EventLanguageOnChange>
DEBUGVAR LanguageShow
If LanguageShow = "ENG" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_en"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
EndIf
If LanguageShow = "THAI" Then
Var DirImage = "ROOT/taobin_project/image/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_mmr/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_mmr"
EndIf
SAVELOG "EventLanguageOnChange menu -list"
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
Var show_eng_button_stage = "Invisible"
Var LanguageButtonEnable = "Enable"
EndIf
Else
Var LanguageButtonEnable = "Invisible"
Var show_eng_button_stage = "Enable"
EndIf
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
RefreshAll
</EventLanguageOnChange>
<Timeout> 1000 </Timeout>
<EventTimeout>
@ -114,7 +147,11 @@
Var CancelFlag = 1
Var CancelCounter = 0
If show_eng = "true" Then
Var RemainAmountStr = "Cancelled"
If LanguageShow = "MYANMAR" Then
Var RemainAmountStr = "ပယ်ဖျက်ခဲ့သည်။"
Else
Var RemainAmountStr = "Cancelled"
EndIf
Else
Var RemainAmountStr = "ยกเลิก"
EndIf
@ -122,7 +159,11 @@
Var CoinInOK = 1
Var CoinInCounter = 0
If show_eng = "true" Then
Var RemainAmountStr = "Keep credit"
If LanguageShow = "MYANMAR" Then
Var RemainAmountStr = "ခရက်ဒစ်စုဆောင်းပါ။"
Else
Var RemainAmountStr = "Keep credit"
EndIf
Else
Var RemainAmountStr = "เก็บเครดิต"
EndIf
@ -244,8 +285,13 @@
Var RemainAmountStr !assigned StringFmt( CoinAmount, DisplayFormat, PreScaleConvertShow )
If show_eng = "true" Then
Var RemainAmountStr = "Top-up " + RemainAmountStr
Var RemainAmountStr = RemainAmountStr + "###size=90"
If LanguageShow = "MYANMAR" Then
Var RemainAmountStr = "ငွေဖြည့် " + RemainAmountStr
Var RemainAmountStr = RemainAmountStr + "###size=90"
Else
Var RemainAmountStr = "Top-up " + RemainAmountStr
Var RemainAmountStr = RemainAmountStr + "###size=90"
EndIf
Else
Var RemainAmountStr = "เติม " + RemainAmountStr
Var RemainAmountStr = RemainAmountStr + "###size=110"
@ -257,9 +303,15 @@
If CoinInOK = 0 Then
If show_eng = "true" Then
Var RemainAmountStr !assigned StringFmt( CoinAmount, DisplayFormat, PreScaleConvertShow )
Var RemainAmountStr = "Top-up " + RemainAmountStr
Var RemainAmountStr = RemainAmountStr + "###size=90"
If LanguageShow = "MYANMAR" Then
Var RemainAmountStr !assigned StringFmt( CoinAmount, DisplayFormat, PreScaleConvertShow )
Var RemainAmountStr = "ငွေဖြည့် " + RemainAmountStr
Var RemainAmountStr = RemainAmountStr + "###size=90"
Else
Var RemainAmountStr !assigned StringFmt( CoinAmount, DisplayFormat, PreScaleConvertShow )
Var RemainAmountStr = "Top-up " + RemainAmountStr
Var RemainAmountStr = RemainAmountStr + "###size=90"
EndIf
Else
Var RemainAmountStr !assigned StringFmt( CoinAmount, DisplayFormat, PreScaleConvertShow )
Var RemainAmountStr = "เติม " + RemainAmountStr
@ -292,14 +344,22 @@
Var CancelFlag = 1
Var CancelCounter = 0
If show_eng = "true" Then
Var RemainAmountStr = "Cancelled"
If LanguageShow = "MYANMAR" Then
Var RemainAmountStr = "ပယ်ဖျက်ခဲ့သည်။"
Else
Var RemainAmountStr = "Cancelled"
EndIf
Else
Var RemainAmountStr = "ยกเลิก"
EndIf
Else
Var ChangeOK = 1
If show_eng = "true" Then
Var RemainAmountStr = "Keep credit"
If LanguageShow = "MYANMAR" Then
Var RemainAmountStr = "ခရက်ဒစ်စုဆောင်းပါ။"
Else
Var RemainAmountStr = "Keep credit"
EndIf
Else
Var RemainAmountStr = "เก็บเครดิต"
EndIf
@ -395,6 +455,7 @@
<Button>
<X> 990 </X>
<Y> 416 </Y>
<State> show_eng_button_stage </State>
<Filename> show_btn </Filename>
<FilenamePress> show_btp </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
@ -451,14 +512,22 @@
Var CancelCounter = 0
Var CancelFlag = 1
If show_eng = "true" Then
Var RemainAmountStr = "Cancelled"
If LanguageShow = "MYANMAR" Then
Var RemainAmountStr = "ပယ်ဖျက်ခဲ့သည်။"
Else
Var RemainAmountStr = "Cancelled"
EndIf
Else
Var RemainAmountStr = "ยกเลิก"
EndIf
Else
Var ChangeOK = 1
If show_eng = "true" Then
Var RemainAmountStr = "Keep credit"
If LanguageShow = "MYANMAR" Then
Var RemainAmountStr = "ခရက်ဒစ်စုဆောင်းပါ။"
Else
Var RemainAmountStr = "Keep credit"
EndIf
Else
Var RemainAmountStr = "เก็บเครดิต"
EndIf

View file

@ -36,6 +36,10 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr"
EndIf
Var CouponNumber = ""
</EventOpen>
<Timeout> 1000 </Timeout>

View file

@ -18,26 +18,14 @@
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_en"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
Else
Var DirImage = "ROOT/taobin_project/image/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
If show_eng = "true" Then
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
If LanguageShow = "MYANMAR" Then
SetLanguage "MYANMAR"
Else
SetLanguage "ENG"
EndIf
Else
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
SetLanguage "THAI"
EndIf
@ -66,6 +54,47 @@
</EventOpen>
<EventLanguageOnChange>
DEBUGVAR LanguageShow
If LanguageShow = "ENG" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_en"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
EndIf
If LanguageShow = "THAI" Then
Var DirImage = "ROOT/taobin_project/image/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_mmr/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_mmr"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing_mmr/img2_mmr.png"
EndIf
SAVELOG "EventLanguageOnChange menu -list"
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
Var show_eng_button_stage = "Invisible"
Var LanguageButtonEnable = "Enable"
EndIf
Else
Var LanguageButtonEnable = "Invisible"
Var show_eng_button_stage = "Enable"
EndIf
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
RefreshAll
</EventLanguageOnChange>
<Timeout> 1000 </Timeout>
<EventTimeout>
@ -192,6 +221,7 @@
<Button>
<X> 990 </X>
<Y> 416 </Y>
<State> show_eng_button_stage </State>
<Filename> show_btn </Filename>
<FilenamePress> show_btp </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>

View file

@ -10,6 +10,14 @@
Var Timeout = 0
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
;do not thing
Else
Var OpenTopupSuccessXML = CountryRootPath + "xml/page_member_topupSuccess.lxml"
Open OpenTopupSuccessXML
EndIf
EndIf
DEBUGVAR PayAmount
DEBUGVAR TaobinCredit
@ -52,6 +60,11 @@
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_mmr/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_mmr"
EndIf
If show_eng = "true" Then
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
@ -68,6 +81,35 @@
Var ExitState = "Disable"
</EventOpen>
<EventLanguageOnChange>
DEBUGVAR LanguageShow
If LanguageShow = "ENG" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_en"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
If LanguageShow = "THAI" Then
Var DirImage = "ROOT/taobin_project/image/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_mmr/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_mmr"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing_mmr/img2_mmr.png"
EndIf
SAVELOG "EventLanguageOnChange menu -list"
Var LanguageButtonEnable = "Enable"
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
RefreshAll
</EventLanguageOnChange>
<Timeout> 1000 </Timeout>
<EventTimeout>
@ -208,6 +250,7 @@
<Button>
<X> 990 </X>
<Y> 416 </Y>
<State> show_eng_button_stage </State>
<Filename> show_btn </Filename>
<FilenamePress> show_btp </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>

View file

@ -14,6 +14,65 @@
READ_FILE "/mnt/sdcard/coffeevending/cash_disable" cash_disable
DEBUGVAR cash_disable
;Cash for any lang
;include="ROOT/taobin_project/xml/payment_cash.ev"
payment_cash.ev
If LanguageShow = "ENG" Then
Var show_eng = "true"
EndIf
If LanguageShow = "THAI" Then
Var show_eng = "false"
EndIf
DEBUGVAR show_eng
DEBUGVAR LanguageShow
If show_eng = "true" Then
Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment_en/page_payment/bn_cash.png"
Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment_en/page_payment/bp_cash.png"
Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_en"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
Var LOADING_STATE_X = 267
Else
Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment/bn_cash.png"
Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment/bp_cash.png"
Var DirImage = "ROOT/taobin_project/image/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
Var LOADING_STATE_X = 267
EndIf
If LanguageShow = "MYANMAR" Then
Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment_mmr/page_payment/bn_cash.png"
Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment_mmr/page_payment/bp_cash.png"
Var DirImage = "ROOT/taobin_project/image/page_payment_mmr/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_mmr"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
Var LOADING_STATE_X = 335
EndIf
If RoadShow = "true" Then
Var X_CASH1 = 287
If show_eng = "true" Then
Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment_en/page_payment/bn_cash.png"
Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment_en/page_payment/bp_cash.png"
Else
Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment/bn_cash.png"
Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment/bp_cash.png"
EndIf
If LanguageShow = "MYANMAR" Then
Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment_mmr/page_payment/bn_cash.png"
Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment_mmr/page_payment/bp_cash.png"
EndIf
EndIf
;If AdultFlag = 1 Then
; Open "ROOT/taobin_project/xml/page_payment_camera.xml"
;EndIf
@ -48,15 +107,6 @@
Open "ROOT/taobin_project/xml/page_payment_cash-HKG.xml"
EndIf
;inter-xml-open
If CountryName = "Thailand" Then
If InternationalEnable = 1 Then
Open "ROOT/taobin_project/inter/tha/xml/page_payment_cash-THA.xml"
EndIf
EndIf
Var PreScaleCanculate = 1
@ -336,6 +386,9 @@
Else
Var showRemaining = RemainAmountStr + " บาท"
EndIf
If LanguageShow = "MYANMAR" Then
Var showRemaining = RemainAmountStr + " Bath"
EndIf
EndIf
@ -344,14 +397,14 @@
Var Seeker.PayWithQR = 0
Var NoGotoMenupage = "false"
If show_eng = "true" Then
Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment_en/page_payment/bn_cash.png"
Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment_en/page_payment/bp_cash.png"
Else
Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment/bn_cash.png"
Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment/bp_cash.png"
;If show_eng = "true" Then
;Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment_en/page_payment/bn_cash.png"
;Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment_en/page_payment/bp_cash.png"
;Else
;Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment/bn_cash.png"
;Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment/bp_cash.png"
EndIf
;EndIf
Var X_CASH1 = 216
Var X_CASH2 = 439
@ -367,16 +420,16 @@
EndIf
If RoadShow = "true" Then
Var X_CASH1 = 287
If show_eng = "true" Then
Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment_en/page_payment/bn_cash.png"
Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment_en/page_payment/bp_cash.png"
Else
Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment/bn_cash.png"
Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment/bp_cash.png"
EndIf
EndIf
;If RoadShow = "true" Then
;Var X_CASH1 = 287
;If show_eng = "true" Then
;Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment_en/page_payment/bn_cash.png"
;Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment_en/page_payment/bp_cash.png"
;Else
;Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment/bn_cash.png"
;Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment/bp_cash.png"
;EndIf
;EndIf
If GetFreeFromError = 1 Then
Var Seeker.FreeVendingCampaign = 1
@ -455,6 +508,10 @@
Var FlagalphaState2 = 1
Var RemainAmountStr = "ทอน " + Canout
EndIf
If LanguageShow = "MYANMAR" Then
Var RemainAmountStr = "ငွေပြောင်းပါ။ " + Canout
Var RemainAmountStr = RemainAmountStr + "###size=90"
EndIf
EndIf
@ -477,16 +534,16 @@
EndIf
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_en"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
;If show_eng = "true" Then
;Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment"
;Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_en"
;Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
Else
Var DirImage = "ROOT/taobin_project/image/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
;Else
;Var DirImage = "ROOT/taobin_project/image/page_payment"
;Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend"
;Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
;EndIf
Var EnoughChange = "yes"
@ -1091,6 +1148,10 @@
Var PayState2 = "Disable"
EndIf
Var PayState2 = "Enable"
Var PayState3 = "Enable"
Var PayState4 = "Enable"
Var PayState5 = "Enable"
</EventOpen>
<EventActionOk>
@ -2346,6 +2407,10 @@
Var FlagalphaState2 = 1
Var RemainAmountStr = "ทอน " + Canout
EndIf
If LanguageShow = "MYANMAR" Then
Var RemainAmountStr = "ငွေပြောင်းပါ။ " + Canout
Var RemainAmountStr = RemainAmountStr + "###size=90"
EndIf
EndIf
@ -2400,6 +2465,9 @@
Else
Var showRemaining = "คืนเงิน"
EndIf
If LanguageShow = "MYANMAR" Then
Var showRemaining = "ပြန်အမ်းငွေ"
EndIf
;Open "ROOT/taobin_project/xml/page_catalog.xml"
If FlagQROpened = 1 Then
@ -2431,6 +2499,9 @@
Var return = "ROOT/taobin_project/image/warning/image_warning_energy_drink.png"
EndIf
If LanguageShow = "MYANMAR" Then
Var return = "ROOT/taobin_project/image/warning/image_warning_energy_drink_mmr.png"
EndIf
)
</Filename>
</Image>
@ -2926,13 +2997,16 @@ eval(
Else
Var return = "กำลังยกเลิก..."
EndIf
If LanguageShow = "MYANMAR" Then
Var return = "ပယ်ဖျက်ပါ။..."
EndIf
)
</Value>
<Align> center-vertical-horizontal </Align>
</Text>
<Image>
<X> 267 </X>
<X> LOADING_STATE_X </X>
<Y> 1065 </Y>
<State> LOADING_STATE </State>
<Filename> Var( DirImage + "/loadingText.png" )</Filename>
@ -3361,7 +3435,12 @@ eval(
<Value> ShowNetworkProblemText </Value>
</Text>
<EventUnitTest1>
MakeDrinkV1 SelectDrink SelectSugarID
Open "ROOT/taobin_project/xml/page_thankyou.xml"
</EventUnitTest1>

View file

@ -197,6 +197,11 @@
EndIf
If LanguageShow = "MYANMAR" Then
Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment_mmr/page_payment/bn_cash.png"
Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment_mmr/page_payment/bp_cash.png"
EndIf
Var X_CASH = 60
If RoadShow = "true" Then
@ -208,6 +213,11 @@
Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment/bn_cash_2.png"
Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment/bp_cash_2.png"
EndIf
If LanguageShow = "MYANMAR" Then
Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment_mmr/page_payment/bn_cash_2.png"
Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment_mmr/page_payment/bp_cash_2.png"
EndIf
EndIf
If GetFreeFromError = 1 Then
@ -280,6 +290,12 @@
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_mmr/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_mmr"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing_mmr/img2_mmr.png"
EndIf
Var EnoughChange = "yes"

View file

@ -34,6 +34,10 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
Var TelephoneNumber# = ""
Var PlaySoundLag = ""

View file

@ -10,6 +10,15 @@
<EventOpen>
; On open
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
;do not thing
Else
Var OpenXMLFile = CountryRootPath + "xml/page_payment_changePin1.lxml"
Open OpenXMLFile
EndIf
EndIf
Var Timeout = 0
Var TimeoutSMS = 0
Var StateBGetSMS = "Enable"
@ -40,6 +49,10 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr"
EndIf
Var Ext1a = ""
Var GetAccFlag = 0

View file

@ -10,6 +10,15 @@
<EventOpen>
; On open
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
;do not thing
Else
Var OpenXMLFile = CountryRootPath + "xml/page_payment_changePin2.lxml"
Open OpenXMLFile
EndIf
EndIf
Var Timeout = 0
Var TimeoutSMS = 0
Var StateBGetSMS = "Enable"
@ -41,6 +50,10 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr"
EndIf
Var Ext1a = ""
Var TextWaiting = ""

View file

@ -10,6 +10,15 @@
<EventOpen>
; On open
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
;do not thing
Else
Var OpenXMLFile = CountryRootPath + "xml/page_payment_changePinFailed.lxml"
Open OpenXMLFile
EndIf
EndIf
Var Timeout = 0
Var Tel_Confirm_State = "Enable"
@ -20,6 +29,10 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr"
EndIf
</EventOpen>

View file

@ -10,6 +10,15 @@
<EventOpen>
; On open
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
;do not thing
Else
Var OpenXMLFile = CountryRootPath + "xml/page_payment_changePinSMS.lxml"
Open OpenXMLFile
EndIf
EndIf
Var Timeout = 0
Var Tel_Confirm_State = "Enable"
@ -20,6 +29,10 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr"
EndIf
If PinSMSFlag = 1 Then
If show_eng = "true" Then

View file

@ -10,6 +10,15 @@
<EventOpen>
; On open
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
;do not thing
Else
Var OpenXMLFile = CountryRootPath + "xml/page_payment_changePinSuccess.lxml"
Open OpenXMLFile
EndIf
EndIf
Var Timeout = 0
Var Tel_Confirm_State = "Enable"
@ -20,6 +29,10 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr"
EndIf
</EventOpen>

View file

@ -38,6 +38,10 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
If web_readyOK = "true" Then
Var web_readyOK = "false"

View file

@ -35,6 +35,10 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
Var Mode# = 0
Var Str# = ""

View file

@ -35,6 +35,10 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
Var Mode# = 0
Var Str# = ""

View file

@ -35,6 +35,10 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
Var Mode# = 0
Var Str# = ""

View file

@ -35,6 +35,9 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
Var Mode# = 0
Var Str# = ""

View file

@ -35,6 +35,10 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
Var Mode# = 0
Var Str# = ""

View file

@ -35,6 +35,9 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
Var Mode# = 0
Var Str# = ""

View file

@ -35,6 +35,9 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
Var Mode# = 0
Var Str# = ""

View file

@ -34,6 +34,10 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
Var TelephoneNumber# = ""
</EventOpen>

View file

@ -35,6 +35,10 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
Var Mode# = 0
Var Str# = ""

View file

@ -35,6 +35,10 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
Var Mode# = 0
Var Str# = ""

View file

@ -35,6 +35,10 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
Var Mode# = 0
Var Str# = ""

View file

@ -29,6 +29,10 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
Var Ext1a = ""
@ -634,8 +638,12 @@
Var Tel2DFlag = 0
If InternationalEnable = 1 Then
Var verifyNumberEV = CountryRootPath + "/xml/verify_number.ev"
TRY verifyNumberEV
If CountryName = "Thailand" Then
TRY "ROOT/taobin_project/xml/verify_number.ev"
Else
Var verifyNumberEV = CountryRootPath + "/xml/verify_number.ev"
TRY verifyNumberEV
EndIf
Else
TRY "ROOT/taobin_project/xml/verify_number.ev"
EndIf

View file

@ -44,6 +44,10 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
Var Ext1a = ""
Var ReqAdddata22 = 0

View file

@ -18,6 +18,10 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr"
EndIf
Var img_popup11 = "/img_popup19.png"

View file

@ -24,22 +24,14 @@
Var GetCreditFlag = 0
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_en"
Else
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If show_eng = "true" Then
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
If LanguageShow = "MYANMAR" Then
SetLanguage "MYANMAR"
Else
SetLanguage "ENG"
EndIf
Else
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
SetLanguage "THAI"
EndIf
@ -62,21 +54,25 @@
If SumCreditAmount < PayAmountSubDiscount Then
Var Min = PayAmountSubDiscount - SumCreditAmount
If show_eng = "true" Then
Var Text_X = 170
Var posX = 250
If show_eng = "true" Then
If LanguageShow = "MYANMAR" Then
SetLanguage "MYANMAR"
Else
SetLanguage "ENG"
EndIf
Else
Var Text_X = 255
Var posX = 380
SetLanguage "THAI"
EndIf
Else
Var text_44 = "/text_45.png"
If show_eng = "true" Then
Var Text_X = 263
Var posX = 350
If show_eng = "true" Then
If LanguageShow = "MYANMAR" Then
SetLanguage "MYANMAR"
Else
SetLanguage "ENG"
EndIf
Else
Var Text_X = 246
Var posX = 380
SetLanguage "THAI"
EndIf
Var Min = PayAmountSubDiscount
EndIf
@ -120,6 +116,62 @@
</EventOpen>
<EventLanguageOnChange>
DEBUGVAR LanguageShow
If LanguageShow = "ENG" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_en"
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
If SumCreditAmount < PayAmountSubDiscount Then
Var Text_X = 170
Var posX = 250
Else
Var Text_X = 263
Var posX = 350
EndIf
EndIf
If LanguageShow = "THAI" Then
Var DirImage = "ROOT/taobin_project/image/collectiing"
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
If SumCreditAmount < PayAmountSubDiscount Then
Var Text_X = 255
Var posX = 380
Else
Var Text_X = 246
Var posX = 380
EndIf
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr"
If SumCreditAmount < PayAmountSubDiscount Then
Var Text_X = 170
Var posX = 250
Else
Var Text_X = 263
Var posX = 350
EndIf
EndIf
SAVELOG "EventLanguageOnChange menu -list"
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
Var show_eng_button_stage = "Invisible"
Var LanguageButtonEnable = "Enable"
EndIf
Else
Var LanguageButtonEnable = "Invisible"
Var show_eng_button_stage = "Enable"
EndIf
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
RefreshAll
</EventLanguageOnChange>
<Timeout> 1000 </Timeout>
<EventTimeout>
@ -205,7 +257,11 @@ If ViewBill > 0 Then
If GetPayInfoFlag = 1 Then
Var QRCODE99 = ""
If show_eng = "true" Then
If LanguageShow = "MYANMAR" Then
Var TextWaiting = "QR ကို အသုံးမပြုနိုင်ပါ၊ ကျေးဇူးပြု၍ နောက်မှ ထပ်စမ်းကြည့်ပါ။"
Else
Var TextWaiting = "Unable to use QR, please try again later."
EndIf
Else
Var TextWaiting = "ระบบ QR ขัดข้อง โปรดใช้ใหม่ภายหลัง."
EndIf
@ -222,6 +278,7 @@ If ViewBill > 0 Then
<Button>
<X> 990 </X>
<Y> 416 </Y>
<State> show_eng_button_stage </State>
<Filename> show_btn </Filename>
<FilenamePress> show_btp </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
@ -679,7 +736,11 @@ If ViewBill > 0 Then
EndIf
If show_eng = "true" Then
Var TextWaiting = "Please wait..."
If LanguageShow = "MYANMAR" Then
Var TextWaiting = "ခဏစောင့်ပါ။..."
Else
Var TextWaiting = "Please wait..."
EndIf
Else
Var TextWaiting = "กรุณารอซักครู่..."
EndIf

View file

@ -11,26 +11,14 @@
Var Timeout = 0
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_en"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
Else
Var DirImage = "ROOT/taobin_project/image/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
If show_eng = "true" Then
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
If LanguageShow = "MYANMAR" Then
SetLanguage "MYANMAR"
Else
SetLanguage "ENG"
EndIf
Else
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
SetLanguage "THAI"
EndIf
@ -73,6 +61,8 @@
Var img_popup15 = "/img_popup15-AUS.png"
EndIf
If
Var CreditAmount = SumCreditAmount
@ -125,6 +115,60 @@
</EventOpen>
<EventLanguageOnChange>
DEBUGVAR LanguageShow
If LanguageShow = "ENG" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_en"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
If CoinAmount = 0 Then
Var RemainAmountStr = "Cancelled"
Else
Var RemainAmountStr = "Keep credit"
EndIf
EndIf
If LanguageShow = "THAI" Then
Var DirImage = "ROOT/taobin_project/image/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
If CoinAmount = 0 Then
Var RemainAmountStr = "ยกเลิก"
Else
Var RemainAmountStr = "เก็บเครดิต"
EndIf
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_mmr/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_mmr"
If CoinAmount = 0 Then
Var RemainAmountStr = "ပယ်ဖျက်ခဲ့သည်။"
Else
Var RemainAmountStr = "ခရက်ဒစ်စုဆောင်းပါ။"
EndIf
EndIf
SAVELOG "EventLanguageOnChange menu -list"
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
Var show_eng_button_stage = "Invisible"
Var LanguageButtonEnable = "Enable"
EndIf
Else
Var LanguageButtonEnable = "Invisible"
Var show_eng_button_stage = "Enable"
EndIf
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
RefreshAll
</EventLanguageOnChange>
<Timeout> 1000 </Timeout>
<EventTimeout>
@ -144,15 +188,23 @@
Var CancelCounter = 0
If CoinAmount = 0 Then
If show_eng = "true" Then
Var RemainAmountStr = "Cancelled"
If LanguageShow = "MYANMAR" Then
SetLanguage "MYANMAR"
Else
SetLanguage "ENG"
EndIf
Else
Var RemainAmountStr = "ยกเลิก"
SetLanguage "THAI"
EndIf
Else
If show_eng = "true" Then
Var RemainAmountStr = "Keep credit"
If LanguageShow = "MYANMAR" Then
SetLanguage "MYANMAR"
Else
SetLanguage "ENG"
EndIf
Else
Var RemainAmountStr = "เก็บเครดิต"
SetLanguage "THAI"
EndIf
CoinVending BILLSTACKALL
@ -314,6 +366,7 @@
<Button>
<X> 990 </X>
<Y> 416 </Y>
<State> show_eng_button_stage </State>
<Filename> show_btn </Filename>
<FilenamePress> show_btp </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
@ -363,7 +416,11 @@
<Value>
eval(
If show_eng = "true" Then
Var return = "*Amount must equal or exceed price."
If LanguageShow = "MYANMAR" Then
Var return = "*ပမာဏသည် စျေးနှုန်းနှင့် တူညီရမည်"
Else
Var return = "*Amount must equal or exceed price."
EndIf
Else
Var return = "*จำนวนเงินต้องเท่ากับหรือมากกว่าราคาสินค้า"
EndIf
@ -407,13 +464,21 @@
Var CancelFlag = 1
If CoinAmount = 0 Then
If show_eng = "true" Then
Var RemainAmountStr = "Cancelled"
If LanguageShow = "MYANMAR" Then
Var RemainAmountStr = "ပယ်ဖျက်ခဲ့သည်။"
Else
Var RemainAmountStr = "Cancelled"
EndIf
Else
Var RemainAmountStr = "ยกเลิก"
EndIf
Else
If show_eng = "true" Then
Var RemainAmountStr = "Keep credit"
If LanguageShow = "MYANMAR" Then
Var RemainAmountStr = "ခရက်ဒစ်စုဆောင်းပါ။"
Else
Var RemainAmountStr = "Keep credit"
EndIf
Else
Var RemainAmountStr = "เก็บเครดิต"
EndIf

View file

@ -40,6 +40,10 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr"
EndIf
Var CouponNumber = ""
</EventOpen>
<Timeout> 1000 </Timeout>

View file

@ -11,20 +11,13 @@
Var Timeout = 0
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_en"
If LanguageShow = "MYANMAR" Then
SetLanguage "MYANMAR"
Else
SetLanguage "ENG"
EndIf
Else
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If show_eng = "true" Then
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
Else
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
SetLanguage "THAI"
EndIf
@ -45,6 +38,40 @@
</EventOpen>
<EventLanguageOnChange>
DEBUGVAR LanguageShow
If LanguageShow = "ENG" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_en"
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
EndIf
If LanguageShow = "THAI" Then
Var DirImage = "ROOT/taobin_project/image/collectiing"
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr"
EndIf
SAVELOG "EventLanguageOnChange menu -list"
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
Var show_eng_button_stage = "Invisible"
Var LanguageButtonEnable = "Enable"
EndIf
Else
Var LanguageButtonEnable = "Invisible"
Var show_eng_button_stage = "Enable"
EndIf
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
RefreshAll
</EventLanguageOnChange>
<Timeout> 1000 </Timeout>
<EventTimeout>
@ -141,6 +168,7 @@ If ViewBill > 0 Then
<Button>
<X> 990 </X>
<Y> 416 </Y>
<State> show_eng_button_stage </State>
<Filename> show_btn </Filename>
<FilenamePress> show_btp </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>

View file

@ -54,6 +54,13 @@
Var DirImage3 = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_mmr/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_mmr"
Var DirImage3 = "ROOT/taobin_project/image/collectiing_mmr"
EndIf
Var show_eng_button_stage = "Enable"
If show_eng = "true" Then
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
@ -65,6 +72,12 @@
EndIf
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
Var show_eng_button_stage = "Invisible"
EndIf
EndIf
Var FlagPayCredit = 1

View file

@ -45,6 +45,16 @@
Var QRCODE6 = ServiceCredit
Var QRCODE7 = ServiceAmount2
Var QRCODE8 = ""
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment"
Else
Var DirImage = "ROOT/taobin_project/image/page_payment"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_mmr/page_payment"
EndIf
Var CashTextWarning = ""
@ -292,7 +302,7 @@
<Image>
<X> 166 </X>
<Y> 501 </Y>
<Filename> "ROOT/taobin_project/image/page_payment/text_1.png" </Filename>
<Filename> Var( DirImage + "/text_1.png") </Filename>
</Image>
@ -332,8 +342,8 @@
<X> 287 </X>
<Y> 1282 </Y>
<State>PayState1</State>
<Filename> "ROOT/taobin_project/image/page_payment/bn_cash.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/page_payment/bp_cash.png" </FilenamePress>
<Filename> Var( DirImage + "/bn_cash.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_cash.png") </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
@ -348,8 +358,8 @@
<X> 287 </X>
<Y> 1430 </Y>
<State>PayState2</State>
<Filename> "ROOT/taobin_project/image/page_payment/bn_pay_with_code.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/page_payment/bp_pay_with_code.png" </FilenamePress>
<Filename> Var( DirImage + "/bn_pay_with_code.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_pay_with_code.png") </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
@ -368,8 +378,8 @@
<X> 287 </X>
<Y> 1578 </Y>
<State>PayState3</State>
<Filename> "ROOT/taobin_project/image/page_payment/bn_prompt_pay.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/page_payment/bp_prompt_pay.png" </FilenamePress>
<Filename> Var( DirImage +"/bn_prompt_pay.png") </Filename>
<FilenamePress> Var( DirImage +"/bp_prompt_pay.png") </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
@ -389,8 +399,8 @@
<X> 438 </X>
<Y> 1786 </Y>
<State>CancleState</State>
<Filename> "ROOT/taobin_project/image/page_payment/bn_cancel.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/page_payment/bp_cancel.png" </FilenamePress>
<Filename> Var( DirImage + "/bn_cancel.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_cancel.png") </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>

View file

@ -27,6 +27,10 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
Var FlagWaitUpdateCoinAmount = 0

View file

@ -40,6 +40,10 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
Var FlagWaitUpdateCoinAmount = 0
Var FlagOKButton = 0

View file

@ -31,6 +31,10 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
Var FlagWaitUpdateCoinAmount = 0
Var FlagOKButton = 0

View file

@ -21,6 +21,10 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
EndIf
If Seeker.pageStoreCredit0 = 1 Then

View file

@ -32,14 +32,13 @@
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/user_take_cup_en/"
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
If LanguageShow = "MYANMAR" Then
SetLanguage "MYANMAR"
Else
SetLanguage "ENG"
EndIf
Else
Var DirImage = "ROOT/taobin_project/image/user_take_cup_th/"
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
SetLanguage "THAI"
EndIf
LED LedDoorDoor 5 255 255 255 255
@ -50,8 +49,51 @@
Var RemoveCupOnArmID = -1
Var remove_cup_name = ""
Var remove_cup_image = ""
RootLayoutVisible 3 "show"
</EventOpen>
<EventLanguageOnChange>
DEBUGVAR LanguageShow
DEBUGVAR InternationalEnable
If LanguageShow = "ENG" Then
Var DirImage = "ROOT/taobin_project/image/user_take_cup_en/"
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
EndIf
If LanguageShow = "THAI" Then
Var DirImage = "ROOT/taobin_project/image/user_take_cup_th/"
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/user_take_cup_mmr/"
EndIf
SAVELOG "EventLanguageOnChange menu -list"
Var ButtonLanguageCurrentXPosition = 990
Var ButtonLanguageCurrentYPosition = 648
Var ButtonLanguageListXPosition = 970
Var ButtonLanguageListYPosition = 640
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
Var show_eng_button_stage = "Invisible"
Var LanguageButtonEnable = "Enable"
EndIf
Else
Var LanguageButtonEnable = "Invisible"
Var show_eng_button_stage = "Enable"
EndIf
DEBUGVAR LanguageButtonEnable
DEBUGVAR show_eng_button_stage
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
RefreshAll
</EventLanguageOnChange>
<Timeout> 1000 </Timeout>
<EventTimeout>
;SAVELOG MachineErrorDetail

View file

@ -23,6 +23,10 @@
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/consent_mmr/"
EndIf
If show_eng = "true" Then
PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Please_press_accept_consent.mp3"
Else

View file

@ -27,6 +27,10 @@
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage2 = "ROOT/taobin_project/image/consent_mmr/"
EndIf
Var AcceptFlag = 0
Var AcceptState = "Disable"
</EventOpen>

View file

@ -216,6 +216,9 @@
If LanguageShow = "UAE_DUBAI" Then
Var DirImage = CountryRootPath + "image/vending_error_en"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/vending_error_mmr"
EndIf
EndIf
If NeedUpgrade = "true" Then
@ -237,6 +240,9 @@
If LanguageShow = "UAE_DUBAI" Then
Var DirImage = CountryRootPath + "image/vending_error_en"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/vending_error_mmr"
EndIf
EndIf
DEBUGVAR MachineStage
@ -262,6 +268,9 @@
If LanguageShow = "UAE_DUBAI" Then
Var DirImage = CountryRootPath + "image/vending_error_en"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/vending_error_mmr"
EndIf
Else
Var show_error_normal = "Enable"
Var show_error_sp1 = "Invisible"
@ -284,6 +293,9 @@
If LanguageShow = "UAE_DUBAI" Then
Var DirImage = CountryRootPath + "image/close_en"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = CountryRootPath + "image/close_en"
EndIf
EndIf
EndIf
@ -306,6 +318,9 @@
If LanguageShow = "MALAY" Then
Var DirImage = CountryRootPath + "image/vending_error_en"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/vending_error_mmr"
EndIf
Else
Var show_error_normal = "Enable"
Var show_error_sp1 = "Invisible"
@ -324,6 +339,9 @@
If LanguageShow = "MALAY" Then
Var DirImage = CountryRootPath + "image/close_en"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = CountryRootPath + "image/close_en"
EndIf
EndIf
EndIf
@ -343,6 +361,9 @@
If LanguageShow = "MALAY" Then
Var DirImage = CountryRootPath + "image/vending_error_en"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/vending_error_mmr"
EndIf
EndIf
If NETCORE_EVENT_CNT_X >= 30 Then
@ -362,6 +383,9 @@
If LanguageShow = "MALAY" Then
Var DirImage = CountryRootPath + "image/vending_error_en"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/vending_error_mmr"
EndIf
EndIf
Var MaintenanceCard = 20

View file

@ -14,6 +14,12 @@
DEBUGVAR MachineStage
DEBUGVAR stop_now
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
Open "ROOT/taobin_project/xml/page_show_error.lxml"
EndIf
EndIf
OpenInst 2 "/mnt/sdcard/coffeevending/taobin_project/xml/page_list.xml"
@ -348,6 +354,14 @@
Else
Var show_eng = "true"
EndIf
If show_eng = "true" Then
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
Else
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
EndIf
Var ClickCountMainTe = 0

View file

@ -235,8 +235,16 @@
If InternationalEnable = 1 Then
Var Brew3Inter = CountryRootPath + "/xml/page_brewing3.lxml"
Open Brew3Inter
If CountryName = "Thailand" Then
If New_Payment = 1 Then
Open "ROOT/taobin_project/xml/page_NewBrewing3.xml"
Else
Open "ROOT/taobin_project/xml/page_brewing3.xml"
EndIf
Else
Var Brew3Inter = CountryRootPath + "/xml/page_brewing3.lxml"
Open Brew3Inter
EndIf
Else
If New_Payment = 1 Then
Open "ROOT/taobin_project/xml/page_NewBrewing3.xml"

View file

@ -31,6 +31,11 @@
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_mmr"
EndIf
Var Ext1a = ""

View file

@ -29,6 +29,9 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr"
EndIf
Var Ext1a = ""

View file

@ -44,6 +44,10 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr"
EndIf
Var Ext1a = ""
Var ReqAdddata22 = 0

View file

@ -18,6 +18,11 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr"
EndIf
Var img_popup11 = "/img_popup19.png"

View file

@ -24,21 +24,13 @@
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_en"
If LanguageShow = "MYANMAR" Then
SetLanguage "MYANMAR"
Else
SetLanguage "ENG"
EndIf
Else
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If show_eng = "true" Then
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
Else
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
SetLanguage "THAI"
EndIf
@ -61,13 +53,13 @@
Var text_44 = "/text_27.png"
If show_eng = "true" Then
Var Text_X = 188
Var posX = 350
Else
Var Text_X = 188
Var posX = 380
EndIf
;If show_eng = "true" Then
;Var Text_X = 188
;Var posX = 350
;Else
;Var Text_X = 188
;Var posX = 380
;EndIf
@ -107,9 +99,48 @@
Var Max = 2000000
EndIf
</EventOpen>
<EventLanguageOnChange>
DEBUGVAR LanguageShow
If LanguageShow = "ENG" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_en"
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
Var Text_X = 188
Var posX = 350
EndIf
If LanguageShow = "THAI" Then
Var DirImage = "ROOT/taobin_project/image/collectiing"
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
Var Text_X = 188
Var posX = 380
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr"
Var Text_X = 188
Var posX = 350
EndIf
SAVELOG "EventLanguageOnChange menu -list"
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
Var show_eng_button_stage = "Invisible"
Var LanguageButtonEnable = "Enable"
EndIf
Else
Var LanguageButtonEnable = "Invisible"
Var show_eng_button_stage = "Enable"
EndIf
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
RefreshAll
</EventLanguageOnChange>
<Timeout> 1000 </Timeout>
<EventTimeout>
@ -160,7 +191,11 @@ If ViewBill > 0 Then
If GetPayInfoFlag = 1 Then
Var QRCODE99 = ""
If show_eng = "true" Then
If LanguageShow = "MYANMAR" Then
Var TextWaiting = "QR ကို အသုံးမပြုနိုင်ပါ၊ ကျေးဇူးပြု၍ နောက်မှ ထပ်စမ်းကြည့်ပါ။"
Else
Var TextWaiting = "Unable to use QR, please try again later."
EndIf
Else
Var TextWaiting = "ระบบ QR ขัดข้อง โปรดใช้ใหม่ภายหลัง."
EndIf
@ -177,6 +212,7 @@ If ViewBill > 0 Then
<Button>
<X> 990 </X>
<Y> 416 </Y>
<State> show_eng_button_stage </State>
<Filename> show_btn </Filename>
<FilenamePress> show_btp </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
@ -624,7 +660,11 @@ If ViewBill > 0 Then
Var ReqPayInfoFlag = 1
If show_eng = "true" Then
Var TextWaiting = "Please wait..."
If LanguageShow = "MYANMAR" Then
Var TextWaiting = "ခဏစောင့်ပါ။..."
Else
Var TextWaiting = "Please wait..."
EndIf
Else
Var TextWaiting = "กรุณารอซักครู่..."
EndIf

View file

@ -10,30 +10,18 @@
; On open
Var Timeout = 0
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_en"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
Else
Var DirImage = "ROOT/taobin_project/image/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
Var CreditAmount = 0
If show_eng = "true" Then
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
If LanguageShow = "MYANMAR" Then
SetLanguage "MYANMAR"
Else
SetLanguage "ENG"
EndIf
Else
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
SetLanguage "THAI"
EndIf
Var alphaState = "Invisible"
Var alphaState2 = "Enable"
@ -76,16 +64,16 @@
EndIf
Var CreditAmount = 0
Var RemainAmountStr !assigned StringFmt( CreditAmount, DisplayFormat, PreScaleConvertShow )
If show_eng = "true" Then
Var RemainAmountStr = "Top-up " + RemainAmountStr
Var RemainAmountStr = RemainAmountStr + "###size=110"
Else
Var RemainAmountStr = "เติม " + RemainAmountStr
Var RemainAmountStr = RemainAmountStr + "###size=90"
EndIf
;Var RemainAmountStr !assigned StringFmt( CreditAmount, DisplayFormat, PreScaleConvertShow )
;If show_eng = "true" Then
;Var RemainAmountStr = "Top-up " + RemainAmountStr
;Var RemainAmountStr = RemainAmountStr + "###size=110"
;Else
;Var RemainAmountStr = "เติม " + RemainAmountStr
;Var RemainAmountStr = RemainAmountStr + "###size=90"
;EndIf
Var CoinInFlag = 0
@ -111,9 +99,111 @@
Var Seeker.StoreCreditFlag = 1
</EventOpen>
<EventLanguageOnChange>
DEBUGVAR LanguageShow
DEBUGVAR CreditAmount
If LanguageShow = "ENG" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_en"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
Var RemainAmountStr !assigned StringFmt( CreditAmount, DisplayFormat, PreScaleConvertShow )
Var RemainAmountStr = "Top-up " + RemainAmountStr
Var RemainAmountStr = RemainAmountStr + "###size=110"
If CoinAmount = 0 Then
Var RemainAmountStr = "Cancelled"
Else
Var RemainAmountStr = "Keep credit"
EndIf
If ViewBill > 0 Then
Var RemainAmountStr = "Top-up " + RemainAmountStr
Var RemainAmountStr = RemainAmountStr + "###size=110"
Else
If CoinAmount = 0 Then
Var RemainAmountStr !assigned StringFmt( CoinAmount, DisplayFormat, PreScaleConvertShow )
Var RemainAmountStr = "Top-up " + RemainAmountStr
Var RemainAmountStr = RemainAmountStr + "###size=110"
EndIf
EndIf
EndIf
If LanguageShow = "THAI" Then
Var DirImage = "ROOT/taobin_project/image/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page doing/img2.png"
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
Var RemainAmountStr !assigned StringFmt( CreditAmount, DisplayFormat, PreScaleConvertShow )
Var RemainAmountStr = "เติม " + RemainAmountStr
Var RemainAmountStr = RemainAmountStr + "###size=90"
If CoinAmount = 0 Then
Var RemainAmountStr = "ยกเลิก"
Else
Var RemainAmountStr = "เก็บเครดิต"
EndIf
If ViewBill > 0 Then
Var RemainAmountStr = "เติม " + RemainAmountStr
Var RemainAmountStr = RemainAmountStr + "###size=90"
Else
If CoinAmount = 0 Then
Var RemainAmountStr !assigned StringFmt( CoinAmount, DisplayFormat, PreScaleConvertShow )
Var RemainAmountStr = "เติม " + RemainAmountStr
Var RemainAmountStr = RemainAmountStr + "###size=90"
EndIf
EndIf
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_mmr/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_mmr"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing_mmr/img2_mmr.png"
Var RemainAmountStr !assigned StringFmt( CreditAmount, DisplayFormat, PreScaleConvertShow )
Var RemainAmountStr = "ငွေဖြည့် " + RemainAmountStr
Var RemainAmountStr = RemainAmountStr + "###size=90"
If CoinAmount = 0 Then
Var RemainAmountStr = "ပယ်ဖျက်ခဲ့သည်။"
Else
Var RemainAmountStr = "ခရက်ဒစ်စုဆောင်းပါ။"
EndIf
If ViewBill > 0 Then
Var RemainAmountStr = "ငွေဖြည့် " + RemainAmountStr
Var RemainAmountStr = RemainAmountStr + "###size=90"
Else
If CoinAmount = 0 Then
Var RemainAmountStr !assigned StringFmt( CoinAmount, DisplayFormat, PreScaleConvertShow )
Var RemainAmountStr = "ငွေဖြည့် " + RemainAmountStr
Var RemainAmountStr = RemainAmountStr + "###size=90"
EndIf
EndIf
EndIf
SAVELOG "EventLanguageOnChange menu -list"
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
Var show_eng_button_stage = "Invisible"
Var LanguageButtonEnable = "Enable"
EndIf
Else
Var LanguageButtonEnable = "Invisible"
Var show_eng_button_stage = "Enable"
EndIf
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
RefreshAll
</EventLanguageOnChange>
<Timeout> 1000 </Timeout>
<EventTimeout>
@ -127,17 +217,25 @@
Var CancelFlag = 1
Var CancelCounter = 0
If show_eng = "true" Then
Var RemainAmountStr = "Cancelled"
If LanguageShow = "MYANMAR" Then
SetLanguage "MYANMAR"
Else
SetLanguage "ENG"
EndIf
Else
Var RemainAmountStr = "ยกเลิก"
SetLanguage "THAI"
EndIf
Else
Var CoinInOK = 1
Var CoinInCounter = 0
If show_eng = "true" Then
Var RemainAmountStr = "Keep credit"
If LanguageShow = "MYANMAR" Then
SetLanguage "MYANMAR"
Else
SetLanguage "ENG"
EndIf
Else
Var RemainAmountStr = "เก็บเครดิต"
SetLanguage "THAI"
EndIf
CoinVending BILLSTACKALL
@ -286,12 +384,14 @@
Var Timeout = 0
Var RemainAmountStr !assigned StringFmt( CoinAmount, DisplayFormat, PreScaleConvertShow )
If show_eng = "true" Then
Var RemainAmountStr = "Top-up " + RemainAmountStr
Var RemainAmountStr = RemainAmountStr + "###size=90"
If show_eng = "true" Then
If LanguageShow = "MYANMAR" Then
SetLanguage "MYANMAR"
Else
SetLanguage "ENG"
EndIf
Else
Var RemainAmountStr = "เติม " + RemainAmountStr
Var RemainAmountStr = RemainAmountStr + "###size=110"
SetLanguage "THAI"
EndIf
Var showRemaining = charOfBaht + RemainAmountStr
@ -299,14 +399,14 @@
If CoinInOK = 0 Then
If show_eng = "true" Then
Var RemainAmountStr !assigned StringFmt( CoinAmount, DisplayFormat, PreScaleConvertShow )
Var RemainAmountStr = "Top-up " + RemainAmountStr
Var RemainAmountStr = RemainAmountStr + "###size=90"
If show_eng = "true" Then
If LanguageShow = "MYANMAR" Then
SetLanguage "MYANMAR"
Else
SetLanguage "ENG"
EndIf
Else
Var RemainAmountStr !assigned StringFmt( CoinAmount, DisplayFormat, PreScaleConvertShow )
Var RemainAmountStr = "เติม " + RemainAmountStr
Var RemainAmountStr = RemainAmountStr + "###size=110"
SetLanguage "THAI"
EndIf
Var Timeout = 0
@ -342,6 +442,7 @@
<Button>
<X> 990 </X>
<Y> 416 </Y>
<State> show_eng_button_stage </State>
<Filename> show_btn </Filename>
<FilenamePress> show_btp </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
@ -406,14 +507,22 @@
Var CancelCounter = 0
Var CancelFlag = 1
If show_eng = "true" Then
Var RemainAmountStr = "Cancelled"
If LanguageShow = "MYANMAR" Then
Var RemainAmountStr = "ပယ်ဖျက်ခဲ့သည်။"
Else
Var RemainAmountStr = "Cancelled"
EndIf
Else
Var RemainAmountStr = "ยกเลิก"
EndIf
Else
Var ChangeOK = 1
If show_eng = "true" Then
Var RemainAmountStr = "Keep credit"
If LanguageShow = "MYANMAR" Then
Var RemainAmountStr = "ခရက်ဒစ်စုဆောင်းပါ။"
Else
Var RemainAmountStr = "Keep credit"
EndIf
Else
Var RemainAmountStr = "เก็บเครดิต"
EndIf

View file

@ -40,6 +40,10 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr"
EndIf
Var CouponNumber = ""
</EventOpen>
<Timeout> 1000 </Timeout>

View file

@ -11,20 +11,13 @@
Var Timeout = 0
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_en"
If LanguageShow = "MYANMAR" Then
SetLanguage "MYANMAR"
Else
SetLanguage "ENG"
EndIf
Else
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If show_eng = "true" Then
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
Else
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
SetLanguage "THAI"
EndIf
@ -41,10 +34,42 @@
CoinVending BILLREJECT
EndIf
</EventOpen>
<EventLanguageOnChange>
DEBUGVAR LanguageShow
If LanguageShow = "ENG" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_en"
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"
EndIf
If LanguageShow = "THAI" Then
Var DirImage = "ROOT/taobin_project/image/collectiing"
Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr"
EndIf
SAVELOG "EventLanguageOnChange menu -list"
If InternationalEnable = 1 Then
If CountryName = "Thailand" Then
Var show_eng_button_stage = "Invisible"
Var LanguageButtonEnable = "Enable"
EndIf
Else
Var LanguageButtonEnable = "Invisible"
Var show_eng_button_stage = "Enable"
EndIf
OpenInst 3 "ROOT/taobin_project/xml/topview2.xml"
RefreshAll
</EventLanguageOnChange>
<Timeout> 1000 </Timeout>
<EventTimeout>
@ -110,6 +135,7 @@ If ViewBill > 0 Then
<Button>
<X> 990 </X>
<Y> 416 </Y>
<State> show_eng_button_stage </State>
<Filename> show_btn </Filename>
<FilenamePress> show_btp </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>

View file

@ -48,12 +48,22 @@
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_mmr/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_mmr"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing_mmr/img2_mmr.png"
EndIf
If show_eng = "true" Then
Var DirImage3 = "ROOT/taobin_project/image/collectiing_en"
Else
Var DirImage3 = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage3 = "ROOT/taobin_project/image/collectiing_mmr"
EndIf
If show_eng = "true" Then
Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"

View file

@ -13,6 +13,10 @@
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
If LanguageShow = "MYANMAR" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_mmr"
EndIf
Var ReqPayWithCash = 0
</EventOpen>

54
xml/payment_cash.ev Normal file
View file

@ -0,0 +1,54 @@
payment_cash.ev
If LanguageShow = "ENG" Then
Var show_eng = "true"
EndIf
If LanguageShow = "THAI" Then
Var show_eng = "false"
EndIf
DEBUGVAR show_eng
DEBUGVAR LanguageShow
If show_eng = "true" Then
Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment_en/page_payment/bn_cash.png"
Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment_en/page_payment/bp_cash.png"
Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_en"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
Var LOADING_STATE_X = 267
Else
Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment/bn_cash.png"
Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment/bp_cash.png"
Var DirImage = "ROOT/taobin_project/image/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
Var LOADING_STATE_X = 267
EndIf
If LanguageShow = "MYANMAR" Then
Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment_mmr/page_payment/bn_cash.png"
Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment_mmr/page_payment/bp_cash.png"
Var DirImage = "ROOT/taobin_project/image/page_payment_mmr/page_payment"
Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_mmr"
Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
Var LOADING_STATE_X = 560
EndIf
If RoadShow = "true" Then
Var X_CASH1 = 287
If show_eng = "true" Then
Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment_en/page_payment/bn_cash.png"
Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment_en/page_payment/bp_cash.png"
Else
Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment/bn_cash.png"
Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment/bp_cash.png"
EndIf
If LanguageShow = "MYANMAR" Then
Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment_mmr/page_payment/bn_cash.png"
Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment_mmr/page_payment/bp_cash.png"
EndIf
EndIf

View file

@ -135,51 +135,6 @@
DEBUGVAR ENABLE_UAE_DUBAI
Var ENABLE_UAE_DUBAI = "Invisible"
TRY "ROOT/taobin_project/inter/tha/xml/multi/control_and_lang_swith.ev"
Else
OpenRedirect "/taobin_project/xml/page_catalog_group_coffee.xml" "/mnt/sdcard/coffeevending/taobin_project/xml/menutab/coffee.ev"
OpenRedirect "/taobin_project/xml/page_catalog_group_tea.xml" "/mnt/sdcard/coffeevending/taobin_project/xml/menutab/tea.ev"
OpenRedirect "/taobin_project/xml/page_catalog_group_milk.xml" "/mnt/sdcard/coffeevending/taobin_project/xml/menutab/milk.ev"
OpenRedirect "/taobin_project/xml/page_catalog_group_other_other.xml" "/mnt/sdcard/coffeevending/taobin_project/xml/menutab/otherOther.ev"
OpenRedirect "/taobin_project/xml/page_catalog_group_pepsi7up.xml" "/mnt/sdcard/coffeevending/taobin_project/xml/menutab/pepsi7up.ev"
Var InstanceTabOpenFile2 = "ROOT/taobin_project/xml/menutab/page_catalog_group_coffee.xml"
Var InstanceTabOpenFile3 = "ROOT/taobin_project/xml/menutab/page_catalog_group_tea.xml"
Var InstanceTabOpenFile4 = "ROOT/taobin_project/xml/menutab/page_catalog_group_milk.xml"
If AppFastButtonState = "Enable" Then
Var InstanceTabOpenFile5 = "ROOT/taobin_project/xml/menutab/page_catalog_group_appfast.xml"
EndIf
If WheyButtonState = "Enable" Then
Var InstanceTabOpenFile5 = "ROOT/taobin_project/xml/menutab/page_catalog_group_whey.xml"
OpenRedirect "/taobin_project/xml/page_catalog_group_whey.xml" "/mnt/sdcard/coffeevending/taobin_project/xml/menutab/kidandwhey.ev"
EndIf
If MenuKidButtonState = "Enable" Then
Var InstanceTabOpenFile5 = "ROOT/taobin_project/xml/menutab/page_catalog_group_forkid.xml"
OpenRedirect "/taobin_project/xml/page_catalog_group_forkid.xml" "/mnt/sdcard/coffeevending/taobin_project/xml/menutab/kidandwhey.ev"
EndIf
If CocktailShow = "true" Then
Var InstanceTabOpenFile6 = "ROOT/taobin_project/xml/menutab/page_catalog_group_cocktail.xml"
OpenRedirect "/taobin_project/xml/page_catalog_group_cocktail.xml" "/mnt/sdcard/coffeevending/taobin_project/xml/menutab/health.ev"
Else
Var InstanceTabOpenFile6 = "ROOT/taobin_project/xml/menutab/page_catalog_group_health.xml"
OpenRedirect "/taobin_project/xml/page_catalog_group_health.xml" "/mnt/sdcard/coffeevending/taobin_project/xml/menutab/health.ev"
EndIf
Var InstanceTabOpenFile7 = "ROOT/taobin_project/xml/menutab/page_catalog_group_other_other.xml"
Var InstanceTabOpenFile8 = "ROOT/taobin_project/xml/menutab/page_catalog_group_pepsi_7up.xml"
Var InstanceTabOpenFile9 = "ROOT/taobin_project/xml/menutab/start_up_inst_dummy.xml"
Var InstanceTabOpenFile10 = "ROOT/taobin_project/xml/menutab/start_up_inst_dummy.xml"
Var InstanceTabOpenFile11 = "ROOT/taobin_project/xml/menutab/start_up_inst_dummy.xml"
Var InstanceTabOpenFile12 = "ROOT/taobin_project/xml/menutab/start_up_inst_dummy.xml"
Var InstanceTabOpenFile13 = "ROOT/taobin_project/xml/menutab/start_up_inst_dummy.xml"
TabMenuVisibleInst 99
EndIf
Else
OpenRedirect "/taobin_project/xml/page_catalog_group_coffee.xml" "/mnt/sdcard/coffeevending/taobin_project/xml/menutab/coffee.ev"
@ -405,6 +360,7 @@
Var langFileNameIcon = lang_icon_file_name[LanguageShowByIndex]
Var langfn = "ROOT/taobin_project/image/lang/" + langFileNameIcon
SetLanguage "THAI"
Var show_eng = "false"
If EnableMultiInstance = "true" Then
Var langnext1 = "true"
Var langnext2 = "true"
@ -414,7 +370,6 @@
Var langnext6 = "true"
Var langnext7 = "true"
Var langnext8 = "true"
TabMenuVisibleInst 9
EndIf
Open "ROOT/taobin_project/xml/topview2.xml"
@ -434,6 +389,7 @@
<Filename> "ROOT/taobin_project/image/lang/bn_eng_lang.png" </Filename>
<EventClick>
SetLanguage "ENG"
Var show_eng = "true"
Var LanguageButtonListEnable = "Invisible"
Var langFileNameIcon = lang_icon_file_name[LanguageShowByIndex]
Var langfn = "ROOT/taobin_project/image/lang/" + langFileNameIcon
@ -446,7 +402,6 @@
Var langnext6 = "true"
Var langnext7 = "true"
Var langnext8 = "true"
TabMenuVisibleInst 9
EndIf
Open "ROOT/taobin_project/xml/topview2.xml"
</EventClick>
@ -477,7 +432,6 @@
Var langnext6 = "true"
Var langnext7 = "true"
Var langnext8 = "true"
TabMenuVisibleInst 9
EndIf
Open "ROOT/taobin_project/xml/topview2.xml"
</EventClick>
@ -509,7 +463,6 @@
Var langnext6 = "true"
Var langnext7 = "true"
Var langnext8 = "true"
TabMenuVisibleInst 9
EndIf
Open "ROOT/taobin_project/xml/topview2.xml"
</EventClick>
@ -541,7 +494,6 @@
Var langnext6 = "true"
Var langnext7 = "true"
Var langnext8 = "true"
TabMenuVisibleInst 9
EndIf
Open "ROOT/taobin_project/xml/topview2.xml"
</EventClick>
@ -560,6 +512,7 @@
<Filename> "ROOT/taobin_project/image/lang/bn_myanmar_lang.png" </Filename>
<EventClick>
SetLanguage "MYANMAR"
Var show_eng = "true"
Var LanguageButtonListEnable = "Invisible"
Var langFileNameIcon = lang_icon_file_name[LanguageShowByIndex]
Var langfn = "ROOT/taobin_project/image/lang/" + langFileNameIcon
@ -572,7 +525,6 @@
Var langnext6 = "true"
Var langnext7 = "true"
Var langnext8 = "true"
TabMenuVisibleInst 9
EndIf
Open "ROOT/taobin_project/xml/topview2.xml"
</EventClick>

View file

@ -20,7 +20,11 @@ If Tel2D = "09" Then
EndIf
If InternationalEnable = 1 Then
Var VerifyFile = CountryRootPath + "/xml/verify_number.ev"
If CountryName = "Thailand" Then
;do not thing
Else
Var VerifyFile = CountryRootPath + "/xml/verify_number.ev"
TRY VerifyFile
TRY VerifyFile
EndIf
EndIf