Merge branch 'master' of ssh://forthrd.ddns.net:2222/1TBHDD/ikong/taobin_project

This commit is contained in:
kong 2022-07-13 09:44:37 +07:00
commit f11db1069e
45 changed files with 1572 additions and 37 deletions

Binary file not shown.

After

Width:  |  Height:  |  Size: 3.1 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 4.5 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 4.5 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 6.4 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 3.9 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 5.5 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 148 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 137 KiB

After

Width:  |  Height:  |  Size: 136 KiB

Before After
Before After

Binary file not shown.

After

Width:  |  Height:  |  Size: 146 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 6.4 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 6.4 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 5 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 148 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 137 KiB

After

Width:  |  Height:  |  Size: 136 KiB

Before After
Before After

Binary file not shown.

After

Width:  |  Height:  |  Size: 146 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 7.1 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 7.2 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 5.7 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 7 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 5.1 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 8.1 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 5.3 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 6.6 KiB

After

Width:  |  Height:  |  Size: 4.3 KiB

Before After
Before After

Binary file not shown.

Before

Width:  |  Height:  |  Size: 8.3 KiB

After

Width:  |  Height:  |  Size: 5.8 KiB

Before After
Before After

Binary file not shown.

Before

Width:  |  Height:  |  Size: 8.3 KiB

After

Width:  |  Height:  |  Size: 5.6 KiB

Before After
Before After

Binary file not shown.

Before

Width:  |  Height:  |  Size: 6.3 KiB

After

Width:  |  Height:  |  Size: 4.7 KiB

Before After
Before After

Binary file not shown.

Before

Width:  |  Height:  |  Size: 9 KiB

After

Width:  |  Height:  |  Size: 6.4 KiB

Before After
Before After

Binary file not shown.

Before

Width:  |  Height:  |  Size: 9 KiB

After

Width:  |  Height:  |  Size: 6 KiB

Before After
Before After

View file

@ -513,7 +513,7 @@
EndIf EndIf
DEBUGVAR NETCORE_EVENT_CNT_X ;DEBUGVAR NETCORE_EVENT_CNT_X
If NCIC07_EVENT_CNT = NETCORE_EVENT_CNT_TMP Then If NCIC07_EVENT_CNT = NETCORE_EVENT_CNT_TMP Then

View file

@ -661,6 +661,7 @@
If AddData = 1 Then If AddData = 1 Then
Var Cid = 26
AddData Cid Seeker.TNumberTaobinMember BmiYear PointCrm GetScore AddData Cid Seeker.TNumberTaobinMember BmiYear PointCrm GetScore
EndIf EndIf
@ -762,6 +763,7 @@
Var ErrTimeout = 1 Var ErrTimeout = 1
If AddData = 1 Then If AddData = 1 Then
Var Cid = 26
AddData Cid Seeker.TNumberTaobinMember BmiYear PointCrm GetScore AddData Cid Seeker.TNumberTaobinMember BmiYear PointCrm GetScore
EndIf EndIf

View file

@ -535,6 +535,7 @@
EndIf EndIf
If AddData = 1 Then If AddData = 1 Then
Var Cid = 26
AddData Cid Seeker.TNumberTaobinMember BmiYear PointCrm GetScore AddData Cid Seeker.TNumberTaobinMember BmiYear PointCrm GetScore
EndIf EndIf
@ -641,6 +642,7 @@
Var ErrTimeout = 1 Var ErrTimeout = 1
If AddData = 1 Then If AddData = 1 Then
Var Cid = 26
AddData Cid Seeker.TNumberTaobinMember BmiYear PointCrm GetScore AddData Cid Seeker.TNumberTaobinMember BmiYear PointCrm GetScore
EndIf EndIf

View file

@ -32,6 +32,28 @@
Var Seeker.FromConsent = 0 Var Seeker.FromConsent = 0
Var ParamCP = ""
Var ParamCP = ParamCP + Seeker.CampaignPPrice
Var ParamCP = ParamCP + "/"
Var ParamCP = ParamCP + Seeker.CampaignPCode
Var ParamCP = ParamCP + "/"
Var ParamCP = ParamCP + Seeker.CampaignPayChanel
Var ParamCP = ParamCP + "/"
Var CampaingRef = ""
GenHashWithTimeStamp CampaingRef
Var CampaingRef1 = ""
Var CampaingRef2 = ""
SUBSTRING CampaingRef 0 6 CampaingRef1
SUBSTRING CampaingRef 12 18 CampaingRef2
Var CampaingRef1 = CampaingRef1 + CampaingRef2
Var ParamCP = ParamCP + CampaingRef1
If Seeker.TNumberTaobinCredit = "" Then If Seeker.TNumberTaobinCredit = "" Then
@ -64,7 +86,7 @@
Var TelephoneNumber = Seeker.TNumberTaobinCredit Var TelephoneNumber = Seeker.TNumberTaobinCredit
Var StepGetPoint = 0 Var StepGetPoint = 1
Var PdpaAsk = 0 Var PdpaAsk = 0
@ -75,7 +97,10 @@
SAVELOG "collect_point1-p71." SAVELOG "collect_point1-p71."
Var TelephoneNumberX = TelephoneNumber Var TelephoneNumberX = TelephoneNumber
GetAccInfo TelephoneNumber OperatorTemp CreditAmount OperatorStatus AccountType GetScore tc ;GetAccInfo TelephoneNumber OperatorTemp CreditAmount OperatorStatus AccountType GetScore tc
Var Param1 = TelephoneNumber + "/"
Var Param1 = Param1 + ParamCP
GETACCEXT Param1 23
Open "ROOT/taobin_project/xml/page_collect_point_2.xml" Open "ROOT/taobin_project/xml/page_collect_point_2.xml"
EndIf EndIf
@ -616,7 +641,7 @@
<EventClick> <EventClick>
If Tel_Confirm_Flag = 1 Then If Tel_Confirm_Flag = 1 Then
Var StepGetPoint = 0 Var StepGetPoint = 1
Var PdpaAsk = 0 Var PdpaAsk = 0
@ -627,7 +652,13 @@
SAVELOG "collect_point1-p583." SAVELOG "collect_point1-p583."
Var TelephoneNumberX = TelephoneNumber Var TelephoneNumberX = TelephoneNumber
GetAccInfo TelephoneNumber OperatorTemp CreditAmount OperatorStatus AccountType GetScore tc ;GetAccInfo TelephoneNumber OperatorTemp CreditAmount OperatorStatus AccountType GetScore tc
Var Param1 = TelephoneNumber + "/"
Var Param1 = Param1 + ParamCP
GETACCEXT Param1 23
Open "ROOT/taobin_project/xml/page_collect_point_2.xml" Open "ROOT/taobin_project/xml/page_collect_point_2.xml"
EndIf EndIf

View file

@ -17,13 +17,15 @@
EndIf EndIf
Var TaobinLevel = 0 Var TaobinLevel = 0
Var Point2X = 0
Var Seeker.TaobinErrorNetwork = 0 Var Seeker.TaobinErrorNetwork = 0
If PayOfflineMode = 1 Then If PayOfflineMode = 1 Then
Var Seeker.TaobinErrorNetwork = 1 Var Seeker.TaobinErrorNetwork = 1
Var Seeker.PointTaobinStr = "" + PayAmount ;Var Seeker.PointTaobinStr = "" + PayAmount
Var Seeker.PointTaobinStr = Seeker.PointTaobinStr + "/1/0" ;Var Seeker.PointTaobinStr = Seeker.PointTaobinStr + "/1/0"
Var Seeker.PointTaobinStr = ParamCP
Var TelephoneNumber = TelephoneNumberX Var TelephoneNumber = TelephoneNumberX
Var Seeker.TNumberTaobinMember= TelephoneNumber Var Seeker.TNumberTaobinMember= TelephoneNumber
Open "ROOT/taobin_project/xml/page_collect_point_error.xml" Open "ROOT/taobin_project/xml/page_collect_point_error.xml"
@ -48,8 +50,9 @@
Var CoffeePoint = 1 Var CoffeePoint = 1
Var Seeker.TaobinErrorNetwork = 1 Var Seeker.TaobinErrorNetwork = 1
Var Seeker.PointTaobinStr = "" + PayAmount ;Var Seeker.PointTaobinStr = "" + PayAmount
Var Seeker.PointTaobinStr = Seeker.PointTaobinStr + "/1/0" ;Var Seeker.PointTaobinStr = Seeker.PointTaobinStr + "/1/0"
Var Seeker.PointTaobinStr = ParamCP
Var TelephoneNumber = TelephoneNumberX Var TelephoneNumber = TelephoneNumberX
@ -87,12 +90,15 @@
EndIf EndIf
Else Else
If Ext1a = "" Then If Ext1a = "" Then
Var Seeker.TaobinErrorNetwork = 1 Var Seeker.TaobinErrorNetwork = 1
Var Seeker.PointTaobinStr = "" + PayAmount ;Var Seeker.PointTaobinStr = "" + PayAmount
Var Seeker.PointTaobinStr = Seeker.PointTaobinStr + "/1/0" ;Var Seeker.PointTaobinStr = Seeker.PointTaobinStr + "/1/0"
Var Seeker.PointTaobinStr = ParamCP
Var TelephoneNumber = TelephoneNumberX Var TelephoneNumber = TelephoneNumberX
Var Seeker.TNumberTaobinMember = TelephoneNumber Var Seeker.TNumberTaobinMember = TelephoneNumber
Open "ROOT/taobin_project/xml/page_collect_point_error.xml" Open "ROOT/taobin_project/xml/page_collect_point_error.xml"
@ -105,23 +111,45 @@
Var TaobinCoupons = Ext1g Var TaobinCoupons = Ext1g
Var TaobinExpire = Ext1f Var TaobinExpire = Ext1f
Var TaobinLevel = Ext1e Var TaobinLevel = Ext1e
Var TaobinPDPA = Ext1h
DEBUGVAR TaobinPDPA
Var PointTaobinTmp = Ext1i
DEBUGVAR PointTaobinTmp
INT PointTaobinTmp
INT TaobinPDPA
Var TelephoneNumber = TelephoneNumberX Var TelephoneNumber = TelephoneNumberX
Var TNumberTaobinMemberXXX = TelephoneNumber Var TNumberTaobinMemberXXX = TelephoneNumber
;Var PointTaobinTmp = 4
Var PointTaobin = PointTaobinTmp
Var pTaobin = PointTaobin
If TaobinLevel = 1 Then If TaobinLevel = 1 Then
Var PointTaobin = PayAmount / 20 Var pTaobin = PayAmount / 20
Else Else
Var PointTaobin = PayAmount / 15 Var pTaobin = PayAmount / 15
EndIf
If pTaobin > 0 Then
Var pTaobinX = PointTaobin / pTaobin
If pTaobinX >= 2 Then
Var Point2X = 1
EndIf
EndIf EndIf
;Var Seeker.PointTaobinStr = "" + PointTaobin
;Var Seeker.PointTaobinStr = Seeker.PointTaobinStr + "/"
;Var Seeker.PointTaobinStr = Seeker.PointTaobinStr + PointTaobin
Var Seeker.PointTaobinStr = "" + PointTaobin Var Seeker.PointTaobinStr = ParamCP
Var Seeker.PointTaobinStr = Seeker.PointTaobinStr + "/"
Var Seeker.PointTaobinStr = Seeker.PointTaobinStr + PointTaobin
Var CoffeePointRank = Ext1b Var CoffeePointRank = Ext1b
@ -141,13 +169,19 @@
Var CoffeePointRankTmp = CoffeePointRank Var CoffeePointRankTmp = CoffeePointRank
If TaobinPDPA = 0 Then
Open "ROOT/taobin_project/xml/page_show_consent.xml"
EndIf
Open "ROOT/taobin_project/xml/page_collect_point_3.xml" Open "ROOT/taobin_project/xml/page_collect_point_3.xml"
Else Else
Var Seeker.TaobinErrorNetwork = 1 Var Seeker.TaobinErrorNetwork = 1
Var Seeker.PointTaobinStr = "" + PayAmount ;Var Seeker.PointTaobinStr = "" + PayAmount
Var Seeker.PointTaobinStr = Seeker.PointTaobinStr + "/1/0" ;Var Seeker.PointTaobinStr = Seeker.PointTaobinStr + "/1/0"
Var Seeker.PointTaobinStr = ParamCP
Var TelephoneNumber = TelephoneNumberX Var TelephoneNumber = TelephoneNumberX
Var Seeker.TNumberTaobinMember = TelephoneNumber Var Seeker.TNumberTaobinMember = TelephoneNumber
Open "ROOT/taobin_project/xml/page_collect_point_error.xml" Open "ROOT/taobin_project/xml/page_collect_point_error.xml"
@ -169,8 +203,9 @@
Else Else
;Var CoffeePoint = 1 ;Var CoffeePoint = 1
Var Seeker.TaobinErrorNetwork = 1 Var Seeker.TaobinErrorNetwork = 1
Var Seeker.PointTaobinStr = "" + PayAmount ;Var Seeker.PointTaobinStr = "" + PayAmount
Var Seeker.PointTaobinStr = Seeker.PointTaobinStr + "/1/0" ;Var Seeker.PointTaobinStr = Seeker.PointTaobinStr + "/1/0"
Var Seeker.PointTaobinStr = ParamCP
Var TelephoneNumber = TelephoneNumberX Var TelephoneNumber = TelephoneNumberX
Var Seeker.TNumberTaobinMember= TelephoneNumber Var Seeker.TNumberTaobinMember= TelephoneNumber
Open "ROOT/taobin_project/xml/page_collect_point_error.xml" Open "ROOT/taobin_project/xml/page_collect_point_error.xml"

View file

@ -615,6 +615,23 @@
Else Else
Var CheckCouponState = "Disable" Var CheckCouponState = "Disable"
EndIf EndIf
Var PointEndDate = ""
GetDateEndOfMonth PointEndDate
DEBUGVAR PointEndDate
Var xPointEndDate = 570
If show_eng = "true" Then
Var xPointEndDate = 618
EndIf
Var Point2XState = "Invisible"
If Point2X = 1 Then
Var Point2XState = "Enable"
EndIf
</EventOpen> </EventOpen>
<Timeout> 1000 </Timeout> <Timeout> 1000 </Timeout>
@ -627,7 +644,7 @@
Var Timeout = Timeout + 1 Var Timeout = Timeout + 1
If Timeout > 5 Then If Timeout > 60 Then
@ -1126,9 +1143,25 @@
<Value> TaobinLevelDesc2 </Value> <Value> TaobinLevelDesc2 </Value>
</Text> </Text>
<Image>
<X> 172 </X>
<Y> 1570 </Y>
<Filename> Var( DirImage + "/text8.png" )</Filename>
</Image>
<Text>
<X> xPointEndDate </X>
<Y> 1576 </Y>
<Size> 25 </Size>
<Width> 500 </Width>
<Font> KanitRegularTTF </Font>
<Color> 0xDE794E </Color>
<Value> PointEndDate </Value>
</Text>
<Text> <Text>
<X> 310 </X> <X> 310 </X>
<Y> 1595 </Y> <Y> 1621 </Y>
<Size> 25 </Size> <Size> 25 </Size>
<Width> 1000 </Width> <Width> 1000 </Width>
<Font> KanitRegularTTF </Font> <Font> KanitRegularTTF </Font>
@ -1136,6 +1169,13 @@
<Value> TaobinLevelDesc3 </Value> <Value> TaobinLevelDesc3 </Value>
</Text> </Text>
<Button>
<X> 172 </X>
<Y> 1093 </Y>
<State> Point2XState </State>
<Filename> Var( DirImage + "/text9.png" )</Filename>
</Button>
; ;

View file

@ -146,6 +146,9 @@
DEBUGVAR Seeker.thankStrawFlag DEBUGVAR Seeker.thankStrawFlag
Var Seeker.PayWithQR = 0 Var Seeker.PayWithQR = 0
Var Seeker.CampaignPayChanel = "cash"
Var Seeker.CampaignPCode = SelectDrink
Var Seeker.CampaignPPrice = PriceDrink
If CupChecking = "true" Then If CupChecking = "true" Then
Var StageShowAlias = "Invisible" Var StageShowAlias = "Invisible"

View file

@ -47,8 +47,9 @@
Var AdultFlag2 = 1 Var AdultFlag2 = 1
EndIf EndIf
Var ReqPayInfoFlag2 = 0
DEBUGVAR QRCODETMP DEBUGVAR QRCODETMP
@ -497,7 +498,7 @@
<EventActionOk> <EventActionOk>
Var VendingQRTypeResult = "" Var VendingQRTypeResult = ""
DEBUGVAR ECommerceQR DEBUGVAR ECommerceQR
SPLIT ECommerceQR "/" 5 VendingQRTypeResult SPLIT ECommerceQR "/" 5 VendingQRTypeResult
@ -515,6 +516,20 @@
;Coin STANDBY ;Coin STANDBY
VendingQR OFF VendingQR OFF
CoinVending OFF CoinVending OFF
If ReqPayInfoFlag2 = 1 Then
Var Seeker.CampaignPayChanel = "kbank"
EndIf
If ReqPayInfoFlag2 = 2 Then
Var Seeker.CampaignPayChanel = "shopee"
EndIf
If ReqPayInfoFlag2 = 3 Then
Var Seeker.CampaignPayChanel = "true"
EndIf
If Seeker = "curr" Then If Seeker = "curr" Then
MakeDrinkV1 SelectDrink SelectSugarID MakeDrinkV1 SelectDrink SelectSugarID
@ -540,6 +555,7 @@
Var QRCODE99KBANK = QRCODE99KBANK + Ext21 Var QRCODE99KBANK = QRCODE99KBANK + Ext21
Var QRCODETMP = QRCODE99KBANK Var QRCODETMP = QRCODE99KBANK
Var ReqPayInfoFlag = 0 Var ReqPayInfoFlag = 0
Var ReqPayInfoFlag2 = 1
SAVELOG QRCODE99KBANK SAVELOG QRCODE99KBANK
SAVELOG Ext21 SAVELOG Ext21
@ -560,6 +576,7 @@
SAVELOG QRCODE99Shoppy SAVELOG QRCODE99Shoppy
Var QRCODE99Shoppy = QRCODE99Shoppy + Ext21 Var QRCODE99Shoppy = QRCODE99Shoppy + Ext21
Var ReqPayInfoFlag = 0 Var ReqPayInfoFlag = 0
Var ReqPayInfoFlag2 = 2
SAVELOG QRCODE99Shoppy SAVELOG QRCODE99Shoppy
SAVELOG Ext21 SAVELOG Ext21
@ -578,6 +595,7 @@
SAVELOG QRCODE99Shoppy SAVELOG QRCODE99Shoppy
Var QRCODE99Shoppy = QRCODE99Shoppy + Ext21 Var QRCODE99Shoppy = QRCODE99Shoppy + Ext21
Var ReqPayInfoFlag = 0 Var ReqPayInfoFlag = 0
Var ReqPayInfoFlag2 = 3
SAVELOG QRCODE99Shoppy SAVELOG QRCODE99Shoppy
SAVELOG Ext21 SAVELOG Ext21

View file

@ -333,6 +333,10 @@
Var text_show_error = DirImage + "/text_show_error3.png" Var text_show_error = DirImage + "/text_show_error3.png"
EndIf EndIf
If ErrorCause = "failed_fromoper_0006" Then
Var text_show_error = DirImage + "/text_show_error4.png"
EndIf
Var GetPayInfoFlag = 0 Var GetPayInfoFlag = 0
Var Seeker.CodeChannel = 0 Var Seeker.CodeChannel = 0
Var Tel_Confirm_State = "Disable" Var Tel_Confirm_State = "Disable"

View file

@ -195,6 +195,10 @@
Var text_show_error = DirImage + "/text_show_error3.png" Var text_show_error = DirImage + "/text_show_error3.png"
EndIf EndIf
If ErrorCause = "failed_fromoper_0006" Then
Var text_show_error = DirImage + "/text_show_error4.png"
EndIf
Var GetPayInfoFlag = 0 Var GetPayInfoFlag = 0
Var Seeker.CodeChannel = 0 Var Seeker.CodeChannel = 0
Var Tel_Confirm_State = "Disable" Var Tel_Confirm_State = "Disable"

View file

@ -195,6 +195,10 @@
Var text_show_error = DirImage + "/text_show_error3.png" Var text_show_error = DirImage + "/text_show_error3.png"
EndIf EndIf
If ErrorCause = "failed_fromoper_0006" Then
Var text_show_error = DirImage + "/text_show_error4.png"
EndIf
Var GetPayInfoFlag = 0 Var GetPayInfoFlag = 0
Var Seeker.CodeChannel = 0 Var Seeker.CodeChannel = 0
Var Tel_Confirm_State = "Disable" Var Tel_Confirm_State = "Disable"

View file

@ -195,6 +195,10 @@
Var text_show_error = DirImage + "/text_show_error3.png" Var text_show_error = DirImage + "/text_show_error3.png"
EndIf EndIf
If ErrorCause = "failed_fromoper_0006" Then
Var text_show_error = DirImage + "/text_show_error4.png"
EndIf
Var GetPayInfoFlag = 0 Var GetPayInfoFlag = 0
Var Seeker.CodeChannel = 0 Var Seeker.CodeChannel = 0
Var Tel_Confirm_State = "Disable" Var Tel_Confirm_State = "Disable"

View file

@ -114,14 +114,14 @@
<X> 441 </X> <X> 441 </X>
<Y> 888 </Y> <Y> 888 </Y>
<State> "Enable" </State> <State> "Enable" </State>
<Filename> "ROOT/taobin_project/image/collectiing/bn_pay_with_codeLotus.png" </Filename> <Filename> "ROOT/taobin_project/image/collectiing/bn_pay_with_codeTrue.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_pay_with_codeLotus.png" </FilenamePress> <FilenamePress> "ROOT/taobin_project/image/collectiing/bp_pay_with_codeTrue.png" </FilenamePress>
<FilenameDisable> "ROOT/taobin_project/image/collectiing/bd_pay_with_codeLotus.png" </FilenameDisable> <FilenameDisable> "ROOT/taobin_project/image/collectiing/bd_pay_with_codeTrue.png" </FilenameDisable>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound> <Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
Open "ROOT/taobin_project/xml/page_payment_codeLotus.xml" Open "ROOT/taobin_project/xml/page_payment_codeTrue.xml"
</EventClick> </EventClick>
</Button> </Button>
@ -163,14 +163,14 @@
<X> 441 </X> <X> 441 </X>
<Y> 1112 </Y> <Y> 1112 </Y>
<State> "Enable" </State> <State> "Enable" </State>
<Filename> "ROOT/taobin_project/image/collectiing/bn_pay_with_codeXXX.png" </Filename> <Filename> "ROOT/taobin_project/image/collectiing/bn_pay_with_codeSCG.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bn_pay_with_codeXXX.png" </FilenamePress> <FilenamePress> "ROOT/taobin_project/image/collectiing/bn_pay_with_codeSCG.png" </FilenamePress>
<FilenameDisable> "ROOT/taobin_project/image/collectiing/bn_pay_with_codeXXX.png" </FilenameDisable> <FilenameDisable> "ROOT/taobin_project/image/collectiing/bn_pay_with_codeSCG.png" </FilenameDisable>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound> <Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume> <Volume> SoundVolume </Volume>
<EventClick> <EventClick>
Open "ROOT/taobin_project/xml/page_payment_codeSCG.xml"
</EventClick> </EventClick>
</Button> </Button>

View file

@ -0,0 +1,692 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Sound> "ROOT/sounds/Code8digit.m4a" </Sound>
<Volume> SoundVolume </Volume>
<Refresh> "Partial" </Refresh>
<EventOpen>
; On open
Var ECommerce = ""
Var Seeker.FreeVendingCampaign = 0
Var Timeout = 0
Var GetPayInfoFlag = 0
Var Seeker.CodeChannel = 0
;Var VendingQRCode = "ERROR"
;VendingQR ON
;Var QRCODE99 = ""
;CoinVending OFF
Var ShowTextNumber = "Enable"
Var ShowErrorText = "Invisible"
Var Tel_Confirm_State = "Invisible"
Var ErrorCause = ""
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_en"
Else
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
Var Mode# = 0
Var Str# = ""
Var TelephoneNumber# = ""
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
;Open "ROOT/xml/page_board.xml"
Var Timeout = Timeout + 1
If Timeout > 30 Then
Open "ROOT/taobin_project/xml/page_payment_codeOther.xml"
Refresh
EndIf
TimerReset
</EventTimeout>
<EventCoin>
If ViewBill > 0 Then
CoinVending BILLREJECT
EndIf
</EventCoin>
<EventActionOk>
If Seeker.CodeChannel = 1 Then
SAVELOG "Seeker.CodeChannel 1 > ActOK."
SAVELOG ECommerce
SPLIT ECommerce "/" 5 Seeker.VendingCode
SPLIT ECommerce "/" 7 Seeker.VendingCampaignRI3
SPLIT ECommerce "/" 8 VendingCampaign1
If Seeker.VendingCode = "" Then
Var Seeker.VendingCode = "C00"
EndIf
If Seeker.VendingCode = "KBA:2" Then
Var Seeker.VendingCode = "C00"
EndIf
If Seeker.VendingCode = "AIR:2" Then
Var Seeker.VendingCode = "C00"
EndIf
If Seeker.VendingCode = "TWN:2" Then
Var Seeker.VendingCode = "C00"
EndIf
SAVELOG Seeker.VendingCode
SAVELOG Seeker.VendingCampaignRI3
If Seeker.VendingCode = "C00" Then
Else
Var VendingCreditRemain = ""
Var IntVendingCampaign1 = VendingCampaign1
INT IntVendingCampaign1
If IntVendingCampaign1 > 0 Then
Var VendingCreditRemain = VendingCampaign1
EndIf
Var Seeker.IntVendingCampaign = Seeker.VendingCampaignRI3
INT Seeker.IntVendingCampaign
Var VendingREFID = SessionID
If Seeker.IntVendingCampaign > 0 Then
Var QRChannel = 0
If Seeker.IntVendingCampaign >= PayAmount Then
;Open "ROOT/taobin_project/xml/page_payment_cash.xml"
Var Seeker.VendingCampaign = PayAmount
Var Seeker.FreeVendingCampaign = 1
CoinVending OFF
;Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif"
If CART_COUNT >= 1 Then
Cart "PreparID" 1
Var CART_INDEX = 1
Var PayReference = ""
GenHashWithTimeStamp PayReference
Cart "MakeID" CART_INDEX
Open "ROOT/taobin_project/xml/page_thankyou.xml"
Else
Var CART_INDEX = 0
If Seeker = "curr" Then
MakeDrinkV1 SelectDrink SelectSugarID
Else
DEBUGVAR Seeker
EndIf
Open "ROOT/taobin_project/xml/page_thankyou.xml"
EndIf
EndIf
Var Seeker.CodeChannel = 1
If CART_COUNT >= 1 Then
Open "ROOT/taobin_project/xml/page_payment_cashMore.xml"
Else
Open "ROOT/taobin_project/xml/page_payment_cash.xml"
EndIf
Else
Var ShowErrorText = "Enable"
Var text_show_error = DirImage + "/text_show_error.png"
Var GetPayInfoFlag = 0
Var Seeker.CodeChannel = 0
EndIf
EndIf
Else
EndIf
</EventActionOk>
<EventActionError>
If Seeker.CodeChannel = 1 Then
Var TelephoneNumber = ""
Var ShowErrorText = "Enable"
SAVELOG ShowErrorText
Var text_show_error = DirImage + "/text_show_error2.png"
If ErrorCause = "failed_fromoper_0002" Then
Var text_show_error = DirImage + "/text_show_error.png"
EndIf
If ErrorCause = "failed_fromoper_0005" Then
Var text_show_error = DirImage + "/text_show_error3.png"
EndIf
If ErrorCause = "failed_fromoper_0006" Then
Var text_show_error = DirImage + "/text_show_error4.png"
EndIf
Var GetPayInfoFlag = 0
Var Seeker.CodeChannel = 0
Var Tel_Confirm_State = "Disable"
Refresh
EndIf
</EventActionError>
<Image>
<X> 0 </X>
<Y> 380 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/alpha.png" </Filename>
</Image>
<Image>
<X> 158 </X>
<Y> 667 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/img_popup1.png" </Filename>
</Image>
<Button>
<X> 333 </X>
<Y> 1070 </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 TelephoneNumber = TelephoneNumber + "1"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 8
Var TelephoneNumber# = Str# + TelephoneNumber
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
</EventClick>
</Button>
<Button>
<X> 477 </X>
<Y> 1070 </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 TelephoneNumber = TelephoneNumber + "2"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 8
Var TelephoneNumber# = Str# + TelephoneNumber
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
</EventClick>
</Button>
<Button>
<X> 620 </X>
<Y> 1070 </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 TelephoneNumber = TelephoneNumber + "3"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 8
Var TelephoneNumber# = Str# + TelephoneNumber
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
</EventClick>
</Button>
<Button>
<X> 333 </X>
<Y> 1214 </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 TelephoneNumber = TelephoneNumber + "4"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 8
Var TelephoneNumber# = Str# + TelephoneNumber
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
</EventClick>
</Button>
<Button>
<X> 477 </X>
<Y> 1214 </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 TelephoneNumber = TelephoneNumber + "5"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 8
Var TelephoneNumber# = Str# + TelephoneNumber
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
</EventClick>
</Button>
<Button>
<X> 620 </X>
<Y> 1214 </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 TelephoneNumber = TelephoneNumber + "6"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 8
Var TelephoneNumber# = Str# + TelephoneNumber
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
</EventClick>
</Button>
<Button>
<X> 333 </X>
<Y> 1358 </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 TelephoneNumber = TelephoneNumber + "7"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 8
Var TelephoneNumber# = Str# + TelephoneNumber
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
</EventClick>
</Button>
<Button>
<X> 477 </X>
<Y> 1358 </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 TelephoneNumber = TelephoneNumber + "8"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 8
Var TelephoneNumber# = Str# + TelephoneNumber
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
</EventClick>
</Button>
<Button>
<X> 620 </X>
<Y> 1358 </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 TelephoneNumber = TelephoneNumber + "9"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 8
Var TelephoneNumber# = Str# + TelephoneNumber
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
</EventClick>
</Button>
<Button>
<X> 477 </X>
<Y> 1498 </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 TelephoneNumber = TelephoneNumber + "0"
Trim TelephoneNumber 8
Var TelephoneNumber# = Str# + TelephoneNumber
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowTextNumber = "Invisible"
TimerReset
Refresh
Var ShowErrorText = "Invisible"
</EventClick>
</Button>
<Button>
<X> 620 </X>
<Y> 1498 </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
Var Clear# = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen = 0 Then
Var Clear# = 1
EndIf
Trim TelephoneNumber -1
Var Tel_Confirm_State = "Invisible"
StrLen TelephoneNumber TelNumLen
If TelNumLen = 0 Then
If Clear# = 1 Then
Var ShowTextNumber = "Enable"
Var Mode# = 0
Var Str# = ""
EndIf
EndIf
Var TelephoneNumber# = Str# + TelephoneNumber
;Var ShowErrorText = "Invisible"
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 218 </X>
<Y> 1673 </Y>
<Filename> Var( DirImage + "/bn_back.png") </Filename>
<FilenamePress> Var( DirImage + "/bn_back.png") </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Open "ROOT/taobin_project/xml/page_payment_codeOther.xml"
</EventClick>
</Button>
<Button>
<X> 577 </X>
<Y> 1673 </Y>
<Refresh> "Enable" </Refresh>
<State> Tel_Confirm_State </State>
<Filename> Var( DirImage + "/bn_confirm.png" ) </Filename>
<FilenamePress> Var( DirImage + "/bp_confirm.png" )</FilenamePress>
<FilenameDisable> Var( DirImage + "/bp_confirm.png" )</FilenameDisable>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
If UnitTestType = "2" Then
If TelephoneNumber = "00000001" Then
Var ShowErrorText = "Enable"
EndIf
Else
If GetPayInfoFlag = 0 Then
Var GetPayInfoFlag = 1
VendingQR OFF
Var Seeker.CodeNumber = TelephoneNumber
Var RemainAmount = 0
;PrepareDrink SelectDrink SelectSugarID
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + Seeker.ExtendData
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
Var TelephoneNumber2 = "0899999999"
Var ServiceType = "coffee"
Var ECommerce = ""
Var ECommerce = ECommerce + PriceDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + DiscountDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SessionID2
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SelectDrink
Var ECommerce = ECommerce + "/"
If Mode# = 1 Then
Var ECommerce = ECommerce + "S04"
Else
Var ECommerce = ECommerce + "C00"
EndIf
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + Seeker.CodeNumber
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var AccountType = "new"
Var testservice = "kbank"
Var tc = ""
Var GetScore = ""
Var OperatorName = ""
Var SessionID = ""
GetPayInfo TelephoneNumber2 ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
Var Timeout = 0
Var TelephoneNumber = Seeker.CodeNumber
Var Seeker.CodeChannel = 1
EndIf
EndIf
SAVELOG ShowTextNumber
Refresh
</EventClick>
</Button>
<Image>
<X> 217 </X>
<Y> 868 </Y>
<Filename> Var( DirImage + "/img3.png" ) </Filename>
</Image>
<Image>
<X> 244 </X>
<Y> 882 </Y>
<State> ShowTextNumber </State>
<Refresh> "Enable" </Refresh>
<Filename> Var( DirImage + "/text_12.png" )</Filename>
</Image>
<Text>
<X> 0 </X>
<Y> 883 </Y>
<Width> 1080 </Width>
<Align> Center </Align>
<Size> 62 </Size>
<Font> RobotoBlack </Font>
<Color> 0x513C2F </Color>
<Refresh> "Enable" </Refresh>
<Value> TelephoneNumber# </Value>
</Text>
<Image>
<X> 188 </X>
<Y> 760 </Y>
<Filename> Var( DirImage + "/text_36.png" )</Filename>
</Image>
<Image>
<X> 152 </X>
<Y> 1001 </Y>
<Refresh> "Enable" </Refresh>
<State> ShowErrorText </State>
<Filename> text_show_error </Filename>
</Image>
<Image>
<X> 158 </X>
<Y> 513 </Y>
<Filename> Var( DirImage + "/img_popupSCG.png" )</Filename>
</Image>
;<Image>
;<X> 0 </X>
;<Y> 0 </Y>
;<Filename> "ROOT/taobin_project/image/ad_medium_2.png" </Filename>
;</Image>
<Video>
<X> 0 </X>
<Y> 0 </Y>
<Width> 1080</Width>
<Height> 380 </Height>
<Loop> "true" </Loop>
<Filename> video_menu_0 </Filename>
</Video>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
</Popup>

View file

@ -195,6 +195,10 @@
Var text_show_error = DirImage + "/text_show_error3.png" Var text_show_error = DirImage + "/text_show_error3.png"
EndIf EndIf
If ErrorCause = "failed_fromoper_0006" Then
Var text_show_error = DirImage + "/text_show_error4.png"
EndIf
Var GetPayInfoFlag = 0 Var GetPayInfoFlag = 0
Var Seeker.CodeChannel = 0 Var Seeker.CodeChannel = 0
Var Tel_Confirm_State = "Disable" Var Tel_Confirm_State = "Disable"

View file

@ -0,0 +1,692 @@
<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Sound> "ROOT/sounds/Code8digit.m4a" </Sound>
<Volume> SoundVolume </Volume>
<Refresh> "Partial" </Refresh>
<EventOpen>
; On open
Var ECommerce = ""
Var Seeker.FreeVendingCampaign = 0
Var Timeout = 0
Var GetPayInfoFlag = 0
Var Seeker.CodeChannel = 0
;Var VendingQRCode = "ERROR"
;VendingQR ON
;Var QRCODE99 = ""
;CoinVending OFF
Var ShowTextNumber = "Enable"
Var ShowErrorText = "Invisible"
Var Tel_Confirm_State = "Invisible"
Var ErrorCause = ""
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/collectiing_en"
Else
Var DirImage = "ROOT/taobin_project/image/collectiing"
EndIf
Var Mode# = 0
Var Str# = ""
Var TelephoneNumber# = ""
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
;Open "ROOT/xml/page_board.xml"
Var Timeout = Timeout + 1
If Timeout > 30 Then
Open "ROOT/taobin_project/xml/page_payment_codeOther.xml"
Refresh
EndIf
TimerReset
</EventTimeout>
<EventCoin>
If ViewBill > 0 Then
CoinVending BILLREJECT
EndIf
</EventCoin>
<EventActionOk>
If Seeker.CodeChannel = 1 Then
SAVELOG "Seeker.CodeChannel 1 > ActOK."
SAVELOG ECommerce
SPLIT ECommerce "/" 5 Seeker.VendingCode
SPLIT ECommerce "/" 7 Seeker.VendingCampaignRI3
SPLIT ECommerce "/" 8 VendingCampaign1
If Seeker.VendingCode = "" Then
Var Seeker.VendingCode = "C00"
EndIf
If Seeker.VendingCode = "KBA:2" Then
Var Seeker.VendingCode = "C00"
EndIf
If Seeker.VendingCode = "AIR:2" Then
Var Seeker.VendingCode = "C00"
EndIf
If Seeker.VendingCode = "TWN:2" Then
Var Seeker.VendingCode = "C00"
EndIf
SAVELOG Seeker.VendingCode
SAVELOG Seeker.VendingCampaignRI3
If Seeker.VendingCode = "C00" Then
Else
Var VendingCreditRemain = ""
Var IntVendingCampaign1 = VendingCampaign1
INT IntVendingCampaign1
If IntVendingCampaign1 > 0 Then
Var VendingCreditRemain = VendingCampaign1
EndIf
Var Seeker.IntVendingCampaign = Seeker.VendingCampaignRI3
INT Seeker.IntVendingCampaign
Var VendingREFID = SessionID
If Seeker.IntVendingCampaign > 0 Then
Var QRChannel = 0
If Seeker.IntVendingCampaign >= PayAmount Then
;Open "ROOT/taobin_project/xml/page_payment_cash.xml"
Var Seeker.VendingCampaign = PayAmount
Var Seeker.FreeVendingCampaign = 1
CoinVending OFF
;Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif"
If CART_COUNT >= 1 Then
Cart "PreparID" 1
Var CART_INDEX = 1
Var PayReference = ""
GenHashWithTimeStamp PayReference
Cart "MakeID" CART_INDEX
Open "ROOT/taobin_project/xml/page_thankyou.xml"
Else
Var CART_INDEX = 0
If Seeker = "curr" Then
MakeDrinkV1 SelectDrink SelectSugarID
Else
DEBUGVAR Seeker
EndIf
Open "ROOT/taobin_project/xml/page_thankyou.xml"
EndIf
EndIf
Var Seeker.CodeChannel = 1
If CART_COUNT >= 1 Then
Open "ROOT/taobin_project/xml/page_payment_cashMore.xml"
Else
Open "ROOT/taobin_project/xml/page_payment_cash.xml"
EndIf
Else
Var ShowErrorText = "Enable"
Var text_show_error = DirImage + "/text_show_error.png"
Var GetPayInfoFlag = 0
Var Seeker.CodeChannel = 0
EndIf
EndIf
Else
EndIf
</EventActionOk>
<EventActionError>
If Seeker.CodeChannel = 1 Then
Var TelephoneNumber = ""
Var ShowErrorText = "Enable"
SAVELOG ShowErrorText
Var text_show_error = DirImage + "/text_show_error2.png"
If ErrorCause = "failed_fromoper_0002" Then
Var text_show_error = DirImage + "/text_show_error.png"
EndIf
If ErrorCause = "failed_fromoper_0005" Then
Var text_show_error = DirImage + "/text_show_error3.png"
EndIf
If ErrorCause = "failed_fromoper_0006" Then
Var text_show_error = DirImage + "/text_show_error4.png"
EndIf
Var GetPayInfoFlag = 0
Var Seeker.CodeChannel = 0
Var Tel_Confirm_State = "Disable"
Refresh
EndIf
</EventActionError>
<Image>
<X> 0 </X>
<Y> 380 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/alpha.png" </Filename>
</Image>
<Image>
<X> 158 </X>
<Y> 667 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/img_popup1.png" </Filename>
</Image>
<Button>
<X> 333 </X>
<Y> 1070 </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 TelephoneNumber = TelephoneNumber + "1"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 8
Var TelephoneNumber# = Str# + TelephoneNumber
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
</EventClick>
</Button>
<Button>
<X> 477 </X>
<Y> 1070 </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 TelephoneNumber = TelephoneNumber + "2"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 8
Var TelephoneNumber# = Str# + TelephoneNumber
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
</EventClick>
</Button>
<Button>
<X> 620 </X>
<Y> 1070 </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 TelephoneNumber = TelephoneNumber + "3"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 8
Var TelephoneNumber# = Str# + TelephoneNumber
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
</EventClick>
</Button>
<Button>
<X> 333 </X>
<Y> 1214 </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 TelephoneNumber = TelephoneNumber + "4"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 8
Var TelephoneNumber# = Str# + TelephoneNumber
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
</EventClick>
</Button>
<Button>
<X> 477 </X>
<Y> 1214 </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 TelephoneNumber = TelephoneNumber + "5"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 8
Var TelephoneNumber# = Str# + TelephoneNumber
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
</EventClick>
</Button>
<Button>
<X> 620 </X>
<Y> 1214 </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 TelephoneNumber = TelephoneNumber + "6"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 8
Var TelephoneNumber# = Str# + TelephoneNumber
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
</EventClick>
</Button>
<Button>
<X> 333 </X>
<Y> 1358 </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 TelephoneNumber = TelephoneNumber + "7"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 8
Var TelephoneNumber# = Str# + TelephoneNumber
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
</EventClick>
</Button>
<Button>
<X> 477 </X>
<Y> 1358 </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 TelephoneNumber = TelephoneNumber + "8"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 8
Var TelephoneNumber# = Str# + TelephoneNumber
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
</EventClick>
</Button>
<Button>
<X> 620 </X>
<Y> 1358 </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 TelephoneNumber = TelephoneNumber + "9"
Var ShowTextNumber = "Invisible"
Trim TelephoneNumber 8
Var TelephoneNumber# = Str# + TelephoneNumber
TimerReset
Refresh
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowErrorText = "Invisible"
</EventClick>
</Button>
<Button>
<X> 477 </X>
<Y> 1498 </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 TelephoneNumber = TelephoneNumber + "0"
Trim TelephoneNumber 8
Var TelephoneNumber# = Str# + TelephoneNumber
StrLen TelephoneNumber TelNumLen
If TelNumLen >= 8 Then
Var Tel_Confirm_State = "Enable"
EndIf
Var ShowTextNumber = "Invisible"
TimerReset
Refresh
Var ShowErrorText = "Invisible"
</EventClick>
</Button>
<Button>
<X> 620 </X>
<Y> 1498 </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
Var Clear# = 0
StrLen TelephoneNumber TelNumLen
If TelNumLen = 0 Then
Var Clear# = 1
EndIf
Trim TelephoneNumber -1
Var Tel_Confirm_State = "Invisible"
StrLen TelephoneNumber TelNumLen
If TelNumLen = 0 Then
If Clear# = 1 Then
Var ShowTextNumber = "Enable"
Var Mode# = 0
Var Str# = ""
EndIf
EndIf
Var TelephoneNumber# = Str# + TelephoneNumber
;Var ShowErrorText = "Invisible"
TimerReset
Refresh
</EventClick>
</Button>
<Button>
<X> 218 </X>
<Y> 1673 </Y>
<Filename> Var( DirImage + "/bn_back.png") </Filename>
<FilenamePress> Var( DirImage + "/bn_back.png") </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
Open "ROOT/taobin_project/xml/page_payment_codeOther.xml"
</EventClick>
</Button>
<Button>
<X> 577 </X>
<Y> 1673 </Y>
<Refresh> "Enable" </Refresh>
<State> Tel_Confirm_State </State>
<Filename> Var( DirImage + "/bn_confirm.png" ) </Filename>
<FilenamePress> Var( DirImage + "/bp_confirm.png" )</FilenamePress>
<FilenameDisable> Var( DirImage + "/bp_confirm.png" )</FilenameDisable>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
If UnitTestType = "2" Then
If TelephoneNumber = "00000001" Then
Var ShowErrorText = "Enable"
EndIf
Else
If GetPayInfoFlag = 0 Then
Var GetPayInfoFlag = 1
VendingQR OFF
Var Seeker.CodeNumber = TelephoneNumber
Var RemainAmount = 0
;PrepareDrink SelectDrink SelectSugarID
Var SessionID2 = SelectSlot + ":"
Var SessionID2 = SessionID2 + Seeker.ExtendData
Var CreditAmount1 = ""
Var ServiceAmountFlow = ""
Var TelephoneNumber2 = "0899999999"
Var ServiceType = "coffee"
Var ECommerce = ""
Var ECommerce = ECommerce + PriceDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + DiscountDrink
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SessionID2
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + SelectDrink
Var ECommerce = ECommerce + "/"
If Mode# = 1 Then
Var ECommerce = ECommerce + "S04"
Else
Var ECommerce = ECommerce + "C00"
EndIf
Var ECommerce = ECommerce + "/"
Var ECommerce = ECommerce + Seeker.CodeNumber
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var AccountType = "new"
Var testservice = "kbank"
Var tc = ""
Var GetScore = ""
Var OperatorName = ""
Var SessionID = ""
GetPayInfo TelephoneNumber2 ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
Var Timeout = 0
Var TelephoneNumber = Seeker.CodeNumber
Var Seeker.CodeChannel = 1
EndIf
EndIf
SAVELOG ShowTextNumber
Refresh
</EventClick>
</Button>
<Image>
<X> 217 </X>
<Y> 868 </Y>
<Filename> Var( DirImage + "/img3.png" ) </Filename>
</Image>
<Image>
<X> 244 </X>
<Y> 882 </Y>
<State> ShowTextNumber </State>
<Refresh> "Enable" </Refresh>
<Filename> Var( DirImage + "/text_12.png" )</Filename>
</Image>
<Text>
<X> 0 </X>
<Y> 883 </Y>
<Width> 1080 </Width>
<Align> Center </Align>
<Size> 62 </Size>
<Font> RobotoBlack </Font>
<Color> 0x513C2F </Color>
<Refresh> "Enable" </Refresh>
<Value> TelephoneNumber# </Value>
</Text>
<Image>
<X> 188 </X>
<Y> 760 </Y>
<Filename> Var( DirImage + "/text_35.png" )</Filename>
</Image>
<Image>
<X> 152 </X>
<Y> 1001 </Y>
<Refresh> "Enable" </Refresh>
<State> ShowErrorText </State>
<Filename> text_show_error </Filename>
</Image>
<Image>
<X> 158 </X>
<Y> 513 </Y>
<Filename> Var( DirImage + "/img_popupTrue.png" )</Filename>
</Image>
;<Image>
;<X> 0 </X>
;<Y> 0 </Y>
;<Filename> "ROOT/taobin_project/image/ad_medium_2.png" </Filename>
;</Image>
<Video>
<X> 0 </X>
<Y> 0 </Y>
<Width> 1080</Width>
<Height> 380 </Height>
<Loop> "true" </Loop>
<Filename> video_menu_0 </Filename>
</Video>
<EventSecurity>
Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>
</Popup>

View file

@ -45,9 +45,9 @@
Var Seeker.FromConsent = 1 Var Seeker.FromConsent = 1
Var StepGetPoint = 1 Var StepGetPoint = 1
GETACCEXT TelephoneNumber 14 ;GETACCEXT TelephoneNumber 14
; goto lid straw ; goto lid straw
Open "ROOT/taobin_project/xml/page_collect_point_2.xml" Open "ROOT/taobin_project/xml/page_collect_point_3.xml"
EndIf EndIf
@ -102,9 +102,9 @@
Var Seeker.FromConsent = 1 Var Seeker.FromConsent = 1
Var StepGetPoint = 1 Var StepGetPoint = 1
GETACCEXT TelephoneNumber 14 ;GETACCEXT TelephoneNumber 14
; goto lid straw ; goto lid straw
Open "ROOT/taobin_project/xml/page_collect_point_2.xml" Open "ROOT/taobin_project/xml/page_collect_point_3.xml"
</EventClick> </EventClick>
</Button> </Button>