This commit is contained in:
miggaze 2022-02-18 13:36:23 +07:00
parent d37d093cb0
commit fb852455bd
2 changed files with 16 additions and 0 deletions

View file

@ -199,6 +199,12 @@
Var RemainAmount = RemainAmount - Seeker.IntVendingCredit
Var SumCoinAmount = CoinAmount + Seeker.IntVendingCampaign
If SumCoinAmount >= PayAmount Then
SAVELOG "CoinInOk First"
DEBUGVAR CoinAmount
DEBUGVAR Seeker.IntVendingCampaign
DEBUGVAR Seeker.IntVendingCredit
;Var VendingQRCode = "ERROR"
CoinVending OFF
Var Canout = SumCoinAmount - PayAmount
@ -617,6 +623,8 @@
Var CoinInCounter = CoinInCounter + 1
If CoinInCounter = 1 Then
SAVELOG "CoinInOk OK"
;Var ChangeOK = 1
Var Timeout = 180
Var PayOK = 1

View file

@ -229,6 +229,12 @@
Var RemainAmount = RemainAmount - Seeker.IntVendingCredit
Var SumCoinAmount = CoinAmount + Seeker.IntVendingCampaign
If SumCoinAmount >= PayAmount Then
SAVELOG "CoinInOk First"
DEBUGVAR CoinAmount
DEBUGVAR Seeker.IntVendingCampaign
DEBUGVAR Seeker.IntVendingCredit
;Var VendingQRCode = "ERROR"
CoinVending OFF
Var Canout = SumCoinAmount - PayAmount
@ -534,6 +540,8 @@
Var CoinInCounter = CoinInCounter + 1
If CoinInCounter = 1 Then
SAVELOG "CoinInOk OK"
;Var ChangeOK = 1
Var Timeout = 180
Var PayOK = 1