THAI: Supported KBank cashless machine

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

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

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

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

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

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