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 VendingQRCode = "ERROR"
	;VendingQR ON
	;Var QRCODE99 = ""
	
	;CoinVending OFF
	
	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

	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
		;VendingQR OFF
        ;Open menu_back_to_main 

		Var PayState1 = "PressForever"
		Var PayState2 = "Enable"
		Var QRChannel = 0
		Var Seeker.CodeChannel = 0
		If CART_COUNT >= 1 Then 
			Open "ROOT/taobin_project/xml/page_payment_cashMore.xml" 
		Else
			Open "ROOT/taobin_project/xml/page_payment_cash.xml" 
		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

		SAVELOG "Seeker.CodeChannel 1 > ActOK."

		DEBUGVAR ECommerce
		SAVELOG ECommerce

        SPLIT  ECommerce "/"  5  Seeker.VendingCode
	    SPLIT  ECommerce "/"  7   Seeker.VendingCampaignRI3
	    SPLIT  ECommerce "/"  8  VendingCampaign1

		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


		If Seeker.VendingCode = "C00" Then

		Else

			Var VendingCreditRemain = ""
			Var IntVendingCampaign1 = VendingCampaign1
			INT IntVendingCampaign1

			If IntVendingCampaign1 > 0 Then
				Var VendingCreditRemain = VendingCampaign1
			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" 
					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

						If Seeker = "curr" Then
							MakeDrinkV1  SelectDrink SelectSugarID
							Var TxRef1 = ""
							CreateTxRef1 TxRef1
						Else
							DEBUGVAR Seeker
							Var TxRef1 = ""
							CreateTxRef1 TxRef1

							Var DrinkPaid = SelectDrink
							Var PaidPaymentFromNextStage = 1
						EndIf
						Open "ROOT/taobin_project/xml/page_thankyou.xml" 
					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 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

		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> 333 </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> 477 </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> 620 </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> 333 </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> 477 </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> 620 </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> 333 </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> 477 </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> 620 </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> 477 </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> 333 </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> 620 </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> 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 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
</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

			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 
			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 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> 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>

<Video>
<X> 0 </X>
<Y> 0 </Y>
<Width> 1080</Width>
<Height> 380 </Height>
<Loop> "true" </Loop>
<Filename> video_menu_0 </Filename>
</Video>


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





</Popup>