fix Can use credit from current for next order

This commit is contained in:
miggaze 2022-05-24 14:07:55 +07:00
parent 6dc2c89b7a
commit b45738d20e
13 changed files with 360 additions and 75 deletions

View file

@ -707,6 +707,7 @@
Var GetScore = "useCredit"
AddData 24 Seeker.TNumberTaobinCredit BmiYear PointCrm GetScore
Var Seeker.IntVendingCredit = 0
Var Seeker.CurrCreditUse = 0
EndIf
@ -734,6 +735,7 @@
Var GetScore = "useCredit"
AddData 24 Seeker.TNumberTaobinCredit BmiYear PointCrm GetScore
Var Seeker.IntVendingCredit = 0
Var Seeker.CurrCreditUse = 0
EndIf
Var CancelCounter = CancelCounter + 1
@ -993,6 +995,11 @@
If CoinInOK = 0 Then
If CancelFlag = 0 Then
If ViewBill > 0 Then
CoinVending BILLREJECT
EndIf
SAVELOG "ButtonCancleMain > Cancle Order."
Machine CancelWepApp
CoinVending OFF