taobin_project/xml/page_payment_codeInfinyx.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 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


	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 = 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
</EventTimeout>

<EventCoin>

	If ViewBill > 0 Then
		CoinVending BILLREJECT
	EndIf

</EventCoin>


<EventActionOk>


    If Seeker.CodeChannel = 1 Then

		SAVELOG "Seeker.CodeChannel 1 > ActOK."

		Var ShowLoadingText = "Invisible"

		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
							If New_Payment = 1 Then
								__CMD "SetPay" "coffee-payment"  Seeker.VendingTSID Seeker.ORDER_ID
							EndIf
							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 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




	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


</EventActionError>



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


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


<Button>
<X> 256 </X>
<Y> 1070 </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> 1070 </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> 1070 </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> 1070 </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> 256 </X>
<Y> 1214 </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> 1214 </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> 1214 </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> 1214 </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> 256 </X>
<Y> 1358 </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> 1358 </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> 1358 </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> 1358 </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> 1498 </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> 547 </X>
<Y> 1498 </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> 1673 </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>


	Open "ROOT/taobin_project/xml/page_payment_codeOther.xml"

</EventClick>
</Button>


<Button>
<X> 577 </X>
<Y> 1673 </Y>
<Refresh> "Enable" </Refresh>
<State>
	eval(
	If ShowLoadingText = "Enable" Then
		Var return = "Press"
	Else
		Var return = Tel_Confirm_State
	EndIf
	)
</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 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
			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> 868 </Y>
<Filename> Var( DirImage + "/img3.png" ) </Filename>
</Image>

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


<Text>
<X> 0 </X>
<Y> 883 </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> 760 </Y>
<Filename> Var( DirImage + "/text_42.png" )</Filename>
</Image>

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

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

<Image>
<X> 158 </X>
<Y> 513 </Y>
<Filename> Var( DirImage + "/img_popupInfinyx.png" )</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>