diff --git a/xml/page_payment_code.xml b/xml/page_payment_code.xml index 1ea85e11..9f80eadf 100644 --- a/xml/page_payment_code.xml +++ b/xml/page_payment_code.xml @@ -26,6 +26,7 @@ ;CoinVending OFF VendingQR OFF + Var ShowLoadingText = "Invisible" Var ShowTextNumber = "Enable" Var ShowErrorText = "Invisible" Var Tel_Confirm_State = "Invisible" @@ -38,7 +39,7 @@ Var DirImage = "ROOT/taobin_project/image/collectiing" EndIf - If LanguageShow = "MYANMAR" Then + If LanguageShow = "MYANMAR" Then Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/" EndIf @@ -113,23 +114,37 @@ - Var Timeout = Timeout + 1 - If Timeout > 30 Then - ;VendingQR OFF - ;Open menu_back_to_main + Var Timeout = Timeout + 1 + If Timeout > 30 Then - 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" - Else - Open "ROOT/taobin_project/xml/page_payment_cash.xml" - EndIf + If GetPayInfoFlag = 0 Then + ;VendingQR OFF + ;Open menu_back_to_main - Refresh - EndIf + Var ShowLoadingText = "Invisible" + 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" + Else + Open "ROOT/taobin_project/xml/page_payment_cash.xml" + EndIf + + Else + + Var ShowLoadingText = "Invisible" + Var text_show_error = DirImage + "/text_show_error2.png" + Var GetPayInfoFlag = 0 + Var Seeker.CodeChannel = 0 + Var Timeout = 0 + + EndIf + + + Refresh + EndIf TimerReset @@ -167,7 +182,10 @@ If Seeker.CodeChannel = 1 Then - SAVELOG "Seeker.CodeChannel 1 > ActOK." + Var ShowLoadingText = "Invisible" + + SAVELOG "Seeker.CodeChannel 1 > ActOK." + DEBUGVAR ECommerce SAVELOG ECommerce @@ -405,7 +423,10 @@ - If Seeker.CodeChannel = 1 Then + If Seeker.CodeChannel = 1 Then + + Var ShowLoadingText = "Invisible" + Var TelephoneNumber = "" Var ShowErrorText = "Enable" @@ -445,10 +466,10 @@ Var QRCODE99 = "" Var QRCODETMP = "" If CART_COUNT >= 1 Then - Open "ROOT/taobin_project/xml/page_payment_cashMore.xml" - Else - Open "ROOT/taobin_project/xml/page_payment_cash.xml" - EndIf + Open "ROOT/taobin_project/xml/page_payment_cashMore.xml" + Else + Open "ROOT/taobin_project/xml/page_payment_cash.xml" + EndIf EndIf @@ -913,6 +934,7 @@ If GetPayInfoFlag = 0 Then Var GetPayInfoFlag = 1 + Var ShowLoadingText = "Enable" VendingQR OFF @@ -1031,6 +1053,13 @@ Var( DirImage + "/text_11.png" ) + + 260 + 920 + ShowLoadingText + Var( DirImage + "/loadingText.png") + + 152 935 diff --git a/xml/page_payment_codeAEON.xml b/xml/page_payment_codeAEON.xml index bbf30bc5..77119f68 100644 --- a/xml/page_payment_codeAEON.xml +++ b/xml/page_payment_codeAEON.xml @@ -13,29 +13,30 @@ Var Seeker.FreeVendingCampaign = 0 Var Timeout = 0 - + Var GetPayInfoFlag = 0 Var Seeker.CodeChannel = 0 ;Var VendingQRCode = "ERROR" ;VendingQR ON ;Var QRCODE99 = "" - + ;CoinVending OFF - + + Var ShowLoadingText = "Invisible" 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" EndIf - If LanguageShow = "MYANMAR" Then + If LanguageShow = "MYANMAR" Then Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/" EndIf @@ -43,24 +44,32 @@ 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 - - Open "ROOT/taobin_project/xml/page_payment_codeOther.xml" - - Refresh - EndIf + + Var Timeout = Timeout + 1 + If Timeout > 30 Then + + If GetPayInfoFlag = 1 Then + Var ShowLoadingText = "Invisible" + Open "ROOT/taobin_project/xml/page_payment_codeOther.xml" + Else + Var ShowLoadingText = "Invisible" + Var text_show_error = DirImage + "/text_show_error2.png" + Var GetPayInfoFlag = 0 + Var Seeker.CodeChannel = 0 + Var Timeout = 0 + EndIf + Refresh + EndIf TimerReset - + @@ -72,12 +81,14 @@ - + If Seeker.CodeChannel = 1 Then SAVELOG "Seeker.CodeChannel 1 > ActOK." + Var ShowLoadingText = "Invisible" + SAVELOG ECommerce SPLIT ECommerce "/" 5 Seeker.VendingCode @@ -85,19 +96,19 @@ SPLIT ECommerce "/" 8 VendingCampaign1 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 @@ -114,37 +125,37 @@ If IntVendingCampaign1 > 0 Then Var VendingCreditRemain = VendingCampaign1 - EndIf + EndIf Var Seeker.IntVendingCampaign = Seeker.VendingCampaignRI3 INT Seeker.IntVendingCampaign - + Var VendingREFID = SessionID If Seeker.IntVendingCampaign > 0 Then Var QRChannel = 0 - If Seeker.IntVendingCampaign >= PayAmount Then - ;Open "ROOT/taobin_project/xml/page_payment_cash.xml" + If Seeker.IntVendingCampaign >= PayAmount Then + ;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 @@ -158,16 +169,16 @@ Var DrinkPaid = SelectDrink Var PaidPaymentFromNextStage = 1 EndIf - Open "ROOT/taobin_project/xml/page_thankyou.xml" + Open "ROOT/taobin_project/xml/page_thankyou.xml" EndIf EndIf 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 @@ -182,10 +193,10 @@ EndIf EndIf - Else + Else + + - - EndIf @@ -193,8 +204,11 @@ If Seeker.CodeChannel = 1 Then - Var TelephoneNumber = "" - + + Var ShowLoadingText = "Invisible" + + Var TelephoneNumber = "" + Var ShowErrorText = "Enable" SAVELOG ShowErrorText @@ -253,7 +267,7 @@ "ROOT/taobin_project/image/collectiing/bp_1.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "1" Var ShowTextNumber = "Invisible" @@ -264,7 +278,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -278,7 +292,7 @@ "ROOT/taobin_project/image/collectiing/bp_2.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "2" Var ShowTextNumber = "Invisible" @@ -289,7 +303,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -303,7 +317,7 @@ "ROOT/taobin_project/image/collectiing/bp_3.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "3" Var ShowTextNumber = "Invisible" @@ -314,7 +328,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -328,7 +342,7 @@ "ROOT/taobin_project/image/collectiing/bp_A.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "A" Var ShowTextNumber = "Invisible" @@ -339,7 +353,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -353,7 +367,7 @@ "ROOT/taobin_project/image/collectiing/bp_4.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "4" Var ShowTextNumber = "Invisible" @@ -364,7 +378,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -378,7 +392,7 @@ "ROOT/taobin_project/image/collectiing/bp_5.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "5" Var ShowTextNumber = "Invisible" @@ -389,7 +403,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -403,7 +417,7 @@ "ROOT/taobin_project/image/collectiing/bp_6.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "6" Var ShowTextNumber = "Invisible" @@ -414,7 +428,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -428,7 +442,7 @@ "ROOT/taobin_project/image/collectiing/bp_B.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "B" Var ShowTextNumber = "Invisible" @@ -439,7 +453,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -453,7 +467,7 @@ "ROOT/taobin_project/image/collectiing/bp_7.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "7" Var ShowTextNumber = "Invisible" @@ -464,7 +478,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -478,7 +492,7 @@ "ROOT/taobin_project/image/collectiing/bp_8.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "8" Var ShowTextNumber = "Invisible" @@ -489,7 +503,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -503,7 +517,7 @@ "ROOT/taobin_project/image/collectiing/bp_9.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "9" Var ShowTextNumber = "Invisible" @@ -514,7 +528,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -528,7 +542,7 @@ "ROOT/taobin_project/image/collectiing/bp_C.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "C" Var ShowTextNumber = "Invisible" @@ -539,7 +553,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -553,7 +567,7 @@ "ROOT/taobin_project/image/collectiing/bp_0.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "0" Trim TelephoneNumber 8 @@ -561,7 +575,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" @@ -579,21 +593,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 @@ -606,7 +620,7 @@ ;Var ShowErrorText = "Invisible" TimerReset Refresh - + @@ -618,11 +632,11 @@ Var( DirImage + "/bn_back.png") "ROOT/sounds/codebuttom.wav" SoundVolume - - - - Open "ROOT/taobin_project/xml/page_payment_codeOther.xml" - + + + + Open "ROOT/taobin_project/xml/page_payment_codeOther.xml" + @@ -631,28 +645,37 @@ 577 1673 "Enable" - Tel_Confirm_State + + eval( + If ShowLoadingText = "Enable" Then + Var return = "Press" + Else + Var return = Tel_Confirm_State + EndIf + ) + Var( DirImage + "/bn_confirm.png" ) Var( DirImage + "/bp_confirm.png" ) Var( DirImage + "/bp_confirm.png" ) "ROOT/sounds/codebuttom.wav" SoundVolume - + + - If UnitTestType = "2" Then If TelephoneNumber = "00000001" Then Var ShowErrorText = "Enable" EndIf Else - + If GetPayInfoFlag = 0 Then Var GetPayInfoFlag = 1 + Var ShowLoadingText = "Enable" VendingQR OFF - + Var Seeker.CodeNumber = TelephoneNumber Var RemainAmount = 0 ;PrepareDrink SelectDrink SelectSugarID @@ -669,13 +692,13 @@ Var ECommerce = ECommerce + ":" 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 + "/" @@ -685,13 +708,13 @@ Var ECommerce = ECommerce + "C00" EndIf - + Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + Seeker.CodeNumber Var ECommerce = ECommerce + ":" Var ECommerce = ECommerce + PromotionIDCurrentOrder - + Var ServiceParameter = "max" Var ServiceCharge = 0 Var AccountType = "new" @@ -704,17 +727,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 - + @@ -746,7 +769,7 @@ - + 188 @@ -754,6 +777,14 @@ Var( DirImage + "/text_46.png" ) + + 260 + 990 + ShowLoadingText + Var( DirImage + "/loadingText.png") + + + 152 1001 @@ -785,9 +816,9 @@ - - - Open "/media/bt/xml/security_alarm.xml" + + + Open "/media/bt/xml/security_alarm.xml" diff --git a/xml/page_payment_codeAIS.xml b/xml/page_payment_codeAIS.xml index 02c74106..e5f345e9 100644 --- a/xml/page_payment_codeAIS.xml +++ b/xml/page_payment_codeAIS.xml @@ -13,29 +13,30 @@ Var Seeker.FreeVendingCampaign = 0 Var Timeout = 0 - + Var GetPayInfoFlag = 0 Var Seeker.CodeChannel = 0 ;Var VendingQRCode = "ERROR" ;VendingQR ON ;Var QRCODE99 = "" - + ;CoinVending OFF - + + Var ShowLoadingText = "Invisible" 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" EndIf - If LanguageShow = "MYANMAR" Then + If LanguageShow = "MYANMAR" Then Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/" EndIf @@ -43,24 +44,31 @@ 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 - - Open "ROOT/taobin_project/xml/page_payment_codeOther.xml" - - Refresh + If GetPayInfoFlag = 1 Then + Var ShowLoadingText = "Invisible" + Open "ROOT/taobin_project/xml/page_payment_codeOther.xml" + Else + Var ShowLoadingText = "Invisible" + Var text_show_error = DirImage + "/text_show_error2.png" + Var GetPayInfoFlag = 0 + Var Seeker.CodeChannel = 0 + Var Timeout = 0 + EndIf + Refresh EndIf TimerReset - + @@ -72,12 +80,14 @@ - + If Seeker.CodeChannel = 1 Then SAVELOG "Seeker.CodeChannel 1 > ActOK." + Var ShowLoadingText = "Invisible" + SAVELOG ECommerce SPLIT ECommerce "/" 5 Seeker.VendingCode @@ -85,19 +95,19 @@ SPLIT ECommerce "/" 8 VendingCampaign1 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 @@ -114,37 +124,37 @@ If IntVendingCampaign1 > 0 Then Var VendingCreditRemain = VendingCampaign1 - EndIf + EndIf Var Seeker.IntVendingCampaign = Seeker.VendingCampaignRI3 INT Seeker.IntVendingCampaign - + Var VendingREFID = SessionID If Seeker.IntVendingCampaign > 0 Then Var QRChannel = 0 - If Seeker.IntVendingCampaign >= PayAmount Then - ;Open "ROOT/taobin_project/xml/page_payment_cash.xml" + If Seeker.IntVendingCampaign >= PayAmount Then + ;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 @@ -155,16 +165,16 @@ Var TxRef1 = "" CreateTxRef1 TxRef1 EndIf - Open "ROOT/taobin_project/xml/page_thankyou.xml" + Open "ROOT/taobin_project/xml/page_thankyou.xml" EndIf EndIf 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 @@ -179,10 +189,10 @@ EndIf EndIf - Else + Else + + - - EndIf @@ -190,8 +200,11 @@ If Seeker.CodeChannel = 1 Then - Var TelephoneNumber = "" - + + Var ShowLoadingText = "Invisible" + + Var TelephoneNumber = "" + Var ShowErrorText = "Enable" SAVELOG ShowErrorText @@ -250,7 +263,7 @@ "ROOT/taobin_project/image/collectiing/bp_1.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "1" Var ShowTextNumber = "Invisible" @@ -261,7 +274,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -275,7 +288,7 @@ "ROOT/taobin_project/image/collectiing/bp_2.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "2" Var ShowTextNumber = "Invisible" @@ -286,7 +299,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -300,7 +313,7 @@ "ROOT/taobin_project/image/collectiing/bp_3.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "3" Var ShowTextNumber = "Invisible" @@ -311,7 +324,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -325,7 +338,7 @@ "ROOT/taobin_project/image/collectiing/bp_A.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "A" Var ShowTextNumber = "Invisible" @@ -336,7 +349,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -350,7 +363,7 @@ "ROOT/taobin_project/image/collectiing/bp_4.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "4" Var ShowTextNumber = "Invisible" @@ -361,7 +374,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -375,7 +388,7 @@ "ROOT/taobin_project/image/collectiing/bp_5.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "5" Var ShowTextNumber = "Invisible" @@ -386,7 +399,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -400,7 +413,7 @@ "ROOT/taobin_project/image/collectiing/bp_6.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "6" Var ShowTextNumber = "Invisible" @@ -411,7 +424,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -425,7 +438,7 @@ "ROOT/taobin_project/image/collectiing/bp_B.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "B" Var ShowTextNumber = "Invisible" @@ -436,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" @@ -450,7 +463,7 @@ "ROOT/taobin_project/image/collectiing/bp_7.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "7" Var ShowTextNumber = "Invisible" @@ -461,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" @@ -475,7 +488,7 @@ "ROOT/taobin_project/image/collectiing/bp_8.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "8" Var ShowTextNumber = "Invisible" @@ -486,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" @@ -500,7 +513,7 @@ "ROOT/taobin_project/image/collectiing/bp_9.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "9" Var ShowTextNumber = "Invisible" @@ -511,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" @@ -526,7 +539,7 @@ "ROOT/taobin_project/image/collectiing/bp_C.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "C" Var ShowTextNumber = "Invisible" @@ -537,7 +550,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -551,7 +564,7 @@ "ROOT/taobin_project/image/collectiing/bp_0.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "0" Trim TelephoneNumber 8 @@ -559,7 +572,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" @@ -577,21 +590,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 @@ -604,7 +617,7 @@ ;Var ShowErrorText = "Invisible" TimerReset Refresh - + @@ -616,11 +629,11 @@ Var( DirImage + "/bn_back.png") "ROOT/sounds/codebuttom.wav" SoundVolume - - - - Open "ROOT/taobin_project/xml/page_payment_codeOther.xml" - + + + + Open "ROOT/taobin_project/xml/page_payment_codeOther.xml" + @@ -629,28 +642,37 @@ 577 1673 "Enable" - Tel_Confirm_State + + eval( + If ShowLoadingText = "Enable" Then + Var return = "Press" + Else + Var return = Tel_Confirm_State + EndIf + ) + Var( DirImage + "/bn_confirm.png" ) Var( DirImage + "/bp_confirm.png" ) Var( DirImage + "/bp_confirm.png" ) "ROOT/sounds/codebuttom.wav" SoundVolume - + + - If UnitTestType = "2" Then If TelephoneNumber = "00000001" Then Var ShowErrorText = "Enable" EndIf Else - + If GetPayInfoFlag = 0 Then Var GetPayInfoFlag = 1 + Var ShowLoadingText = "Enable" VendingQR OFF - + Var Seeker.CodeNumber = TelephoneNumber Var RemainAmount = 0 ;PrepareDrink SelectDrink SelectSugarID @@ -669,11 +691,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 + "/" @@ -683,13 +705,13 @@ Var ECommerce = ECommerce + "C00" EndIf - + Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + Seeker.CodeNumber Var ECommerce = ECommerce + ":" Var ECommerce = ECommerce + PromotionIDCurrentOrder - + Var ServiceParameter = "max" Var ServiceCharge = 0 Var AccountType = "new" @@ -702,17 +724,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 - + @@ -744,7 +766,7 @@ - + 188 @@ -752,6 +774,15 @@ Var( DirImage + "/text_31.png" ) + + + 260 + 990 + ShowLoadingText + Var( DirImage + "/loadingText.png") + + + 152 1001 @@ -783,9 +814,9 @@ - - - Open "/media/bt/xml/security_alarm.xml" + + + Open "/media/bt/xml/security_alarm.xml" diff --git a/xml/page_payment_codeDtac.xml b/xml/page_payment_codeDtac.xml index c4ca1fb9..7cca44ac 100644 --- a/xml/page_payment_codeDtac.xml +++ b/xml/page_payment_codeDtac.xml @@ -13,29 +13,30 @@ Var Seeker.FreeVendingCampaign = 0 Var Timeout = 0 - + Var GetPayInfoFlag = 0 Var Seeker.CodeChannel = 0 ;Var VendingQRCode = "ERROR" ;VendingQR ON ;Var QRCODE99 = "" - + ;CoinVending OFF - + + Var ShowLoadingText = "Invisible" 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" EndIf - If LanguageShow = "MYANMAR" Then + If LanguageShow = "MYANMAR" Then Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/" EndIf @@ -43,24 +44,31 @@ 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 - - Open "ROOT/taobin_project/xml/page_payment_codeOther.xml" - - Refresh + If GetPayInfoFlag = 1 Then + Var ShowLoadingText = "Invisible" + Open "ROOT/taobin_project/xml/page_payment_codeOther.xml" + Else + Var ShowLoadingText = "Invisible" + Var text_show_error = DirImage + "/text_show_error2.png" + Var GetPayInfoFlag = 0 + Var Seeker.CodeChannel = 0 + Var Timeout = 0 + EndIf + Refresh EndIf TimerReset - + @@ -72,12 +80,14 @@ - + If Seeker.CodeChannel = 1 Then SAVELOG "Seeker.CodeChannel 1 > ActOK." + Var ShowLoadingText = "Invisible" + SAVELOG ECommerce SPLIT ECommerce "/" 5 Seeker.VendingCode @@ -85,19 +95,19 @@ SPLIT ECommerce "/" 8 VendingCampaign1 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 @@ -114,37 +124,37 @@ If IntVendingCampaign1 > 0 Then Var VendingCreditRemain = VendingCampaign1 - EndIf + EndIf Var Seeker.IntVendingCampaign = Seeker.VendingCampaignRI3 INT Seeker.IntVendingCampaign - + Var VendingREFID = SessionID If Seeker.IntVendingCampaign > 0 Then Var QRChannel = 0 - If Seeker.IntVendingCampaign >= PayAmount Then - ;Open "ROOT/taobin_project/xml/page_payment_cash.xml" + If Seeker.IntVendingCampaign >= PayAmount Then + ;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 @@ -158,16 +168,16 @@ Var DrinkPaid = SelectDrink Var PaidPaymentFromNextStage = 1 EndIf - Open "ROOT/taobin_project/xml/page_thankyou.xml" + Open "ROOT/taobin_project/xml/page_thankyou.xml" EndIf EndIf 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 @@ -182,10 +192,10 @@ EndIf EndIf - Else + Else + + - - EndIf @@ -193,8 +203,11 @@ If Seeker.CodeChannel = 1 Then + + Var ShowLoadingText = "Invisible" + Var TelephoneNumber = "" - + Var ShowErrorText = "Enable" SAVELOG ShowErrorText @@ -253,7 +266,7 @@ "ROOT/taobin_project/image/collectiing/bp_1.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "1" Var ShowTextNumber = "Invisible" @@ -264,7 +277,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -278,7 +291,7 @@ "ROOT/taobin_project/image/collectiing/bp_2.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "2" Var ShowTextNumber = "Invisible" @@ -289,7 +302,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -303,7 +316,7 @@ "ROOT/taobin_project/image/collectiing/bp_3.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "3" Var ShowTextNumber = "Invisible" @@ -314,7 +327,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -328,7 +341,7 @@ "ROOT/taobin_project/image/collectiing/bp_A.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "A" Var ShowTextNumber = "Invisible" @@ -339,7 +352,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -353,7 +366,7 @@ "ROOT/taobin_project/image/collectiing/bp_4.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "4" Var ShowTextNumber = "Invisible" @@ -364,7 +377,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -378,7 +391,7 @@ "ROOT/taobin_project/image/collectiing/bp_5.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "5" Var ShowTextNumber = "Invisible" @@ -389,7 +402,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -403,7 +416,7 @@ "ROOT/taobin_project/image/collectiing/bp_6.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "6" Var ShowTextNumber = "Invisible" @@ -414,7 +427,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -428,7 +441,7 @@ "ROOT/taobin_project/image/collectiing/bp_B.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "B" Var ShowTextNumber = "Invisible" @@ -439,7 +452,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -453,7 +466,7 @@ "ROOT/taobin_project/image/collectiing/bp_7.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "7" Var ShowTextNumber = "Invisible" @@ -464,7 +477,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -478,7 +491,7 @@ "ROOT/taobin_project/image/collectiing/bp_8.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "8" Var ShowTextNumber = "Invisible" @@ -489,7 +502,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -503,7 +516,7 @@ "ROOT/taobin_project/image/collectiing/bp_9.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "9" Var ShowTextNumber = "Invisible" @@ -514,7 +527,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -528,7 +541,7 @@ "ROOT/taobin_project/image/collectiing/bp_C.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "C" Var ShowTextNumber = "Invisible" @@ -539,7 +552,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -553,7 +566,7 @@ "ROOT/taobin_project/image/collectiing/bp_0.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "0" Trim TelephoneNumber 8 @@ -561,7 +574,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" @@ -579,21 +592,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 @@ -606,7 +619,7 @@ ;Var ShowErrorText = "Invisible" TimerReset Refresh - + @@ -618,11 +631,11 @@ Var( DirImage + "/bn_back.png") "ROOT/sounds/codebuttom.wav" SoundVolume - - - - Open "ROOT/taobin_project/xml/page_payment_codeOther.xml" - + + + + Open "ROOT/taobin_project/xml/page_payment_codeOther.xml" + @@ -631,28 +644,37 @@ 577 1673 "Enable" - Tel_Confirm_State + + eval( + If ShowLoadingText = "Enable" Then + Var return = "Press" + Else + Var return = Tel_Confirm_State + EndIf + ) + Var( DirImage + "/bn_confirm.png" ) Var( DirImage + "/bp_confirm.png" ) Var( DirImage + "/bp_confirm.png" ) "ROOT/sounds/codebuttom.wav" SoundVolume - + + - If UnitTestType = "2" Then If TelephoneNumber = "00000001" Then Var ShowErrorText = "Enable" EndIf Else - + If GetPayInfoFlag = 0 Then Var GetPayInfoFlag = 1 + Var ShowLoadingText = "Enable" VendingQR OFF - + Var Seeker.CodeNumber = TelephoneNumber Var RemainAmount = 0 ;PrepareDrink SelectDrink SelectSugarID @@ -669,13 +691,13 @@ Var ECommerce = ECommerce + ":" 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 + "/" @@ -685,13 +707,13 @@ Var ECommerce = ECommerce + "C00" EndIf - + Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + Seeker.CodeNumber Var ECommerce = ECommerce + ":" Var ECommerce = ECommerce + PromotionIDCurrentOrder - + Var ServiceParameter = "max" Var ServiceCharge = 0 Var AccountType = "new" @@ -704,17 +726,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 - + @@ -746,7 +768,7 @@ - + 188 @@ -754,6 +776,14 @@ Var( DirImage + "/text_34.png" ) + + 260 + 990 + ShowLoadingText + Var( DirImage + "/loadingText.png") + + + 152 1001 @@ -785,9 +815,9 @@ - - - Open "/media/bt/xml/security_alarm.xml" + + + Open "/media/bt/xml/security_alarm.xml" diff --git a/xml/page_payment_codeGLX.xml b/xml/page_payment_codeGLX.xml index f0334b63..d99d9b96 100644 --- a/xml/page_payment_codeGLX.xml +++ b/xml/page_payment_codeGLX.xml @@ -13,53 +13,61 @@ Var Seeker.FreeVendingCampaign = 0 Var Timeout = 0 - + Var GetPayInfoFlag = 0 Var Seeker.CodeChannel = 0 ;Var VendingQRCode = "ERROR" ;VendingQR ON ;Var QRCODE99 = "" - + ;CoinVending OFF - + + Var ShowLoadingText = "Invisible" 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" EndIf - If LanguageShow = "MYANMAR" Then + If LanguageShow = "MYANMAR" Then Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/" EndIf 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 - - Open "ROOT/taobin_project/xml/page_payment_codeOther.xml" - - Refresh + If GetPayInfoFlag = 1 Then + Var ShowLoadingText = "Invisible" + Open "ROOT/taobin_project/xml/page_payment_codeOther.xml" + Else + Var ShowLoadingText = "Invisible" + Var text_show_error = DirImage + "/text_show_error2.png" + Var GetPayInfoFlag = 0 + Var Seeker.CodeChannel = 0 + Var Timeout = 0 + EndIf + Refresh EndIf TimerReset - + @@ -71,12 +79,14 @@ - + If Seeker.CodeChannel = 1 Then SAVELOG "Seeker.CodeChannel 1 > ActOK." + Var ShowLoadingText = "Invisible" + SAVELOG ECommerce SPLIT ECommerce "/" 5 Seeker.VendingCode @@ -84,19 +94,19 @@ SPLIT ECommerce "/" 8 VendingCampaign1 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 @@ -113,37 +123,37 @@ If IntVendingCampaign1 > 0 Then Var VendingCreditRemain = VendingCampaign1 - EndIf + EndIf Var Seeker.IntVendingCampaign = Seeker.VendingCampaignRI3 INT Seeker.IntVendingCampaign - + Var VendingREFID = SessionID If Seeker.IntVendingCampaign > 0 Then Var QRChannel = 0 - If Seeker.IntVendingCampaign >= PayAmount Then - ;Open "ROOT/taobin_project/xml/page_payment_cash.xml" + If Seeker.IntVendingCampaign >= PayAmount Then + ;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 @@ -157,16 +167,16 @@ Var DrinkPaid = SelectDrink Var PaidPaymentFromNextStage = 1 EndIf - Open "ROOT/taobin_project/xml/page_thankyou.xml" + Open "ROOT/taobin_project/xml/page_thankyou.xml" EndIf EndIf 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 @@ -181,10 +191,10 @@ EndIf EndIf - Else + Else + + - - EndIf @@ -192,8 +202,11 @@ If Seeker.CodeChannel = 1 Then + + Var ShowLoadingText = "Invisible" + Var TelephoneNumber = "" - + Var ShowErrorText = "Enable" SAVELOG ShowErrorText @@ -252,7 +265,7 @@ "ROOT/taobin_project/image/collectiing/bp_1.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "1" Var ShowTextNumber = "Invisible" @@ -263,7 +276,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -277,7 +290,7 @@ "ROOT/taobin_project/image/collectiing/bp_2.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "2" Var ShowTextNumber = "Invisible" @@ -288,7 +301,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -302,7 +315,7 @@ "ROOT/taobin_project/image/collectiing/bp_3.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "3" Var ShowTextNumber = "Invisible" @@ -313,7 +326,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -327,7 +340,7 @@ "ROOT/taobin_project/image/collectiing/bp_A.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "A" Var ShowTextNumber = "Invisible" @@ -338,7 +351,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -352,7 +365,7 @@ "ROOT/taobin_project/image/collectiing/bp_4.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "4" Var ShowTextNumber = "Invisible" @@ -363,7 +376,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -377,7 +390,7 @@ "ROOT/taobin_project/image/collectiing/bp_5.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "5" Var ShowTextNumber = "Invisible" @@ -388,7 +401,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -402,7 +415,7 @@ "ROOT/taobin_project/image/collectiing/bp_6.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "6" Var ShowTextNumber = "Invisible" @@ -413,7 +426,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -427,7 +440,7 @@ "ROOT/taobin_project/image/collectiing/bp_B.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "B" Var ShowTextNumber = "Invisible" @@ -438,7 +451,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -452,7 +465,7 @@ "ROOT/taobin_project/image/collectiing/bp_7.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "7" Var ShowTextNumber = "Invisible" @@ -463,7 +476,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -477,7 +490,7 @@ "ROOT/taobin_project/image/collectiing/bp_8.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "8" Var ShowTextNumber = "Invisible" @@ -488,7 +501,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -502,7 +515,7 @@ "ROOT/taobin_project/image/collectiing/bp_9.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "9" Var ShowTextNumber = "Invisible" @@ -513,7 +526,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -527,7 +540,7 @@ "ROOT/taobin_project/image/collectiing/bp_C.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "C" Var ShowTextNumber = "Invisible" @@ -538,7 +551,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -552,7 +565,7 @@ "ROOT/taobin_project/image/collectiing/bp_0.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "0" Trim TelephoneNumber 8 @@ -560,7 +573,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" @@ -578,21 +591,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 @@ -605,7 +618,7 @@ ;Var ShowErrorText = "Invisible" TimerReset Refresh - + @@ -617,11 +630,11 @@ Var( DirImage + "/bn_back.png") "ROOT/sounds/codebuttom.wav" SoundVolume - - - - Open "ROOT/taobin_project/xml/page_payment_codeOther.xml" - + + + + Open "ROOT/taobin_project/xml/page_payment_codeOther.xml" + @@ -630,28 +643,37 @@ 577 1673 "Enable" - Tel_Confirm_State + + eval( + If ShowLoadingText = "Enable" Then + Var return = "Press" + Else + Var return = Tel_Confirm_State + EndIf + ) + Var( DirImage + "/bn_confirm.png" ) Var( DirImage + "/bp_confirm.png" ) Var( DirImage + "/bp_confirm.png" ) "ROOT/sounds/codebuttom.wav" SoundVolume - + + - If UnitTestType = "2" Then If TelephoneNumber = "00000001" Then Var ShowErrorText = "Enable" EndIf Else - + If GetPayInfoFlag = 0 Then Var GetPayInfoFlag = 1 + Var ShowLoadingText = "Enable" VendingQR OFF - + Var Seeker.CodeNumber = TelephoneNumber Var RemainAmount = 0 ;PrepareDrink SelectDrink SelectSugarID @@ -668,13 +690,13 @@ Var ECommerce = ECommerce + ":" 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 + "/" @@ -684,13 +706,13 @@ Var ECommerce = ECommerce + "C00" EndIf - + Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + Seeker.CodeNumber Var ECommerce = ECommerce + ":" Var ECommerce = ECommerce + PromotionIDCurrentOrder - + Var ServiceParameter = "max" Var ServiceCharge = 0 Var AccountType = "new" @@ -703,17 +725,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 - + @@ -745,7 +767,7 @@ - + 188 @@ -753,6 +775,13 @@ Var( DirImage + "/text_37.png" ) + + 260 + 990 + ShowLoadingText + Var( DirImage + "/loadingText.png") + + 152 1001 @@ -784,9 +813,9 @@ - - - Open "/media/bt/xml/security_alarm.xml" + + + Open "/media/bt/xml/security_alarm.xml" diff --git a/xml/page_payment_codeGrab.xml b/xml/page_payment_codeGrab.xml index eb8c63b5..08012f56 100644 --- a/xml/page_payment_codeGrab.xml +++ b/xml/page_payment_codeGrab.xml @@ -13,29 +13,30 @@ Var Seeker.FreeVendingCampaign = 0 Var Timeout = 0 - + Var GetPayInfoFlag = 0 Var Seeker.CodeChannel = 0 ;Var VendingQRCode = "ERROR" ;VendingQR ON ;Var QRCODE99 = "" - + ;CoinVending OFF - + + Var ShowLoadingText = "Invisible" 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" EndIf - If LanguageShow = "MYANMAR" Then + If LanguageShow = "MYANMAR" Then Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/" EndIf @@ -43,24 +44,31 @@ 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 - - Open "ROOT/taobin_project/xml/page_payment_codeOther.xml" - - Refresh + If GetPayInfoFlag = 1 Then + Var ShowLoadingText = "Invisible" + Open "ROOT/taobin_project/xml/page_payment_codeOther.xml" + Else + Var ShowLoadingText = "Invisible" + Var text_show_error = DirImage + "/text_show_error2.png" + Var GetPayInfoFlag = 0 + Var Seeker.CodeChannel = 0 + Var Timeout = 0 + EndIf + Refresh EndIf TimerReset - + @@ -72,12 +80,14 @@ - + If Seeker.CodeChannel = 1 Then SAVELOG "Seeker.CodeChannel 1 > ActOK." + Var ShowLoadingText = "Invisible" + SAVELOG ECommerce SPLIT ECommerce "/" 5 Seeker.VendingCode @@ -85,19 +95,19 @@ SPLIT ECommerce "/" 8 VendingCampaign1 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 @@ -114,37 +124,37 @@ If IntVendingCampaign1 > 0 Then Var VendingCreditRemain = VendingCampaign1 - EndIf + EndIf Var Seeker.IntVendingCampaign = Seeker.VendingCampaignRI3 INT Seeker.IntVendingCampaign - + Var VendingREFID = SessionID If Seeker.IntVendingCampaign > 0 Then Var QRChannel = 0 - If Seeker.IntVendingCampaign >= PayAmount Then - ;Open "ROOT/taobin_project/xml/page_payment_cash.xml" + If Seeker.IntVendingCampaign >= PayAmount Then + ;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 @@ -158,16 +168,16 @@ Var DrinkPaid = SelectDrink Var PaidPaymentFromNextStage = 1 EndIf - Open "ROOT/taobin_project/xml/page_thankyou.xml" + Open "ROOT/taobin_project/xml/page_thankyou.xml" EndIf EndIf 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 @@ -182,10 +192,10 @@ EndIf EndIf - Else + Else + + - - EndIf @@ -193,8 +203,11 @@ If Seeker.CodeChannel = 1 Then + + Var ShowLoadingText = "Invisible" + Var TelephoneNumber = "" - + Var ShowErrorText = "Enable" SAVELOG ShowErrorText @@ -253,7 +266,7 @@ "ROOT/taobin_project/image/collectiing/bp_1.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "1" Var ShowTextNumber = "Invisible" @@ -264,7 +277,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -278,7 +291,7 @@ "ROOT/taobin_project/image/collectiing/bp_2.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "2" Var ShowTextNumber = "Invisible" @@ -289,7 +302,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -303,7 +316,7 @@ "ROOT/taobin_project/image/collectiing/bp_3.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "3" Var ShowTextNumber = "Invisible" @@ -314,7 +327,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -328,7 +341,7 @@ "ROOT/taobin_project/image/collectiing/bp_A.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "A" Var ShowTextNumber = "Invisible" @@ -339,7 +352,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -353,7 +366,7 @@ "ROOT/taobin_project/image/collectiing/bp_4.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "4" Var ShowTextNumber = "Invisible" @@ -364,7 +377,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -378,7 +391,7 @@ "ROOT/taobin_project/image/collectiing/bp_5.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "5" Var ShowTextNumber = "Invisible" @@ -389,7 +402,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -403,7 +416,7 @@ "ROOT/taobin_project/image/collectiing/bp_6.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "6" Var ShowTextNumber = "Invisible" @@ -414,7 +427,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -428,7 +441,7 @@ "ROOT/taobin_project/image/collectiing/bp_B.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "B" Var ShowTextNumber = "Invisible" @@ -439,7 +452,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -453,7 +466,7 @@ "ROOT/taobin_project/image/collectiing/bp_7.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "7" Var ShowTextNumber = "Invisible" @@ -464,7 +477,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -478,7 +491,7 @@ "ROOT/taobin_project/image/collectiing/bp_8.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "8" Var ShowTextNumber = "Invisible" @@ -489,7 +502,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -503,7 +516,7 @@ "ROOT/taobin_project/image/collectiing/bp_9.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "9" Var ShowTextNumber = "Invisible" @@ -514,7 +527,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -528,7 +541,7 @@ "ROOT/taobin_project/image/collectiing/bp_C.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "C" Var ShowTextNumber = "Invisible" @@ -539,7 +552,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -553,7 +566,7 @@ "ROOT/taobin_project/image/collectiing/bp_0.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "0" Trim TelephoneNumber 8 @@ -561,7 +574,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" @@ -579,21 +592,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 @@ -606,7 +619,7 @@ ;Var ShowErrorText = "Invisible" TimerReset Refresh - + @@ -618,11 +631,11 @@ Var( DirImage + "/bn_back.png") "ROOT/sounds/codebuttom.wav" SoundVolume - - - - Open "ROOT/taobin_project/xml/page_payment_codeOther.xml" - + + + + Open "ROOT/taobin_project/xml/page_payment_codeOther.xml" + @@ -631,28 +644,37 @@ 577 1673 "Enable" - Tel_Confirm_State + + eval( + If ShowLoadingText = "Enable" Then + Var return = "Press" + Else + Var return = Tel_Confirm_State + EndIf + ) + Var( DirImage + "/bn_confirm.png" ) Var( DirImage + "/bp_confirm.png" ) Var( DirImage + "/bp_confirm.png" ) "ROOT/sounds/codebuttom.wav" SoundVolume - + + - If UnitTestType = "2" Then If TelephoneNumber = "00000001" Then Var ShowErrorText = "Enable" EndIf Else - + If GetPayInfoFlag = 0 Then Var GetPayInfoFlag = 1 + Var ShowLoadingText = "Enable" VendingQR OFF - + Var Seeker.CodeNumber = TelephoneNumber Var RemainAmount = 0 ;PrepareDrink SelectDrink SelectSugarID @@ -669,13 +691,13 @@ Var ECommerce = ECommerce + ":" 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 + "/" @@ -685,13 +707,13 @@ Var ECommerce = ECommerce + "C00" EndIf - + Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + Seeker.CodeNumber Var ECommerce = ECommerce + ":" Var ECommerce = ECommerce + PromotionIDCurrentOrder - + Var ServiceParameter = "max" Var ServiceCharge = 0 Var AccountType = "new" @@ -704,17 +726,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 - + @@ -746,7 +768,7 @@ - + 188 @@ -754,6 +776,13 @@ Var( DirImage + "/text_43_2.png" ) + + 260 + 990 + ShowLoadingText + Var( DirImage + "/loadingText.png") + + 152 1001 @@ -785,9 +814,9 @@ - - - Open "/media/bt/xml/security_alarm.xml" + + + Open "/media/bt/xml/security_alarm.xml" diff --git a/xml/page_payment_codeInfinyx.xml b/xml/page_payment_codeInfinyx.xml index 069a84ba..f7e25b9d 100644 --- a/xml/page_payment_codeInfinyx.xml +++ b/xml/page_payment_codeInfinyx.xml @@ -13,23 +13,24 @@ Var Seeker.FreeVendingCampaign = 0 Var Timeout = 0 - + Var GetPayInfoFlag = 0 Var Seeker.CodeChannel = 0 ;Var VendingQRCode = "ERROR" ;VendingQR ON ;Var QRCODE99 = "" - + ;CoinVending OFF - + + Var ShowLoadingText = "Invisible" 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" @@ -39,24 +40,31 @@ 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 - - Open "ROOT/taobin_project/xml/page_payment_codeOther.xml" - - Refresh + If GetPayInfoFlag = 1 Then + Var ShowLoadingText = "Invisible" + Open "ROOT/taobin_project/xml/page_payment_codeOther.xml" + Else + Var ShowLoadingText = "Invisible" + Var text_show_error = DirImage + "/text_show_error2.png" + Var GetPayInfoFlag = 0 + Var Seeker.CodeChannel = 0 + Var Timeout = 0 + EndIf + Refresh EndIf TimerReset - + @@ -68,12 +76,14 @@ - + If Seeker.CodeChannel = 1 Then SAVELOG "Seeker.CodeChannel 1 > ActOK." + Var ShowLoadingText = "Invisible" + SAVELOG ECommerce SPLIT ECommerce "/" 5 Seeker.VendingCode @@ -81,19 +91,19 @@ SPLIT ECommerce "/" 8 VendingCampaign1 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 @@ -110,37 +120,37 @@ If IntVendingCampaign1 > 0 Then Var VendingCreditRemain = VendingCampaign1 - EndIf + EndIf Var Seeker.IntVendingCampaign = Seeker.VendingCampaignRI3 INT Seeker.IntVendingCampaign - + Var VendingREFID = SessionID If Seeker.IntVendingCampaign > 0 Then Var QRChannel = 0 - If Seeker.IntVendingCampaign >= PayAmount Then - ;Open "ROOT/taobin_project/xml/page_payment_cash.xml" + If Seeker.IntVendingCampaign >= PayAmount Then + ;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 @@ -154,16 +164,16 @@ Var DrinkPaid = SelectDrink Var PaidPaymentFromNextStage = 1 EndIf - Open "ROOT/taobin_project/xml/page_thankyou.xml" + Open "ROOT/taobin_project/xml/page_thankyou.xml" EndIf EndIf 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 @@ -178,10 +188,10 @@ EndIf EndIf - Else + Else + + - - EndIf @@ -189,8 +199,10 @@ If Seeker.CodeChannel = 1 Then + Var ShowLoadingText = "Invisible" + Var TelephoneNumber = "" - + Var ShowErrorText = "Enable" SAVELOG ShowErrorText @@ -249,7 +261,7 @@ "ROOT/taobin_project/image/collectiing/bp_1.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "1" Var ShowTextNumber = "Invisible" @@ -260,7 +272,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -274,7 +286,7 @@ "ROOT/taobin_project/image/collectiing/bp_2.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "2" Var ShowTextNumber = "Invisible" @@ -285,7 +297,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -299,7 +311,7 @@ "ROOT/taobin_project/image/collectiing/bp_3.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "3" Var ShowTextNumber = "Invisible" @@ -310,7 +322,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -324,7 +336,7 @@ "ROOT/taobin_project/image/collectiing/bp_A.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "A" Var ShowTextNumber = "Invisible" @@ -335,7 +347,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -349,7 +361,7 @@ "ROOT/taobin_project/image/collectiing/bp_4.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "4" Var ShowTextNumber = "Invisible" @@ -360,7 +372,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -374,7 +386,7 @@ "ROOT/taobin_project/image/collectiing/bp_5.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "5" Var ShowTextNumber = "Invisible" @@ -385,7 +397,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -399,7 +411,7 @@ "ROOT/taobin_project/image/collectiing/bp_6.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "6" Var ShowTextNumber = "Invisible" @@ -410,7 +422,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -424,7 +436,7 @@ "ROOT/taobin_project/image/collectiing/bp_B.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "B" Var ShowTextNumber = "Invisible" @@ -435,7 +447,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -449,7 +461,7 @@ "ROOT/taobin_project/image/collectiing/bp_7.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "7" Var ShowTextNumber = "Invisible" @@ -460,7 +472,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -474,7 +486,7 @@ "ROOT/taobin_project/image/collectiing/bp_8.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "8" Var ShowTextNumber = "Invisible" @@ -485,7 +497,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -499,7 +511,7 @@ "ROOT/taobin_project/image/collectiing/bp_9.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "9" Var ShowTextNumber = "Invisible" @@ -510,7 +522,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -524,7 +536,7 @@ "ROOT/taobin_project/image/collectiing/bp_C.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "C" Var ShowTextNumber = "Invisible" @@ -535,7 +547,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -549,7 +561,7 @@ "ROOT/taobin_project/image/collectiing/bp_0.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "0" Trim TelephoneNumber 8 @@ -557,7 +569,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" @@ -575,21 +587,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 @@ -602,7 +614,7 @@ ;Var ShowErrorText = "Invisible" TimerReset Refresh - + @@ -614,11 +626,11 @@ Var( DirImage + "/bn_back.png") "ROOT/sounds/codebuttom.wav" SoundVolume - - - - Open "ROOT/taobin_project/xml/page_payment_codeOther.xml" - + + + + Open "ROOT/taobin_project/xml/page_payment_codeOther.xml" + @@ -627,28 +639,37 @@ 577 1673 "Enable" - Tel_Confirm_State + + eval( + If ShowLoadingText = "Enable" Then + Var return = "Press" + Else + Var return = Tel_Confirm_State + EndIf + ) + Var( DirImage + "/bn_confirm.png" ) Var( DirImage + "/bp_confirm.png" ) Var( DirImage + "/bp_confirm.png" ) "ROOT/sounds/codebuttom.wav" SoundVolume - + + - If UnitTestType = "2" Then If TelephoneNumber = "00000001" Then Var ShowErrorText = "Enable" EndIf Else - + If GetPayInfoFlag = 0 Then Var GetPayInfoFlag = 1 + Var ShowLoadingText = "Enable" VendingQR OFF - + Var Seeker.CodeNumber = TelephoneNumber Var RemainAmount = 0 ;PrepareDrink SelectDrink SelectSugarID @@ -667,11 +688,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 + "/" @@ -681,13 +702,13 @@ Var ECommerce = ECommerce + "C00" EndIf - + Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + Seeker.CodeNumber Var ECommerce = ECommerce + ":" Var ECommerce = ECommerce + PromotionIDCurrentOrder - + Var ServiceParameter = "max" Var ServiceCharge = 0 Var AccountType = "new" @@ -700,17 +721,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 - + @@ -742,7 +763,7 @@ - + 188 @@ -750,6 +771,13 @@ Var( DirImage + "/text_42.png" ) + + 260 + 990 + ShowLoadingText + Var( DirImage + "/loadingText.png") + + 152 1001 @@ -781,9 +809,9 @@ - - - Open "/media/bt/xml/security_alarm.xml" + + + Open "/media/bt/xml/security_alarm.xml" diff --git a/xml/page_payment_codeKBANK.xml b/xml/page_payment_codeKBANK.xml index 65dc65b7..9ace0f0e 100644 --- a/xml/page_payment_codeKBANK.xml +++ b/xml/page_payment_codeKBANK.xml @@ -13,53 +13,61 @@ Var Seeker.FreeVendingCampaign = 0 Var Timeout = 0 - + Var GetPayInfoFlag = 0 Var Seeker.CodeChannel = 0 ;Var VendingQRCode = "ERROR" ;VendingQR ON ;Var QRCODE99 = "" - + ;CoinVending OFF - + + Var ShowLoadingText = "Invisible" 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" EndIf - If LanguageShow = "MYANMAR" Then + If LanguageShow = "MYANMAR" Then Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/" EndIf 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 - - Open "ROOT/taobin_project/xml/page_payment_codeOther.xml" - - Refresh + If GetPayInfoFlag = 1 Then + Var ShowLoadingText = "Invisible" + Open "ROOT/taobin_project/xml/page_payment_codeOther.xml" + Else + Var ShowLoadingText = "Invisible" + Var text_show_error = DirImage + "/text_show_error2.png" + Var GetPayInfoFlag = 0 + Var Seeker.CodeChannel = 0 + Var Timeout = 0 + EndIf + Refresh EndIf TimerReset - + @@ -71,12 +79,14 @@ - + If Seeker.CodeChannel = 1 Then SAVELOG "Seeker.CodeChannel 1 > ActOK." + Var ShowLoadingText = "Invisible" + SAVELOG ECommerce SPLIT ECommerce "/" 5 Seeker.VendingCode @@ -84,19 +94,19 @@ SPLIT ECommerce "/" 8 VendingCampaign1 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 @@ -113,37 +123,37 @@ If IntVendingCampaign1 > 0 Then Var VendingCreditRemain = VendingCampaign1 - EndIf + EndIf Var Seeker.IntVendingCampaign = Seeker.VendingCampaignRI3 INT Seeker.IntVendingCampaign - + Var VendingREFID = SessionID If Seeker.IntVendingCampaign > 0 Then Var QRChannel = 0 - If Seeker.IntVendingCampaign >= PayAmount Then - ;Open "ROOT/taobin_project/xml/page_payment_cash.xml" + If Seeker.IntVendingCampaign >= PayAmount Then + ;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 @@ -154,16 +164,16 @@ Var TxRef1 = "" CreateTxRef1 TxRef1 EndIf - Open "ROOT/taobin_project/xml/page_thankyou.xml" + Open "ROOT/taobin_project/xml/page_thankyou.xml" EndIf EndIf 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 @@ -178,10 +188,10 @@ EndIf EndIf - Else + Else + + - - EndIf @@ -189,8 +199,10 @@ If Seeker.CodeChannel = 1 Then + Var ShowLoadingText = "Invisible" + Var TelephoneNumber = "" - + Var ShowErrorText = "Enable" SAVELOG ShowErrorText @@ -249,7 +261,7 @@ "ROOT/taobin_project/image/collectiing/bp_1.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "1" Var ShowTextNumber = "Invisible" @@ -260,7 +272,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -274,7 +286,7 @@ "ROOT/taobin_project/image/collectiing/bp_2.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "2" Var ShowTextNumber = "Invisible" @@ -285,7 +297,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -299,7 +311,7 @@ "ROOT/taobin_project/image/collectiing/bp_3.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "3" Var ShowTextNumber = "Invisible" @@ -310,7 +322,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -324,7 +336,7 @@ "ROOT/taobin_project/image/collectiing/bp_A.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "A" Var ShowTextNumber = "Invisible" @@ -335,7 +347,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -349,7 +361,7 @@ "ROOT/taobin_project/image/collectiing/bp_4.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "4" Var ShowTextNumber = "Invisible" @@ -360,7 +372,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -374,7 +386,7 @@ "ROOT/taobin_project/image/collectiing/bp_5.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "5" Var ShowTextNumber = "Invisible" @@ -385,7 +397,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -399,7 +411,7 @@ "ROOT/taobin_project/image/collectiing/bp_6.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "6" Var ShowTextNumber = "Invisible" @@ -410,7 +422,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -424,7 +436,7 @@ "ROOT/taobin_project/image/collectiing/bp_B.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "B" Var ShowTextNumber = "Invisible" @@ -435,7 +447,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -449,7 +461,7 @@ "ROOT/taobin_project/image/collectiing/bp_7.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "7" Var ShowTextNumber = "Invisible" @@ -460,7 +472,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -474,7 +486,7 @@ "ROOT/taobin_project/image/collectiing/bp_8.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "8" Var ShowTextNumber = "Invisible" @@ -485,7 +497,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -499,7 +511,7 @@ "ROOT/taobin_project/image/collectiing/bp_9.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "9" Var ShowTextNumber = "Invisible" @@ -510,7 +522,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -524,7 +536,7 @@ "ROOT/taobin_project/image/collectiing/bp_C.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "C" Var ShowTextNumber = "Invisible" @@ -535,7 +547,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -549,7 +561,7 @@ "ROOT/taobin_project/image/collectiing/bp_0.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "0" Trim TelephoneNumber 8 @@ -557,7 +569,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" @@ -575,21 +587,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 @@ -602,7 +614,7 @@ ;Var ShowErrorText = "Invisible" TimerReset Refresh - + @@ -614,11 +626,11 @@ Var( DirImage + "/bn_back.png") "ROOT/sounds/codebuttom.wav" SoundVolume - - - - Open "ROOT/taobin_project/xml/page_payment_codeOther.xml" - + + + + Open "ROOT/taobin_project/xml/page_payment_codeOther.xml" + @@ -627,28 +639,37 @@ 577 1673 "Enable" - Tel_Confirm_State + + eval( + If ShowLoadingText = "Enable" Then + Var return = "Press" + Else + Var return = Tel_Confirm_State + EndIf + ) + Var( DirImage + "/bn_confirm.png" ) Var( DirImage + "/bp_confirm.png" ) Var( DirImage + "/bp_confirm.png" ) "ROOT/sounds/codebuttom.wav" SoundVolume - + + - If UnitTestType = "2" Then If TelephoneNumber = "00000001" Then Var ShowErrorText = "Enable" EndIf Else - + If GetPayInfoFlag = 0 Then Var GetPayInfoFlag = 1 + Var ShowLoadingText = "Enable" VendingQR OFF - + Var Seeker.CodeNumber = TelephoneNumber Var RemainAmount = 0 ;PrepareDrink SelectDrink SelectSugarID @@ -665,13 +686,13 @@ Var ECommerce = ECommerce + ":" 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 + "/" @@ -681,13 +702,13 @@ Var ECommerce = ECommerce + "C00" EndIf - + Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + Seeker.CodeNumber Var ECommerce = ECommerce + ":" Var ECommerce = ECommerce + PromotionIDCurrentOrder - + Var ServiceParameter = "max" Var ServiceCharge = 0 Var AccountType = "new" @@ -700,17 +721,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 - + @@ -742,7 +763,7 @@ - + 188 @@ -750,6 +771,13 @@ Var( DirImage + "/text_39.png" ) + + 260 + 990 + ShowLoadingText + Var( DirImage + "/loadingText.png") + + 152 1001 @@ -781,9 +809,9 @@ - - - Open "/media/bt/xml/security_alarm.xml" + + + Open "/media/bt/xml/security_alarm.xml" diff --git a/xml/page_payment_codeLH.xml b/xml/page_payment_codeLH.xml index 5870772e..ca5d2291 100644 --- a/xml/page_payment_codeLH.xml +++ b/xml/page_payment_codeLH.xml @@ -13,23 +13,24 @@ Var Seeker.FreeVendingCampaign = 0 Var Timeout = 0 - + Var GetPayInfoFlag = 0 Var Seeker.CodeChannel = 0 ;Var VendingQRCode = "ERROR" ;VendingQR ON ;Var QRCODE99 = "" - + ;CoinVending OFF - + + Var ShowLoadingText = "Invisible" 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" @@ -39,24 +40,31 @@ 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 - - Open "ROOT/taobin_project/xml/page_payment_codeOther.xml" - - Refresh + If GetPayInfoFlag = 1 Then + Var ShowLoadingText = "Invisible" + Open "ROOT/taobin_project/xml/page_payment_codeOther.xml" + Else + Var ShowLoadingText = "Invisible" + Var text_show_error = DirImage + "/text_show_error2.png" + Var GetPayInfoFlag = 0 + Var Seeker.CodeChannel = 0 + Var Timeout = 0 + EndIf + Refresh EndIf TimerReset - + @@ -68,12 +76,14 @@ - + If Seeker.CodeChannel = 1 Then SAVELOG "Seeker.CodeChannel 1 > ActOK." + Var ShowLoadingText = "Invisible" + SAVELOG ECommerce SPLIT ECommerce "/" 5 Seeker.VendingCode @@ -81,19 +91,19 @@ SPLIT ECommerce "/" 8 VendingCampaign1 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 @@ -110,37 +120,37 @@ If IntVendingCampaign1 > 0 Then Var VendingCreditRemain = VendingCampaign1 - EndIf + EndIf Var Seeker.IntVendingCampaign = Seeker.VendingCampaignRI3 INT Seeker.IntVendingCampaign - + Var VendingREFID = SessionID If Seeker.IntVendingCampaign > 0 Then Var QRChannel = 0 - If Seeker.IntVendingCampaign >= PayAmount Then - ;Open "ROOT/taobin_project/xml/page_payment_cash.xml" + If Seeker.IntVendingCampaign >= PayAmount Then + ;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 @@ -151,16 +161,16 @@ Var TxRef1 = "" CreateTxRef1 TxRef1 EndIf - Open "ROOT/taobin_project/xml/page_thankyou.xml" + Open "ROOT/taobin_project/xml/page_thankyou.xml" EndIf EndIf 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 @@ -175,10 +185,10 @@ EndIf EndIf - Else + Else + + - - EndIf @@ -186,8 +196,10 @@ If Seeker.CodeChannel = 1 Then + Var ShowLoadingText = "Invisible" + Var TelephoneNumber = "" - + Var ShowErrorText = "Enable" SAVELOG ShowErrorText @@ -246,7 +258,7 @@ "ROOT/taobin_project/image/collectiing/bp_1.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "1" Var ShowTextNumber = "Invisible" @@ -257,7 +269,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -271,7 +283,7 @@ "ROOT/taobin_project/image/collectiing/bp_2.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "2" Var ShowTextNumber = "Invisible" @@ -282,7 +294,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -296,7 +308,7 @@ "ROOT/taobin_project/image/collectiing/bp_3.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "3" Var ShowTextNumber = "Invisible" @@ -307,7 +319,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -321,7 +333,7 @@ "ROOT/taobin_project/image/collectiing/bp_A.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "A" Var ShowTextNumber = "Invisible" @@ -332,7 +344,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -346,7 +358,7 @@ "ROOT/taobin_project/image/collectiing/bp_4.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "4" Var ShowTextNumber = "Invisible" @@ -357,7 +369,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -371,7 +383,7 @@ "ROOT/taobin_project/image/collectiing/bp_5.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "5" Var ShowTextNumber = "Invisible" @@ -382,7 +394,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -396,7 +408,7 @@ "ROOT/taobin_project/image/collectiing/bp_6.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "6" Var ShowTextNumber = "Invisible" @@ -407,7 +419,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -421,7 +433,7 @@ "ROOT/taobin_project/image/collectiing/bp_B.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "B" Var ShowTextNumber = "Invisible" @@ -432,7 +444,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -446,7 +458,7 @@ "ROOT/taobin_project/image/collectiing/bp_7.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "7" Var ShowTextNumber = "Invisible" @@ -457,7 +469,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -471,7 +483,7 @@ "ROOT/taobin_project/image/collectiing/bp_8.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "8" Var ShowTextNumber = "Invisible" @@ -482,7 +494,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -496,7 +508,7 @@ "ROOT/taobin_project/image/collectiing/bp_9.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "9" Var ShowTextNumber = "Invisible" @@ -507,7 +519,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -521,7 +533,7 @@ "ROOT/taobin_project/image/collectiing/bp_C.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "C" Var ShowTextNumber = "Invisible" @@ -532,7 +544,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -546,7 +558,7 @@ "ROOT/taobin_project/image/collectiing/bp_0.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "0" Trim TelephoneNumber 8 @@ -554,7 +566,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" @@ -572,21 +584,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 @@ -599,7 +611,7 @@ ;Var ShowErrorText = "Invisible" TimerReset Refresh - + @@ -611,11 +623,11 @@ Var( DirImage + "/bn_back.png") "ROOT/sounds/codebuttom.wav" SoundVolume - - - - Open "ROOT/taobin_project/xml/page_payment_codeOther.xml" - + + + + Open "ROOT/taobin_project/xml/page_payment_codeOther.xml" + @@ -624,28 +636,37 @@ 577 1673 "Enable" - Tel_Confirm_State + + eval( + If ShowLoadingText = "Enable" Then + Var return = "Press" + Else + Var return = Tel_Confirm_State + EndIf + ) + Var( DirImage + "/bn_confirm.png" ) Var( DirImage + "/bp_confirm.png" ) Var( DirImage + "/bp_confirm.png" ) "ROOT/sounds/codebuttom.wav" SoundVolume - + + - If UnitTestType = "2" Then If TelephoneNumber = "00000001" Then Var ShowErrorText = "Enable" EndIf Else - + If GetPayInfoFlag = 0 Then Var GetPayInfoFlag = 1 + Var ShowLoadingText = "Enable" VendingQR OFF - + Var Seeker.CodeNumber = TelephoneNumber Var RemainAmount = 0 ;PrepareDrink SelectDrink SelectSugarID @@ -662,13 +683,13 @@ Var ECommerce = ECommerce + ":" 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 + "/" @@ -678,13 +699,13 @@ Var ECommerce = ECommerce + "C00" EndIf - + Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + Seeker.CodeNumber Var ECommerce = ECommerce + ":" Var ECommerce = ECommerce + PromotionIDCurrentOrder - + Var ServiceParameter = "max" Var ServiceCharge = 0 Var AccountType = "new" @@ -697,17 +718,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 - + @@ -739,7 +760,7 @@ - + 188 @@ -747,6 +768,13 @@ Var( DirImage + "/text_38.png" ) + + 260 + 990 + ShowLoadingText + Var( DirImage + "/loadingText.png") + + 152 1001 @@ -778,9 +806,9 @@ - - - Open "/media/bt/xml/security_alarm.xml" + + + Open "/media/bt/xml/security_alarm.xml" diff --git a/xml/page_payment_codeLotus.xml b/xml/page_payment_codeLotus.xml index a9ec0f41..5877ae2d 100644 --- a/xml/page_payment_codeLotus.xml +++ b/xml/page_payment_codeLotus.xml @@ -13,23 +13,24 @@ Var Seeker.FreeVendingCampaign = 0 Var Timeout = 0 - + Var GetPayInfoFlag = 0 Var Seeker.CodeChannel = 0 ;Var VendingQRCode = "ERROR" ;VendingQR ON ;Var QRCODE99 = "" - + ;CoinVending OFF - + + Var ShowLoadingText = "Invisible" 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" @@ -39,24 +40,31 @@ 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 - - Open "ROOT/taobin_project/xml/page_payment_codeOther.xml" - - Refresh + If GetPayInfoFlag = 1 Then + Var ShowLoadingText = "Invisible" + Open "ROOT/taobin_project/xml/page_payment_codeOther.xml" + Else + Var ShowLoadingText = "Invisible" + Var text_show_error = DirImage + "/text_show_error2.png" + Var GetPayInfoFlag = 0 + Var Seeker.CodeChannel = 0 + Var Timeout = 0 + EndIf + Refresh EndIf TimerReset - + @@ -68,12 +76,14 @@ - + If Seeker.CodeChannel = 1 Then SAVELOG "Seeker.CodeChannel 1 > ActOK." + Var ShowLoadingText = "Invisible" + SAVELOG ECommerce SPLIT ECommerce "/" 5 Seeker.VendingCode @@ -81,19 +91,19 @@ SPLIT ECommerce "/" 8 VendingCampaign1 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 @@ -110,37 +120,37 @@ If IntVendingCampaign1 > 0 Then Var VendingCreditRemain = VendingCampaign1 - EndIf + EndIf Var Seeker.IntVendingCampaign = Seeker.VendingCampaignRI3 INT Seeker.IntVendingCampaign - + Var VendingREFID = SessionID If Seeker.IntVendingCampaign > 0 Then Var QRChannel = 0 - If Seeker.IntVendingCampaign >= PayAmount Then - ;Open "ROOT/taobin_project/xml/page_payment_cash.xml" + If Seeker.IntVendingCampaign >= PayAmount Then + ;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 @@ -154,16 +164,16 @@ Var DrinkPaid = SelectDrink Var PaidPaymentFromNextStage = 1 EndIf - Open "ROOT/taobin_project/xml/page_thankyou.xml" + Open "ROOT/taobin_project/xml/page_thankyou.xml" EndIf EndIf 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 @@ -178,10 +188,10 @@ EndIf EndIf - Else + Else + + - - EndIf @@ -189,8 +199,10 @@ If Seeker.CodeChannel = 1 Then - Var TelephoneNumber = "" - + Var ShowLoadingText = "Invisible" + + Var TelephoneNumber = "" + Var ShowErrorText = "Enable" SAVELOG ShowErrorText @@ -249,7 +261,7 @@ "ROOT/taobin_project/image/collectiing/bp_1.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "1" Var ShowTextNumber = "Invisible" @@ -260,7 +272,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -274,7 +286,7 @@ "ROOT/taobin_project/image/collectiing/bp_2.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "2" Var ShowTextNumber = "Invisible" @@ -285,7 +297,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -299,7 +311,7 @@ "ROOT/taobin_project/image/collectiing/bp_3.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "3" Var ShowTextNumber = "Invisible" @@ -310,7 +322,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -324,7 +336,7 @@ "ROOT/taobin_project/image/collectiing/bp_A.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "A" Var ShowTextNumber = "Invisible" @@ -335,7 +347,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -349,7 +361,7 @@ "ROOT/taobin_project/image/collectiing/bp_4.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "4" Var ShowTextNumber = "Invisible" @@ -360,7 +372,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -374,7 +386,7 @@ "ROOT/taobin_project/image/collectiing/bp_5.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "5" Var ShowTextNumber = "Invisible" @@ -385,7 +397,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -399,7 +411,7 @@ "ROOT/taobin_project/image/collectiing/bp_6.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "6" Var ShowTextNumber = "Invisible" @@ -410,7 +422,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -424,7 +436,7 @@ "ROOT/taobin_project/image/collectiing/bp_B.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "B" Var ShowTextNumber = "Invisible" @@ -435,7 +447,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -449,7 +461,7 @@ "ROOT/taobin_project/image/collectiing/bp_7.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "7" Var ShowTextNumber = "Invisible" @@ -460,7 +472,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -474,7 +486,7 @@ "ROOT/taobin_project/image/collectiing/bp_8.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "8" Var ShowTextNumber = "Invisible" @@ -485,7 +497,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -499,7 +511,7 @@ "ROOT/taobin_project/image/collectiing/bp_9.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "9" Var ShowTextNumber = "Invisible" @@ -510,7 +522,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -524,7 +536,7 @@ "ROOT/taobin_project/image/collectiing/bp_C.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "C" Var ShowTextNumber = "Invisible" @@ -535,7 +547,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -549,7 +561,7 @@ "ROOT/taobin_project/image/collectiing/bp_0.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "0" Trim TelephoneNumber 8 @@ -557,7 +569,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" @@ -575,21 +587,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 @@ -602,7 +614,7 @@ ;Var ShowErrorText = "Invisible" TimerReset Refresh - + @@ -614,11 +626,11 @@ Var( DirImage + "/bn_back.png") "ROOT/sounds/codebuttom.wav" SoundVolume - - - - Open "ROOT/taobin_project/xml/page_payment_codeOther.xml" - + + + + Open "ROOT/taobin_project/xml/page_payment_codeOther.xml" + @@ -627,28 +639,37 @@ 577 1673 "Enable" - Tel_Confirm_State + + eval( + If ShowLoadingText = "Enable" Then + Var return = "Press" + Else + Var return = Tel_Confirm_State + EndIf + ) + Var( DirImage + "/bn_confirm.png" ) Var( DirImage + "/bp_confirm.png" ) Var( DirImage + "/bp_confirm.png" ) "ROOT/sounds/codebuttom.wav" SoundVolume - + + - If UnitTestType = "2" Then If TelephoneNumber = "00000001" Then Var ShowErrorText = "Enable" EndIf Else - + If GetPayInfoFlag = 0 Then Var GetPayInfoFlag = 1 + Var ShowLoadingText = "Enable" VendingQR OFF - + Var Seeker.CodeNumber = TelephoneNumber Var RemainAmount = 0 ;PrepareDrink SelectDrink SelectSugarID @@ -665,13 +686,13 @@ Var ECommerce = ECommerce + ":" 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 + "/" @@ -681,13 +702,13 @@ Var ECommerce = ECommerce + "C00" EndIf - + Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + Seeker.CodeNumber Var ECommerce = ECommerce + ":" Var ECommerce = ECommerce + PromotionIDCurrentOrder - + Var ServiceParameter = "max" Var ServiceCharge = 0 Var AccountType = "new" @@ -700,17 +721,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 - + @@ -742,7 +763,7 @@ - + 188 @@ -750,6 +771,13 @@ Var( DirImage + "/text_32.png" ) + + 260 + 990 + ShowLoadingText + Var( DirImage + "/loadingText.png") + + 152 1001 @@ -781,9 +809,9 @@ - - - Open "/media/bt/xml/security_alarm.xml" + + + Open "/media/bt/xml/security_alarm.xml" diff --git a/xml/page_payment_codeMCard.xml b/xml/page_payment_codeMCard.xml index 8d8f14d6..2f219560 100644 --- a/xml/page_payment_codeMCard.xml +++ b/xml/page_payment_codeMCard.xml @@ -13,53 +13,61 @@ Var Seeker.FreeVendingCampaign = 0 Var Timeout = 0 - + Var GetPayInfoFlag = 0 Var Seeker.CodeChannel = 0 ;Var VendingQRCode = "ERROR" ;VendingQR ON ;Var QRCODE99 = "" - + ;CoinVending OFF - + + Var ShowLoadingText = "Invisible" 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" EndIf - If LanguageShow = "MYANMAR" Then + If LanguageShow = "MYANMAR" Then Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/" EndIf 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 - - Open "ROOT/taobin_project/xml/page_payment_codeOther.xml" - - Refresh + If GetPayInfoFlag = 1 Then + Var ShowLoadingText = "Invisible" + Open "ROOT/taobin_project/xml/page_payment_codeOther.xml" + Else + Var ShowLoadingText = "Invisible" + Var text_show_error = DirImage + "/text_show_error2.png" + Var GetPayInfoFlag = 0 + Var Seeker.CodeChannel = 0 + Var Timeout = 0 + EndIf + Refresh EndIf TimerReset - + @@ -71,12 +79,14 @@ - + If Seeker.CodeChannel = 1 Then SAVELOG "Seeker.CodeChannel 1 > ActOK." + Var ShowLoadingText = "Invisible" + SAVELOG ECommerce SPLIT ECommerce "/" 5 Seeker.VendingCode @@ -84,19 +94,19 @@ SPLIT ECommerce "/" 8 VendingCampaign1 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 @@ -113,37 +123,37 @@ If IntVendingCampaign1 > 0 Then Var VendingCreditRemain = VendingCampaign1 - EndIf + EndIf Var Seeker.IntVendingCampaign = Seeker.VendingCampaignRI3 INT Seeker.IntVendingCampaign - + Var VendingREFID = SessionID If Seeker.IntVendingCampaign > 0 Then Var QRChannel = 0 - If Seeker.IntVendingCampaign >= PayAmount Then - ;Open "ROOT/taobin_project/xml/page_payment_cash.xml" + If Seeker.IntVendingCampaign >= PayAmount Then + ;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 @@ -157,16 +167,16 @@ Var DrinkPaid = SelectDrink Var PaidPaymentFromNextStage = 1 EndIf - Open "ROOT/taobin_project/xml/page_thankyou.xml" + Open "ROOT/taobin_project/xml/page_thankyou.xml" EndIf EndIf 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 @@ -181,10 +191,10 @@ EndIf EndIf - Else + Else + + - - EndIf @@ -192,8 +202,10 @@ If Seeker.CodeChannel = 1 Then + Var ShowLoadingText = "Invisible" + Var TelephoneNumber = "" - + Var ShowErrorText = "Enable" SAVELOG ShowErrorText @@ -252,7 +264,7 @@ "ROOT/taobin_project/image/collectiing/bp_1.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "1" Var ShowTextNumber = "Invisible" @@ -263,7 +275,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -277,7 +289,7 @@ "ROOT/taobin_project/image/collectiing/bp_2.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "2" Var ShowTextNumber = "Invisible" @@ -288,7 +300,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -302,7 +314,7 @@ "ROOT/taobin_project/image/collectiing/bp_3.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "3" Var ShowTextNumber = "Invisible" @@ -313,7 +325,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -327,7 +339,7 @@ "ROOT/taobin_project/image/collectiing/bp_A.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "A" Var ShowTextNumber = "Invisible" @@ -338,7 +350,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -352,7 +364,7 @@ "ROOT/taobin_project/image/collectiing/bp_4.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "4" Var ShowTextNumber = "Invisible" @@ -363,7 +375,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -377,7 +389,7 @@ "ROOT/taobin_project/image/collectiing/bp_5.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "5" Var ShowTextNumber = "Invisible" @@ -388,7 +400,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -402,7 +414,7 @@ "ROOT/taobin_project/image/collectiing/bp_6.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "6" Var ShowTextNumber = "Invisible" @@ -413,7 +425,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -427,7 +439,7 @@ "ROOT/taobin_project/image/collectiing/bp_B.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "B" Var ShowTextNumber = "Invisible" @@ -438,7 +450,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -452,7 +464,7 @@ "ROOT/taobin_project/image/collectiing/bp_7.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "7" Var ShowTextNumber = "Invisible" @@ -463,7 +475,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -477,7 +489,7 @@ "ROOT/taobin_project/image/collectiing/bp_8.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "8" Var ShowTextNumber = "Invisible" @@ -488,7 +500,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -502,7 +514,7 @@ "ROOT/taobin_project/image/collectiing/bp_9.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "9" Var ShowTextNumber = "Invisible" @@ -513,7 +525,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -527,7 +539,7 @@ "ROOT/taobin_project/image/collectiing/bp_C.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "C" Var ShowTextNumber = "Invisible" @@ -538,7 +550,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -552,7 +564,7 @@ "ROOT/taobin_project/image/collectiing/bp_0.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "0" Trim TelephoneNumber 8 @@ -560,7 +572,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" @@ -578,21 +590,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 @@ -605,7 +617,7 @@ ;Var ShowErrorText = "Invisible" TimerReset Refresh - + @@ -617,11 +629,11 @@ Var( DirImage + "/bn_back.png") "ROOT/sounds/codebuttom.wav" SoundVolume - - - - Open "ROOT/taobin_project/xml/page_payment_codeOther.xml" - + + + + Open "ROOT/taobin_project/xml/page_payment_codeOther.xml" + @@ -630,28 +642,37 @@ 577 1673 "Enable" - Tel_Confirm_State + + eval( + If ShowLoadingText = "Enable" Then + Var return = "Press" + Else + Var return = Tel_Confirm_State + EndIf + ) + Var( DirImage + "/bn_confirm.png" ) Var( DirImage + "/bp_confirm.png" ) Var( DirImage + "/bp_confirm.png" ) "ROOT/sounds/codebuttom.wav" SoundVolume - + + - If UnitTestType = "2" Then If TelephoneNumber = "00000001" Then Var ShowErrorText = "Enable" EndIf Else - + If GetPayInfoFlag = 0 Then Var GetPayInfoFlag = 1 + Var ShowLoadingText = "Enable" VendingQR OFF - + Var Seeker.CodeNumber = TelephoneNumber Var RemainAmount = 0 ;PrepareDrink SelectDrink SelectSugarID @@ -668,13 +689,13 @@ Var ECommerce = ECommerce + ":" 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 + "/" @@ -684,13 +705,13 @@ Var ECommerce = ECommerce + "C00" EndIf - + Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + Seeker.CodeNumber Var ECommerce = ECommerce + ":" Var ECommerce = ECommerce + PromotionIDCurrentOrder - + Var ServiceParameter = "max" Var ServiceCharge = 0 Var AccountType = "new" @@ -703,17 +724,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 - + @@ -745,7 +766,7 @@ - + 188 @@ -753,6 +774,13 @@ Var( DirImage + "/text_40.png" ) + + 260 + 990 + ShowLoadingText + Var( DirImage + "/loadingText.png") + + 152 1001 @@ -784,9 +812,9 @@ - - - Open "/media/bt/xml/security_alarm.xml" + + + Open "/media/bt/xml/security_alarm.xml" diff --git a/xml/page_payment_codeRabbit.xml b/xml/page_payment_codeRabbit.xml index 5abd3f8e..8cbf4f4e 100644 --- a/xml/page_payment_codeRabbit.xml +++ b/xml/page_payment_codeRabbit.xml @@ -13,29 +13,30 @@ Var Seeker.FreeVendingCampaign = 0 Var Timeout = 0 - + Var GetPayInfoFlag = 0 Var Seeker.CodeChannel = 0 ;Var VendingQRCode = "ERROR" ;VendingQR ON ;Var QRCODE99 = "" - + ;CoinVending OFF - + + Var ShowLoadingText = "Invisible" 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" EndIf - If LanguageShow = "MYANMAR" Then + If LanguageShow = "MYANMAR" Then Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/" EndIf @@ -43,24 +44,31 @@ 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 - - Open "ROOT/taobin_project/xml/page_payment_codeOther.xml" - - Refresh + If GetPayInfoFlag = 1 Then + Var ShowLoadingText = "Invisible" + Open "ROOT/taobin_project/xml/page_payment_codeOther.xml" + Else + Var ShowLoadingText = "Invisible" + Var text_show_error = DirImage + "/text_show_error2.png" + Var GetPayInfoFlag = 0 + Var Seeker.CodeChannel = 0 + Var Timeout = 0 + EndIf + Refresh EndIf TimerReset - + @@ -72,12 +80,14 @@ - + If Seeker.CodeChannel = 1 Then SAVELOG "Seeker.CodeChannel 1 > ActOK." + Var ShowLoadingText = "Invisible" + SAVELOG ECommerce SPLIT ECommerce "/" 5 Seeker.VendingCode @@ -85,19 +95,19 @@ SPLIT ECommerce "/" 8 VendingCampaign1 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 @@ -114,37 +124,37 @@ If IntVendingCampaign1 > 0 Then Var VendingCreditRemain = VendingCampaign1 - EndIf + EndIf Var Seeker.IntVendingCampaign = Seeker.VendingCampaignRI3 INT Seeker.IntVendingCampaign - + Var VendingREFID = SessionID If Seeker.IntVendingCampaign > 0 Then Var QRChannel = 0 - If Seeker.IntVendingCampaign >= PayAmount Then - ;Open "ROOT/taobin_project/xml/page_payment_cash.xml" + If Seeker.IntVendingCampaign >= PayAmount Then + ;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 @@ -158,16 +168,16 @@ Var DrinkPaid = SelectDrink Var PaidPaymentFromNextStage = 1 EndIf - Open "ROOT/taobin_project/xml/page_thankyou.xml" + Open "ROOT/taobin_project/xml/page_thankyou.xml" EndIf EndIf 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 @@ -182,10 +192,10 @@ EndIf EndIf - Else + Else + + - - EndIf @@ -193,8 +203,10 @@ If Seeker.CodeChannel = 1 Then + Var ShowLoadingText = "Invisible" + Var TelephoneNumber = "" - + Var ShowErrorText = "Enable" SAVELOG ShowErrorText @@ -253,7 +265,7 @@ "ROOT/taobin_project/image/collectiing/bp_1.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "1" Var ShowTextNumber = "Invisible" @@ -264,7 +276,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -278,7 +290,7 @@ "ROOT/taobin_project/image/collectiing/bp_2.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "2" Var ShowTextNumber = "Invisible" @@ -289,7 +301,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -303,7 +315,7 @@ "ROOT/taobin_project/image/collectiing/bp_3.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "3" Var ShowTextNumber = "Invisible" @@ -314,7 +326,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -328,7 +340,7 @@ "ROOT/taobin_project/image/collectiing/bp_A.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "A" Var ShowTextNumber = "Invisible" @@ -339,7 +351,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -353,7 +365,7 @@ "ROOT/taobin_project/image/collectiing/bp_4.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "4" Var ShowTextNumber = "Invisible" @@ -364,7 +376,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -378,7 +390,7 @@ "ROOT/taobin_project/image/collectiing/bp_5.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "5" Var ShowTextNumber = "Invisible" @@ -389,7 +401,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -403,7 +415,7 @@ "ROOT/taobin_project/image/collectiing/bp_6.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "6" Var ShowTextNumber = "Invisible" @@ -414,7 +426,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -428,7 +440,7 @@ "ROOT/taobin_project/image/collectiing/bp_B.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "B" Var ShowTextNumber = "Invisible" @@ -439,7 +451,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -453,7 +465,7 @@ "ROOT/taobin_project/image/collectiing/bp_7.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "7" Var ShowTextNumber = "Invisible" @@ -464,7 +476,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -478,7 +490,7 @@ "ROOT/taobin_project/image/collectiing/bp_8.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "8" Var ShowTextNumber = "Invisible" @@ -489,7 +501,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -503,7 +515,7 @@ "ROOT/taobin_project/image/collectiing/bp_9.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "9" Var ShowTextNumber = "Invisible" @@ -514,7 +526,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -528,7 +540,7 @@ "ROOT/taobin_project/image/collectiing/bp_C.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "C" Var ShowTextNumber = "Invisible" @@ -539,7 +551,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -553,7 +565,7 @@ "ROOT/taobin_project/image/collectiing/bp_0.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "0" Trim TelephoneNumber 8 @@ -561,7 +573,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" @@ -579,21 +591,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 @@ -606,7 +618,7 @@ ;Var ShowErrorText = "Invisible" TimerReset Refresh - + @@ -618,11 +630,11 @@ Var( DirImage + "/bn_back.png") "ROOT/sounds/codebuttom.wav" SoundVolume - - - - Open "ROOT/taobin_project/xml/page_payment_codeOther.xml" - + + + + Open "ROOT/taobin_project/xml/page_payment_codeOther.xml" + @@ -631,28 +643,37 @@ 577 1673 "Enable" - Tel_Confirm_State + + eval( + If ShowLoadingText = "Enable" Then + Var return = "Press" + Else + Var return = Tel_Confirm_State + EndIf + ) + Var( DirImage + "/bn_confirm.png" ) Var( DirImage + "/bp_confirm.png" ) Var( DirImage + "/bp_confirm.png" ) "ROOT/sounds/codebuttom.wav" SoundVolume - + + - If UnitTestType = "2" Then If TelephoneNumber = "00000001" Then Var ShowErrorText = "Enable" EndIf Else - + If GetPayInfoFlag = 0 Then Var GetPayInfoFlag = 1 + Var ShowLoadingText = "Enable" VendingQR OFF - + Var Seeker.CodeNumber = TelephoneNumber Var RemainAmount = 0 ;PrepareDrink SelectDrink SelectSugarID @@ -669,13 +690,13 @@ Var ECommerce = ECommerce + ":" 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 + "/" @@ -685,13 +706,13 @@ Var ECommerce = ECommerce + "C00" EndIf - + Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + Seeker.CodeNumber Var ECommerce = ECommerce + ":" Var ECommerce = ECommerce + PromotionIDCurrentOrder - + Var ServiceParameter = "max" Var ServiceCharge = 0 Var AccountType = "new" @@ -704,17 +725,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 - + @@ -746,7 +767,7 @@ - + 188 @@ -754,6 +775,13 @@ Var( DirImage + "/text_41.png" ) + + 260 + 990 + ShowLoadingText + Var( DirImage + "/loadingText.png") + + 152 1001 @@ -785,9 +813,9 @@ - - - Open "/media/bt/xml/security_alarm.xml" + + + Open "/media/bt/xml/security_alarm.xml" diff --git a/xml/page_payment_codeSCG.xml b/xml/page_payment_codeSCG.xml index 1f999790..e8fc9f4a 100644 --- a/xml/page_payment_codeSCG.xml +++ b/xml/page_payment_codeSCG.xml @@ -13,23 +13,24 @@ Var Seeker.FreeVendingCampaign = 0 Var Timeout = 0 - + Var GetPayInfoFlag = 0 Var Seeker.CodeChannel = 0 ;Var VendingQRCode = "ERROR" ;VendingQR ON ;Var QRCODE99 = "" - + ;CoinVending OFF - + + Var ShowLoadingText = "Invisible" 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" @@ -39,24 +40,31 @@ 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 - - Open "ROOT/taobin_project/xml/page_payment_codeOther.xml" - - Refresh + If GetPayInfoFlag = 1 Then + Var ShowLoadingText = "Invisible" + Open "ROOT/taobin_project/xml/page_payment_codeOther.xml" + Else + Var ShowLoadingText = "Invisible" + Var text_show_error = DirImage + "/text_show_error2.png" + Var GetPayInfoFlag = 0 + Var Seeker.CodeChannel = 0 + Var Timeout = 0 + EndIf + Refresh EndIf TimerReset - + @@ -68,12 +76,14 @@ - + If Seeker.CodeChannel = 1 Then SAVELOG "Seeker.CodeChannel 1 > ActOK." + Var ShowLoadingText = "Invisible" + SAVELOG ECommerce SPLIT ECommerce "/" 5 Seeker.VendingCode @@ -81,19 +91,19 @@ SPLIT ECommerce "/" 8 VendingCampaign1 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 @@ -110,37 +120,37 @@ If IntVendingCampaign1 > 0 Then Var VendingCreditRemain = VendingCampaign1 - EndIf + EndIf Var Seeker.IntVendingCampaign = Seeker.VendingCampaignRI3 INT Seeker.IntVendingCampaign - + Var VendingREFID = SessionID If Seeker.IntVendingCampaign > 0 Then Var QRChannel = 0 - If Seeker.IntVendingCampaign >= PayAmount Then - ;Open "ROOT/taobin_project/xml/page_payment_cash.xml" + If Seeker.IntVendingCampaign >= PayAmount Then + ;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 @@ -154,16 +164,16 @@ Var DrinkPaid = SelectDrink Var PaidPaymentFromNextStage = 1 EndIf - Open "ROOT/taobin_project/xml/page_thankyou.xml" + Open "ROOT/taobin_project/xml/page_thankyou.xml" EndIf EndIf 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 @@ -178,10 +188,10 @@ EndIf EndIf - Else + Else + + - - EndIf @@ -189,8 +199,10 @@ If Seeker.CodeChannel = 1 Then + Var ShowLoadingText = "Invisible" + Var TelephoneNumber = "" - + Var ShowErrorText = "Enable" SAVELOG ShowErrorText @@ -249,7 +261,7 @@ "ROOT/taobin_project/image/collectiing/bp_1.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "1" Var ShowTextNumber = "Invisible" @@ -260,7 +272,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -274,7 +286,7 @@ "ROOT/taobin_project/image/collectiing/bp_2.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "2" Var ShowTextNumber = "Invisible" @@ -285,7 +297,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -299,7 +311,7 @@ "ROOT/taobin_project/image/collectiing/bp_3.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "3" Var ShowTextNumber = "Invisible" @@ -310,7 +322,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -324,7 +336,7 @@ "ROOT/taobin_project/image/collectiing/bp_A.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "A" Var ShowTextNumber = "Invisible" @@ -335,7 +347,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -349,7 +361,7 @@ "ROOT/taobin_project/image/collectiing/bp_4.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "4" Var ShowTextNumber = "Invisible" @@ -360,7 +372,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -374,7 +386,7 @@ "ROOT/taobin_project/image/collectiing/bp_5.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "5" Var ShowTextNumber = "Invisible" @@ -385,7 +397,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -399,7 +411,7 @@ "ROOT/taobin_project/image/collectiing/bp_6.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "6" Var ShowTextNumber = "Invisible" @@ -410,7 +422,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -424,7 +436,7 @@ "ROOT/taobin_project/image/collectiing/bp_B.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "B" Var ShowTextNumber = "Invisible" @@ -435,7 +447,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -449,7 +461,7 @@ "ROOT/taobin_project/image/collectiing/bp_7.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "7" Var ShowTextNumber = "Invisible" @@ -460,7 +472,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -474,7 +486,7 @@ "ROOT/taobin_project/image/collectiing/bp_8.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "8" Var ShowTextNumber = "Invisible" @@ -485,7 +497,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -499,7 +511,7 @@ "ROOT/taobin_project/image/collectiing/bp_9.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "9" Var ShowTextNumber = "Invisible" @@ -510,7 +522,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -524,7 +536,7 @@ "ROOT/taobin_project/image/collectiing/bp_C.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "C" Var ShowTextNumber = "Invisible" @@ -535,7 +547,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -549,7 +561,7 @@ "ROOT/taobin_project/image/collectiing/bp_0.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "0" Trim TelephoneNumber 8 @@ -557,7 +569,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" @@ -575,21 +587,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 @@ -602,7 +614,7 @@ ;Var ShowErrorText = "Invisible" TimerReset Refresh - + @@ -614,11 +626,11 @@ Var( DirImage + "/bn_back.png") "ROOT/sounds/codebuttom.wav" SoundVolume - - - - Open "ROOT/taobin_project/xml/page_payment_codeOther.xml" - + + + + Open "ROOT/taobin_project/xml/page_payment_codeOther.xml" + @@ -627,28 +639,37 @@ 577 1673 "Enable" - Tel_Confirm_State + + eval( + If ShowLoadingText = "Enable" Then + Var return = "Press" + Else + Var return = Tel_Confirm_State + EndIf + ) + Var( DirImage + "/bn_confirm.png" ) Var( DirImage + "/bp_confirm.png" ) Var( DirImage + "/bp_confirm.png" ) "ROOT/sounds/codebuttom.wav" SoundVolume - + + - If UnitTestType = "2" Then If TelephoneNumber = "00000001" Then Var ShowErrorText = "Enable" EndIf Else - + If GetPayInfoFlag = 0 Then Var GetPayInfoFlag = 1 + Var ShowLoadingText = "Enable" VendingQR OFF - + Var Seeker.CodeNumber = TelephoneNumber Var RemainAmount = 0 ;PrepareDrink SelectDrink SelectSugarID @@ -665,13 +686,13 @@ Var ECommerce = ECommerce + ":" 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 + "/" @@ -681,13 +702,13 @@ Var ECommerce = ECommerce + "C00" EndIf - + Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + Seeker.CodeNumber Var ECommerce = ECommerce + ":" Var ECommerce = ECommerce + PromotionIDCurrentOrder - + Var ServiceParameter = "max" Var ServiceCharge = 0 Var AccountType = "new" @@ -700,17 +721,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 - + @@ -742,7 +763,7 @@ - + 188 @@ -750,6 +771,13 @@ Var( DirImage + "/text_36.png" ) + + 260 + 990 + ShowLoadingText + Var( DirImage + "/loadingText.png") + + 152 1001 @@ -781,9 +809,9 @@ - - - Open "/media/bt/xml/security_alarm.xml" + + + Open "/media/bt/xml/security_alarm.xml" diff --git a/xml/page_payment_codeThe1.xml b/xml/page_payment_codeThe1.xml index ddf8954a..fed5ddaf 100644 --- a/xml/page_payment_codeThe1.xml +++ b/xml/page_payment_codeThe1.xml @@ -13,29 +13,30 @@ Var Seeker.FreeVendingCampaign = 0 Var Timeout = 0 - + Var GetPayInfoFlag = 0 Var Seeker.CodeChannel = 0 ;Var VendingQRCode = "ERROR" ;VendingQR ON ;Var QRCODE99 = "" - + ;CoinVending OFF - + + Var ShowLoadingText = "Invisible" 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" EndIf - If LanguageShow = "MYANMAR" Then + If LanguageShow = "MYANMAR" Then Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/" EndIf @@ -43,24 +44,31 @@ 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 - - Open "ROOT/taobin_project/xml/page_payment_codeOther.xml" - - Refresh + If GetPayInfoFlag = 1 Then + Var ShowLoadingText = "Invisible" + Open "ROOT/taobin_project/xml/page_payment_codeOther.xml" + Else + Var ShowLoadingText = "Invisible" + Var text_show_error = DirImage + "/text_show_error2.png" + Var GetPayInfoFlag = 0 + Var Seeker.CodeChannel = 0 + Var Timeout = 0 + EndIf + Refresh EndIf TimerReset - + @@ -72,12 +80,14 @@ - + If Seeker.CodeChannel = 1 Then SAVELOG "Seeker.CodeChannel 1 > ActOK." + Var ShowLoadingText = "Invisible" + SAVELOG ECommerce SPLIT ECommerce "/" 5 Seeker.VendingCode @@ -85,19 +95,19 @@ SPLIT ECommerce "/" 8 VendingCampaign1 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 @@ -114,37 +124,37 @@ If IntVendingCampaign1 > 0 Then Var VendingCreditRemain = VendingCampaign1 - EndIf + EndIf Var Seeker.IntVendingCampaign = Seeker.VendingCampaignRI3 INT Seeker.IntVendingCampaign - + Var VendingREFID = SessionID If Seeker.IntVendingCampaign > 0 Then Var QRChannel = 0 - If Seeker.IntVendingCampaign >= PayAmount Then - ;Open "ROOT/taobin_project/xml/page_payment_cash.xml" + If Seeker.IntVendingCampaign >= PayAmount Then + ;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 @@ -158,16 +168,16 @@ Var DrinkPaid = SelectDrink Var PaidPaymentFromNextStage = 1 EndIf - Open "ROOT/taobin_project/xml/page_thankyou.xml" + Open "ROOT/taobin_project/xml/page_thankyou.xml" EndIf EndIf 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 @@ -182,10 +192,10 @@ EndIf EndIf - Else + Else + + - - EndIf @@ -193,8 +203,10 @@ If Seeker.CodeChannel = 1 Then + Var ShowLoadingText = "Invisible" + Var TelephoneNumber = "" - + Var ShowErrorText = "Enable" SAVELOG ShowErrorText @@ -253,7 +265,7 @@ "ROOT/taobin_project/image/collectiing/bp_1.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "1" Var ShowTextNumber = "Invisible" @@ -264,7 +276,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -278,7 +290,7 @@ "ROOT/taobin_project/image/collectiing/bp_2.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "2" Var ShowTextNumber = "Invisible" @@ -289,7 +301,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -303,7 +315,7 @@ "ROOT/taobin_project/image/collectiing/bp_3.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "3" Var ShowTextNumber = "Invisible" @@ -314,7 +326,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -328,7 +340,7 @@ "ROOT/taobin_project/image/collectiing/bp_A.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "A" Var ShowTextNumber = "Invisible" @@ -339,7 +351,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -353,7 +365,7 @@ "ROOT/taobin_project/image/collectiing/bp_4.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "4" Var ShowTextNumber = "Invisible" @@ -364,7 +376,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -378,7 +390,7 @@ "ROOT/taobin_project/image/collectiing/bp_5.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "5" Var ShowTextNumber = "Invisible" @@ -389,7 +401,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -403,7 +415,7 @@ "ROOT/taobin_project/image/collectiing/bp_6.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "6" Var ShowTextNumber = "Invisible" @@ -414,7 +426,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -428,7 +440,7 @@ "ROOT/taobin_project/image/collectiing/bp_B.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "B" Var ShowTextNumber = "Invisible" @@ -439,7 +451,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -453,7 +465,7 @@ "ROOT/taobin_project/image/collectiing/bp_7.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "7" Var ShowTextNumber = "Invisible" @@ -464,7 +476,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -478,7 +490,7 @@ "ROOT/taobin_project/image/collectiing/bp_8.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "8" Var ShowTextNumber = "Invisible" @@ -489,7 +501,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -503,7 +515,7 @@ "ROOT/taobin_project/image/collectiing/bp_9.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "9" Var ShowTextNumber = "Invisible" @@ -514,7 +526,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -528,7 +540,7 @@ "ROOT/taobin_project/image/collectiing/bp_C.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "C" Var ShowTextNumber = "Invisible" @@ -539,7 +551,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -553,7 +565,7 @@ "ROOT/taobin_project/image/collectiing/bp_0.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "0" Trim TelephoneNumber 8 @@ -561,7 +573,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" @@ -579,21 +591,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 @@ -606,7 +618,7 @@ ;Var ShowErrorText = "Invisible" TimerReset Refresh - + @@ -618,11 +630,11 @@ Var( DirImage + "/bn_back.png") "ROOT/sounds/codebuttom.wav" SoundVolume - - - - Open "ROOT/taobin_project/xml/page_payment_codeOther.xml" - + + + + Open "ROOT/taobin_project/xml/page_payment_codeOther.xml" + @@ -631,28 +643,37 @@ 577 1673 "Enable" - Tel_Confirm_State + + eval( + If ShowLoadingText = "Enable" Then + Var return = "Press" + Else + Var return = Tel_Confirm_State + EndIf + ) + Var( DirImage + "/bn_confirm.png" ) Var( DirImage + "/bp_confirm.png" ) Var( DirImage + "/bp_confirm.png" ) "ROOT/sounds/codebuttom.wav" SoundVolume - + + - If UnitTestType = "2" Then If TelephoneNumber = "00000001" Then Var ShowErrorText = "Enable" EndIf Else - + If GetPayInfoFlag = 0 Then Var GetPayInfoFlag = 1 + Var ShowLoadingText = "Enable" VendingQR OFF - + Var Seeker.CodeNumber = TelephoneNumber Var RemainAmount = 0 ;PrepareDrink SelectDrink SelectSugarID @@ -669,13 +690,13 @@ Var ECommerce = ECommerce + ":" 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 + "/" @@ -685,13 +706,13 @@ Var ECommerce = ECommerce + "C00" EndIf - + Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + Seeker.CodeNumber Var ECommerce = ECommerce + ":" Var ECommerce = ECommerce + PromotionIDCurrentOrder - + Var ServiceParameter = "max" Var ServiceCharge = 0 Var AccountType = "new" @@ -704,17 +725,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 - + @@ -746,7 +767,7 @@ - + 188 @@ -754,6 +775,13 @@ Var( DirImage + "/text_33.png" ) + + 260 + 990 + ShowLoadingText + Var( DirImage + "/loadingText.png") + + 152 1001 @@ -785,9 +813,9 @@ - - - Open "/media/bt/xml/security_alarm.xml" + + + Open "/media/bt/xml/security_alarm.xml" diff --git a/xml/page_payment_codeTrue.xml b/xml/page_payment_codeTrue.xml index a8da5c0e..0fa385b8 100644 --- a/xml/page_payment_codeTrue.xml +++ b/xml/page_payment_codeTrue.xml @@ -13,29 +13,30 @@ Var Seeker.FreeVendingCampaign = 0 Var Timeout = 0 - + Var GetPayInfoFlag = 0 Var Seeker.CodeChannel = 0 ;Var VendingQRCode = "ERROR" ;VendingQR ON ;Var QRCODE99 = "" - + ;CoinVending OFF - + + Var ShowLoadingText = "Invisible" 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" EndIf - If LanguageShow = "MYANMAR" Then + If LanguageShow = "MYANMAR" Then Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/" EndIf @@ -43,24 +44,31 @@ 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 - - Open "ROOT/taobin_project/xml/page_payment_codeOther.xml" - - Refresh + If GetPayInfoFlag = 1 Then + Var ShowLoadingText = "Invisible" + Open "ROOT/taobin_project/xml/page_payment_codeOther.xml" + Else + Var ShowLoadingText = "Invisible" + Var text_show_error = DirImage + "/text_show_error2.png" + Var GetPayInfoFlag = 0 + Var Seeker.CodeChannel = 0 + Var Timeout = 0 + EndIf + Refresh EndIf TimerReset - + @@ -72,12 +80,14 @@ - + If Seeker.CodeChannel = 1 Then SAVELOG "Seeker.CodeChannel 1 > ActOK." + Var ShowLoadingText = "Invisible" + SAVELOG ECommerce SPLIT ECommerce "/" 5 Seeker.VendingCode @@ -85,19 +95,19 @@ SPLIT ECommerce "/" 8 VendingCampaign1 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 @@ -114,37 +124,37 @@ If IntVendingCampaign1 > 0 Then Var VendingCreditRemain = VendingCampaign1 - EndIf + EndIf Var Seeker.IntVendingCampaign = Seeker.VendingCampaignRI3 INT Seeker.IntVendingCampaign - + Var VendingREFID = SessionID If Seeker.IntVendingCampaign > 0 Then Var QRChannel = 0 - If Seeker.IntVendingCampaign >= PayAmount Then - ;Open "ROOT/taobin_project/xml/page_payment_cash.xml" + If Seeker.IntVendingCampaign >= PayAmount Then + ;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 @@ -158,16 +168,16 @@ Var DrinkPaid = SelectDrink Var PaidPaymentFromNextStage = 1 EndIf - Open "ROOT/taobin_project/xml/page_thankyou.xml" + Open "ROOT/taobin_project/xml/page_thankyou.xml" EndIf EndIf 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 @@ -182,10 +192,10 @@ EndIf EndIf - Else + Else + + - - EndIf @@ -193,8 +203,10 @@ If Seeker.CodeChannel = 1 Then + Var ShowLoadingText = "Invisible" + Var TelephoneNumber = "" - + Var ShowErrorText = "Enable" SAVELOG ShowErrorText @@ -253,7 +265,7 @@ "ROOT/taobin_project/image/collectiing/bp_1.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "1" Var ShowTextNumber = "Invisible" @@ -264,7 +276,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -278,7 +290,7 @@ "ROOT/taobin_project/image/collectiing/bp_2.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "2" Var ShowTextNumber = "Invisible" @@ -289,7 +301,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -303,7 +315,7 @@ "ROOT/taobin_project/image/collectiing/bp_3.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "3" Var ShowTextNumber = "Invisible" @@ -314,7 +326,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -328,7 +340,7 @@ "ROOT/taobin_project/image/collectiing/bp_A.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "A" Var ShowTextNumber = "Invisible" @@ -339,7 +351,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -353,7 +365,7 @@ "ROOT/taobin_project/image/collectiing/bp_4.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "4" Var ShowTextNumber = "Invisible" @@ -364,7 +376,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -378,7 +390,7 @@ "ROOT/taobin_project/image/collectiing/bp_5.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "5" Var ShowTextNumber = "Invisible" @@ -389,7 +401,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -403,7 +415,7 @@ "ROOT/taobin_project/image/collectiing/bp_6.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "6" Var ShowTextNumber = "Invisible" @@ -414,7 +426,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -428,7 +440,7 @@ "ROOT/taobin_project/image/collectiing/bp_B.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "B" Var ShowTextNumber = "Invisible" @@ -439,7 +451,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -453,7 +465,7 @@ "ROOT/taobin_project/image/collectiing/bp_7.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "7" Var ShowTextNumber = "Invisible" @@ -464,7 +476,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -478,7 +490,7 @@ "ROOT/taobin_project/image/collectiing/bp_8.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "8" Var ShowTextNumber = "Invisible" @@ -489,7 +501,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -503,7 +515,7 @@ "ROOT/taobin_project/image/collectiing/bp_9.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "9" Var ShowTextNumber = "Invisible" @@ -514,7 +526,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -528,7 +540,7 @@ "ROOT/taobin_project/image/collectiing/bp_C.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "C" Var ShowTextNumber = "Invisible" @@ -539,7 +551,7 @@ TimerReset Refresh StrLen TelephoneNumber TelNumLen - If TelNumLen >= 8 Then + If TelNumLen >= 8 Then Var Tel_Confirm_State = "Enable" EndIf Var ShowErrorText = "Invisible" @@ -553,7 +565,7 @@ "ROOT/taobin_project/image/collectiing/bp_0.png" "ROOT/sounds/codebuttom.wav" SoundVolume - + Var Timeout = 0 Var TelephoneNumber = TelephoneNumber + "0" Trim TelephoneNumber 8 @@ -561,7 +573,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" @@ -579,21 +591,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 @@ -606,7 +618,7 @@ ;Var ShowErrorText = "Invisible" TimerReset Refresh - + @@ -618,11 +630,11 @@ Var( DirImage + "/bn_back.png") "ROOT/sounds/codebuttom.wav" SoundVolume - - - - Open "ROOT/taobin_project/xml/page_payment_codeOther.xml" - + + + + Open "ROOT/taobin_project/xml/page_payment_codeOther.xml" + @@ -631,28 +643,37 @@ 577 1673 "Enable" - Tel_Confirm_State + + eval( + If ShowLoadingText = "Enable" Then + Var return = "Press" + Else + Var return = Tel_Confirm_State + EndIf + ) + Var( DirImage + "/bn_confirm.png" ) Var( DirImage + "/bp_confirm.png" ) Var( DirImage + "/bp_confirm.png" ) "ROOT/sounds/codebuttom.wav" SoundVolume - + + - If UnitTestType = "2" Then If TelephoneNumber = "00000001" Then Var ShowErrorText = "Enable" EndIf Else - + If GetPayInfoFlag = 0 Then Var GetPayInfoFlag = 1 + Var ShowLoadingText = "Enable" VendingQR OFF - + Var Seeker.CodeNumber = TelephoneNumber Var RemainAmount = 0 ;PrepareDrink SelectDrink SelectSugarID @@ -669,13 +690,13 @@ Var ECommerce = ECommerce + ":" 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 + "/" @@ -685,13 +706,13 @@ Var ECommerce = ECommerce + "C00" EndIf - + Var ECommerce = ECommerce + "/" Var ECommerce = ECommerce + Seeker.CodeNumber Var ECommerce = ECommerce + ":" Var ECommerce = ECommerce + PromotionIDCurrentOrder - + Var ServiceParameter = "max" Var ServiceCharge = 0 Var AccountType = "new" @@ -704,17 +725,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 - + @@ -746,7 +767,7 @@ - + 188 @@ -754,6 +775,13 @@ Var( DirImage + "/text_35.png" ) + + 260 + 990 + ShowLoadingText + Var( DirImage + "/loadingText.png") + + 152 1001 @@ -785,9 +813,9 @@ - - - Open "/media/bt/xml/security_alarm.xml" + + + Open "/media/bt/xml/security_alarm.xml"