SGP: add flag if has coin, disable credit

This commit is contained in:
Pakin 2024-05-02 13:25:12 +07:00
parent afd0693deb
commit d7a154c0b1

View file

@ -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