Multi Credit
This commit is contained in:
parent
651d132fab
commit
5a3054d098
4 changed files with 73 additions and 13 deletions
|
|
@ -568,6 +568,13 @@
|
|||
Var CancelFlag = 1
|
||||
Var CancelCounter = 0
|
||||
If CoinAmount = 0 Then
|
||||
If IntVendingCredit > 0 Then
|
||||
Var BmiYear = IntVendingCredit
|
||||
Var GetScore = "useCredit"
|
||||
AddData 24 TNumberTaobinCredit BmiYear PointCrm GetScore
|
||||
Var IntVendingCredit = 0
|
||||
EndIf
|
||||
|
||||
If IntVendingCampaign = 0 Then
|
||||
VendingQR OFF
|
||||
|
||||
|
|
@ -1037,6 +1044,12 @@
|
|||
|
||||
If CoinInFlag = 0 Then
|
||||
VendingQR OFF
|
||||
If IntVendingCredit > 0 Then
|
||||
Var BmiYear = IntVendingCredit
|
||||
Var GetScore = "useCredit"
|
||||
AddData 24 TNumberTaobinCredit BmiYear PointCrm GetScore
|
||||
Var IntVendingCredit = 0
|
||||
EndIf
|
||||
Open "ROOT/taobin_project/xml/page_catalog.xml"
|
||||
EndIf
|
||||
|
||||
|
|
@ -1360,6 +1373,12 @@
|
|||
<State> cart1_en </State>
|
||||
<Filename> "ROOT/taobin_project/image/page_payment/iconX.png" </Filename>
|
||||
<EventClick>
|
||||
If IntVendingCredit > 0 Then
|
||||
Var BmiYear = IntVendingCredit
|
||||
Var GetScore = "useCredit"
|
||||
AddData 24 TNumberTaobinCredit BmiYear PointCrm GetScore
|
||||
Var IntVendingCredit = 0
|
||||
EndIf
|
||||
Cart "DeleteMenuID" 1
|
||||
|
||||
</EventClick>
|
||||
|
|
@ -1399,6 +1418,12 @@
|
|||
<State> cart2_en </State>
|
||||
<Filename> "ROOT/taobin_project/image/page_payment/iconX.png" </Filename>
|
||||
<EventClick>
|
||||
If IntVendingCredit > 0 Then
|
||||
Var BmiYear = IntVendingCredit
|
||||
Var GetScore = "useCredit"
|
||||
AddData 24 TNumberTaobinCredit BmiYear PointCrm GetScore
|
||||
Var IntVendingCredit = 0
|
||||
EndIf
|
||||
Cart "DeleteMenuID" 2
|
||||
</EventClick>
|
||||
</Button>
|
||||
|
|
@ -1438,6 +1463,12 @@
|
|||
<State> cart3_en </State>
|
||||
<Filename> "ROOT/taobin_project/image/page_payment/iconX.png" </Filename>
|
||||
<EventClick>
|
||||
If IntVendingCredit > 0 Then
|
||||
Var BmiYear = IntVendingCredit
|
||||
Var GetScore = "useCredit"
|
||||
AddData 24 TNumberTaobinCredit BmiYear PointCrm GetScore
|
||||
Var IntVendingCredit = 0
|
||||
EndIf
|
||||
Cart "DeleteMenuID" 3
|
||||
|
||||
</EventClick>
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue