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

THAI: AOT midnight close & Seeker.ServiceCharge

Browse source
This commit is contained in:
Kenta420 2025-05-14 18:52:40 +07:00
parent 7285e9dc72
commit cdf98a94f2
13 changed files with 218 additions and 52 deletions
Download patch file Download diff file Expand all files Collapse all files

39
xml/page_payment_cash.xml
View file

@ -202,7 +202,7 @@
Var ServiceCredit = SelectDrink
Var ServiceAmount2 = PayAmount
Var Seeker.ServiceAmount2 = PayAmount
Var ServiceCharge = 0
Var Seeker.ServiceCharge = 0
Var Donate = ""
Var SuggestID = ""
Var CancleState = "Enable"
@ -707,7 +707,7 @@
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var ServiceCharge = Seeker.ServiceCharge
Var AccountType = "new"
Var testservice = "kbank"
Var tc = ""
@ -762,7 +762,7 @@
EndIf
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var ServiceCharge = Seeker.ServiceCharge
Var AccountType = "new"
Var testservice = "kbank"
Var tc = ""
@ -816,7 +816,7 @@
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var ServiceCharge = Seeker.ServiceCharge
Var AccountType = "new"
Var testservice = "kbank"
Var tc = ""
@ -869,7 +869,7 @@
EndIf
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var ServiceCharge = Seeker.ServiceCharge
Var AccountType = "new"
Var testservice = "kbank"
Var tc = ""
@ -922,7 +922,7 @@
EndIf
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var ServiceCharge = Seeker.ServiceCharge
Var AccountType = "new"
Var testservice = "kbank"
Var tc = ""
@ -975,7 +975,7 @@
EndIf
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var ServiceCharge = Seeker.ServiceCharge
Var AccountType = "new"
Var testservice = "kbank"
Var tc = ""
@ -1029,7 +1029,7 @@
EndIf
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var ServiceCharge = Seeker.ServiceCharge
Var AccountType = "new"
Var testservice = "kbank"
Var tc = ""
@ -1083,7 +1083,7 @@
EndIf
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var ServiceCharge = Seeker.ServiceCharge
Var AccountType = "new"
Var testservice = "kbank"
Var tc = ""
@ -1136,7 +1136,7 @@
EndIf
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var ServiceCharge = Seeker.ServiceCharge
Var AccountType = "new"
Var testservice = "kbank"
Var tc = ""
@ -1190,7 +1190,7 @@
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var ServiceCharge = Seeker.ServiceCharge
Var AccountType = "new"
Var testservice = "kbank"
Var tc = ""
@ -1244,7 +1244,7 @@
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var ServiceCharge = Seeker.ServiceCharge
Var AccountType = "new"
Var testservice = "kbank"
Var tc = ""
@ -1975,7 +1975,7 @@
Var LOADING_STATE = "Invisible"
Var CreditCardLoading = 0
Var ServiceCharge = 0
Var Seeker.ServiceCharge = 0
CoinVending XBILL
Else
@ -2017,9 +2017,9 @@
Var QRErrorState = "Invisible"
Var VendingCashless = "-"
Var ServiceCharge = 3
Var Seeker.ServiceCharge = 3
Var RemainAmountX = RemainAmount
Var RemainAmountX = RemainAmountX + ServiceCharge
Var RemainAmountX = RemainAmountX + Seeker.ServiceCharge
CashlessPay RemainAmountX CreditCardRef
Var CashlessPayFlag = 1
EndIf
@ -2146,7 +2146,7 @@
Var ECommerce = ECommerce + "C:"
Var ECommerce = ECommerce + Seeker.IntVendingCampaign
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var ServiceCharge = Seeker.ServiceCharge
Var AccountType = "new"
Var testservice = "kbank"
Var tc = ""
@ -2335,6 +2335,7 @@
Var ServiceType = "credit"
Var SessionID2 = SelectDrink
Var ServiceCredit = "coffee"
Var ServiceCharge = Seeker.ServiceCharge
Var PayDetail2 = Seeker.PayDetail2
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
@ -3051,7 +3052,7 @@
Var ServiceParameter = "max"
Var ServiceCharge = 0
Var ServiceCharge = Seeker.ServiceCharge
Var AccountType = "new"
Var testservice = "kbank"
Var tc = ""
@ -3364,9 +3365,7 @@ eval(
If KBankCashlessMachine = "1" Then
If ReqPayInfoFromCashOther = 2 Then
If ServiceCharge > 0 Then
Var ServiceCharge = 0
EndIf
Var Seeker.ServiceCharge = 0
CoinVending XBILL
EndIf
EndIf