This commit is contained in:
miggaze 2020-10-28 16:59:31 +07:00
parent e8c55750a4
commit b5b2c8b129
3 changed files with 32 additions and 9 deletions

View file

@ -29,13 +29,14 @@
Var alphaState = "Invisible"
Var CoinInFlag = 0
Var CoinAmount = 0
;Var CoinAmount = 0
Var CancelFlag = 0
Var CancelCounter = 0
Var CoinInCounter = 0
Var PayAmount = PriceDrink
Var RemainAmount = PayAmount - IntVendingCampaign
Var RemainAmount = PayAmount - IntVendingCampaign
Var RemainAmount = RemainAmount - CoinAmount
Var RemainAmountStr = "" + RemainAmount
Var Timeout = 0
Var PayOK = 0
@ -70,7 +71,14 @@
If QRChannel = 0 Then
;Var VendingQRCode = "ERROR"
VendingQR ON
CoinVending ON
If CoinVendingOnFlag = 0 Then
CoinVending ON
Var CoinVendingOnFlag = 1
Else
EndIf
;Var QRCODE99 = ""
@ -110,6 +118,10 @@
Var PayState2 = "Disable"
EndIf
Var PayState3 = "Enable"
If CoinAmount > 0 Then
Var PayState2 = "Disable"
Var PayState3 = "Disable"
EndIf
Var showRemaining = charOfBaht + RemainAmountStr
EndIf
@ -517,7 +529,7 @@
If CoinInFlag = 0 Then
Var alphaState = "Enable"
CoinVending OFF
;CoinVending OFF
VendingQR ON
Refresh
@ -645,7 +657,7 @@
<Volume> SoundVolume </Volume>
<EventClick>
Var alphaState = "Invisible"
CoinVending ON
;CoinVending ON
VendingQR OFF
Refresh
</EventClick>