taobin_project/xml/page_payment_code.xml

<Popup>

<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Sound> PlaySoundCodeLang </Sound>
<Volume> SoundVolume </Volume>
<Refresh> "Partial" </Refresh>
<EventOpen>
	; On open
	Var ECommerce = ""
	Var Seeker.FreeVendingCampaign = 0

	Var Timeout = 0

    Var GetPayInfoFlag = 0
    Var Seeker.CodeChannel = 0
	Var Seeker.CollectPointMain = 0
	Var Seeker.CollectPointPromotion = 0

	;Var VendingQRCode = "ERROR"
	;VendingQR ON
	;Var QRCODE99 = ""

	;CoinVending OFF
	VendingQR OFF

	Var ShowLoadingText = "Invisible"
	Var ShowTextNumber = "Enable"
	Var ShowErrorText = "Invisible"
	Var Tel_Confirm_State = "Invisible"
	Var ErrorCause = ""


    If show_eng = "true" Then
		Var DirImage = "ROOT/taobin_project/image/collectiing_en"
	Else
		Var DirImage = "ROOT/taobin_project/image/collectiing"
	EndIf

	;inter-image
	If LanguageShow = "MYANMAR" Then
		Var DirImage = "ROOT/taobin_project/image/collectiing_mmr/"
	EndIf

	If CountryName = "HongKong" Then
		If LanguageShow = "MSC" Then
			Var DirImage = "ROOT/taobin_project/inter/hkg/image/collectiing_msc/"
		EndIf
		If LanguageShow = "MTC" Then
			Var DirImage = "ROOT/taobin_project/inter/hkg/image/collectiing_mtc/"
		EndIf
	Else
		If LanguageShow = "MSC" Then
			Var DirImage = "ROOT/taobin_project/image/collectiing_msc/"
		EndIf
	EndIf
	

	If web_readyOK = "true" Then
		Var web_readyOK = "false"

		If web_code = "" Then
		Else
			Var ShowTextNumber = "Invisible"
			Var Tel_Confirm_State = "Enable"

			Var GetPayInfoFlag = 1

			VendingQR OFF

			Var TelephoneNumber = web_code

			Var Seeker.CodeNumber = TelephoneNumber
			Var RemainAmount = 0
			;PrepareDrink SelectDrink SelectSugarID

			Var SessionID2 = SelectSlot + ":"
			Var SessionID2 = SessionID2 + Seeker.ExtendData

			Var CreditAmount1 = ""
			Var ServiceAmountFlow = ""
			Var TelephoneNumber2 = "0899999999"
			Var ServiceType = "coffee"
			Var ECommerce = ""
			Var ECommerce = ECommerce + PriceDrink

			Var ECommerce = ECommerce + ":"
			Var ECommerce = ECommerce + TOPPING_PRICE

			Var ECommerce =	ECommerce + "/"
			Var ECommerce =	ECommerce + DiscountDrink
			Var ECommerce =	ECommerce + "/"
			Var ECommerce =	ECommerce + SessionID2
			Var ECommerce =	ECommerce + "/"
			Var ECommerce =	ECommerce + SelectDrink
			Var ECommerce =	ECommerce + "/"
			Var ECommerce =	ECommerce + "C00"
	        Var ECommerce =	ECommerce + "/"
	        Var ECommerce =	ECommerce + Seeker.CodeNumber
			Var ServiceParameter = "max"
			Var ServiceCharge = 0
			Var AccountType = "new"
			Var testservice = "kbank"
			Var tc = ""
			Var GetScore = ""
			Var OperatorName = ""
			Var SessionID = ""


			GetPayInfo TelephoneNumber2 ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
			Var Timeout = 0

	        Var TelephoneNumber = Seeker.CodeNumber
	        Var Seeker.CodeChannel = 1
		EndIf

	EndIf

	Var Mode# = 0
	Var Str# = ""
	Var TelephoneNumber# = ""

</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout>
	;Open "ROOT/xml/page_board.xml"



    Var Timeout = Timeout + 1
    If Timeout > 30 Then

        If GetPayInfoFlag = 0 Then
            ;VendingQR OFF
            ;Open menu_back_to_main

            Var ShowLoadingText = "Invisible"
            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
</EventTimeout>

<EventIDCard>


	If IDCardStatus = "OK" Then
		If IDCardReady = "OK" Then
			If IDCardData = "START" Then
			CoinVending OFF
			Open "ROOT/taobin_project/xml/page_show_consent2.xml"
			EndIf
		EndIf
	EndIf






</EventIDCard>

<EventCoin>

	If ViewBill > 0 Then
		CoinVending BILLREJECT
	EndIf

</EventCoin>


<EventActionOk>


    If Seeker.CodeChannel = 1 Then

        Var ShowLoadingText = "Invisible"

        SAVELOG "Seeker.CodeChannel 1 > ActOK."


		DEBUGVAR ECommerce
		SAVELOG ECommerce

        SPLIT  ECommerce "/"  5  Seeker.VendingCode
	    SPLIT  ECommerce "/"  7  Seeker.VendingCampaignRI3
	    SPLIT  ECommerce "/"  8  VendingCampaign1
		SPLIT  ECommerce "/"  9  ShouldCollectPoint
		SPLIT  ECommerce "/"  10 PaymentButtonControl

		DEBUGVAR PaymentButtonControl

		If PaymentButtonControl = "" Then
		  Var PaymentEnableAll = "true"
		Else
            If PaymentButtonControl = "*" Then
                Var PaymentEnableAll = "true"
            Else
                Var PaymentEnableAll = "false"
                STRCONTAIN "TWN" PaymentButtonControl TWN_CashOtherEnable
                STRCONTAIN "KBA" PaymentButtonControl KBA_CashOtherEnable
                STRCONTAIN "LPY" PaymentButtonControl LPY_CashOtherEnable
                STRCONTAIN "AIR" PaymentButtonControl AIR_CashOtherEnable
                STRCONTAIN "MAX" PaymentButtonControl MAX_CashOtherEnable
                STRCONTAIN "WEC" PaymentButtonControl WEC_CashOtherEnable
                STRCONTAIN "ALP" PaymentButtonControl ALP_CashOtherEnable
                STRCONTAIN "UNP" PaymentButtonControl UNP_CashOtherEnable
                STRCONTAIN "ACU" PaymentButtonControl ACU_CashOtherEnable
                STRCONTAIN "TAO" PaymentButtonControl TAO_CreditEnable
                STRCONTAIN "CSH" PaymentButtonControl CSH_CashEnable
                STRCONTAIN "CRD" PaymentButtonControl CRD_CreditCardEnable

                If CSH_CashEnable = "true" Then

                Else
                    CoinVending OFF
                    Var CPD_CouponCodeEnable = "true"
                EndIf

                If TWN_CashOtherEnable = "true" Then
                    Var E_WalletEnable = "true"
                EndIf

                If KBA_CashOtherEnable = "true" Then
                    Var E_WalletEnable = "true"
                EndIf

                If LPY_CashOtherEnable = "true" Then
                    Var E_WalletEnable = "true"
                EndIf

                If AIR_CashOtherEnable = "true" Then
                    Var E_WalletEnable = "true"
                EndIf

                If MAX_CashOtherEnable = "true" Then
                    Var E_WalletEnable = "true"
                EndIf

                If WEC_CashOtherEnable = "true" Then
                    Var E_WalletEnable = "true"
                EndIf

                If ALP_CashOtherEnable = "true" Then
                    Var E_WalletEnable = "true"
                EndIf

                If UNP_CashOtherEnable = "true" Then
                    Var E_WalletEnable = "true"
                EndIf

                If ACU_CashOtherEnable = "true" Then
                    Var E_WalletEnable = "true"
                EndIf


                DEBUGVAR CSH_CashEnable
                DEBUGVAR TAO_CreditEnable
                DEBUGVAR CPD_CouponCodeEnable
                DEBUGVAR CRD_CreditCardEnable
                DEBUGVAR E_WalletEnable
                DEBUGVAR TWN_CashOtherEnable
                DEBUGVAR KBA_CashOtherEnable
                DEBUGVAR LPY_CashOtherEnable
                DEBUGVAR AIR_CashOtherEnable
                DEBUGVAR MAX_CashOtherEnable
                DEBUGVAR WEC_CashOtherEnable
                DEBUGVAR ALP_CashOtherEnable
                DEBUGVAR UNP_CashOtherEnable
                DEBUGVAR ACU_CashOtherEnable
            EndIf
		EndIf


		If Seeker.VendingCode = "" Then
			Var Seeker.VendingCode = "C00"
		EndIf

		If Seeker.VendingCode = "KBA:2" Then
			Var Seeker.VendingCode = "C00"
		EndIf

		If Seeker.VendingCode = "AIR:2" Then
			Var Seeker.VendingCode = "C00"
		EndIf

		If Seeker.VendingCode = "TWN:2" Then
			Var Seeker.VendingCode = "C00"
		EndIf

		SAVELOG Seeker.VendingCode
		SAVELOG  Seeker.VendingCampaignRI3

		SAVELOG ShouldCollectPoint
		INT ShouldCollectPoint

		If Seeker.VendingCode = "C00" Then

		Else
			Var VendingCreditRemain = ""

			If VendingCampaign1 = "" Then
				Var IntVendingCampaign1 = -1
			Else
				Var IntVendingCampaign1 = VendingCampaign1
				INT IntVendingCampaign1

				If IntVendingCampaign1 > 0 Then
					Var VendingCreditRemain = VendingCampaign1
				EndIf
			EndIf




			Var Seeker.IntVendingCampaign =  Seeker.VendingCampaignRI3
			INT Seeker.IntVendingCampaign

			Var VendingREFID = SessionID


			DEBUGVAR IntVendingCampaign1
			DEBUGVAR PayAmount
			DEBUGVAR Seeker.IntVendingCampaign

			If  Seeker.IntVendingCampaign > 0 Then
				Var QRChannel = 0

				If Seeker.IntVendingCampaign >= PayAmount Then

					If ShouldCollectPoint = 1 Then
						Var Seeker.CollectPointMain = 1

						If PaymentCodeShouldCollectPromotionPoint = 1 Then
							Var Seeker.CollectPointPromotion = 1
						EndIf
					EndIf

					TRY "ROOT/taobin_project/xml/event/collect_promotion_point_condition.ev"


					;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

						Cart "PreparID" 1
						Var CART_INDEX = 1
						Var PayReference = ""
						GenHashWithTimeStamp PayReference
						Cart "MakeID" CART_INDEX
						Open "ROOT/taobin_project/xml/page_thankyou.xml"
					Else
						Var CART_INDEX = 0

						;include="ROOT/taobin_project/xml/sometime/make_drink.xml"
					EndIf
				Else
					If ShouldCollectPoint = 1 Then
						Var Seeker.CollectPointMain = 1
					EndIf

					If PaymentCodeShouldCollectPromotionPoint = 1 Then
						Var Seeker.CollectPointPromotion = 1
					EndIf
				EndIf





				;Var SessionID2 = SelectSlot + ":"
				;Var SessionID2 = SessionID2 + Seeker.ExtendData

				;Var CreditAmount1 = ""
				;Var ServiceAmountFlow = ""
				;Var TelephoneNumber2 = "0899999999"
				;Var ServiceType = "coffee"
				;Var ECommerce = ""
				;Var ECommerce = ECommerce + PriceDrink
				;Var ECommerce =	ECommerce + "/"
				;Var ECommerce =	ECommerce + DiscountDrink
				;Var ECommerce =	ECommerce + "/"
				;Var ECommerce =	ECommerce + SessionID2
				;Var ECommerce =	ECommerce + "/"
				;Var ECommerce =	ECommerce + SelectDrink
				;Var ECommerce =	ECommerce + "/"
				;Var ECommerce =	ECommerce + "KBA:2/"
				;Var ECommerce =	ECommerce + Seeker.VendingCode
				;Var ECommerce =	ECommerce + ":"
				;Var ECommerce =	ECommerce + Seeker.CodeNumber
				;Var ECommerce =	ECommerce + ":"
				;Var ECommerce = ECommerce +  Seeker.VendingCampaignRI3
				;Var ServiceParameter = "max"
				;Var ServiceCharge = 0
				;Var AccountType = "new"
				;Var testservice = "kbank"
				;Var tc = ""
				;Var GetScore = ""
				;Var OperatorName = ""
				;Var SessionID = ""


				;GetPayInfo TelephoneNumber2 ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
				;Var Timeout = 0
				;Var Seeker.CodeChannel = 2

				Var Seeker.CodeChannel = 1

				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 ShowErrorText = "Enable"
				Var text_show_error = DirImage + "/text_show_error.png"
				Var GetPayInfoFlag = 0
				Var Seeker.CodeChannel = 0

			EndIf
		EndIf

	Else

		;SAVELOG "Seeker.CodeChannel 2 > ActOK."
		;
		;Var CreditAmount = 0
		;Var QRCODE99 = SessionID
		;Var QRCODE99 = QRCODE99 + Ext1a
		;Var QRCODE99 = QRCODE99 + Ext21
		;Var QRCODETMP = QRCODE99
		;Var Seeker.CodeChannel = 1
		;
		;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


	EndIf

</EventActionOk>

<EventActionError>
    If Seeker.CodeChannel = 1 Then

        Var ShowLoadingText = "Invisible"

		Var TelephoneNumber = ""

		Var ShowErrorText = "Enable"

		SAVELOG ShowErrorText

		Var text_show_error = DirImage + "/text_show_error2.png"

		If ErrorCause = "failed_fromoper_0002" Then
			Var text_show_error = DirImage + "/text_show_error.png"
		EndIf

		If ErrorCause = "failed_fromoper_0005" Then
			Var text_show_error = DirImage + "/text_show_error3.png"
		EndIf

		If ErrorCause = "failed_fromoper_0006" Then
			Var text_show_error = DirImage + "/text_show_error4.png"
		EndIf

		If ErrorCause = "failed_fromoper_0007" Then
			Var text_show_error = DirImage + "/text_show_error7.png"
		EndIf

		If ErrorCause = "failed_fromoper_0008" Then
			Var text_show_error = DirImage + "/text_show_error8.png"
		EndIf

		Var GetPayInfoFlag = 0
   		Var Seeker.CodeChannel = 0
		Var Tel_Confirm_State = "Disable"
		Refresh
	EndIf

	If Seeker.CodeChannel = 2 Then
		Var Seeker.CodeChannel = 1
		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
	EndIf


</EventActionError>



<Image>
<X> 0 </X>
<Y> 380 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/alpha.png" </Filename>
</Image>


<Image>
<X> 158 </X>
<Y> 601 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/img_popup1.png" </Filename>
</Image>


<Button>
<X> 263 </X>
<Y> 1004 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_1.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_1.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
	Var Timeout = 0
	Var TelephoneNumber = TelephoneNumber + "1"
	Var ShowTextNumber = "Invisible"
	Trim TelephoneNumber 8

	Var TelephoneNumber# = Str# + TelephoneNumber

	TimerReset
	Refresh
	StrLen TelephoneNumber TelNumLen
	If TelNumLen >= 8 Then
		Var Tel_Confirm_State = "Enable"
	EndIf
	Var ShowErrorText = "Invisible"
</EventClick>
</Button>

<Button>
<X> 405 </X>
<Y> 1004 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_2.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_2.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
	Var Timeout = 0
	Var TelephoneNumber = TelephoneNumber + "2"
	Var ShowTextNumber = "Invisible"
	Trim TelephoneNumber 8

	Var TelephoneNumber# = Str# + TelephoneNumber

	TimerReset
	Refresh
	StrLen TelephoneNumber TelNumLen
	If TelNumLen >= 8 Then
		Var Tel_Confirm_State = "Enable"
	EndIf
	Var ShowErrorText = "Invisible"
</EventClick>
</Button>

<Button>
<X> 547 </X>
<Y> 1004 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_3.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_3.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
	Var Timeout = 0
	Var TelephoneNumber = TelephoneNumber + "3"
	Var ShowTextNumber = "Invisible"
	Trim TelephoneNumber 8

	Var TelephoneNumber# = Str# + TelephoneNumber

	TimerReset
	Refresh
	StrLen TelephoneNumber TelNumLen
	If TelNumLen >= 8 Then
		Var Tel_Confirm_State = "Enable"
	EndIf
	Var ShowErrorText = "Invisible"
</EventClick>
</Button>

<Button>
<X> 691 </X>
<Y> 1004 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_A.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_A.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
	Var Timeout = 0
	Var TelephoneNumber = TelephoneNumber + "A"
	Var ShowTextNumber = "Invisible"
	Trim TelephoneNumber 8

	Var TelephoneNumber# = Str# + TelephoneNumber

	TimerReset
	Refresh
	StrLen TelephoneNumber TelNumLen
	If TelNumLen >= 8 Then
		Var Tel_Confirm_State = "Enable"
	EndIf
	Var ShowErrorText = "Invisible"
</EventClick>
</Button>

<Button>
<X> 263 </X>
<Y> 1148 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_4.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_4.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
	Var Timeout = 0
	Var TelephoneNumber = TelephoneNumber + "4"
	Var ShowTextNumber = "Invisible"
	Trim TelephoneNumber 8

	Var TelephoneNumber# = Str# + TelephoneNumber

	TimerReset
	Refresh
	StrLen TelephoneNumber TelNumLen
	If TelNumLen >= 8 Then
		Var Tel_Confirm_State = "Enable"
	EndIf
	Var ShowErrorText = "Invisible"
</EventClick>
</Button>

<Button>
<X> 405 </X>
<Y> 1148 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_5.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_5.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
	Var Timeout = 0
	Var TelephoneNumber = TelephoneNumber + "5"
	Var ShowTextNumber = "Invisible"
	Trim TelephoneNumber 8

	Var TelephoneNumber# = Str# + TelephoneNumber

	TimerReset
	Refresh
	StrLen TelephoneNumber TelNumLen
	If TelNumLen >= 8 Then
		Var Tel_Confirm_State = "Enable"
	EndIf
	Var ShowErrorText = "Invisible"
</EventClick>
</Button>

<Button>
<X> 547 </X>
<Y> 1148 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_6.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_6.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
	Var Timeout = 0
	Var TelephoneNumber = TelephoneNumber + "6"
	Var ShowTextNumber = "Invisible"
	Trim TelephoneNumber 8

	Var TelephoneNumber# = Str# + TelephoneNumber

	TimerReset
	Refresh
	StrLen TelephoneNumber TelNumLen
	If TelNumLen >= 8 Then
		Var Tel_Confirm_State = "Enable"
	EndIf
	Var ShowErrorText = "Invisible"
</EventClick>
</Button>

<Button>
<X> 691 </X>
<Y> 1148 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_B.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_B.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
	Var Timeout = 0
	Var TelephoneNumber = TelephoneNumber + "B"
	Var ShowTextNumber = "Invisible"
	Trim TelephoneNumber 8

	Var TelephoneNumber# = Str# + TelephoneNumber

	TimerReset
	Refresh
	StrLen TelephoneNumber TelNumLen
	If TelNumLen >= 8 Then
		Var Tel_Confirm_State = "Enable"
	EndIf
	Var ShowErrorText = "Invisible"
</EventClick>
</Button>

<Button>
<X> 263 </X>
<Y> 1292 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_7.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_7.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
	Var Timeout = 0
	Var TelephoneNumber = TelephoneNumber + "7"
	Var ShowTextNumber = "Invisible"
	Trim TelephoneNumber 8

	Var TelephoneNumber# = Str# + TelephoneNumber

	TimerReset
	Refresh
	StrLen TelephoneNumber TelNumLen
	If TelNumLen >= 8 Then
		Var Tel_Confirm_State = "Enable"
	EndIf
	Var ShowErrorText = "Invisible"
</EventClick>
</Button>

<Button>
<X> 405 </X>
<Y> 1292 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_8.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_8.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
	Var Timeout = 0
	Var TelephoneNumber = TelephoneNumber + "8"
	Var ShowTextNumber = "Invisible"
	Trim TelephoneNumber 8

	Var TelephoneNumber# = Str# + TelephoneNumber

	TimerReset
	Refresh
	StrLen TelephoneNumber TelNumLen
	If TelNumLen >= 8 Then
		Var Tel_Confirm_State = "Enable"
	EndIf
	Var ShowErrorText = "Invisible"
</EventClick>
</Button>

<Button>
<X> 547 </X>
<Y> 1292 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_9.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_9.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
	Var Timeout = 0
	Var TelephoneNumber = TelephoneNumber + "9"
	Var ShowTextNumber = "Invisible"
	Trim TelephoneNumber 8

	Var TelephoneNumber# = Str# + TelephoneNumber

	TimerReset
	Refresh
	StrLen TelephoneNumber TelNumLen
	If TelNumLen >= 8 Then
		Var Tel_Confirm_State = "Enable"
	EndIf
	Var ShowErrorText = "Invisible"
</EventClick>
</Button>

<Button>
<X> 691 </X>
<Y> 1292 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_C.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_C.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
	Var Timeout = 0
	Var TelephoneNumber = TelephoneNumber + "C"
	Var ShowTextNumber = "Invisible"
	Trim TelephoneNumber 8

	Var TelephoneNumber# = Str# + TelephoneNumber

	TimerReset
	Refresh
	StrLen TelephoneNumber TelNumLen
	If TelNumLen >= 8 Then
		Var Tel_Confirm_State = "Enable"
	EndIf
	Var ShowErrorText = "Invisible"
</EventClick>
</Button>

<Button>
<X> 405 </X>
<Y> 1432 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_0.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_0.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
	Var Timeout = 0
	Var TelephoneNumber = TelephoneNumber + "0"
	Trim TelephoneNumber 8

	Var TelephoneNumber# = Str# + TelephoneNumber

	StrLen TelephoneNumber TelNumLen
	If TelNumLen >= 8 Then
		Var Tel_Confirm_State = "Enable"
	EndIf
	Var ShowTextNumber = "Invisible"

	TimerReset
	Refresh
	Var ShowErrorText = "Invisible"
</EventClick>
</Button>

<Button>
<X> 263 </X>
<Y> 1432 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_sh.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_sh.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
	Var Timeout = 0
	;Var TelephoneNumber = TelephoneNumber + "0"
	Trim TelephoneNumber 8
	StrLen TelephoneNumber TelNumLen
	If TelNumLen = 0 Then
		Var ShowTextNumber = "Invisible"
		Var Mode# = 1
		Var Str# = "#"

		Var TelephoneNumber# = Str# + TelephoneNumber
	EndIf

	TimerReset
	Refresh
	Var ShowErrorText = "Invisible"
</EventClick>
</Button>


<Button>
<X> 547 </X>
<Y> 1432 </Y>
<Filename> "ROOT/taobin_project/image/collectiing/bn_back-1.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/collectiing/bp_back-1.png" </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
	Var Timeout = 0
	Var Clear# = 0

	StrLen TelephoneNumber TelNumLen
	If TelNumLen = 0 Then
		Var Clear# = 1
	EndIf

	Trim TelephoneNumber  -1
	Var Tel_Confirm_State = "Invisible"

	StrLen TelephoneNumber TelNumLen

	If TelNumLen = 0 Then
		If Clear# = 1 Then
			Var ShowTextNumber = "Enable"
			Var Mode# = 0
			Var Str# = ""
		EndIf
	EndIf

	Var TelephoneNumber# = Str# + TelephoneNumber

	;Var ShowErrorText = "Invisible"
	TimerReset
	Refresh

</EventClick>
</Button>

<Button>
<X> 691 </X>
<Y> 1432 </Y>
<State>
    eval(
        If SwensenPro = 1 Then
            If TelephoneNumber = "" Then
				If Seeker.RedeemSwensenCouponDrinkPrice >= 20 Then
                	Var return = "Enable"
				Else
                	Var return = "Invisible"
				EndIf
            Else
                Var return = "Invisible"
            EndIf
        Else
            Var return = "Invisible"
        EndIf
    )
</State>
<Refresh> "Enable" </Refresh>
<Filename> "ROOT/taobin_project/image/event/swensen/bn_swensen_pay_code.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/event/swensen/bn_swensen_pay_code.png" </FilenamePress>
<EventClick>
	Var Seeker.RedeemSwensenCoupon = 1
	Open "ROOT/taobin_project/xml/page_payment_cash.xml"
</EventClick>
</Button>


<Button>
<X> 218 </X>
<Y> 1607 </Y>
<Filename> Var( DirImage + "/bn_back.png") </Filename>
<FilenamePress> Var( DirImage + "/bn_back.png") </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
	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
</EventClick>
</Button>


<Button>
<X> 577 </X>
<Y> 1607 </Y>
<Refresh> "Enable" </Refresh>
<State> Tel_Confirm_State </State>
<Filename> Var( DirImage + "/bn_confirm.png" ) </Filename>
<FilenamePress> Var( DirImage + "/bp_confirm.png" )</FilenamePress>
<FilenameDisable> Var( DirImage + "/bp_confirm.png" )</FilenameDisable>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>



	If UnitTestType = "2" Then
		If TelephoneNumber = "00000001" Then
			Var ShowErrorText = "Enable"
		EndIf
	Else
		If TelephoneNumber = "00000002" Then
			Var ShowErrorText = "Enable"
		EndIf
		If TelephoneNumber = "99999999" Then
			Var ShowErrorText = "Enable"
		EndIf



	    If GetPayInfoFlag = 0 Then
			Var GetPayInfoFlag = 1
			Var ShowLoadingText = "Enable"

			VendingQR OFF


			Var Seeker.CodeNumber = TelephoneNumber
			Var RemainAmount = 0
			;PrepareDrink SelectDrink SelectSugarID

			Var SessionID2 = SelectSlot + ":"
			Var SessionID2 = SessionID2 + Seeker.ExtendData

			Var CreditAmount1 = ""
			Var ServiceAmountFlow = ""
			Var TelephoneNumber2 = "0899999999"
			Var ServiceType = "coffee"
			Var ECommerce = ""
			Var ECommerce = ECommerce + PriceDrink

			Var ECommerce = ECommerce + ":"
			Var ECommerce = ECommerce + TOPPING_PRICE

			Var ECommerce =	ECommerce + "/"
			Var ECommerce =	ECommerce + DiscountDrink
			Var ECommerce =	ECommerce + "/"
			Var ECommerce =	ECommerce + SessionID2

			If Seeker.UseFreeSugarZeroCalTopping = 1 Then
			    Var ECommerce = ECommerce + ":1"
			Else
                Var ECommerce = ECommerce + ":0"
			EndIf

			If Seeker.UseFreeCollagenTopping = 1 Then
			    Var ECommerce = ECommerce + "1"
			Else
                Var ECommerce = ECommerce + "0"
			EndIf

			Var ECommerce =	ECommerce + "/"
			Var ECommerce =	ECommerce + SelectDrink
			Var ECommerce =	ECommerce + "/"


			If Mode# = 1 Then
				Var ECommerce =	ECommerce + "S04"
			Else
				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"
			Var testservice = "kbank"
			Var tc = ""
			Var GetScore = ""
			Var OperatorName = ""
			Var SessionID = ""


			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

</EventClick>
</Button>

<Image>
<X> 217 </X>
<Y> 802 </Y>
<Filename> Var( DirImage + "/img3.png" ) </Filename>
</Image>

<Image>
<X> 244 </X>
<Y> 816 </Y>
<State> ShowTextNumber </State>
<Refresh> "Enable" </Refresh>
<Filename> Var( DirImage + "/text_12.png" )</Filename>
</Image>


<Text>
<X> 0 </X>
<Y> 817 </Y>
<Width> 1080 </Width>
<Align> Center </Align>
<Size> 62 </Size>
<Font> RobotoBlack </Font>
<Color> 0x513C2F </Color>
<Refresh> "Enable" </Refresh>
<Value> TelephoneNumber# </Value>
</Text>




<Image>
<X> 188 </X>
<Y> 636 </Y>
<Filename> Var( DirImage + "/text_11.png" )</Filename>
</Image>

<Image>
<X> 260 </X>
<Y> 920 </Y>
<State> ShowLoadingText </State>
<Filename> Var( DirImage + "/loadingText.png") </Filename>
</Image>

<Image>
<X> 152 </X>
<Y> 935 </Y>
<Refresh> "Enable" </Refresh>
<State> ShowErrorText </State>
<Filename> text_show_error </Filename>
</Image>


;<Image>
;<X> 0 </X>
;<Y> 0 </Y>
;<Filename> "ROOT/taobin_project/image/ad_medium_2.png" </Filename>
;</Image>

;include="ROOT/taobin_project/inc/video.inc"



<EventSecurity>
	Open "/media/bt/xml/security_alarm.xml"
</EventSecurity>





</Popup>