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

THAI: Supported KBank cashless machine

Browse source
This commit is contained in:
Kenta420 2025-02-17 11:05:31 +07:00
parent 0a8915f60a
commit ff5449cb0f
40 changed files with 299 additions and 251 deletions
Download patch file Download diff file Expand all files Collapse all files

76
xml/page_payment_cash.xml
View file

@ -1870,8 +1870,19 @@
EndIf
DEBUGVAR VendingCashless
If VendingCashless = "OK" Then
DEBUGVAR CashlessCode
If KBankCashlessMachine = 1 Then
Var Seeker.CashlessVendingTrackNumber = VendingTrackNumber
DEBUGVAR VendingTrackNumber
DEBUGVAR Var Seeker.CashlessVendingTrackNumber
EndIf
Var Timeout = 0
Var QRErrorState = "Invisible"
@ -1948,23 +1959,43 @@
GenHashWithTimeStamp CreditCardRef
DEBUGVAR VendingCashless
If VendingCashless = "READY" Then
Var QRCODE99 = ""
If CoinInOK = 1 Then
If KBankCashlessMachine = 1 Then
If VendingCashless = "READY" Then
Var QRCODE99 = ""
If CoinInOK = 1 Then
Else
Var Timeout = 0
Else
Var Timeout = 0
EndIf
Var QRErrorState = "Invisible"
Var VendingCashless = "-"
Var ServiceCharge = 3
Var RemainAmountX = PayAmount - Seeker.IntVendingCampaign
Var RemainAmountX = RemainAmountX + ServiceCharge
CashlessPay RemainAmountX CreditCardRef
Var CashlessPayFlag = 1
EndIf
Else
If VendingCashless = "READY" Then
Var QRCODE99 = ""
If CoinInOK = 1 Then
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
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
EndIf
Refresh
</EventCashlessCard>
@ -2144,7 +2175,7 @@
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL Seeker.CashlessVendingTrackNumber
EndIf
Var CancelCounter = 0
@ -2295,13 +2326,13 @@
EndIf
If ReqPayInfoFromCashOther = 2 Then
DEBUGVAR "CashlessReq OFF by user"
CashlessReq OFF
DEBUGVAR "CashlessReq OFF "" by user"
CashlessReq OFF Seeker.CashlessVendingTrackNumber
EndIf
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL Seeker.CashlessVendingTrackNumber
EndIf
EndIf
EndIf
@ -2687,7 +2718,7 @@
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL Seeker.CashlessVendingTrackNumber
EndIf
EndIf
@ -2949,9 +2980,14 @@
If alphaState = "Invisible" Then
If CoinInFlag = 0 Then
If CancelFlag = 0 Then
Var QR_POPUP = "/img_popup8.png"
If KBankCashlessMachine = 1 Then
Var QR_POPUP = "/img_popup8_with_service_charge.png"
Var cancelButtonQRPopupState = "Invisible"
Else
Var QR_POPUP = "/img_popup8.png"
Var cancelButtonQRPopupState = "Enable"
EndIf
Var alphaState = "Enable"
Var cancelButtonQRPopupState = "Enable"
Coin CARD
Var ReqPayInfoFromCashOther = 2
EndIf
@ -3047,7 +3083,7 @@
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL Seeker.CashlessVendingTrackNumber
EndIf
EndIf