creditReferecnce o3

This commit is contained in:
miggaze 2021-12-07 12:02:02 +07:00
parent eb861cf23c
commit 744134e271
15 changed files with 558 additions and 114 deletions

View file

@ -591,6 +591,13 @@
If CancelFlag = 1 Then
If IntVendingCredit > 0 Then
Var BmiYear = IntVendingCredit
Var GetScore = "useCredit"
AddData 24 TNumberTaobinCredit BmiYear PointCrm GetScore
Var IntVendingCredit = 0
EndIf
Var CancelCounter = CancelCounter + 1
If CancelCounter = CancelNumber Then
;Change CoinAmount
@ -1005,6 +1012,8 @@
Var ECommerceQR = ECommerceQR + TNumberTaobinCredit
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + IntVendingCredit
Var ECommerceQR = ECommerceQR + ":"
Var ECommerceQR = ECommerceQR + PointCrm
EndIf