SGP: add flag if has coin, disable credit
This commit is contained in:
parent
afd0693deb
commit
d7a154c0b1
1 changed files with 24 additions and 12 deletions
|
|
@ -775,20 +775,25 @@
|
||||||
|
|
||||||
Var CreditCardRef = ""
|
Var CreditCardRef = ""
|
||||||
GenHashWithTimeStamp CreditCardRef
|
GenHashWithTimeStamp CreditCardRef
|
||||||
DEBUGVAR VendingCashless
|
DEBUGVAR VendingCashless
|
||||||
|
|
||||||
|
If CoinInFlag = 0 Then
|
||||||
|
|
||||||
|
If VendingCashless = "READY" Then
|
||||||
|
Var QRCODE99 = ""
|
||||||
|
Var Timeout = 0
|
||||||
|
Var QRErrorState = "Invisible"
|
||||||
|
Var QR_POPUP = "/img_popup8-2.png"
|
||||||
|
Var VendingCashless = "-"
|
||||||
|
Var LOADING_STATE = "Enable"
|
||||||
|
Var alphaState = "Enable"
|
||||||
|
Var RemainAmountX = PayAmount - Seeker.IntVendingCampaign
|
||||||
|
CashlessPay RemainAmountX CreditCardRef
|
||||||
|
Var CashlessPayFlag = 1
|
||||||
|
EndIf
|
||||||
|
|
||||||
If VendingCashless = "READY" Then
|
|
||||||
Var QRCODE99 = ""
|
|
||||||
Var Timeout = 0
|
|
||||||
Var QRErrorState = "Invisible"
|
|
||||||
Var QR_POPUP = "/img_popup8-2.png"
|
|
||||||
Var VendingCashless = "-"
|
|
||||||
Var LOADING_STATE = "Enable"
|
|
||||||
Var alphaState = "Enable"
|
|
||||||
Var RemainAmountX = PayAmount - Seeker.IntVendingCampaign
|
|
||||||
CashlessPay RemainAmountX CreditCardRef
|
|
||||||
Var CashlessPayFlag = 1
|
|
||||||
EndIf
|
EndIf
|
||||||
|
|
||||||
|
|
||||||
Refresh
|
Refresh
|
||||||
|
|
||||||
|
|
@ -908,6 +913,9 @@
|
||||||
|
|
||||||
|
|
||||||
If CoinInOK = 1 Then
|
If CoinInOK = 1 Then
|
||||||
|
|
||||||
|
Var PayState5 = "Disable"
|
||||||
|
|
||||||
Var CoinInCounter = CoinInCounter + 1
|
Var CoinInCounter = CoinInCounter + 1
|
||||||
If CoinInCounter = 1 Then
|
If CoinInCounter = 1 Then
|
||||||
|
|
||||||
|
|
@ -918,6 +926,10 @@
|
||||||
Var PayOK = 1
|
Var PayOK = 1
|
||||||
|
|
||||||
EndIf
|
EndIf
|
||||||
|
|
||||||
|
Else
|
||||||
|
Var PayState5 = "Enable"
|
||||||
|
|
||||||
EndIf
|
EndIf
|
||||||
|
|
||||||
Var stringLog = "Timeout " + Timeout
|
Var stringLog = "Timeout " + Timeout
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue