diff --git a/xml/page_payment_cash-HKG.xml b/xml/page_payment_cash-HKG.xml
index 74db17a5..f4ba671d 100644
--- a/xml/page_payment_cash-HKG.xml
+++ b/xml/page_payment_cash-HKG.xml
@@ -7,15 +7,6 @@
PlaySoundLag
- READ_FILE "/mnt/sdcard/coffeevending/sim_on" str_sim_on
- DEBUGVAR str_sim_on
-
- Var HKGSimMode = "Invisible"
-
- If str_sim_on = "1" Then
- Var HKGSimMode = "Enable"
- EndIf
-
Var cash_disable = "0"
READ_FILE "/mnt/sdcard/coffeevending/cash_disable" cash_disable
DEBUGVAR cash_disable
@@ -23,9 +14,6 @@
SAVELOG "page_payment_cach-HKG.xml"
Var PreScaleCanculate = 100
- DEBUGVAR VendingCashless
- CashlessReq FAIL
-
Var CashlessPayFlag = 0
Var RemainAmountStrENG = ""
@@ -68,7 +56,6 @@
DEBUGVAR QRCODETMP
DEBUGVAR IsSmoRet
- Var countClick2 = 0
;SAVELOG SelectDrink
;SAVELOG NameDrink
;SAVELOG NameDrinkTH
@@ -112,7 +99,8 @@
Var CoinInCounter = 0
Var CancelNumber = 3
-
+ Var CreditCardButtonState = "Disable"
+ Var QRCodeButtonState = "Disable"
Var PayAmount = PriceDrink
Var RemainAmount = PayAmount - Seeker.IntVendingCampaign
@@ -169,55 +157,50 @@
DEBUGVAR QRCODE99KBANK
- If RoadShow = "true" Then
- Var PayState1 = "Invisible"
- Var PayState2 = "Invisible"
- Var PayState3 = "Invisible"
- Var PayState4 = "Invisible"
- Var PayState5 = "Invisible"
- Var PayState6 = "Invisible"
- Var showRemaining = "Free"
+ If RoadShow = "true" Then
+ Var CreditCardButtonState = "Invisible"
+ Var QRCodeButtonState = "Invisible"
+ Var showRemaining = "Free"
Else
- Var PayState1 = "Enable"
+ ;Var PayState1 = "Enable"
- If cash_disable = "1" Then
- Var PayState1 = "Press"
- EndIf
+ ;If cash_disable = "1" Then
+ ; Var PayState1 = "Press"
+ ;EndIf
- If Seeker.IntVendingCampaign = 0 Then
- Var PayState2 = "Enable"
- Var PayState4 = "Enable"
- Var PayState5 = "Enable"
- Var PayState6 = "Enable"
- Else
- SAVELOG "Cash only IntVendingCampaign"
- Var PayState2 = "Disable"
- Var PayState4 = "Disable"
- Var PayState5 = "Enable"
- Var PayState6 = "Disable"
- EndIf
- Var PayState3 = "Enable"
+ Var CreditCardButtonState = "Enable"
+ Var QRCodeButtonState = "Enable"
+
+ ;If Seeker.IntVendingCampaign = 0 Then
+ ; Var CreditCardButtonState = "Enable"
+ ; Var QRCodeButtonState = "Enable"
+ ;Else
+ ; SAVELOG "Cash only IntVendingCampaign"
+ ; Var PayState2 = "Disable"
+ ; Var PayState4 = "Disable"
+ ; Var PayState5 = "Enable"
+ ; Var PayState6 = "Disable"
+ ;EndIf
+
+ ;Var PayState3 = "Enable"
DEBUGVAR CoinAmount
If CoinAmount > 0 Then
SAVELOG "Cash only CoinAmount"
- Var PayState2 = "Disable"
- Var PayState3 = "Disable"
- Var PayState4 = "Disable"
- Var PayState5 = "Disable"
- Var PayState6 = "Disable"
+ Var CreditCardButtonState = "Disable"
+ Var QRCodeButtonState = "Disable"
Var CoinInFlag = 1
EndIf
- If Seeker.IntVendingCredit > 0 Then
- SAVELOG "Cash only IntVendingCredit"
- Var PayState2 = "Disable"
- Var PayState4 = "Disable"
- Var PayState5 = "Disable"
- Var PayState6 = "Disable"
- EndIf
+ ;If Seeker.IntVendingCredit > 0 Then
+ ; SAVELOG "Cash only IntVendingCredit"
+ ; Var PayState2 = "Disable"
+ ; Var PayState4 = "Disable"
+ ; Var PayState5 = "Disable"
+ ; Var PayState6 = "Disable"
+ ;EndIf
@@ -237,14 +220,14 @@
Var Seeker.PayWithQR = 0
Var NoGotoMenupage = "false"
- If show_eng = "true" Then
- Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment_en/page_payment/bn_cash.png"
- Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment_en/page_payment/bp_cash.png"
- Else
- Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment/bn_cash.png"
- Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment/bp_cash.png"
- EndIf
+ If show_eng = "true" Then
+ Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment_en/page_payment/bn_cash.png"
+ Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment_en/page_payment/bp_cash.png"
+ Else
+ Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment/bn_cash.png"
+ Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment/bp_cash.png"
+ EndIf
Var X_CASH = 216
@@ -366,11 +349,36 @@
EndIf
- ;If CoinInFlag = 0 Then
- ; If CancelFlag = 0 Then
- ; Coin CARD
- ; EndIf
- ;EndIf
+ Var UserChoosePayment = ""
+
+ Var EnablingCountDown = 0
+ Var EnablingCreditCard = 0
+ Var EnablingQRCode = 0
+
+ Var RequestCreditCardCountDown = 0
+ Var RequestQRCodeCountDown = 0
+
+ Var SwitchingCreditCardToQRCode = 0
+ Var SwitchingQRCodeToCreditCard = 0
+ Var SwitchingContDown = 0
+
+ Var FirstTimeDelayEnableButton = 1
+ Var FirstTimeDelayEnableButtonCountDown = 5
+
+ If CoinInFlag = 0 Then
+ If CancelFlag = 0 Then
+ If CreditCardButtonState = "Enable" Then
+ Coin CARD
+ Var UserChoosePayment = "CreditCard"
+ Var CreditCardButtonState = "Disable"
+ Var QRCodeButtonState = "Disable"
+ Var LOADING_STATE = "Enable"
+ Var EnablingCreditCard = 1
+ Var EnablingCountDown = 5
+ Var RequestCreditCardCountDown = 1
+ EndIf
+ EndIf
+ EndIf
If show_eng = "true" Then
Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment"
@@ -496,12 +504,9 @@
EndIf
- Var UserChoosePayment = ""
DEBUGVAR SettingDisableTaobinCredit
Var CancelContinue = 0
-
- Var QR_POPUP = CountryRootPath + "/image/page_payment/img_tap_card_5_sec.png"
@@ -736,7 +741,7 @@
Var LOADING_STATE = "Invisible"
If ViewBill > 0 Then
- CoinVending BILLREJECT
+ CoinVending BILLREJECT
EndIf
VendingQR OFF
@@ -744,7 +749,7 @@
Refresh
If Seeker = "curr" Then
- MakeDrinkV1 SelectDrink SelectSugarID
+ MakeDrinkV1 SelectDrink SelectSugarID
EndIf
Var Seeker.CreditCard = 1
Var Seeker.CreditCardRef = CreditCardRef
@@ -814,66 +819,10 @@
- Var CreditCardRef = ""
- GenHashWithTimeStamp CreditCardRef
DEBUGVAR VendingCashless
DEBUGVAR UserChoosePayment
DEBUGVAR CoinInFlag
-
-
- If CancelFlag = 0 Then
-
- If CoinInFlag = 0 Then
-
- DEBUGVAR UserChoosePayment
- DEBUGVAR VendingCashless
-
- If UserChoosePayment = "CreditCashless" Then
- If VendingCashless = "READY" Then
- Var QRCODE99 = ""
- Var Timeout = 0
- Var QRErrorState = "Invisible"
- Var QR_POPUP = "ROOT/taobin_project/image/page_payment_en/page_payment/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
-
- If UserChoosePayment = "" Then
- If VendingCashless = "READY" Then
- Var QRCODE99 = ""
- Var Timeout = 0
- Var QRErrorState = "Invisible"
- Var QR_POPUP = "ROOT/taobin_project/image/page_payment_en/page_payment/img_popup8-2.png"
- Var VendingCashless = "-"
- Var LOADING_STATE = "Enable"
- Var alphaState = "Enable"
- Var RemainAmountX = PayAmount - Seeker.IntVendingCampaign
- CashlessPay RemainAmountX CreditCardRef
- Var CashlessPayFlag = 1
-
- Var UserChoosePayment = "CreditCashless"
- EndIf
- EndIf
-
- EndIf
-
- Else
-
- If CancelFlag = 1 Then
- DEBUGVAR CancelFlag
- Var CashlessPayFlag = 0
- CashlessReq FAIL
- EndIf
-
- EndIf
-
-
Refresh
@@ -1070,24 +1019,10 @@
Var CancelFlag = 1
Var cancelState = "Enable"
- If CashlessPayFlag = 0 Then
-
- If UserChoosePayment = "CreditCashless" Then
- Var CashlessPayFlag = 0
- CashlessReq FAIL
- EndIf
-
- If UserChoosePayment = "" Then
- Var CashlessPayFlag = 0
- CashlessReq FAIL
- EndIf
-
- EndIf
-
If CashlessPayFlag = 1 Then
- Var CashlessPayFlag = 0
- CashlessReq FAIL
- EndIf
+ CashlessReq VENDINGCANCEL
+ SAVELOG "Cashless called VENDINGCANCEL"
+ EndIf
Var CancelCounter = 0
If CoinAmount = 0 Then
@@ -1209,6 +1144,121 @@
EndIf
+ If FirstTimeDelayEnableButton = 1 Then
+ If FirstTimeDelayEnableButtonCountDown = 0 Then
+ Var CreditCardButtonState = "Enable"
+ Var QRCodeButtonState = "Enable"
+ Var LOADING_STATE = "Invisible"
+ Var FirstTimeDelayEnableButton = 0
+ Else
+ Var FirstTimeDelayEnableButtonCountDown = FirstTimeDelayEnableButtonCountDown - 1
+ EndIf
+ EndIf
+
+ If EnablingCreditCard = 1 Then
+
+ If RequestCreditCardCountDown = 0 Then
+
+ GenHashWithTimeStamp CreditCardRef
+
+ ; 65535 mean Credit card
+ Var CreditCardRef = CreditCardRef + "/65535"
+
+ DEBUGVAR CreditCardRef
+
+
+ Var RemainAmountX = PayAmount - Seeker.IntVendingCampaign
+ CashlessPay RemainAmountX CreditCardRef
+ Var CashlessPayFlag = 1
+ Var RequestCreditCardCountDown = -1
+ Else
+ Var RequestCreditCardCountDown = RequestCreditCardCountDown - 1
+ EndIf
+
+ If EnablingCountDown = 0 Then
+ Var Timeout = 0
+ Var UserChoosePayment = "CreditCard"
+ Var QRErrorState = "Invisible"
+ Var QR_POPUP = CountryRootPath + "/image/page_payment/img_tap_card_5_sec.png"
+ Var VendingCashless = "-"
+ If FirstTimeDelayEnableButton = 0 Then
+ Var LOADING_STATE = "Invisible"
+ EndIf
+ Var EnablingCountDown = 0
+ Var EnablingCreditCard = 0
+ Else
+ Var EnablingCountDown = EnablingCountDown - 1
+ EndIf
+
+ EndIf
+
+ If EnablingQRCode = 1 Then
+
+ If RequestQRCodeCountDown = 0 Then
+
+ GenHashWithTimeStamp CreditCardRef
+
+ ; 0 mean QR code
+ Var CreditCardRef = CreditCardRef + "/0"
+ DEBUGVAR CreditCardRef
+
+
+ Var RemainAmountX = PayAmount - Seeker.IntVendingCampaign
+ CashlessPay RemainAmountX CreditCardRef
+ Var CashlessPayFlag = 1
+ Var RequestQRCodeCountDown = -1
+ Else
+ Var RequestQRCodeCountDown = RequestQRCodeCountDown - 1
+ EndIf
+
+ If EnablingCountDown = 0 Then
+ Var Timeout = 0
+ Var UserChoosePayment = "QRCode"
+ Var QRErrorState = "Invisible"
+ Var QR_POPUP = CountryRootPath + "/image/page_payment/img_tap_card_5_sec.png"
+ Var VendingCashless = "-"
+ Var LOADING_STATE = "Invisible"
+ Var EnablingQRCode = 0
+ Var EnablingCountDown = 0
+ Else
+ Var EnablingCountDown = EnablingCountDown - 1
+ EndIf
+
+ EndIf
+
+ If SwitchingCreditCardToQRCode = 1 Then
+ If SwitchingContDown = 0 Then
+ Coin CARD
+ Var EnablingQRCode = 1
+ Var EnablingCountDown = 5
+ Var RequestCreditCardCountDown = 1
+ Var SwitchingCreditCardToQRCode = 0
+ Else
+ Var SwitchingContDown = SwitchingContDown - 1
+ EndIf
+ EndIf
+
+ If SwitchingQRCodeToCreditCard = 1 Then
+ If SwitchingContDown = 0 Then
+ Coin CARD
+ Var EnablingCreditCard = 1
+ Var EnablingCountDown = 5
+ Var RequestQRCodeCountDown = 1
+ Var SwitchingQRCodeToCreditCard = 0
+ Else
+ Var SwitchingContDown = SwitchingContDown - 1
+ EndIf
+ EndIf
+
+ If CashlessClosingPopup = 1 Then
+ If CashlessClosingPopupCountDown = 0 Then
+ Var alphaState = "Invisible"
+ Var LOADING_STATE = "Invisible"
+ Var CashlessClosingPopup = 0
+ Else
+ Var CashlessClosingPopupCountDown = CashlessClosingPopupCountDown - 1
+ EndIf
+ EndIf
Refresh
TimerReset
@@ -1539,31 +1589,15 @@
SAVELOG "ButtonCancleMain > Cancle Order."
Machine CancelWepApp
- CoinVending OFF
+ ;CoinVending OFF
Var CancelFlag = 1
Var cancelState = "Enable"
Var CancelCounter = 0
- If FlagQROpened = 1 Then
- Var CancelNumber = 12
- EndIf
-
- If CashlessPayFlag = 0 Then
- If UserChoosePayment = "CreditCashless" Then
- Var CashlessPayFlag = 0
- CashlessReq FAIL
- EndIf
-
- If UserChoosePayment = "" Then
- Var CashlessPayFlag = 0
- CashlessReq FAIL
- EndIf
- EndIf
-
If CashlessPayFlag = 1 Then
- Var CashlessPayFlag = 0
- CashlessReq FAIL
- EndIf
+ CashlessReq VENDINGCANCEL
+ SAVELOG "Cashless called VENDINGCANCEL"
+ EndIf
@@ -1609,37 +1643,37 @@
"ROOT/taobin_project/image/topping2/blender_icon.png"
-
+;
+
+