diff --git a/xml/page_payment_code.xml b/xml/page_payment_code.xml index 28925622..1ad72423 100644 --- a/xml/page_payment_code.xml +++ b/xml/page_payment_code.xml @@ -13,7 +13,7 @@ Var Seeker.FreeVendingCampaign = 0 Var Timeout = 0 - + Var GetPayInfoFlag = 0 Var Seeker.CodeChannel = 0 Var Seeker.CollectPointMain = 0 @@ -22,17 +22,17 @@ ;Var VendingQRCode = "ERROR" ;VendingQR ON ;Var QRCODE99 = "" - + ;CoinVending OFF VendingQR OFF - + Var ShowTextNumber = "Enable" Var ShowErrorText = "Invisible" Var Tel_Confirm_State = "Invisible" Var ErrorCause = "" - - If show_eng = "true" Then + + If show_eng = "true" Then Var DirImage = "ROOT/taobin_project/image/collectiing_en" Else Var DirImage = "ROOT/taobin_project/image/collectiing" @@ -40,7 +40,7 @@ If web_readyOK = "true" Then Var web_readyOK = "false" - + If web_code = "" Then Else Var ShowTextNumber = "Invisible" @@ -70,11 +70,11 @@ Var ECommerce = ECommerce + TOPPING_PRICE Var ECommerce = ECommerce + "/" - Var ECommerce = ECommerce + DiscountDrink + Var ECommerce = ECommerce + DiscountDrink Var ECommerce = ECommerce + "/" - Var ECommerce = ECommerce + SessionID2 + Var ECommerce = ECommerce + SessionID2 Var ECommerce = ECommerce + "/" - Var ECommerce = ECommerce + SelectDrink + Var ECommerce = ECommerce + SelectDrink Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + "C00" Var ECommerce = ECommerce + "/" @@ -91,7 +91,7 @@ GetPayInfo TelephoneNumber2 ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc Var Timeout = 0 - + Var TelephoneNumber = Seeker.CodeNumber Var Seeker.CodeChannel = 1 EndIf @@ -101,49 +101,49 @@ Var Mode# = 0 Var Str# = "" Var TelephoneNumber# = "" - + 1000 - - ;Open "ROOT/xml/page_board.xml" + + ;Open "ROOT/xml/page_board.xml" + - Var Timeout = Timeout + 1 If Timeout > 30 Then ;VendingQR OFF - ;Open menu_back_to_main + ;Open menu_back_to_main Var PayState1 = "PressForever" Var PayState2 = "Enable" Var QRChannel = 0 Var Seeker.CodeChannel = 0 - If CART_COUNT >= 1 Then - Open "ROOT/taobin_project/xml/page_payment_cashMore.xml" + If CART_COUNT >= 1 Then + Open "ROOT/taobin_project/xml/page_payment_cashMore.xml" Else - Open "ROOT/taobin_project/xml/page_payment_cash.xml" + Open "ROOT/taobin_project/xml/page_payment_cash.xml" EndIf Refresh EndIf TimerReset - + - + If IDCardStatus = "OK" Then If IDCardReady = "OK" Then If IDCardData = "START" Then CoinVending OFF - Open "ROOT/taobin_project/xml/page_show_consent2.xml" + Open "ROOT/taobin_project/xml/page_show_consent2.xml" EndIf EndIf EndIf - + @@ -159,7 +159,7 @@ - + If Seeker.CodeChannel = 1 Then @@ -174,24 +174,24 @@ SPLIT ECommerce "/" 9 ShouldCollectPoint If Seeker.VendingCode = "" Then - Var Seeker.VendingCode = "C00" + Var Seeker.VendingCode = "C00" EndIf If Seeker.VendingCode = "KBA:2" Then - Var Seeker.VendingCode = "C00" + Var Seeker.VendingCode = "C00" EndIf If Seeker.VendingCode = "AIR:2" Then - Var Seeker.VendingCode = "C00" + Var Seeker.VendingCode = "C00" EndIf If Seeker.VendingCode = "TWN:2" Then - Var Seeker.VendingCode = "C00" + Var Seeker.VendingCode = "C00" EndIf SAVELOG Seeker.VendingCode SAVELOG Seeker.VendingCampaignRI3 - + SAVELOG ShouldCollectPoint INT ShouldCollectPoint @@ -208,7 +208,7 @@ If IntVendingCampaign1 > 0 Then Var VendingCreditRemain = VendingCampaign1 - EndIf + EndIf EndIf @@ -216,7 +216,7 @@ Var Seeker.IntVendingCampaign = Seeker.VendingCampaignRI3 INT Seeker.IntVendingCampaign - + Var VendingREFID = SessionID @@ -227,11 +227,11 @@ If Seeker.IntVendingCampaign > 0 Then Var QRChannel = 0 - If Seeker.IntVendingCampaign >= PayAmount Then + If Seeker.IntVendingCampaign >= PayAmount Then If ShouldCollectPoint = 1 Then Var Seeker.CollectPointMain = 1 - + If PayMentCodeShouldCollectPromotionPoint = 1 Then Var Seeker.CollectPointPromotion = 1 EndIf @@ -240,24 +240,24 @@ TRY "ROOT/taobin_project/xml/event/collect_promotion_point_condition.ev" - ;Open "ROOT/taobin_project/xml/page_payment_cash.xml" + ;Open "ROOT/taobin_project/xml/page_payment_cash.xml" Var Seeker.VendingCampaign = PayAmount Var Seeker.FreeVendingCampaign = 1 CoinVending OFF - ;Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif" - If CART_COUNT >= 1 Then + ;Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif" + If CART_COUNT >= 1 Then Cart "PreparID" 1 Var CART_INDEX = 1 Var PayReference = "" GenHashWithTimeStamp PayReference Cart "MakeID" CART_INDEX - Open "ROOT/taobin_project/xml/page_thankyou.xml" + Open "ROOT/taobin_project/xml/page_thankyou.xml" Else Var CART_INDEX = 0 If Seeker = "curr" Then - If New_Payment = 1 Then + If New_Payment = 1 Then __CMD "SetPay" "coffee-payment" Seeker.VendingTSID Seeker.ORDER_ID EndIf MakeDrinkV1 SelectDrink SelectSugarID @@ -271,7 +271,7 @@ Var DrinkPaid = SelectDrink Var PaidPaymentFromNextStage = 1 EndIf - Open "ROOT/taobin_project/xml/page_thankyou.xml" + Open "ROOT/taobin_project/xml/page_thankyou.xml" EndIf Else If ShouldCollectPoint = 1 Then @@ -284,8 +284,8 @@ EndIf - - + + ;Var SessionID2 = SelectSlot + ":" ;Var SessionID2 = SessionID2 + Seeker.ExtendData @@ -297,11 +297,11 @@ ;Var ECommerce = "" ;Var ECommerce = ECommerce + PriceDrink ;Var ECommerce = ECommerce + "/" - ;Var ECommerce = ECommerce + DiscountDrink + ;Var ECommerce = ECommerce + DiscountDrink ;Var ECommerce = ECommerce + "/" - ;Var ECommerce = ECommerce + SessionID2 + ;Var ECommerce = ECommerce + SessionID2 ;Var ECommerce = ECommerce + "/" - ;Var ECommerce = ECommerce + SelectDrink + ;Var ECommerce = ECommerce + SelectDrink ;Var ECommerce = ECommerce + "/" ;Var ECommerce = ECommerce + "KBA:2/" ;Var ECommerce = ECommerce + Seeker.VendingCode @@ -324,11 +324,11 @@ ;Var Seeker.CodeChannel = 2 Var Seeker.CodeChannel = 1 - - If CART_COUNT >= 1 Then - Open "ROOT/taobin_project/xml/page_payment_cashMore.xml" + + If CART_COUNT >= 1 Then + Open "ROOT/taobin_project/xml/page_payment_cashMore.xml" Else - Open "ROOT/taobin_project/xml/page_payment_cash.xml" + Open "ROOT/taobin_project/xml/page_payment_cash.xml" EndIf @@ -343,7 +343,7 @@ EndIf EndIf - Else + Else ;SAVELOG "Seeker.CodeChannel 2 > ActOK." ; @@ -354,12 +354,12 @@ ;Var QRCODETMP = QRCODE99 ;Var Seeker.CodeChannel = 1 ; - ;If CART_COUNT >= 1 Then - ; Open "ROOT/taobin_project/xml/page_payment_cashMore.xml" + ;If CART_COUNT >= 1 Then + ; Open "ROOT/taobin_project/xml/page_payment_cashMore.xml" ;Else - ; Open "ROOT/taobin_project/xml/page_payment_cash.xml" + ; Open "ROOT/taobin_project/xml/page_payment_cash.xml" ;EndIf - + EndIf @@ -368,7 +368,7 @@ If Seeker.CodeChannel = 1 Then Var TelephoneNumber = "" - + Var ShowErrorText = "Enable" SAVELOG ShowErrorText @@ -386,7 +386,7 @@ If ErrorCause = "failed_fromoper_0006" Then Var text_show_error = DirImage + "/text_show_error4.png" EndIf - + If ErrorCause = "failed_fromoper_0007" Then Var text_show_error = DirImage + "/text_show_error7.png" EndIf @@ -405,10 +405,10 @@ Var Seeker.CodeChannel = 1 Var QRCODE99 = "" Var QRCODETMP = "" - If CART_COUNT >= 1 Then - Open "ROOT/taobin_project/xml/page_payment_cashMore.xml" + If CART_COUNT >= 1 Then + Open "ROOT/taobin_project/xml/page_payment_cashMore.xml" Else - Open "ROOT/taobin_project/xml/page_payment_cash.xml" + Open "ROOT/taobin_project/xml/page_payment_cash.xml" EndIf EndIf @@ -438,7 +438,7 @@ "ROOT/taobin_project/image/collectiing/bp_1.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "1" Var ShowTextNumber = "Invisible" @@ -449,7 +449,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -463,7 +463,7 @@ "ROOT/taobin_project/image/collectiing/bp_2.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "2" Var ShowTextNumber = "Invisible" @@ -474,7 +474,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -488,7 +488,7 @@ "ROOT/taobin_project/image/collectiing/bp_3.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "3" Var ShowTextNumber = "Invisible" @@ -499,7 +499,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -513,7 +513,7 @@ "ROOT/taobin_project/image/collectiing/bp_A.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "A" Var ShowTextNumber = "Invisible" @@ -524,7 +524,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -538,7 +538,7 @@ "ROOT/taobin_project/image/collectiing/bp_4.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "4" Var ShowTextNumber = "Invisible" @@ -549,7 +549,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -563,7 +563,7 @@ "ROOT/taobin_project/image/collectiing/bp_5.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "5" Var ShowTextNumber = "Invisible" @@ -574,7 +574,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -588,7 +588,7 @@ "ROOT/taobin_project/image/collectiing/bp_6.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "6" Var ShowTextNumber = "Invisible" @@ -599,7 +599,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -613,7 +613,7 @@ "ROOT/taobin_project/image/collectiing/bp_B.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "B" Var ShowTextNumber = "Invisible" @@ -624,7 +624,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -638,7 +638,7 @@ "ROOT/taobin_project/image/collectiing/bp_7.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "7" Var ShowTextNumber = "Invisible" @@ -649,7 +649,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -663,7 +663,7 @@ "ROOT/taobin_project/image/collectiing/bp_8.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "8" Var ShowTextNumber = "Invisible" @@ -674,7 +674,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -688,7 +688,7 @@ "ROOT/taobin_project/image/collectiing/bp_9.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "9" Var ShowTextNumber = "Invisible" @@ -699,7 +699,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -713,7 +713,7 @@ "ROOT/taobin_project/image/collectiing/bp_C.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "C" Var ShowTextNumber = "Invisible" @@ -724,7 +724,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -738,7 +738,7 @@ "ROOT/taobin_project/image/collectiing/bp_0.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "0" Trim TelephoneNumber 8 @@ -746,7 +746,7 @@ Var TelephoneNumber# = Str# + TelephoneNumber StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowTextNumber = "Invisible" @@ -764,19 +764,19 @@ "ROOT/taobin_project/image/collectiing/bp_sh.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 ;Var TelephoneNumber = TelephoneNumber + "0" Trim TelephoneNumber 8 StrLen TelephoneNumber TelNumLen - If TelNumLen = 0 Then + If TelNumLen = 0 Then Var ShowTextNumber = "Invisible" Var Mode# = 1 Var Str# = "#" Var TelephoneNumber# = Str# + TelephoneNumber EndIf - + TimerReset Refresh Var ShowErrorText = "Invisible" @@ -791,21 +791,21 @@ "ROOT/taobin_project/image/collectiing/bp_back-1.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var Clear# = 0 StrLen TelephoneNumber TelNumLen - If TelNumLen = 0 Then + If TelNumLen = 0 Then Var Clear# = 1 EndIf Trim TelephoneNumber -1 Var Tel_Confirm_State = "Invisible" - + StrLen TelephoneNumber TelNumLen - - If TelNumLen = 0 Then + + If TelNumLen = 0 Then If Clear# = 1 Then Var ShowTextNumber = "Enable" Var Mode# = 0 @@ -818,7 +818,7 @@ ;Var ShowErrorText = "Invisible" TimerReset Refresh - + @@ -830,15 +830,15 @@ Var( DirImage + "/bn_back.png") "ROOT/sounds/codebuttom.wav" SoundVolume - + Var PayState1 = "PressForever" Var PayState2 = "Enable" Var QRChannel = 0 Var Seeker.CodeChannel = 0 - If CART_COUNT >= 1 Then - Open "ROOT/taobin_project/xml/page_payment_cashMore.xml" + If CART_COUNT >= 1 Then + Open "ROOT/taobin_project/xml/page_payment_cashMore.xml" Else - Open "ROOT/taobin_project/xml/page_payment_cash.xml" + Open "ROOT/taobin_project/xml/page_payment_cash.xml" EndIf @@ -854,9 +854,9 @@ Var( DirImage + "/bp_confirm.png" ) "ROOT/sounds/codebuttom.wav" SoundVolume - + + - If UnitTestType = "2" Then If TelephoneNumber = "00000001" Then @@ -870,14 +870,14 @@ Var ShowErrorText = "Enable" EndIf - + If GetPayInfoFlag = 0 Then Var GetPayInfoFlag = 1 VendingQR OFF - + Var Seeker.CodeNumber = TelephoneNumber Var RemainAmount = 0 ;PrepareDrink SelectDrink SelectSugarID @@ -896,11 +896,24 @@ Var ECommerce = ECommerce + TOPPING_PRICE Var ECommerce = ECommerce + "/" - Var ECommerce = ECommerce + DiscountDrink + Var ECommerce = ECommerce + DiscountDrink Var ECommerce = ECommerce + "/" - Var ECommerce = ECommerce + SessionID2 + Var ECommerce = ECommerce + SessionID2 + + If Seeker.UseFreeSugarZeroCalTopping = 1 Then + Var ECommerce = ECommerce + ":1" + Else + Var ECommerce = ECommerce + ":0" + EndIf + + If Seeker.UseFreeCollagenTopping = 1 Then + Var ECommerce = ECommerce + "1" + Else + Var ECommerce = ECommerce + "0" + EndIf + Var ECommerce = ECommerce + "/" - Var ECommerce = ECommerce + SelectDrink + Var ECommerce = ECommerce + SelectDrink Var ECommerce = ECommerce + "/" @@ -910,7 +923,7 @@ Var ECommerce = ECommerce + "C00" EndIf - + Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + Seeker.CodeNumber @@ -929,17 +942,17 @@ GetPayInfo TelephoneNumber2 ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc Var Timeout = 0 - + Var TelephoneNumber = Seeker.CodeNumber Var Seeker.CodeChannel = 1 - + EndIf EndIf - + SAVELOG ShowTextNumber Refresh - + @@ -971,7 +984,7 @@ - + 188 @@ -1004,9 +1017,9 @@ - - - Open "/media/bt/xml/security_alarm.xml" + + + Open "/media/bt/xml/security_alarm.xml" diff --git a/xml/page_topping_select7.xml b/xml/page_topping_select7.xml index 9e34bfdd..d5793b4a 100644 --- a/xml/page_topping_select7.xml +++ b/xml/page_topping_select7.xml @@ -7739,10 +7739,10 @@ If CollagenState = "Press" Then Var TOPPING_PRICE = TOPPING_PRICE + CollagenToppingPrice Var topping3 = toppingID3index2 - Var DisableUsingCode = "true" + Var Seeker.UseFreeCollagenTopping = 1 Else Var topping3 = toppingID3index1 - Var DisableUsingCode = "false" + Var Seeker.UseFreeCollagenTopping = 0 EndIf @@ -7750,6 +7750,9 @@ If SugarZeroCalOption = "Enable" Then If SugarZeroCalCheck = "PressForever" Then Var TOPPING_PRICE = TOPPING_PRICE + SugarZeroCalPrice + Var Seeker.UseFreeSugarZeroCalTopping = 1 + Else + Var Seeker.UseFreeSugarZeroCalTopping = 0 EndIf EndIf EndIf