fix bug storeCreditFlag

This commit is contained in:
pichet 2022-09-26 13:29:51 +07:00
parent 5feff39de2
commit fec97ef9c6

View file

@ -1201,27 +1201,34 @@
CoinVending BILLREJECT
Else
Var RemainAmount = PayAmount - CoinAmount
Var RemainAmount = RemainAmount - Seeker.IntVendingCampaign
Var RemainAmount = RemainAmount - Seeker.IntVendingCredit
If ViewBill > RemainAmount Then
Var RemainAmountKeep = ViewBill - RemainAmount
If Seeker.StoreCreditFlag = 1 Then
CoinVending BILLSTACKALL
Else
Var RemainAmountKeep = ViewBill
Var RemainAmount = PayAmount - CoinAmount
Var RemainAmount = RemainAmount - Seeker.IntVendingCampaign
Var RemainAmount = RemainAmount - Seeker.IntVendingCredit
If ViewBill > RemainAmount Then
Var RemainAmountKeep = ViewBill - RemainAmount
Else
Var RemainAmountKeep = ViewBill
EndIf
Var Timeout = 0
Var RemainAmountStr = "" + RemainAmount
Var showRemaining = charOfBaht + RemainAmountStr
Var alphaState3 = "Enable"
EndIf
Var Timeout = 0
Var RemainAmountStr = "" + RemainAmount
Var showRemaining = charOfBaht + RemainAmountStr
Var alphaState3 = "Enable"
EndIf