pakin/taobin_project
1
0
Fork 0
Code Issues Pull requests Projects 1 Releases 1 Packages Wiki Activity Actions

[DUBAI] Fixed credit card payment method

Browse source
This commit is contained in:
Kenta420 2024-09-24 16:30:15 +07:00
parent 58d7b37a2c
commit dbcfc593ea
7 changed files with 297 additions and 286 deletions
Download patch file Download diff file Expand all files Collapse all files

93
xml/page_payment_cash-UAE.xml
View file

@ -741,6 +741,8 @@
Var Seeker.CreditCard = 1
Var Seeker.CreditCardRef = CreditCardRef
CashlessReq SUCCESS
Open "ROOT/taobin_project/xml/page_thankyou.xml"
EndIf
@ -784,13 +786,17 @@
If VendingCashless = "ERROR" Then
Var Timeout = 0
If CoinInOK = 1 Then
;Var QRErrorFlag = 1
If alphaState = "Enable" Then
Var QRErrorState = "Enable"
Var LOADING_STATE = "Invisible"
EndIf
Else
Var Timeout = 0
EndIf
;Var QRErrorFlag = 1
If alphaState = "Enable" Then
Var QRErrorState = "Enable"
Var LOADING_STATE = "Invisible"
EndIf
EndIf
@ -802,9 +808,38 @@
<EventCashlessCard>
SAVELOG "EventCashlessCard"
Var CreditCardRef = ""
GenHashWithTimeStamp CreditCardRef
DEBUGVAR VendingCashless
Var QRCODE99 = ""
Var Timeout = 0
Var QRErrorState = "Invisible"
;add-pd-to-ref
Var CreditCardRef = CreditCardRef + "/"
Var CreditCardRef = CreditCardRef + SelectDrink
DEBUGVAR CreditCardRef
If VendingCashless = "READY" Then
If CoinInOK = 1 Then
Else
Var Timeout = 0
EndIf
Var QRErrorState = "Invisible"
Var QR_POPUP = "/img_popup8-2.png"
Var VendingCashless = "-"
Var LOADING_STATE = "Enable"
Var RemainAmountX = PayAmount - Seeker.IntVendingCampaign
CashlessPay RemainAmountX CreditCardRef
Var CashlessPayFlag = 1
EndIf
Refresh
</EventCashlessCard>
@ -1486,40 +1521,18 @@
<Volume> SoundVolume </Volume>
<EventClick>
If alphaState = "Invisible" Then
If CoinInFlag = 0 Then
If CancelFlag = 0 Then
Var QR_POPUP = "/img_popup8.png"
Var alphaState = "Enable"
Coin CARD
If alphaState = "Invisible" Then
If CoinInFlag = 0 Then
If CancelFlag = 0 Then
Var QR_POPUP = "/img_popup8.png"
Var alphaState = "Enable"
Coin CARD
Var ReqPayInfoFromCashOther = 2
EndIf
EndIf
EndIf
Var ReqPayInfoFromCashOther = 2
Var CreditCardRef = ""
GenHashWithTimeStamp CreditCardRef
DEBUGVAR VendingCashless
Var QRCODE99 = ""
Var Timeout = 0
Var QRErrorState = "Invisible"
;add-pd-to-ref
Var CreditCardRef = CreditCardRef + "/"
Var CreditCardRef = CreditCardRef + SelectDrink
DEBUGVAR CreditCardRef
;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
EndIf
Refresh
</EventClick>
</Button>