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

BIN
image/page_payment/img_popup8_with_service_charge.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 28 KiB

BIN
image/page_payment_en/page_payment/img_popup8_with_service_charge.png Normal file
View file

Binary file not shown.
Side by side

After

Width:  |  Height:  |  Size: 30 KiB

10
inter/aus/xml/page_brewing3.lxml
View file

@ -1172,8 +1172,8 @@
If Seeker.CreditCard = 1 Then
;CashlessReq SUCCESS
;CashlessReq FAIL
;CashlessReq SUCCESS ""
;CashlessReq FAIL ""
EndIf
@ -1182,8 +1182,8 @@
If Seeker.CreditCard = 1 Then
;CashlessReq SUCCESS
;CashlessReq FAIL
;CashlessReq SUCCESS ""
;CashlessReq FAIL ""
EndIf
@ -1251,7 +1251,7 @@
If Seeker.PayWithQR = 0 Then
If Seeker.CreditCard = 1 Then
;CashlessReq FAIL
;CashlessReq FAIL ""
Var ChangeFlag = 1
Var CreditCardVoid = 1
Else

10
inter/aus/xml/page_brewing3Conti.xml
View file

@ -678,8 +678,8 @@
If Seeker.CreditCard = 1 Then
CashlessReq SUCCESS
;CashlessReq FAIL
CashlessReq SUCCESS ""
;CashlessReq FAIL ""
EndIf
Var PayDetail2 = Seeker.PayDetail2
@ -690,8 +690,8 @@
If Seeker.CreditCard = 1 Then
CashlessReq SUCCESS
;CashlessReq FAIL
CashlessReq SUCCESS ""
;CashlessReq FAIL ""
EndIf
Var PayDetail2 = Seeker.PayDetail2
@ -770,7 +770,7 @@
If Seeker.PayWithQR = 0 Then
If Seeker.CreditCard = 1 Then
;CashlessReq FAIL
;CashlessReq FAIL ""
Var ChangeFlag = 1
Var CreditCardVoid = 1
Var ChangeOK = 2

12
inter/aus/xml/page_member_topup.lxml
View file

@ -80,9 +80,9 @@
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
Else
CashlessReq OFF
CashlessReq OFF ""
EndIf
VendingQR OFF
@ -163,7 +163,7 @@
EndIf
If VendingCashless = "OK" Then
CashlessReq SUCCESS
CashlessReq SUCCESS ""
Var PayCreditChannel = "credit-card"
@ -184,7 +184,7 @@
Var LOADING_STATE = "Invisible"
EndIf
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
@ -492,10 +492,10 @@
SAVELOG "Canceling credit card"
Var QR_POPUP = "/img_popup8-2.png"
CashlessReq OFF
CashlessReq OFF ""
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
EndIf

8
inter/mys/xml/page_brewing3Conti_event.lxml
View file

@ -512,8 +512,8 @@
If Seeker.CreditCard = 1 Then
CashlessReq SUCCESS
;CashlessReq FAIL
CashlessReq SUCCESS ""
;CashlessReq FAIL ""
EndIf
Var PayDetail2 = Seeker.PayDetail2
@ -524,8 +524,8 @@
If Seeker.CreditCard = 1 Then
CashlessReq SUCCESS
;CashlessReq FAIL
CashlessReq SUCCESS ""
;CashlessReq FAIL ""
EndIf
Var PayDetail2 = Seeker.PayDetail2

10
inter/mys/xml/page_brewing3_event.lxml
View file

@ -602,8 +602,8 @@
If Seeker.CreditCard = 1 Then
WRITE_FILE "/mnt/sdcard/app_run_flag" "1"
CashlessReq SUCCESS
;CashlessReq FAIL
CashlessReq SUCCESS ""
;CashlessReq FAIL ""
EndIf
@ -613,8 +613,8 @@
If Seeker.CreditCard = 1 Then
WRITE_FILE "/mnt/sdcard/app_run_flag" "1"
CashlessReq SUCCESS
;CashlessReq FAIL
CashlessReq SUCCESS ""
;CashlessReq FAIL ""
EndIf
@ -673,7 +673,7 @@
If Seeker.CreditCard = 1 Then
;DEBUGVAR "Credit::void.switch(app: finexus)"
;WRITE_FILE "/mnt/sdcard/app_run_flag" "1"
;CashlessReq FAIL
;CashlessReq FAIL ""
;Var ChangeFlag = 1
;Var CreditCardVoid = 1

14
inter/mys/xml/page_member_topup.lxml
View file

@ -69,9 +69,9 @@
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
Else
CashlessReq OFF
CashlessReq OFF ""
EndIf
Var CheckMemberPage2 = CountryRootPath + "xml/page_check_member2.lxml"
@ -90,7 +90,7 @@
<EventActionOk>
If VendingCashless = "OK" Then
CashlessReq SUCCESS
CashlessReq SUCCESS ""
Var ToppupSuccessPage = CountryRootPath + "xml/page_member_topupSuccess.lxml"
Open ToppupSuccessPage
@ -108,7 +108,7 @@
Var LOADING_STATE = "Invisible"
EndIf
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
@ -277,7 +277,7 @@
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
Var CheckMemberPage2 = CountryRootPath + "xml/page_check_member2.lxml"
@ -332,11 +332,11 @@
Var QRErrorState = "Invisible"
Var alphaState = "Invisible"
CashlessReq OFF
CashlessReq OFF ""
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
DEBUGVAR LOADING_STATE

2
inter/mys/xml/page_void_credit_card.lxml
View file

@ -14,7 +14,7 @@
DEBUGVAR "Credit::void.switch(app: finexus)"
WRITE_FILE "/mnt/sdcard/app_run_flag" "1"
CashlessReq FAIL
CashlessReq FAIL ""
Var ChangeFlag = 1
Var CreditCardVoid = 1
</EventOpen>

2
inter/mys/xml/page_void_credit_cardConti.lxml
View file

@ -14,7 +14,7 @@
DEBUGVAR "Credit::void.switch(app: finexus).next(true)"
WRITE_FILE "/mnt/sdcard/app_run_flag" "1"
CashlessReq FAIL
CashlessReq FAIL ""
Var ChangeFlag = 1
Var CreditCardVoid = 1
</EventOpen>

10
inter/sgp/xml/page_brewing3.lxml
View file

@ -1020,8 +1020,8 @@
If Seeker.CreditCard = 1 Then
;CashlessReq SUCCESS
;CashlessReq FAIL
;CashlessReq SUCCESS ""
;CashlessReq FAIL ""
EndIf
@ -1030,8 +1030,8 @@
If Seeker.CreditCard = 1 Then
;CashlessReq SUCCESS
;CashlessReq FAIL
;CashlessReq SUCCESS ""
;CashlessReq FAIL ""
EndIf
@ -1094,7 +1094,7 @@
If Seeker.PayWithQR = 0 Then
If Seeker.CreditCard = 1 Then
;CashlessReq FAIL
;CashlessReq FAIL ""
Var ChangeFlag = 1
Var CreditCardVoid = 1
Else

10
inter/sgp/xml/page_brewing3Conti.xml
View file

@ -709,8 +709,8 @@
If Seeker.CreditCard = 1 Then
CashlessReq SUCCESS
;CashlessReq FAIL
CashlessReq SUCCESS ""
;CashlessReq FAIL ""
EndIf
Var PayDetail2 = Seeker.PayDetail2
@ -721,8 +721,8 @@
If Seeker.CreditCard = 1 Then
CashlessReq SUCCESS
;CashlessReq FAIL
CashlessReq SUCCESS ""
;CashlessReq FAIL ""
EndIf
Var PayDetail2 = Seeker.PayDetail2
@ -798,7 +798,7 @@
If Seeker.PayWithQR = 0 Then
If Seeker.CreditCard = 1 Then
CashlessReq FAIL
CashlessReq FAIL ""
Var ChangeFlag = 1
Var CreditCardVoid = 1
Else

12
inter/sgp/xml/page_brewing3_blue.lxml
View file

@ -472,7 +472,7 @@
Var XPercent = 0
EndIf
CashlessReq SUCCESS
CashlessReq SUCCESS ""
</EventOpen>
<EventLanguageOnChange>
@ -1048,8 +1048,8 @@
If Seeker.CreditCard = 1 Then
;CashlessReq SUCCESS
;CashlessReq FAIL
;CashlessReq SUCCESS ""
;CashlessReq FAIL ""
EndIf
@ -1058,8 +1058,8 @@
If Seeker.CreditCard = 1 Then
;CashlessReq SUCCESS
;CashlessReq FAIL
;CashlessReq SUCCESS ""
;CashlessReq FAIL ""
EndIf
@ -1122,7 +1122,7 @@
If Seeker.PayWithQR = 0 Then
If Seeker.CreditCard = 1 Then
;CashlessReq FAIL
;CashlessReq FAIL ""
Var ChangeFlag = 1
Var CreditCardVoid = 1
Else

14
inter/sgp/xml/page_member_topup.lxml
View file

@ -69,9 +69,9 @@
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
Else
CashlessReq OFF
CashlessReq OFF ""
EndIf
Var CheckMemberPage2 = CountryRootPath + "xml/page_check_member2.lxml"
@ -90,7 +90,7 @@
<EventActionOk>
If VendingCashless = "OK" Then
CashlessReq SUCCESS
CashlessReq SUCCESS ""
Var ToppupSuccessPage = CountryRootPath + "xml/page_member_topupSuccess.lxml"
Open ToppupSuccessPage
@ -108,7 +108,7 @@
Var LOADING_STATE = "Invisible"
EndIf
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
@ -277,7 +277,7 @@
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
Var CheckMemberPage2 = CountryRootPath + "xml/page_check_member2.lxml"
@ -332,11 +332,11 @@
Var QRErrorState = "Invisible"
Var alphaState = "Invisible"
CashlessReq OFF
CashlessReq OFF ""
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
DEBUGVAR LOADING_STATE

10
inter/uae_dubai/xml/page_brewing3.lxml
View file

@ -1163,8 +1163,8 @@
If Seeker.CreditCard = 1 Then
;CashlessReq SUCCESS
;CashlessReq FAIL
;CashlessReq SUCCESS ""
;CashlessReq FAIL ""
EndIf
@ -1173,8 +1173,8 @@
If Seeker.CreditCard = 1 Then
;CashlessReq SUCCESS
;CashlessReq FAIL
;CashlessReq SUCCESS ""
;CashlessReq FAIL ""
EndIf
@ -1231,7 +1231,7 @@
If Seeker.PayWithQR = 0 Then
If Seeker.CreditCard = 1 Then
;CashlessReq FAIL
;CashlessReq FAIL ""
Var ChangeFlag = 1
Var CreditCardVoid = 1
Else

10
inter/uae_dubai/xml/page_brewing3Conti.xml
View file

@ -666,8 +666,8 @@
If Seeker.CreditCard = 1 Then
CashlessReq SUCCESS
;CashlessReq FAIL
CashlessReq SUCCESS ""
;CashlessReq FAIL ""
EndIf
@ -678,8 +678,8 @@
If Seeker.CreditCard = 1 Then
CashlessReq SUCCESS
;CashlessReq FAIL
CashlessReq SUCCESS ""
;CashlessReq FAIL ""
EndIf
@ -750,7 +750,7 @@
If Seeker.PayWithQR = 0 Then
If Seeker.CreditCard = 1 Then
CashlessReq FAIL
CashlessReq FAIL ""
Var ChangeFlag = 1
Var CreditCardVoid = 1
Else

10
inter/uae_dubai/xml/page_brewing3Conti_blue.lxml
View file

@ -712,8 +712,8 @@
If Seeker.CreditCard = 1 Then
CashlessReq SUCCESS
;CashlessReq FAIL
CashlessReq SUCCESS ""
;CashlessReq FAIL ""
EndIf
@ -724,8 +724,8 @@
If Seeker.CreditCard = 1 Then
CashlessReq SUCCESS
;CashlessReq FAIL
CashlessReq SUCCESS ""
;CashlessReq FAIL ""
EndIf
@ -796,7 +796,7 @@
If Seeker.PayWithQR = 0 Then
If Seeker.CreditCard = 1 Then
CashlessReq FAIL
CashlessReq FAIL ""
Var ChangeFlag = 1
Var CreditCardVoid = 1
Else

12
inter/uae_dubai/xml/page_brewing3_blue.lxml
View file

@ -475,7 +475,7 @@
Var XPercent = 0
EndIf
;CashlessReq SUCCESS
;CashlessReq SUCCESS ""
</EventOpen>
<EventLanguageOnChange>
@ -1069,8 +1069,8 @@
If Seeker.CreditCard = 1 Then
;CashlessReq SUCCESS
;CashlessReq FAIL
;CashlessReq SUCCESS ""
;CashlessReq FAIL ""
EndIf
@ -1079,8 +1079,8 @@
If Seeker.CreditCard = 1 Then
;CashlessReq SUCCESS
;CashlessReq FAIL
;CashlessReq SUCCESS ""
;CashlessReq FAIL ""
EndIf
@ -1137,7 +1137,7 @@
If Seeker.PayWithQR = 0 Then
If Seeker.CreditCard = 1 Then
;CashlessReq FAIL
;CashlessReq FAIL ""
Var ChangeFlag = 1
Var CreditCardVoid = 1
Else

14
inter/uae_dubai/xml/page_member_topup.lxml
View file

@ -69,9 +69,9 @@
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
Else
CashlessReq OFF
CashlessReq OFF ""
EndIf
Var CheckMemberPage2 = CountryRootPath + "xml/page_check_member2.lxml"
@ -90,7 +90,7 @@
<EventActionOk>
If VendingCashless = "OK" Then
CashlessReq SUCCESS
CashlessReq SUCCESS ""
Var ToppupSuccessPage = CountryRootPath + "xml/page_member_topupSuccess.lxml"
Open ToppupSuccessPage
@ -108,7 +108,7 @@
Var LOADING_STATE = "Invisible"
EndIf
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
@ -277,7 +277,7 @@
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
Var CheckMemberPage2 = CountryRootPath + "xml/page_check_member2.lxml"
@ -332,11 +332,11 @@
Var QRErrorState = "Invisible"
Var alphaState = "Invisible"
CashlessReq OFF
CashlessReq OFF ""
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
DEBUGVAR LOADING_STATE

60
inter/whatthecup/sgp/xml/page_payment_cash-SGP_blue.xml
View file

@ -24,7 +24,7 @@
Var PreScaleCanculate = 100
DEBUGVAR VendingCashless
CashlessReq FAIL
CashlessReq FAIL ""
Var CashlessPayFlag = 0
@ -844,7 +844,7 @@
If CancelFlag = 1 Then
DEBUGVAR CancelFlag
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
EndIf
@ -1050,19 +1050,19 @@
If UserChoosePayment = "CreditCashless" Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
If UserChoosePayment = "" Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
EndIf
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
Var CancelCounter = 0
@ -1527,18 +1527,18 @@
If CashlessPayFlag = 0 Then
If UserChoosePayment = "CreditCashless" Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
If UserChoosePayment = "" Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
EndIf
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
@ -1756,18 +1756,18 @@ EndIf
If CashlessPayFlag = 0 Then
If UserChoosePayment = "CreditCashless" Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
If UserChoosePayment = "" Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
EndIf
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
EndIf
@ -1858,24 +1858,24 @@ EndIf
;CoinVending ON
;VendingQR OFF
CashlessReq OFF
CashlessReq OFF ""
If CashlessPayFlag = 0 Then
If UserChoosePayment = "CreditCashless" Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
If UserChoosePayment = "" Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
EndIf
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
@ -1969,18 +1969,18 @@ EndIf
If CashlessPayFlag = 0 Then
If UserChoosePayment = "CreditCashless" Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
If UserChoosePayment = "" Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
EndIf
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
EndIf
@ -2038,18 +2038,18 @@ EndIf
If CashlessPayFlag = 0 Then
If UserChoosePayment = "CreditCashless" Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
If UserChoosePayment = "" Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
EndIf
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
EndIf
@ -2092,18 +2092,18 @@ EndIf
If CashlessPayFlag = 0 Then
If UserChoosePayment = "CreditCashless" Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
If UserChoosePayment = "" Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
EndIf
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
@ -2216,19 +2216,19 @@ EndIf
If CashlessPayFlag = 0 Then
If UserChoosePayment = "CreditCashless" Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
If UserChoosePayment = "" Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
EndIf
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
DEBUGVAR UserChoosePayment
@ -2303,18 +2303,18 @@ EndIf
If CashlessPayFlag = 0 Then
If UserChoosePayment = "CreditCashless" Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
If UserChoosePayment = "" Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
EndIf
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
DEBUGVAR UserChoosePayment

18
inter/whatthecup/uae_dubai/xml/page_payment_cash-UAE_blue.xml
View file

@ -788,7 +788,7 @@
Var Seeker.CreditCard = 1
Var Seeker.CreditCardRef = CreditCardRef
CashlessReq SUCCESS
CashlessReq SUCCESS ""
Open "ROOT/taobin_project/xml/page_thankyou.xml"
@ -796,8 +796,8 @@
If VendingCashless = "END" Then
If ReqPayInfoFromCashOther = 2 Then
DEBUGVAR "CashlessReq OFF"
CashlessReq OFF
DEBUGVAR "CashlessReq OFF """
CashlessReq OFF ""
EndIf
EndIf
@ -1043,7 +1043,7 @@
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
Var CancelCounter = 0
@ -1494,7 +1494,7 @@
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
Var CancelContinue = 0
@ -1718,7 +1718,7 @@
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
Var CancelContinue = 0
@ -1820,7 +1820,7 @@
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
Refresh
@ -2001,13 +2001,13 @@
If UserChoosePayment = "" Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf

8
spiral/xml/page_spiral_failmuti.xml
View file

@ -509,8 +509,8 @@ If Seeker.thankToppingFlag = 1 Then
If Seeker.CreditCard = 1 Then
CashlessReq SUCCESS
;CashlessReq FAIL
CashlessReq SUCCESS ""
;CashlessReq FAIL ""
EndIf
@ -525,8 +525,8 @@ If Seeker.thankToppingFlag = 1 Then
If Seeker.CreditCard = 1 Then
CashlessReq SUCCESS
;CashlessReq FAIL
CashlessReq SUCCESS ""
;CashlessReq FAIL ""
EndIf

10
spiral/xml/page_spiral_payment_cash.xml
View file

@ -828,7 +828,7 @@
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
Var CancelCounter = 0
@ -1520,7 +1520,7 @@
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
EndIf
@ -1639,11 +1639,11 @@
;CoinVending ON
;VendingQR OFF
CashlessReq OFF
CashlessReq OFF ""
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
Refresh
@ -1696,7 +1696,7 @@
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
EndIf
EndIf

10
spiral/xml/page_spiral_payment_cashMore.xml
View file

@ -835,7 +835,7 @@
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
Var CancelCounter = 0
@ -1535,7 +1535,7 @@
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
EndIf
@ -1654,11 +1654,11 @@
;CoinVending ON
;VendingQR OFF
CashlessReq OFF
CashlessReq OFF ""
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
Refresh
@ -1711,7 +1711,7 @@
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
EndIf
EndIf

8
spiral/xml/page_spiral_thankyou3.xml
View file

@ -213,8 +213,8 @@ If Seeker.thankToppingFlag = 1 Then
If Seeker.CreditCard = 1 Then
CashlessReq SUCCESS
;CashlessReq FAIL
CashlessReq SUCCESS ""
;CashlessReq FAIL ""
EndIf
@ -227,8 +227,8 @@ If Seeker.thankToppingFlag = 1 Then
If Seeker.CreditCard = 1 Then
CashlessReq SUCCESS
;CashlessReq FAIL
CashlessReq SUCCESS ""
;CashlessReq FAIL ""
EndIf

12
spiral/xml/page_spiral_thankyou_creditcard.xml
View file

@ -172,8 +172,8 @@
EndIf
Else
If Seeker.CreditCard = 1 Then
;CashlessReq SUCCESS
CashlessReq FAIL
;CashlessReq SUCCESS ""
CashlessReq FAIL ""
EndIf
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID3 PriceDrink ServiceCharge Donate
@ -220,8 +220,8 @@
EndIf
Else
If Seeker.CreditCard = 1 Then
;CashlessReq SUCCESS
CashlessReq FAIL
;CashlessReq SUCCESS ""
CashlessReq FAIL ""
EndIf
Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID3 PriceDrink ServiceCharge Donate
@ -234,7 +234,7 @@
If LastMakeSpiralResult = 2 Then
If CreditCardVoid = 0 Then
CashlessReq FAIL
CashlessReq FAIL ""
Var ChangeFlag = 1
Var CreditCardVoid = 1
EndIf
@ -244,7 +244,7 @@
If Timeout > 210 Then
If CreditCardVoid = 0 Then
CashlessReq FAIL
CashlessReq FAIL ""
Var ChangeFlag = 1
Var CreditCardVoid = 1
EndIf

11
xml/event/tricker.ev
View file

@ -8,6 +8,8 @@
Var ChildrenFree = 0
Var KBankCashlessMachine = 0
Var OreoDueEnable = 0
Var OreoForFreeEnable = 0
Var SoundBackToSchoolEnable = 0
@ -353,4 +355,11 @@ If BoxID = 176757 Then
Var SaveOrderNameAndPictureEnable = 1
EndIf
DEBUGVAR SystemDateDayOfWeek
DEBUGVAR SystemDateDayOfWeek
READ_FILE "/mnt/sdcard/coffeevending/kbank_cashless_machine" KBankCashlessMachineContent
DEBUGVAR KBankCashlessMachineContent
If KBankCashlessMachineContent = 1 Then
Var KBankCashlessMachine = 1
EndIf
DEBUGVAR KBankCashlessMachine

5
xml/page_NewBrewing3.xml
View file

@ -42,6 +42,7 @@
DEBUGVAR Seeker
DEBUGVAR Seeker.selected_a_drink
DEBUGVAR Seeker.ServiceAmount2
DEBUGVAR Seeker.CashlessVendingTrackNumber
DEBUGVAR Seeker.CodeNumber
@ -948,7 +949,7 @@
If Seeker.PayWithQR = 0 Then
If Seeker.CreditCard = 1 Then
CashlessReq SUCCESS
CashlessReq SUCCESS Seeker.CashlessVendingTrackNumber
EndIf
Else
@ -978,7 +979,7 @@
If Seeker.PayWithQR = 0 Then
If Seeker.CreditCard = 1 Then
CashlessReq FAIL
CashlessReq FAIL Seeker.CashlessVendingTrackNumber
Var ChangeFlag = 1
Var CreditCardVoid = 1
Else

5
xml/page_NewBrewing3Conti.xml
View file

@ -85,6 +85,7 @@
DEBUGVAR Seeker
DEBUGVAR Seeker.selected_a_drink
DEBUGVAR Seeker.ServiceAmount2
DEBUGVAR Seeker.CashlessVendingTrackNumber
DEBUGVAR Seeker.CodeNumber
@ -457,7 +458,7 @@
If Seeker.PayWithQR = 0 Then
If Seeker.CreditCard = 1 Then
CashlessReq SUCCESS
CashlessReq SUCCESS Seeker.CashlessVendingTrackNumber
EndIf
Else
@ -487,7 +488,7 @@
If Seeker.PayWithQR = 0 Then
If Seeker.CreditCard = 1 Then
CashlessReq FAIL
CashlessReq FAIL Seeker.CashlessVendingTrackNumber
Var ChangeFlag = 1
Var CreditCardVoid = 1
Else

3
xml/page_NewCannotConti.xml
View file

@ -55,6 +55,7 @@
DEBUGVAR Seeker.TNumberTaobinCredit
DEBUGVAR TelephoneNumber
DEBUGVAR Seeker.StoreCreditFlag
DEBUGVAR Seeker.CashlessVendingTrackNumber
DEBUGVAR Seeker
@ -519,7 +520,7 @@
If Seeker.PayWithQR = 0 Then
If Seeker.CreditCard = 1 Then
CashlessReq FAIL
CashlessReq FAIL Seeker.CashlessVendingTrackNumber
Var ChangeFlag = 1
Var CreditCardVoid = 1
Else

10
xml/page_brewing3.xml
View file

@ -1261,8 +1261,8 @@
If Seeker.CreditCard = 1 Then
CashlessReq SUCCESS
;CashlessReq FAIL
CashlessReq SUCCESS ""
;CashlessReq FAIL ""
EndIf
Var PayDetail2 = Seeker.PayDetail2
@ -1271,8 +1271,8 @@
If Seeker.CreditCard = 1 Then
CashlessReq SUCCESS
;CashlessReq FAIL
CashlessReq SUCCESS ""
;CashlessReq FAIL ""
EndIf
Var PayDetail2 = Seeker.PayDetail2
@ -1340,7 +1340,7 @@
If Seeker.PayWithQR = 0 Then
If Seeker.CreditCard = 1 Then
CashlessReq FAIL
CashlessReq FAIL ""
Var ChangeFlag = 1
Var CreditCardVoid = 1
Else

10
xml/page_brewing3Conti.xml
View file

@ -709,8 +709,8 @@
If Seeker.CreditCard = 1 Then
CashlessReq SUCCESS
;CashlessReq FAIL
CashlessReq SUCCESS ""
;CashlessReq FAIL ""
EndIf
Var PayDetail2 = Seeker.PayDetail2
@ -721,8 +721,8 @@
If Seeker.CreditCard = 1 Then
CashlessReq SUCCESS
;CashlessReq FAIL
CashlessReq SUCCESS ""
;CashlessReq FAIL ""
EndIf
Var PayDetail2 = Seeker.PayDetail2
@ -793,7 +793,7 @@
If Seeker.PayWithQR = 0 Then
If Seeker.CreditCard = 1 Then
CashlessReq FAIL
CashlessReq FAIL ""
Var ChangeFlag = 1
Var CreditCardVoid = 1
Else

2
xml/page_cannotConti.xml
View file

@ -635,7 +635,7 @@
If Seeker.PayWithQR = 0 Then
If Seeker.CreditCard = 1 Then
CashlessReq FAIL
CashlessReq FAIL ""
Var ChangeFlag = 1
Var CreditCardVoid = 1
Else

18
xml/page_payment_cash-AUS.xml
View file

@ -744,7 +744,7 @@
Var Seeker.CreditCard = 1
Var Seeker.CreditCardRef = CreditCardRef
CashlessReq SUCCESS
CashlessReq SUCCESS ""
Open "ROOT/taobin_project/xml/page_thankyou.xml"
@ -1033,7 +1033,7 @@
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
Var CancelCounter = 0
@ -1573,7 +1573,7 @@
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
EndIf
@ -1656,7 +1656,7 @@ EndIf
If CancelFlag = 0 Then
If IsCardlessEnable = 1 Then
CashlessReq OFF
CashlessReq OFF ""
Var IsCardlessEnable = 0
EndIf
Var TelephoneNumber = ""
@ -1690,7 +1690,7 @@ EndIf
If IsCardlessEnable = 1 Then
CashlessReq OFF
CashlessReq OFF ""
Var IsCardlessEnable = 0
EndIf
@ -1731,7 +1731,7 @@ EndIf
Var PopupCancelButtonState = "Enable"
If IsCardlessEnable = 1 Then
CashlessReq OFF
CashlessReq OFF ""
Var IsCardlessEnable = 0
EndIf
VendingQR ON
@ -1842,7 +1842,7 @@ EndIf
Var EMAMemberID = ""
If IsCardlessEnable = 1 Then
CashlessReq OFF
CashlessReq OFF ""
Var IsCardlessEnable = 0
EndIf
@ -1894,7 +1894,7 @@ EndIf
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
EndIf
@ -2089,7 +2089,7 @@ EndIf
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf

12
xml/page_payment_cash-HKG.xml
View file

@ -1676,9 +1676,9 @@
<X> X_CASH </X>
<Y> TopRowY </Y>
<State> CreditCardButtonState </State>
<Filename> Var( CountryRootPath + "/image/page_payment/bn_pay_with_ccard.png") </Filename>
<FilenamePress> Var( CountryRootPath + "/image/page_payment/bd_pay_with_ccard.png") </FilenamePress>
<FilenameDisable> Var( CountryRootPath + "/image/page_payment/bd_pay_with_ccard.png") </FilenameDisable>
<Filename> Var( CountryRootPath + "/image/page_payment/bn_credit_card.png") </Filename>
<FilenamePress> Var( CountryRootPath + "/image/page_payment/bp_credit_card.png") </FilenamePress>
<FilenameDisable> Var( CountryRootPath + "/image/page_payment/bd_credit_card.png") </FilenameDisable>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
@ -1727,9 +1727,9 @@ EndIf
<X> 439 </X>
<Y> TopRowY </Y>
<State> QRCodeButtonState </State>
<Filename> Var( CountryRootPath + "/image/page_payment/bn_pay_with_qr_code.png") </Filename>
<FilenamePress> Var( CountryRootPath + "/image/page_payment/bp_pay_with_qr_code.png") </FilenamePress>
<FilenameDisable> Var( CountryRootPath + "/image/page_payment/bd_pay_with_qr_code.png") </FilenameDisable>
<Filename> Var( CountryRootPath + "/image/page_payment/bn_qr_code.png") </Filename>
<FilenamePress> Var( CountryRootPath + "/image/page_payment/bp_qr_code.png") </FilenamePress>
<FilenameDisable> Var( CountryRootPath + "/image/page_payment/bd_qr_code.png") </FilenameDisable>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>

10
xml/page_payment_cash-IDR.xml
View file

@ -843,7 +843,7 @@
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
Var CancelCounter = 0
@ -1310,7 +1310,7 @@
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
EndIf
@ -1621,7 +1621,7 @@
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
EndIf
@ -1712,11 +1712,11 @@
;CoinVending ON
;VendingQR OFF
CashlessReq OFF
CashlessReq OFF ""
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf

16
xml/page_payment_cash-MYR.xml
View file

@ -709,12 +709,12 @@
Var LOADING_STATE = "Invisible"
EndIf
CashlessReq OFF
CashlessReq OFF ""
Coin CARDOFF
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
EndIf
@ -929,7 +929,7 @@
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
Var CancelCounter = 0
@ -1371,7 +1371,7 @@
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
Coin CARDOFF
@ -1804,12 +1804,12 @@ EndIf
Var CancelNumber = 12
EndIf
CashlessReq OFF
CashlessReq OFF ""
Coin CARDOFF
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
EndIf
EndIf
@ -1909,12 +1909,12 @@ EndIf
Var alphaStateQR = "Invisible"
Var QRCODE99 = ""
CashlessReq OFF
CashlessReq OFF ""
Coin CARDOFF
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf

62
xml/page_payment_cash-SGP.xml
View file

@ -30,7 +30,7 @@
Var PreScaleCanculate = 100
DEBUGVAR VendingCashless
CashlessReq FAIL
CashlessReq FAIL ""
Var CashlessPayFlag = 0
@ -738,7 +738,7 @@
Var Seeker.CreditCard = 1
Var Seeker.CreditCardRef = CreditCardRef
CashlessReq SUCCESS
CashlessReq SUCCESS ""
DEBUGVAR UserChoosePayment
Var UserChoosePayment = ""
@ -859,7 +859,7 @@
If CancelFlag = 1 Then
DEBUGVAR CancelFlag
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
EndIf
@ -1065,19 +1065,19 @@
If UserChoosePayment = "CreditCashless" Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
If UserChoosePayment = "" Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
EndIf
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
Var CancelCounter = 0
@ -1542,18 +1542,18 @@
If CashlessPayFlag = 0 Then
If UserChoosePayment = "CreditCashless" Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
If UserChoosePayment = "" Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
EndIf
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
@ -1771,18 +1771,18 @@ EndIf
If CashlessPayFlag = 0 Then
If UserChoosePayment = "CreditCashless" Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
If UserChoosePayment = "" Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
EndIf
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
EndIf
@ -1873,24 +1873,24 @@ EndIf
;CoinVending ON
;VendingQR OFF
CashlessReq OFF
CashlessReq OFF ""
If CashlessPayFlag = 0 Then
If UserChoosePayment = "CreditCashless" Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
If UserChoosePayment = "" Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
EndIf
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
@ -1984,18 +1984,18 @@ EndIf
If CashlessPayFlag = 0 Then
If UserChoosePayment = "CreditCashless" Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
If UserChoosePayment = "" Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
EndIf
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
EndIf
@ -2053,18 +2053,18 @@ EndIf
If CashlessPayFlag = 0 Then
If UserChoosePayment = "CreditCashless" Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
If UserChoosePayment = "" Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
EndIf
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
EndIf
@ -2107,18 +2107,18 @@ EndIf
If CashlessPayFlag = 0 Then
If UserChoosePayment = "CreditCashless" Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
If UserChoosePayment = "" Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
EndIf
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
@ -2233,19 +2233,19 @@ EndIf
If CashlessPayFlag = 0 Then
If UserChoosePayment = "CreditCashless" Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
If UserChoosePayment = "" Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
EndIf
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
DEBUGVAR UserChoosePayment
@ -2320,18 +2320,18 @@ EndIf
If CashlessPayFlag = 0 Then
If UserChoosePayment = "CreditCashless" Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
If UserChoosePayment = "" Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
EndIf
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
DEBUGVAR UserChoosePayment

14
xml/page_payment_cash-UAE.xml
View file

@ -746,7 +746,7 @@
Var Seeker.CreditCard = 1
Var Seeker.CreditCardRef = CreditCardRef
CashlessReq SUCCESS
CashlessReq SUCCESS ""
Open "ROOT/taobin_project/xml/page_thankyou.xml"
@ -754,8 +754,8 @@
If VendingCashless = "END" Then
If ReqPayInfoFromCashOther = 2 Then
DEBUGVAR "CashlessReq OFF"
CashlessReq OFF
DEBUGVAR "CashlessReq OFF """
CashlessReq OFF ""
EndIf
EndIf
@ -996,7 +996,7 @@
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
Var CancelCounter = 0
@ -1446,7 +1446,7 @@
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
Var CancelContinue = 0
@ -1670,7 +1670,7 @@
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
EndIf
@ -1770,7 +1770,7 @@
If CashlessPayFlag = 1 Then
Var CashlessPayFlag = 0
CashlessReq FAIL
CashlessReq FAIL ""
EndIf
Var CancelContinue = 1

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