[DUBAI] Update pay with credit card

This commit is contained in:
Kenta420 2024-09-26 14:55:34 +07:00
parent 6317a68847
commit 950794676e

View file

@ -747,6 +747,13 @@
EndIf EndIf
If VendingCashless = "END" Then
If ReqPayInfoFromCashOther = 2 Then
DEBUGVAR "CashlessReq OFF"
CashlessReq OFF
EndIf
EndIf
</EventActionOk> </EventActionOk>
<EventActionError> <EventActionError>
@ -1494,7 +1501,8 @@
If CancelFlag = 0 Then If CancelFlag = 0 Then
Var QR_POPUP = "/img_popup8.png" Var QR_POPUP = "/img_popup8.png"
Var alphaState = "Enable" Var alphaState = "Enable"
;Coin CARD Coin CARD
Var ReqPayInfoFromCashOther = 2 Var ReqPayInfoFromCashOther = 2
Var CreditCardRef = "" Var CreditCardRef = ""
@ -1516,9 +1524,7 @@
Var Timeout = 0 Var Timeout = 0
EndIf EndIf
Var QRErrorState = "Invisible"
Var VendingCashless = "-" Var VendingCashless = "-"
Var LOADING_STATE = "Enable"
Var RemainAmountX = PayAmount - Seeker.IntVendingCampaign Var RemainAmountX = PayAmount - Seeker.IntVendingCampaign
CashlessPay RemainAmountX CreditCardRef CashlessPay RemainAmountX CreditCardRef
Var CashlessPayFlag = 1 Var CashlessPayFlag = 1
@ -1738,18 +1744,11 @@
;CoinVending ON ;CoinVending ON
;VendingQR OFF ;VendingQR OFF
If ReqPayInfoFromCashOther = 2 Then
DEBUGVAR "CashlessReq OFF by user"
CashlessReq OFF
EndIf
If CashlessPayFlag = 1 Then If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0 Var CashlessPayFlag = 0
CashlessReq FAIL CashlessReq FAIL
EndIf EndIf
Refresh Refresh
</EventClick> </EventClick>
</Button> </Button>