Multi Credit

This commit is contained in:
miggaze 2021-12-09 15:15:11 +07:00
parent 651d132fab
commit 5a3054d098
4 changed files with 73 additions and 13 deletions

View file

@ -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>