pakin/taobin_project
1
0
Fork 0
Code Issues Pull requests Projects 1 Releases 1 Packages Wiki Activity Actions

DBG-VAR

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

8
xml/page_payment_cash.xml
View file

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

8
xml/page_payment_cashMore.xml
View file

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