Merge branch 'masterpiece' of ssh://192.168.10.159:/1TBHDD/ikong/taobin_project into masterpiece

This commit is contained in:
wanlop run 2024-11-28 16:17:50 +07:00
commit d57ec5db0e
22 changed files with 1235 additions and 707 deletions

Binary file not shown.

Before

Width:  |  Height:  |  Size: 17 KiB

After

Width:  |  Height:  |  Size: 15 KiB

Before After
Before After

Binary file not shown.

After

Width:  |  Height:  |  Size: 10 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 14 KiB

View file

Before

Width:  |  Height:  |  Size: 3.7 KiB

After

Width:  |  Height:  |  Size: 3.7 KiB

Before After
Before After

Binary file not shown.

After

Width:  |  Height:  |  Size: 2.7 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 3.4 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 3.4 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 2.6 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 3.5 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 8.8 KiB

View file

@ -897,7 +897,7 @@
Var DescLang[0][3] = "" Var DescLang[0][3] = ""
Var DescLang[0][4] = "" Var DescLang[0][4] = ""
Var DescLang[0][5] = "" Var DescLang[0][5] = ""
Var NameLang[1][0] = "FLYING TURTLE\nENERGY DRINK SODA" Var NameLang[1][0] = "FLYING TURTLE ENERGY DRINK SODA"
Var NameLang[1][1] = "เต่าทรงพลังโซดา" Var NameLang[1][1] = "เต่าทรงพลังโซดา"
Var NameLang[1][2] = "" Var NameLang[1][2] = ""
Var NameLang[1][3] = "" Var NameLang[1][3] = ""

View file

@ -11580,7 +11580,7 @@
Var DescLang[0][3] = "" Var DescLang[0][3] = ""
Var DescLang[0][4] = "" Var DescLang[0][4] = ""
Var DescLang[0][5] = "" Var DescLang[0][5] = ""
Var NameLang[1][0] = "FLYING TURTLE\nENERGY DRINK SODA" Var NameLang[1][0] = "FLYING TURTLE ENERGY DRINK SODA"
Var NameLang[1][1] = "เต่าทรงพลังโซดา" Var NameLang[1][1] = "เต่าทรงพลังโซดา"
Var NameLang[1][2] = "" Var NameLang[1][2] = ""
Var NameLang[1][3] = "" Var NameLang[1][3] = ""

View file

@ -11557,7 +11557,7 @@
Var DescLang[0][3] = "" Var DescLang[0][3] = ""
Var DescLang[0][4] = "" Var DescLang[0][4] = ""
Var DescLang[0][5] = "" Var DescLang[0][5] = ""
Var NameLang[1][0] = "FLYING TURTLE\nENERGY DRINK SODA" Var NameLang[1][0] = "FLYING TURTLE ENERGY DRINK SODA"
Var NameLang[1][1] = "เต่าทรงพลังโซดา" Var NameLang[1][1] = "เต่าทรงพลังโซดา"
Var NameLang[1][2] = "" Var NameLang[1][2] = ""
Var NameLang[1][3] = "" Var NameLang[1][3] = ""

View file

@ -20,7 +20,7 @@
Var TimeOutPlay = 0 Var TimeOutPlay = 0
If show_eng = "true" Then If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/collect_point1_en" Var DirImage = "ROOT/taobin_project/image/collect_point1_en"
;Play "ROOT/taobin_project/sound_eng/Reward_final.mp3" ;Play "ROOT/taobin_project/sound_eng/Reward_final.mp3"
@ -53,7 +53,7 @@
Var CampaingRef1 = "" Var CampaingRef1 = ""
Var CampaingRef2 = "" Var CampaingRef2 = ""
SUBSTRING CampaingRef 0 6 CampaingRef1 SUBSTRING CampaingRef 0 6 CampaingRef1
SUBSTRING CampaingRef 12 18 CampaingRef2 SUBSTRING CampaingRef 12 18 CampaingRef2
@ -61,13 +61,13 @@
Var CampaingRef1 = CampaingRef1 + CampaingRef2 Var CampaingRef1 = CampaingRef1 + CampaingRef2
Var ParamCP = ParamCP + CampaingRef1 Var ParamCP = ParamCP + CampaingRef1
If Seeker.TNumberTaobinCredit = "" Then If Seeker.TNumberTaobinCredit = "" Then
If web_telnumOK = "" Then If web_telnumOK = "" Then
If show_eng = "true" Then If show_eng = "true" Then
Play "ROOT/taobin_project/sound_eng/Reward_final.mp3" Play "ROOT/taobin_project/sound_eng/Reward_final.mp3"
Else Else
Play "ROOT/taobin_project/sound_thai/dontforget_number.mp3" Play "ROOT/taobin_project/sound_thai/dontforget_number.mp3"
@ -78,7 +78,7 @@
Var StepGetPoint = 1 Var StepGetPoint = 1
Var PdpaAsk = 0 Var PdpaAsk = 0
Var OperatorTemp = "" Var OperatorTemp = ""
Var CreditAmount = 0 Var CreditAmount = 0
Var OperatorStatus = "" Var OperatorStatus = ""
@ -98,15 +98,15 @@
AddData 45 TelPhoneNum drink_price param2 param3 AddData 45 TelPhoneNum drink_price param2 param3
EndIf EndIf
;GetAccInfo TelephoneNumber OperatorTemp CreditAmount OperatorStatus AccountType GetScore tc ;GetAccInfo TelephoneNumber OperatorTemp CreditAmount OperatorStatus AccountType GetScore tc
Var Param1 = TelephoneNumber + "/" Var Param1 = TelephoneNumber + "/"
Var Param1 = Param1 + ParamCP Var Param1 = Param1 + ParamCP
GETACCEXT Param1 23 GETACCEXT Param1 23
Open "ROOT/taobin_project/inter/aus/xml/page_collect_point_2.lxml" Open "ROOT/taobin_project/inter/aus/xml/page_collect_point_2.lxml"
EndIf EndIf
Else Else
@ -124,7 +124,7 @@
Var StepGetPoint = 1 Var StepGetPoint = 1
Var PdpaAsk = 0 Var PdpaAsk = 0
Var OperatorTemp = "" Var OperatorTemp = ""
Var CreditAmount = 0 Var CreditAmount = 0
Var OperatorStatus = "" Var OperatorStatus = ""
@ -133,15 +133,15 @@
SAVELOG "collect_point1-p71." SAVELOG "collect_point1-p71."
Var TelephoneNumberX = TelephoneNumber Var TelephoneNumberX = TelephoneNumber
DEBUGVAR TelephoneNumber DEBUGVAR TelephoneNumber
;GetAccInfo TelephoneNumber OperatorTemp CreditAmount OperatorStatus AccountType GetScore tc ;GetAccInfo TelephoneNumber OperatorTemp CreditAmount OperatorStatus AccountType GetScore tc
Var Param1 = TelephoneNumber + "/" Var Param1 = TelephoneNumber + "/"
Var Param1 = Param1 + ParamCP Var Param1 = Param1 + ParamCP
GETACCEXT Param1 23 GETACCEXT Param1 23
Open "ROOT/taobin_project/inter/aus/xml/page_collect_point_2.lxml" Open "ROOT/taobin_project/inter/aus/xml/page_collect_point_2.lxml"
EndIf EndIf
@ -149,24 +149,24 @@
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
<EventTimeout> <EventTimeout>
Var CountDownBrewing = BREW_CNT Var CountDownBrewing = BREW_CNT
Var ShowCountDownBrewing = CountDownBrewing Var ShowCountDownBrewing = CountDownBrewing
StrLen TelephoneNumber TelNumLen StrLen TelephoneNumber TelNumLen
If TelNumLen > 0 Then If TelNumLen > 0 Then
Var ShowTextNumber = "Invisible" Var ShowTextNumber = "Invisible"
Else Else
; Add ; Add
Var TimeOutPlay = TimeOutPlay + 1 Var TimeOutPlay = TimeOutPlay + 1
If TimeOutPlay > 10 Then If TimeOutPlay > 10 Then
Var TimeOutPlay = 0 Var TimeOutPlay = 0
If show_eng = "true" Then If show_eng = "true" Then
Play "ROOT/taobin_project/sound_eng/Reward_final.mp3" Play "ROOT/taobin_project/sound_eng/Reward_final.mp3"
Else Else
Play "ROOT/taobin_project/sound_thai/dontforget_number.mp3" Play "ROOT/taobin_project/sound_thai/dontforget_number.mp3"
@ -175,17 +175,17 @@
; ;
EndIf EndIf
DEBUGVAR Timeout DEBUGVAR Timeout
Var Timeout = Timeout + 1 Var Timeout = Timeout + 1
If Timeout > 30 Then If Timeout > 30 Then
SAVELOG "collect_point1-p107." SAVELOG "collect_point1-p107."
;Open "ROOT/taobin_project/xml/page_catalog.xml" ;Open "ROOT/taobin_project/xml/page_catalog.xml"
Open "ROOT/taobin_project/xml/page_lid_straw.xml" Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf EndIf
If Timeout = 18 Then If Timeout = 18 Then
@ -203,7 +203,7 @@
Refresh Refresh
TimerReset TimerReset
</EventTimeout> </EventTimeout>
@ -229,13 +229,13 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_1.png" </FilenamePress> <FilenamePress> "ROOT/taobin_project/image/collectiing/bp_1.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound> <Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
Var Timeout = 0 Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "1" Var TelephoneNumber = TelephoneNumber + "1"
Trim TelephoneNumber MaxPhoneNumber Trim TelephoneNumber MaxPhoneNumber
StrLen TelephoneNumber TelNumLen StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable" Var Tel_Confirm_State = "Enable"
EndIf EndIf
@ -245,9 +245,9 @@
TimerReset TimerReset
Refresh Refresh
</EventClick> </EventClick>
</Button> </Button>
@ -259,13 +259,13 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_2.png" </FilenamePress> <FilenamePress> "ROOT/taobin_project/image/collectiing/bp_2.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound> <Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
Var Timeout = 0 Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "2" Var TelephoneNumber = TelephoneNumber + "2"
Trim TelephoneNumber MaxPhoneNumber Trim TelephoneNumber MaxPhoneNumber
StrLen TelephoneNumber TelNumLen StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable" Var Tel_Confirm_State = "Enable"
EndIf EndIf
@ -284,13 +284,13 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_3.png" </FilenamePress> <FilenamePress> "ROOT/taobin_project/image/collectiing/bp_3.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound> <Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
Var Timeout = 0 Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "3" Var TelephoneNumber = TelephoneNumber + "3"
Trim TelephoneNumber MaxPhoneNumber Trim TelephoneNumber MaxPhoneNumber
StrLen TelephoneNumber TelNumLen StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable" Var Tel_Confirm_State = "Enable"
EndIf EndIf
@ -309,13 +309,13 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_4.png" </FilenamePress> <FilenamePress> "ROOT/taobin_project/image/collectiing/bp_4.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound> <Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
Var Timeout = 0 Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "4" Var TelephoneNumber = TelephoneNumber + "4"
Trim TelephoneNumber MaxPhoneNumber Trim TelephoneNumber MaxPhoneNumber
StrLen TelephoneNumber TelNumLen StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable" Var Tel_Confirm_State = "Enable"
EndIf EndIf
@ -334,13 +334,13 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_5.png" </FilenamePress> <FilenamePress> "ROOT/taobin_project/image/collectiing/bp_5.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound> <Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
Var Timeout = 0 Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "5" Var TelephoneNumber = TelephoneNumber + "5"
Trim TelephoneNumber MaxPhoneNumber Trim TelephoneNumber MaxPhoneNumber
StrLen TelephoneNumber TelNumLen StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable" Var Tel_Confirm_State = "Enable"
EndIf EndIf
@ -359,13 +359,13 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_6.png" </FilenamePress> <FilenamePress> "ROOT/taobin_project/image/collectiing/bp_6.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound> <Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
Var Timeout = 0 Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "6" Var TelephoneNumber = TelephoneNumber + "6"
Trim TelephoneNumber MaxPhoneNumber Trim TelephoneNumber MaxPhoneNumber
StrLen TelephoneNumber TelNumLen StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable" Var Tel_Confirm_State = "Enable"
EndIf EndIf
@ -384,13 +384,13 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_7.png" </FilenamePress> <FilenamePress> "ROOT/taobin_project/image/collectiing/bp_7.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound> <Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
Var Timeout = 0 Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "7" Var TelephoneNumber = TelephoneNumber + "7"
Trim TelephoneNumber MaxPhoneNumber Trim TelephoneNumber MaxPhoneNumber
StrLen TelephoneNumber TelNumLen StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable" Var Tel_Confirm_State = "Enable"
EndIf EndIf
@ -409,13 +409,13 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_8.png" </FilenamePress> <FilenamePress> "ROOT/taobin_project/image/collectiing/bp_8.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound> <Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
Var Timeout = 0 Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "8" Var TelephoneNumber = TelephoneNumber + "8"
Trim TelephoneNumber MaxPhoneNumber Trim TelephoneNumber MaxPhoneNumber
StrLen TelephoneNumber TelNumLen StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable" Var Tel_Confirm_State = "Enable"
EndIf EndIf
@ -434,13 +434,13 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_9.png" </FilenamePress> <FilenamePress> "ROOT/taobin_project/image/collectiing/bp_9.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound> <Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
Var Timeout = 0 Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "9" Var TelephoneNumber = TelephoneNumber + "9"
Trim TelephoneNumber MaxPhoneNumber Trim TelephoneNumber MaxPhoneNumber
StrLen TelephoneNumber TelNumLen StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable" Var Tel_Confirm_State = "Enable"
EndIf EndIf
@ -449,7 +449,7 @@
TimerReset TimerReset
Refresh Refresh
</EventClick> </EventClick>
</Button> </Button>
@ -460,13 +460,13 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_0.png" </FilenamePress> <FilenamePress> "ROOT/taobin_project/image/collectiing/bp_0.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound> <Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
Var Timeout = 0 Var Timeout = 0
Var TelephoneNumber = TelephoneNumber + "0" Var TelephoneNumber = TelephoneNumber + "0"
Trim TelephoneNumber MaxPhoneNumber Trim TelephoneNumber MaxPhoneNumber
StrLen TelephoneNumber TelNumLen StrLen TelephoneNumber TelNumLen
If TelNumLen >= MinPhoneNumber Then If TelNumLen >= MinPhoneNumber Then
Var Tel_Confirm_State = "Enable" Var Tel_Confirm_State = "Enable"
EndIf EndIf
@ -485,24 +485,24 @@
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_back-1.png" </FilenamePress> <FilenamePress> "ROOT/taobin_project/image/collectiing/bp_back-1.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound> <Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
Var Timeout = 0 Var Timeout = 0
Trim TelephoneNumber -1 Trim TelephoneNumber -1
StrLen TelephoneNumber TelNumLen StrLen TelephoneNumber TelNumLen
If TelNumLen < 10 Then If TelNumLen < 10 Then
Var Tel_Confirm_State = "Invisible" Var Tel_Confirm_State = "Invisible"
EndIf EndIf
If TelNumLen = 0 Then If TelNumLen = 0 Then
Var ShowTextNumber = "Enable" Var ShowTextNumber = "Enable"
EndIf EndIf
TimerReset TimerReset
Refresh Refresh
</EventClick> </EventClick>
</Button> </Button>
@ -526,11 +526,11 @@
<FilenamePress> Var( DirImage + "/bp_negative.png") </FilenamePress> <FilenamePress> Var( DirImage + "/bp_negative.png") </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound> <Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
; goto lid straw ; goto lid straw
;Open "ROOT/taobin_project/xml/page_catalog.xml" ;Open "ROOT/taobin_project/xml/page_catalog.xml"
SAVELOG "collect_point1-p589." SAVELOG "collect_point1-p589."
Open "ROOT/taobin_project/xml/page_lid_straw.xml" Open "ROOT/taobin_project/xml/page_lid_straw.xml"
</EventClick> </EventClick>
</Button> </Button>
@ -545,9 +545,9 @@
<FilenameDisable> Var( DirImage + "/bn_positive.png") </FilenameDisable> <FilenameDisable> Var( DirImage + "/bn_positive.png") </FilenameDisable>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound> <Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
If Tel_Confirm_Flag = 1 Then If Tel_Confirm_Flag = 1 Then
@ -563,7 +563,7 @@
Var StepGetPoint = 1 Var StepGetPoint = 1
Var PdpaAsk = 0 Var PdpaAsk = 0
Var OperatorTemp = "" Var OperatorTemp = ""
Var CreditAmount = 0 Var CreditAmount = 0
Var OperatorStatus = "" Var OperatorStatus = ""
@ -582,25 +582,25 @@
AddData 45 TelPhoneNum drink_price param2 param3 AddData 45 TelPhoneNum drink_price param2 param3
EndIf EndIf
If ChildrenFree = 1 Then If ChildrenFree = 1 Then
Var Seeker.TNumberTaobinMember = TelephoneNumber Var Seeker.TNumberTaobinMember = TelephoneNumber
Open "ROOT/taobin_project/xml/page_lid_straw.xml" Open "ROOT/taobin_project/xml/page_lid_straw.xml"
EndIf EndIf
Var Param1 = TelephoneNumber + "/"
Var Param1 = TelephoneNumber + "/"
Var Param1 = Param1 + ParamCP Var Param1 = Param1 + ParamCP
GETACCEXT Param1 23 GETACCEXT Param1 23
Open "ROOT/taobin_project/inter/aus/xml/page_collect_point_2.lxml" Open "ROOT/taobin_project/inter/aus/xml/page_collect_point_2.lxml"
Else Else
If show_eng = "true" Then If show_eng = "true" Then
Var DirImage2 = "ROOT/taobin_project/image/collectiing_en" Var DirImage2 = "ROOT/taobin_project/image/collectiing_en"
Else Else
Var DirImage2 = "ROOT/taobin_project/image/collectiing" Var DirImage2 = "ROOT/taobin_project/image/collectiing"
@ -613,7 +613,7 @@
Var Tel_Confirm_State = "Invisible" Var Tel_Confirm_State = "Invisible"
Refresh Refresh
EndIf EndIf
@ -635,6 +635,12 @@
<Filename> Var( DirImage + "/text_edit.png") </Filename> <Filename> Var( DirImage + "/text_edit.png") </Filename>
</Image> </Image>
<Image>
<X> 236 </X>
<Y> 699 </Y>
<Filename> Var( DirImage + "/text_2.png") </Filename>
</Image>
;include="ROOT/taobin_project/inc/video.inc" ;include="ROOT/taobin_project/inc/video.inc"
@ -670,11 +676,11 @@
<State> ShowErrorText </State> <State> ShowErrorText </State>
<Filename> text_show_error </Filename> <Filename> text_show_error </Filename>
</Image> </Image>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml" <EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity> </EventSecurity>
<EventMachine> <EventMachine>
If MachineStage = "drink-success" Then If MachineStage = "drink-success" Then

View file

@ -261,6 +261,7 @@
<Button> <Button>
<X> 287 </X> <X> 287 </X>
<Y> 778 </Y> <Y> 778 </Y>
<State> "Disable" </State>
<Filename> Var( DirImage2 + "/bn_fatzebra.png" ) </Filename> <Filename> Var( DirImage2 + "/bn_fatzebra.png" ) </Filename>
<FilenamePress> Var( DirImage2 + "/bp_fatzebra.png" ) </FilenamePress> <FilenamePress> Var( DirImage2 + "/bp_fatzebra.png" ) </FilenamePress>
<FilenameDisable> Var( DirImage2 + "/bd_fatzebra.png" ) </FilenameDisable> <FilenameDisable> Var( DirImage2 + "/bd_fatzebra.png" ) </FilenameDisable>

View file

@ -0,0 +1,336 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Sound> PlaySoundCodeLang </Sound>
<Volume> SoundVolume </Volume>
<Refresh> "Partial" </Refresh>
<EventOpen>
Var Timeout = 0
Var EMAMemberID = ""
Var Tel_Confirm_State = "Invisible"
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
Var Timeout = Timeout + 1
If Timeout > 30 Then
SAVELOG "page_payment_with_ema > timeout"
Var EMAMemberID = ""
Open "ROOT/taobin_project/xml/page_payment_cash-AUS.xml"
EndIf
</EventTimeout>
<Image>
<X> 0 </X>
<Y> 380 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/alpha.png" </Filename>
</Image>
<Image>
<X> 158 </X>
<Y> 665 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/img_popup1.png" </Filename>
</Image>
<Image>
<X> 302 </X>
<Y> 710 </Y>
<Filename> "ROOT/taobin_project/inter/aus/image/payment_cash/enter_ema_number_text.png" </Filename>
</Image>
<Image>
<X> 217 </X>
<Y> 830 </Y>
<Filename> "ROOT/taobin_project/inter/aus/image/payment_cash/edit_border.png" </Filename>
</Image>
<Image>
<X> 273 </X>
<Y> 837 </Y>
<Filename> "ROOT/taobin_project/inter/aus/image/payment_cash/ema_member_icon.png" </Filename>
</Image>
<Text>
<X> 255 </X>
<Y> 856 </Y>
<Refresh> "Enable" </Refresh>
<Width> 570 </Width>
<Font> KanitRegularTTF </Font>
<Size> 48 </Font>
<Color> 0x000000 </Color>
<Align> center-vertical-horizontal </Align>
<Value> EMAMemberID </Value>
</Text>
<Button>
<X> 333 </X>
<Y> 1004 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_1.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_1.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var EMAMemberID = EMAMemberID + "1"
Trim EMAMemberID 8
TimerReset
Refresh
StrLen EMAMemberID IDNumLen
If IDNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
</EventClick>
</Button>
<Button>
<X> 477 </X>
<Y> 1004 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_2.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_2.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var EMAMemberID = EMAMemberID + "2"
Trim EMAMemberID 8
TimerReset
Refresh
StrLen EMAMemberID IDNumLen
If IDNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
</EventClick>
</Button>
<Button>
<X> 620 </X>
<Y> 1004 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_3.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_3.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var EMAMemberID = EMAMemberID + "3"
Trim EMAMemberID 8
TimerReset
Refresh
StrLen EMAMemberID IDNumLen
If IDNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
</EventClick>
</Button>
<Button>
<X> 333 </X>
<Y> 1148 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_4.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_4.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var EMAMemberID = EMAMemberID + "4"
Trim EMAMemberID 8
TimerReset
Refresh
StrLen EMAMemberID IDNumLen
If IDNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
</EventClick>
</Button>
<Button>
<X> 477 </X>
<Y> 1148 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_5.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_5.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var EMAMemberID = EMAMemberID + "5"
Trim EMAMemberID 8
TimerReset
Refresh
StrLen EMAMemberID IDNumLen
If IDNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
</EventClick>
</Button>
<Button>
<X> 620 </X>
<Y> 1148 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_6.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_6.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var EMAMemberID = EMAMemberID + "6"
Trim EMAMemberID 8
TimerReset
Refresh
StrLen EMAMemberID IDNumLen
If IDNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
</EventClick>
</Button>
<Button>
<X> 333 </X>
<Y> 1292 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_7.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_7.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var EMAMemberID = EMAMemberID + "7"
Trim EMAMemberID 8
TimerReset
Refresh
StrLen EMAMemberID IDNumLen
If IDNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
</EventClick>
</Button>
<Button>
<X> 477 </X>
<Y> 1292 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_8.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_8.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var EMAMemberID = EMAMemberID + "8"
Trim EMAMemberID 8
TimerReset
Refresh
StrLen EMAMemberID IDNumLen
If IDNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
</EventClick>
</Button>
<Button>
<X> 620 </X>
<Y> 1292 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_9.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_9.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var EMAMemberID = EMAMemberID + "9"
Trim EMAMemberID 8
TimerReset
Refresh
StrLen EMAMemberID IDNumLen
If IDNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
</EventClick>
</Button>
<Button>
<X> 477 </X>
<Y> 1436 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_0.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_0.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Var EMAMemberID = EMAMemberID + "0"
Trim EMAMemberID 8
TimerReset
Refresh
StrLen EMAMemberID IDNumLen
If IDNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
</EventClick>
</Button>
<Button>
<X> 620 </X>
<Y> 1436 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_back-1.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_back-1.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Var Timeout = 0
Trim EMAMemberID -1
Var Tel_Confirm_State = "Invisible"
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 218 </X>
<Y> 1623 </Y>
<Filename> "ROOT/taobin_project/image/collectiing_en/bn_back.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing_en/bn_back.png" </FilenamePress>
<EventClick>
Var EMAMemberID = ""
Open "ROOT/taobin_project/xml/page_payment_cash.xml"
</EventClick>
</Button>
<Button>
<X> 577 </X>
<Y> 1623 </Y>
<Refresh> "Enable" </Refresh>
<State> Tel_Confirm_State </State>
<Filename> "ROOT/taobin_project/image/collectiing_en/bn_confirm.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing_en/bp_confirm.png" </FilenamePress>
<FilenameDisable> "ROOT/taobin_project/image/collectiing_en/bp_confirm.png" </FilenameDisable>
<EventClick>
Open "ROOT/taobin_project/xml/page_payment_cash.xml"
</EventClick>
</Button>
</Popup>

File diff suppressed because it is too large Load diff

View file

@ -95,7 +95,7 @@
000073 Pay now ซื้อเลย 现在付款 Pay now ဝယ်မယ် 000073 Pay now ซื้อเลย 现在付款 Pay now ဝယ်မယ်
Font=Kanit,Type=Regular,Size=36,Color=0x746253 Font=Kanit,Type=Regular,Size=36,Color=0x746253 Font=Kanit,Type=Regular,Size=36,Color=0x746253 Font=Kanit,Type=Regular,Size=36,Color=0x746254 Font=Kanit,Type=Regular,Size=36,Color=0x746253 Font=Kanit,Type=Regular,Size=36,Color=0x746253 Font=Kanit,Type=Regular,Size=36,Color=0x746253 Font=Kanit,Type=Regular,Size=36,Color=0x746254
Font=Kanit,Type=Regular,Size=36,Color=0xFFFFFF Font=Kanit,Type=Regular,Size=36,Color=0xFFFFFF Font=Kanit,Type=Regular,Size=36,Color=0xFFFFFF Font=Kanit,Type=Regular,Size=36,Color=0xFFFFFF Font=Kanit,Type=Regular,Size=36,Color=0xFFFFFF Font=Kanit,Type=Regular,Size=36,Color=0xFFFFFF Font=Kanit,Type=Regular,Size=36,Color=0xFFFFFF Font=Kanit,Type=Regular,Size=36,Color=0xFFFFFF
000074 Cancel ยกเลิก 取消 Cancel ပယ်ဖျက်ပါ 000074 Cancel ยกเลิก 取消 Cancel ပယ်ပါ
Font=Kanit,Type=Light,Size=36,Color=0xFF0000 Font=Kanit,Type=Light,Size=36,Color=0xFF0000 Font=Kanit,Type=Light,Size=36,Color=0xFF0000 Font=Kanit,Type=Light,Size=36,Color=0xFF0001 Font=Kanit,Type=Light,Size=36,Color=0xFF0000 Font=Kanit,Type=Light,Size=36,Color=0xFF0000 Font=Kanit,Type=Light,Size=36,Color=0xFF0000 Font=Kanit,Type=Light,Size=36,Color=0xFF0001
000075 Please choose drink type โปรดเลือกประเภทเครื่องดื่ม Please choose drink type 000075 Please choose drink type โปรดเลือกประเภทเครื่องดื่ม Please choose drink type
@ -138,6 +138,10 @@
000109 Just Right กำลังพอดี လိုက်လျော 000109 Just Right กำลังพอดี လိုက်လျော
000110 Dark เข้ม ပြင်း 000110 Dark เข้ม ပြင်း
000111 Darker เข้มกว่า ပိုပြင်း 000111 Darker เข้มกว่า ပိုပြင်း
Font=Kanit,Type=Regular,Size=36,Color=0xDE794E,LineHeight=46 Font=Kanit,Type=Regular,Size=36,Color=0xDE794E,LineHeight=46 Font=Kanit,Type=Regular,Size=36,Color=0x513C2F,LineHeight=46 Font=Kanit,Type=Regular,Size=36,Color=0xDE794E,LineHeight=46
000112 Alternative Milk นมทางเลือก အစားထိုးနို့
Font=Kanit,Type=Regular,Size=36,Color=0x513C2F,LineHeight=46 Font=Kanit,Type=Regular,Size=36,Color=0x513C2F,LineHeight=46 Font=Kanit,Type=Regular,Size=36,Color=0x513C2F,LineHeight=46 Font=Kanit,Type=Regular,Size=36,Color=0x513C2F,LineHeight=46
000113 Oat milk\n[100% PLANT-BASED from Australian oats, No artificial colour or flavors, No preservatives, rich in dietary fiber.###Font=KanitLight,Size=15] นมโอ๊ต\n[100% PLANT-BASED นมโอ๊ต 94% น้ำมันมะพร้าว 6% ทำจากโอ๊ตออสเตรเลีย ไม่แต่งรสหรือใส่สีสังเคราะห์ ไม่ใส่วัตถุกันเสีย###Font=KanitLight,Size=15] 添加 1 杯浓缩咖啡将使您的定制饮品的处理时间延长 1 分钟。 1 Shot of Espresso\n[1 minutes will be added to the process.###Font=KanitLight,Size=15] Oat နို့\n[Australian oats မှ၊ အတုမရှိ အရောင်နှင့် အရသာမရှိ၊ ကြာရှည်ခံဆေးမရှိ၊ အမျှင်ဓာတ်ကြွယ်ဝသော###Font=KanitLight,Size=15]
@ -214,16 +218,11 @@
Page_before_check_member
Font=Montserrat,Type=Bold,Size=48,Color=0x513C2F,Align=Center,LineHeight=72 Font=Kanit,Type=Bold,Size=48,Color=0x513C2F,Align=Center,LineHeight=72 Font=Kanit,Type=Medium,Size=64,Color=0x513C2F,Align=Center Font=Montserrat,Type=Bold,Size=64,Color=0x513C2F,Align=Center Font=Montserrat,Type=Bold,Size=64,Color=0x513C2F,Align=Center Font=Montserrat,Type=Bold,Size=64,Color=0x513C2F,Align=Center,LineHeight=86
002001 Please enter your mobile number\nto topup Tao bin credit. กรุณาใส่เบอร์มือถือ\nเพื่อเติมเต่าบินเครดิต Tao bin ခရက်ဒစ်ငွေဖြည့်ရန်\nသင့်မိုဘိုင်းနံပါတ်ကို ထည့်သွင်းပါ။
002002 Please enter your mobile number\nto check reward point. กรุณาใส่เบอร์มือถือ\nเพื่อเช็กคะแนนสะสมของคุณ ဆုလာဘ်အမှတ်ကို စစ်ဆေးရန်\nသင့်မိုဘိုင်းနံပါတ်ကို ထည့်သွင်းပါ။
002003 Please enter your mobile number\nto change password. กรุณาใส่เบอร์มือถือ\nเพื่อเปลี่ยนรหัสผ่าน စကားဝှက်ပြောင်းရန်\nသင့်မိုဘိုင်းနံပါတ်ကို ထည့်ပါ။
@ -741,12 +740,12 @@
800634 OK รับทราบ 800634 OK รับทราบ
800635 Main Disc Not Close!!! ฐานจานหมุนไม่ได้ล็อค!!! 800635 Main Disc Not Close!!! ฐานจานหมุนไม่ได้ล็อค!!!
800636 Main Disc lock may loose, Please lock Main Disc before Full Test. ฐานจานหมุนอาจหลวม หรือลืมล็อค 800636 Main Disc lock may loose, Please lock Main Disc before Full Test. ฐานจานหมุนอาจหลวม หรือลืมล็อค
800637 Powder Disc ตำแหน่งผง 800637 Powder ตำแหน่งผง
800638 ICE น้ำแข็ง 800638 ICE น้ำแข็ง
800639 Door Cup ประตูรับแก้ว 800639 Door cup ประตูรับแก้ว
800640 Powder Channel (falling powder!) ชุดผง (ช่องจ่าย) (ผงหล่น!) 800640 Powder Channel (falling powder!) ชุดผง (ช่องจ่าย) (ผงหล่น!)
800641 Arm Disc ตำแหน่งแขน 800641 Arm module switch ตำแหน่งแขน
800642 Door Lid/Straw ประตูรับหลอดรับฝา 800642 Door lid/straw ประตูรับหลอดรับฝา
800643 Whipper หัวชง 800643 Whipper หัวชง
800644 Start เริ่ม 800644 Start เริ่ม
800645 Cancel ยกเลิก 800645 Cancel ยกเลิก
@ -756,18 +755,18 @@
800649 Fail ล้มเหลว 800649 Fail ล้มเหลว
800650 Testing List : รายการทดสอบ : 800650 Testing List : รายการทดสอบ :
800651 Connection การสื่อสาร 800651 Connection การสื่อสาร
800652 Tray ถาดกาแฟ 800652 Coffee: tray ถาดกาแฟ
800653 ESP Module ตำแหนงเครื่องอัดกาแฟ 800653 Coffee: press ตำแหนงเครื่องอัดกาแฟ
800654 Main Gate Switch สวิทช์ประตู Main 800654 Front Door สวิทช์ประตู Main
800655 Module Arm Switch สวิทช์ Module แขน 800655 Module Disc สวิทช์ Module แขน
800656 Guard Bean Coffee Switch สวิทช์ Guard Bean กาแฟ 800656 Coffee: guard สวิทช์ Guard Bean กาแฟ
800657 Degree องศา 800657 Degree องศา
800658 Coarse หยาบ 800658 Coarse หยาบ
800659 Fine ละเอียด 800659 Fine ละเอียด
800660 Bucket กระบะ 800660 Bucket กระบะ
800661 Shutter ชัตเตอร์ 800661 Shutter ชัตเตอร์
800662 Motor แกนมอเตอร์ 800662 Motor แกนมอเตอร์
800663 Whipper clean water น้ำล้างหัวชง
Test (New UI) Test (New UI)
800700 Active ทำงาน 800700 Active ทำงาน
@ -997,7 +996,7 @@
1000002 Full test ทดสอบทั้งระบบ 1000002 Full test ทดสอบทั้งระบบ
1000003 All ทั้งหมด 1000003 All ทั้งหมด
1000004 Main Test ทดสอบหลัก 1000004 Main Test ทดสอบหลัก
1000005 Cup & Arms, Coffee, Whipper, Powder, Door cup, Door lid, Front door, Module disc แก้ว & แขน, กาแฟ, หัวชง, ผง, ประตูแก้ว, ประตูฝา, ประตูหน้า, ฐานจานหมุน 1000005 Cup & Arms, Coffee, Whipper, Powder, Door cup, Door lid, Front door, Module disc, Water clean whipper แก้ว & แขน, กาแฟ, หัวชง, ผง, ประตูแก้ว, ประตูฝา, ประตูหน้า, ฐานจานหมุน, น้ำล้างหัวชง
1000006 Ice Test ทดสอบน้ำแข็ง 1000006 Ice Test ทดสอบน้ำแข็ง
1000007 Bucket, Shutter, Motor ถัง, ชัตเตอร์, มอเตอร์ 1000007 Bucket, Shutter, Motor ถัง, ชัตเตอร์, มอเตอร์
1000008 Connection Test ทดสอบการสื่อสาร 1000008 Connection Test ทดสอบการสื่อสาร
@ -1075,7 +1074,7 @@
1300003 Beans module ชุดเมล็ดกาแฟ 1300003 Beans module ชุดเมล็ดกาแฟ
1300004 Bean tray ถาดใส่เมล็ดกาแฟ 1300004 Bean tray ถาดใส่เมล็ดกาแฟ
1300005 Switch tray : สวิตซ์ถาด : 1300005 Switch tray : สวิตซ์ถาด :
1300006 Check tray shutter ตรวจสอบชัตเตอร์ถาด 1300006 Check tray shutter ตรวจสอบชัตเตอร์ของถาด
1300007 Pay beans จ่ายถั่ว 1300007 Pay beans จ่ายถั่ว
1300008 1. Select beans 1. เลือกเมล็ดกาแฟ 1300008 1. Select beans 1. เลือกเมล็ดกาแฟ
1300009 2. Select direction 2. เลือกทิศทาง 1300009 2. Select direction 2. เลือกทิศทาง
@ -1088,7 +1087,7 @@
1300016 Brew time:sec เวลาชง: วินาที 1300016 Brew time:sec เวลาชง: วินาที
1300017 Test grind sizes ทดสอบขนาดบด 1300017 Test grind sizes ทดสอบขนาดบด
1300018 Coffee module type : ประเภทชุดกาแฟ : 1300018 Coffee module type : ประเภทชุดกาแฟ :
1300019 1. Select grind sizes 1. เลือกขนาดการบด 1300019 1. Select grind sizes 1. เลือกขนาดบด
1300020 More coarse หยาบขึ้น 1300020 More coarse หยาบขึ้น
1300021 More fine ละเอียดขึ้น 1300021 More fine ละเอียดขึ้น
1300022 2. Test grinding 2. ทดสอบการบด 1300022 2. Test grinding 2. ทดสอบการบด

Can't render this file because it has a wrong number of fields in line 21.

View file

@ -340,7 +340,7 @@ If BoxID = 105005 Then
Var WeekdayDiscountProEventOn = 0 Var WeekdayDiscountProEventOn = 0
Var OreoDiscount11Pro = 0 Var OreoDiscount11Pro = 0
Var HappyTriosPro = 0 Var HappyTriosPro = 0
Var 12Day12MenuPro = 0 Var 12Day12MenuPro = 1
Var WinterWonderPro = 1 Var WinterWonderPro = 1
Var ThickTeaByBrewerPro = 1 Var ThickTeaByBrewerPro = 1

View file

@ -14,6 +14,16 @@
Var IndoQR = 0 Var IndoQR = 0
Var EnableCashOtherAll = "true"
Var TWN_CashOtherEnable = ""
Var KBA_CashOtherEnable = ""
Var LPY_CashOtherEnable = ""
Var AIR_CashOtherEnable = ""
Var MAX_CashOtherEnable = ""
Var WEC_CashOtherEnable = ""
Var ALP_CashOtherEnable = ""
Var UNP_CashOtherEnable = ""
Var ACU_CashOtherEnable = ""
Var GetPayInfoFlag = 0 Var GetPayInfoFlag = 0
@ -132,6 +142,8 @@
Var Seeker.IntVendingCredit = 0 Var Seeker.IntVendingCredit = 0
Var EMAMemberID = ""
Var Seeker.StoreCreditFlag = 0 Var Seeker.StoreCreditFlag = 0
Var Seeker.pageStoreCredit0 = 0 Var Seeker.pageStoreCredit0 = 0
Var Seeker.TNumberTaobinCredit = "" Var Seeker.TNumberTaobinCredit = ""

View file

@ -84,12 +84,17 @@
; Below original ; Below original
; On open ; On open
Var popup_cancel_button_y = 1345
Var PopupCancelButtonState = "Invisible"
Var cancelState = "Invisible" Var cancelState = "Invisible"
Var CameraState = "Invisible" Var CameraState = "Invisible"
Var EMAEnterNumberButtonState = "Invisible"
Var EMAPopupSuccessState = "Invisible"
Var EMAPopupErrorState = "Invisible"
Var alphaState = "Invisible" Var alphaState = "Invisible"
Var alphaState2 = "Invisible" Var alphaState2 = "Invisible"
@ -427,6 +432,87 @@
Var PayState5 = "Invisible" Var PayState5 = "Invisible"
Var PayState6 = "Invisible" Var PayState6 = "Invisible"
EndIf EndIf
If EMAMemberID = "" Then
Else
Var CameraState = "Invisible"
Var alphaState = "Enable"
Var PopupCancelButtonState = "Enable"
Var EMAEnterNumberButtonState = "Disable"
Var popup_cancel_button_y = 1390
If CoinInFlag = 0 Then
If CancelFlag = 0 Then
Var QR_POPUP = "/img_popup_ema.png"
Var QRCODE99 = ""
Var LOADING_STATE = "Enable"
VendingQR ON
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + Seeker.ExtendData
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
Var TelephoneNumberQR = "0899999999"
Var ServiceType = "coffee"
Var ECommerceQR = ""
Var ECommerceQR = ECommerceQR + PriceDrink
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + DiscountDrink
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + SessionID2
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + SelectDrink
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + "AUB:2:"
Var ECommerceQR = ECommerceQR + EMAMemberID
Var ECommerceQR = ECommerceQR + "/"
If Seeker.IntVendingCampaign > 0 Then
Var ECommerceQR = ECommerceQR + Seeker.VendingCode
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.CodeNumber
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.VendingCampaignRI3
EndIf
If Seeker.IntVendingCredit > 0 Then
If Seeker.IntVendingCampaign > 0 Then
Var ECommerceQR = ECommerceQR + "|"
EndIf
Var ECommerceQR = ECommerceQR + "CRD"
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.TNumberTaobinCredit
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.IntVendingCredit
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + PointCrm
EndIf
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var AccountType = "new"
Var testservice = "kbank"
Var tc = ""
Var GetScore = ""
Var OperatorName = ""
Var SessionID = ""
Var PayDetail2 = Seeker.PayDetail2
GetPayInfo TelephoneNumberQR ECommerceQR ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
Var ReqPayInfoFlag = 6
Refresh
EndIf
EndIf
EndIf
</EventOpen> </EventOpen>
<EventActionOk> <EventActionOk>
@ -451,10 +537,12 @@
VendingQR OFF VendingQR OFF
CoinVending OFF CoinVending OFF
If ReqPayInfoFlag2 = 0 Then
Var Seeker.CampaignPayChanel = "unknown"
EndIf
If ReqPayInfoFlag2 = 1 Then If ReqPayInfoFlag2 = 1 Then
DEBUGVAR VendingBank DEBUGVAR VendingBank
Var Seeker.CampaignPayChanel = "malaymbb" Var Seeker.CampaignPayChanel = "fatzebra"
EndIf EndIf
If ReqPayInfoFlag2 = 2 Then If ReqPayInfoFlag2 = 2 Then
Var Seeker.CampaignPayChanel = "shopee" Var Seeker.CampaignPayChanel = "shopee"
@ -468,6 +556,9 @@
If ReqPayInfoFlag2 = 5 Then If ReqPayInfoFlag2 = 5 Then
Var Seeker.CampaignPayChanel = "linepay" Var Seeker.CampaignPayChanel = "linepay"
EndIf EndIf
If ReqPayInfoFlag2 = 6 Then
Var Seeker.CampaignPayChanel = "aubpay"
EndIf
@ -514,57 +605,6 @@
EndIf EndIf
If VendingQRTypeResult = "MBB:2" Then
Var CashTextWarning = ""
Var QRErrorState = "Invisible"
Var QRCODE99KBANK = SessionID
Var QRCODE99KBANK = QRCODE99KBANK + Ext1a
SAVELOG Ext1a
SAVELOG QRCODE99KBANK
Var QRCODE99KBANK = QRCODE99KBANK + Ext21
Var QRCODETMP = QRCODE99KBANK
Var ReqPayInfoFlag = 0
Var ReqPayInfoFlag2 = 1
SAVELOG QRCODE99KBANK
SAVELOG Ext21
Var QRCODE99 = QRCODE99KBANK
Var LOADING_STATE = "Invisible"
If show_eng = "true" Then
PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Please_scan_to_pay_via_mobile.mp3"
Else
PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_thai/Please_scan_to_pay_via_mobile.mp3"
EndIf
EndIf
If VendingQRTypeResult = "IND:2" Then
Var CashTextWarning = ""
Var QRErrorState = "Invisible"
Var QRCODE99KBANK = SessionID
Var QRCODE99KBANK = QRCODE99KBANK + Ext1a
SAVELOG Ext1a
SAVELOG QRCODE99KBANK
Var QRCODE99KBANK = QRCODE99KBANK + Ext21
Var QRCODETMP = QRCODE99KBANK
Var ReqPayInfoFlag = 0
Var ReqPayInfoFlag2 = 1
SAVELOG QRCODE99KBANK
SAVELOG Ext21
Var QRCODE99 = QRCODE99KBANK
Var LOADING_STATE = "Invisible"
If show_eng = "true" Then
PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Please_scan_to_pay_via_e-wallet.mp3"
Else
PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_thai/Please_scan_to_pay_via_e-wallet.mp3"
EndIf
EndIf
EndIf EndIf
If ReqPayInfoFlag = 2 Then If ReqPayInfoFlag = 2 Then
@ -671,27 +711,37 @@
EndIf EndIf
EndIf EndIf
;If ReqPayInfoFlag = 6 Then If ReqPayInfoFlag = 6 Then
; If VendingQRTypeResult = "FZB:2" Then
; Var CashTextWarning = ""
; Var QRErrorState = "Invisible"
; Var QRCODE99Shoppy = SessionID
; Var QRCODE99Shoppy = QRCODE99Shoppy + Ext1a
; SAVELOG Ext1a
; SAVELOG QRCODE99Shoppy
; Var QRCODE99Shoppy = QRCODE99Shoppy + Ext21
; Var ReqPayInfoFlag = 0
; Var ReqPayInfoFlag2 = 5
; SAVELOG QRCODE99Shoppy
; SAVELOG Ext21
; Var employeeName = "Jhon" SPLIT ECommerceQR "/" 6 MemberData
; Var
; ;Var QRCODE99 = QRCODE99Shoppy If VendingQRTypeResult = "AUB" Then
; Var LOADING_STATE = "Invisible" Var CashTextWarning = ""
; EndIf Var QRErrorState = "Invisible"
;EndIf Var ReqPayInfoFlag = 0
Var ReqPayInfoFlag2 = 6
SAVELOG QRCODE99Shoppy
SAVELOG Ext21
SPLIT MemberData ":" 1 _EMAMemberName
SPLIT MemberData ":" 2 EMAMemberSurname
SPLIT MemberData ":" 3 _EMAMemberBalance
Var EMAMemberName !assigned SprintFmt("[%s]", _EMAMemberName)
Var EMAMemberBalance !assigned SprintFmt("Remain Balance: $%s", _EMAMemberBalance)
DEBUGVAR EMAMemberName
DEBUGVAR EMAMemberSurname
DEBUGVAR EMAMemberBalance
Var QR_POPUP = "/img_popup_ema_success.png"
Var EMAPopupSuccessState = "Enable"
Var EMAEnterNumberButtonState = "Invisible"
Var PopupCancelButtonState = "Invisible"
Var EMAEnterNumberButtonState = "Invisible"
EndIf
EndIf
Else Else
Var PayInfoCFlag = 1 Var PayInfoCFlag = 1
@ -762,12 +812,22 @@
Var LOADING_STATE = "Invisible" Var LOADING_STATE = "Invisible"
EndIf EndIf
EndIf EndIf
If ReqPayInfoFlag = 5 Then
Var QRErrorFlag = 1
If alphaState = "Enable" Then
Var QRErrorImg = "/QRError.png"
Var QRErrorState = "Enable"
Var LOADING_STATE = "Invisible"
EndIf
EndIf
If ReqPayInfoFlag = 6 Then If ReqPayInfoFlag = 6 Then
Var QRErrorFlag = 1 Var QRErrorFlag = 1
If alphaState = "Enable" Then If alphaState = "Enable" Then
Var QRErrorImg = "/QRError.png" Var QR_POPUP = "/img_popup_ema_error.png"
Var QRErrorState = "Enable" Var EMAPopupErrorState = "Enable"
Var EMAEnterNumberButtonState = "Invisible"
Var LOADING_STATE = "Invisible" Var LOADING_STATE = "Invisible"
Var popup_cancel_button_y = 1225
EndIf EndIf
EndIf EndIf
Else Else
@ -806,6 +866,7 @@
Var VendingCashless = "-" Var VendingCashless = "-"
Var LOADING_STATE = "Enable" Var LOADING_STATE = "Enable"
Var alphaState = "Enable" Var alphaState = "Enable"
Var PopupCancelButtonState = "Enable"
Var RemainAmountX = PayAmount - Seeker.IntVendingCampaign Var RemainAmountX = PayAmount - Seeker.IntVendingCampaign
CashlessPay RemainAmountX CreditCardRef CashlessPay RemainAmountX CreditCardRef
Var CashlessPayFlag = 1 Var CashlessPayFlag = 1
@ -851,26 +912,25 @@
Var Timeout = Timeout + 1 Var Timeout = Timeout + 1
If Timeout >= 120 Then If Timeout >= 120 Then
Var alphaState = "Invisible" Var alphaState = "Invisible"
Var PopupCancelButtonState = "Invisible"
Var CameraState = "Invisible"
Var EMAEnterNumberButtonState = "Invisible"
Var EMAPopupErrorState = "Invisible"
If CameraState = "Enable" Then If RoadShow = "true" Then
Var CameraState = "Invisible" Else
EndIf Var PayState3 = "Disable"
Var PayState5 = "Disable"
Var PayState6 = "Disable"
If RoadShow = "true" Then EndIf
Else
Var PayState3 = "Disable"
Var PayState5 = "Disable"
Var PayState6 = "Disable"
EndIf
Var LOADING_STATE = "Invisible" Var LOADING_STATE = "Invisible"
Var QRErrorState = "Invisible" Var QRErrorState = "Invisible"
Var CreditCardErrorState = "Invisible" Var CreditCardErrorState = "Invisible"
EndIf EndIf
If Timeout > 210 Then If Timeout > 210 Then
@ -1228,6 +1288,7 @@
If CoinInFlag = 0 Then If CoinInFlag = 0 Then
;VendingQR OFF ;VendingQR OFF
Var alphaState = "Invisible" Var alphaState = "Invisible"
Var PopupCancelButtonState = "Invisible"
EndIf EndIf
@ -1292,10 +1353,6 @@
If CoinInOK = 0 Then If CoinInOK = 0 Then
Var RemainAmount = PayAmount - CoinAmount Var RemainAmount = PayAmount - CoinAmount
Var RemainAmount = RemainAmount - Seeker.IntVendingCampaign Var RemainAmount = RemainAmount - Seeker.IntVendingCampaign
Var RemainAmount = RemainAmount - Seeker.IntVendingCredit Var RemainAmount = RemainAmount - Seeker.IntVendingCredit
@ -1388,82 +1445,90 @@
DEBUGVAR scanresult DEBUGVAR scanresult
DEBUGVAR scanmsg DEBUGVAR scanmsg
;If scanresult = "true" Then
; Var employeeCode = scanmsg
; Open "ROOT/taobin_project/inter/aus/xml/page_payment_employee_ping
;Else
;EndIf
If scanresult = "true" Then If scanresult = "true" Then
If Timeout < 120 Then
If CoinInFlag = 0 Then
If CancelFlag = 0 Then
Var QR_POPUP = "/img_popup_AUS_QR.png"
Var QRCODE99 = ""
Var LOADING_STATE = "Enable" StrLen scanmsg textLen
If textLen = 8 Then
VendingQR ON Var EMAMemberID = scanmsg
Var SessionID2 = SelectSlot + ":" If Timeout < 120 Then
Var SessionID2 = SessionID2 + Seeker.ExtendData If CoinInFlag = 0 Then
If CancelFlag = 0 Then
Var QR_POPUP = "/img_popup_ema.png"
Var QRCODE99 = ""
Var CreditAmount1 = "" Var LOADING_STATE = "Enable"
Var ServiceAmountFlow = "" Var EMAEnterNumberButtonState = "Disable"
Var TelephoneNumberQR = "0899999999"
Var ServiceType = "coffee"
Var ECommerceQR = ""
Var ECommerceQR = ECommerceQR + PriceDrink
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + DiscountDrink
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + SessionID2
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + SelectDrink
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + "FZB:2/"
If Seeker.IntVendingCampaign > 0 Then VendingQR ON
Var ECommerceQR = ECommerceQR + Seeker.VendingCode
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.CodeNumber
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.VendingCampaignRI3
EndIf
If Seeker.IntVendingCredit > 0 Then Var SessionID2 = SelectSlot + ":"
If Seeker.IntVendingCampaign > 0 Then Var SessionID2 = SessionID2 + Seeker.ExtendData
Var ECommerceQR = ECommerceQR + "|"
EndIf Var CreditAmount1 = ""
Var ECommerceQR = ECommerceQR + "CRD" Var ServiceAmountFlow = ""
Var ECommerceQR = ECommerceQR + ":" Var TelephoneNumberQR = "0899999999"
Var ECommerceQR = ECommerceQR + Seeker.TNumberTaobinCredit Var ServiceType = "coffee"
Var ECommerceQR = ECommerceQR + ":" Var ECommerceQR = ""
Var ECommerceQR = ECommerceQR + Seeker.IntVendingCredit Var ECommerceQR = ECommerceQR + PriceDrink
Var ECommerceQR = ECommerceQR + ":" Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + PointCrm Var ECommerceQR = ECommerceQR + DiscountDrink
EndIf Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + SessionID2
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + SelectDrink
Var ECommerceQR = ECommerceQR + "/"
Var ECommerceQR = ECommerceQR + "AUB:2:"
Var ECommerceQR = ECommerceQR + EMAMemberID
Var ECommerceQR = ECommerceQR + "/"
If Seeker.IntVendingCampaign > 0 Then
Var ECommerceQR = ECommerceQR + Seeker.VendingCode
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.CodeNumber
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.VendingCampaignRI3
EndIf
If Seeker.IntVendingCredit > 0 Then
If Seeker.IntVendingCampaign > 0 Then
Var ECommerceQR = ECommerceQR + "|"
EndIf
Var ECommerceQR = ECommerceQR + "CRD"
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.TNumberTaobinCredit
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + Seeker.IntVendingCredit
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + PointCrm
EndIf
Var ServiceParameter = "max" Var ServiceParameter = "max"
Var ServiceCharge = 0 Var ServiceCharge = 0
Var AccountType = "new" Var AccountType = "new"
Var testservice = "kbank" Var testservice = "kbank"
Var tc = "" Var tc = ""
Var GetScore = "" Var GetScore = ""
Var OperatorName = "" Var OperatorName = ""
Var SessionID = "" Var SessionID = ""
Var PayDetail2 = Seeker.PayDetail2 Var PayDetail2 = Seeker.PayDetail2
GetPayInfo TelephoneNumberQR ECommerceQR ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc GetPayInfo TelephoneNumberQR ECommerceQR ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
Var ReqPayInfoFlag = 6 Var ReqPayInfoFlag = 6
Refresh Refresh
EndIf
EndIf EndIf
EndIf EndIf
Else
Var QR_POPUP = "/img_popup_ema_error.png"
Var EMAPopupErrorState = "Enable"
Var alphaState = "Enable"
Var LOADING_STATE = "Invisible"
Var EMAEnterNumberButtonState = "Invisible"
Var popup_cancel_button_y = 1225
EndIf EndIf
Else
Var scanmsg = "Please try agin"
EndIf EndIf
Var CameraState = "Invisible" Var CameraState = "Invisible"
@ -1565,6 +1630,7 @@ If alphaState = "Invisible" Then
If CancelFlag = 0 Then If CancelFlag = 0 Then
Var QR_POPUP = "/img_popup8-AUS.png" Var QR_POPUP = "/img_popup8-AUS.png"
Var alphaState = "Enable" Var alphaState = "Enable"
Var PopupCancelButtonState = "Enable"
Coin CARD Coin CARD
EndIf EndIf
EndIf EndIf
@ -1636,9 +1702,10 @@ EndIf
</Button> </Button>
<Button> <Button>
<X> 328 </X> <X> 552 </X>
<Y> 1499 </Y> <Y> 1499 </Y>
<State> PayState3</State> ;<State> PayState3</State>
<State> "Invisible" </State>
<Filename> "ROOT/taobin_project/inter/aus/image/payment_cash/bn_pay_qrcode.png" </Filename> <Filename> "ROOT/taobin_project/inter/aus/image/payment_cash/bn_pay_qrcode.png" </Filename>
<FilenamePress> "ROOT/taobin_project/inter/aus/image/payment_cash/bp_pay_qrcode.png" </FilenamePress> <FilenamePress> "ROOT/taobin_project/inter/aus/image/payment_cash/bp_pay_qrcode.png" </FilenamePress>
<FilenameDisable> "ROOT/taobin_project/inter/aus/image/payment_cash/bd_pay_qrcode.png" </FilenameDisable> <FilenameDisable> "ROOT/taobin_project/inter/aus/image/payment_cash/bd_pay_qrcode.png" </FilenameDisable>
@ -1658,6 +1725,7 @@ EndIf
Var FlagQROpened = 1 Var FlagQROpened = 1
Var alphaState = "Enable" Var alphaState = "Enable"
Var PopupCancelButtonState = "Enable"
VendingQR ON VendingQR ON
@ -1726,7 +1794,7 @@ EndIf
<Button> <Button>
<X> 552 </X> <X> 552 </X>
<Y> 1499 </Y> <Y> 1499 </Y>
<State> "Invisible" </State> <State> "Enable" </State>
<Filename> Var( DirImage + "/bn_pay_with_comingSoon.png") </Filename> <Filename> Var( DirImage + "/bn_pay_with_comingSoon.png") </Filename>
<FilenamePress> Var( DirImage + "/bn_pay_with_comingSoon.png") </FilenamePress> <FilenamePress> Var( DirImage + "/bn_pay_with_comingSoon.png") </FilenamePress>
<FilenameDisable> Var( DirImage + "/bn_pay_with_comingSoon.png") </FilenameDisable> <FilenameDisable> Var( DirImage + "/bn_pay_with_comingSoon.png") </FilenameDisable>
@ -1738,7 +1806,7 @@ EndIf
</Button> </Button>
<Button> <Button>
<X> 552 </X> <X> 328 </X>
<Y> 1499 </Y> <Y> 1499 </Y>
<State> PayState6 </State> <State> PayState6 </State>
;<State> "Invisible" </State> ;<State> "Invisible" </State>
@ -1759,12 +1827,18 @@ EndIf
Var FlagQROpened = 1 Var FlagQROpened = 1
Var alphaState = "Enable" Var alphaState = "Enable"
Var PopupCancelButtonState = "Enable"
Var EMAPopupErrorState = "Invisible"
Var scanresult = "" Var scanresult = ""
Var scanmsg = "" Var scanmsg = ""
Var EMAMemberID = ""
INITSCANQR INITSCANQR
Var CameraState = "Enable" Var CameraState = "Enable"
Var EMAEnterNumberButtonState = "Enable"
Var popup_cancel_button_y = 1390
Refresh Refresh
EndIf EndIf
@ -1878,19 +1952,92 @@ EndIf
</Image> </Image>
<CameraX> <CameraX>
<X> 50 </X> <X> 120 </X>
<Y> 900 </Y> <Y> 900 </Y>
<Name>"usbfront"</Name> <Name>"usbfront"</Name>
<Width> 1000 </Width> <Width> 850 </Width>
<Height> 1000 </Height> <Height> 800 </Height>
<State> CameraState </State> <State> CameraState </State>
</CameraX> </CameraX>
<Button>
<X> 398 </X>
<Y> 1275 </Y>
<State> EMAEnterNumberButtonState </State>
<Filename> "ROOT/taobin_project/inter/aus/image/payment_cash/bn_ema_enter_code.png" </Filename>
<FilenamePress> "ROOT/taobin_project/inter/aus/image/payment_cash/bp_ema_enter_code.png" </FilenamePress>
<FilenamePress> "ROOT/taobin_project/inter/aus/image/payment_cash/bd_ema_enter_code.png" </FilenamePress>
<EventClick>
Open "ROOT/taobin_project/inter/aus/xml/page_payment_with_ema.lxml"
</EventClick>
</Button>
<Text>
<X> 249 </X>
<Y> 1186 </Y>
<State> EMAPopupSuccessState </State>
<Width> 583 </Width>
<Font> KanitLightTTF </Font>
<Size> 40 </Size>
<Color> 0x513C2F </Color>
<Align> center-vertical-horizontal </Align>
<Value> EMAMemberName </Value>
</Text>
<Text>
<X> 249 </X>
<Y> 1233 </Y>
<State> EMAPopupSuccessState </State>
<Width> 583 </Width>
<Font> KanitLightTTF </Font>
<Size> 40 </Size>
<Color> 0x513C2F </Color>
<Align> center-vertical-horizontal </Align>
<Value> EMAMemberBalance </Value>
</Text>
<Button>
<X> 402 </X>
<Y> 1080 </Y>
<State> EMAPopupErrorState </State>
<Filename> "ROOT/taobin_project/inter/aus/image/payment_cash/bn_try_again.png" </Filename>
<FilenamePress> "ROOT/taobin_project/inter/aus/image/payment_cash/bp_try_again.png" </FilenamePress>
<FilenameDisable> "ROOT/taobin_project/inter/aus/image/payment_cash/bd_try_again.png" </FilenameDisable>
<EventClick>
If Timeout < 120 Then
If CoinInFlag = 0 Then
If CancelFlag = 0 Then
Var QR_POPUP = "/img_popup_ema.png"
Var QRCODE99 = ""
Var FlagQROpened = 1
Var alphaState = "Enable"
Var PopupCancelButtonState = "Enable"
Var EMAPopupErrorState = "Invisible"
Var scanresult = ""
Var scanmsg = ""
Var EMAMemberID = ""
INITSCANQR
Var CameraState = "Enable"
Var EMAEnterNumberButtonState = "Enable"
Var popup_cancel_button_y = 1390
Refresh
EndIf
EndIf
EndIf
</EventClick>
</Button>
<Button> <Button>
<X> 438 </X> <X> 438 </X>
<Y> 1345 </Y> <Y> popup_cancel_button_y </Y>
<State> alphaState </State> <State> PopupCancelButtonState </State>
<Filename> Var( DirImage + "/bn_cancel.png" )</Filename> <Filename> Var( DirImage + "/bn_cancel.png" )</Filename>
<FilenamePress> Var( DirImage + "/bp_cancel.png" )</FilenamePress> <FilenamePress> Var( DirImage + "/bp_cancel.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound> <Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
@ -1901,8 +2048,14 @@ EndIf
Var QRErrorState = "Invisible" Var QRErrorState = "Invisible"
Var CreditCardErrorState = "Invisible" Var CreditCardErrorState = "Invisible"
Var alphaState = "Invisible" Var alphaState = "Invisible"
Var PopupCancelButtonState = "Invisible"
Var CameraState = "Invisible" Var CameraState = "Invisible"
Var EMAEnterNumberButtonState = "Invisible"
Var EMAPopupErrorState = "Invisible"
Var QRCODE99 = "" Var QRCODE99 = ""
Var EMAMemberID = ""
Var popup_cancel_button_y = 1345
If CashlessPayFlag = 1 Then If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0 Var CashlessPayFlag = 0

View file

@ -1,6 +1,6 @@
If From12Day12MenuPro = 1 Then If From12Day12MenuPro = 1 Then
Var PriceDiff = OriginalPrice - PromotionPriceDrink Var PriceDiff = PriceDrink - PromotionPriceDrink
Var Seeker.VendingCode = "PMD" + PriceDiff Var Seeker.VendingCode = "PMD" + PriceDiff
Var Seeker.CodeNumber = "00000000" Var Seeker.CodeNumber = "00000000"
Var Seeker.CodeChannel = 1 Var Seeker.CodeChannel = 1