taobin_project/xml/page_payment_credit2.xml

<Popup>

<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>

<Volume> SoundVolume </Volume>
<Refresh> "Partial" </Refresh>
<EventOpen>
	; On open

	Var useCreditAmount = 0;
	Var useCreditTemp = 0;

	Var Timeout = 0
	Var TimeoutSMS = 0
	Var StateBGetSMS = "Enable"
   
   
	Var ShowSentSmsText = "Invisible"

	Var ShowTextNumber1 = "Invisible"
	Var ShowTextNumber2 = "Invisible"
	Var ShowTextNumber3 = "Invisible"
	Var ShowTextNumber4 = "Invisible"

	Var ShowErrorText = "Invisible"
	Var Tel_Confirm_State = "Invisible"

    Var PinNumber = ""

	Var ReqFlag = 0

	Var Xtext = 246

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

	Var Ext1a = ""

	Var ReqAdddata22 = 0
	Var timeout_Adddata22 = 0
	GenHashWithTimeStamp PointCrm
	
	If AcceptAuto = "true" Then

		Var AcceptAuto = "false"

		;Var Tel_Confirm_State = "Enable"

        Var ShowTextNumber1 = "Enable"
        Var ShowTextNumber2= "Enable"
        Var ShowTextNumber3= "Enable"
        Var ShowTextNumber4= "Enable"
    
		Var PinNumber = web_pin
		Var TelephoneNumber = web_telnum

		If PinNumberUser = PinNumber Then

			Var SumCreditAmount = CoffeeCredit

			If SumCreditAmount >= PayAmount Then 

				If ReqAdddata22 = 0 Then 
					Var useCreditAmount = PayAmount
					Var BmiYear = useCreditAmount
					Var GetScore = "useCredit"
					AddData 22 TelephoneNumber  BmiYear PointCrm GetScore
					Var ReqAdddata22 = 1
				EndIf

				
			Else
				Open "ROOT/taobin_project/xml/page_payment_credit3.xml" 
			EndIf

		Else

			Var ShowErrorText = "Enable"
			Var PinNumber = ""
			Var ShowTextNumber1 = "Invisible"
			Var ShowTextNumber2 = "Invisible"
			Var ShowTextNumber3 = "Invisible"
			Var ShowTextNumber4 = "Invisible"

		EndIf

	EndIf

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

	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
	EndIf

	If StateBGetSMS = "Disable" Then

		Var TimeoutSMS = TimeoutSMS + 1
		If TimeoutSMS > 30 Then

			Var StateBGetSMS = "Enable"
			Var TimeoutSMS = 0

			Refresh

		EndIf

	EndIf

	TimerReset
</EventTimeout> 

<EventIDCard>
	



</EventIDCard>

<EventCoin>

	If ViewBill > 0 Then
		CoinVending BILLREJECT
	EndIf

</EventCoin>


<EventActionOk>
	

	If ReqFlag = 0 Then 

		If ReqAdddata22 = 1 Then 
			Var Seeker.CreditReferenceTmp = "" + useCreditAmount
			Var Seeker.CreditReferenceTmp = Seeker.CreditReferenceTmp + "/"
			Var Seeker.CreditReferenceTmp = Seeker.CreditReferenceTmp + PointCrm

			CoinVending OFF


			Var Seeker.TNumberTaobinCredit = TelephoneNumber
			Var Seeker.CoffeePinNumber = PinNumber

			Var Seeker.StoreCreditFlag = 1

			Var SumCreditAmount = SumCreditAmount - PayAmount

			Var VendingCreditRemain = "" + SumCreditAmount

		

			If useCreditTemp > 0 Then 
				Var Seeker.CurrCreditUse = useCreditTemp
			EndIf

			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
				EndIf
				Open "ROOT/taobin_project/xml/page_thankyou.xml" 
			EndIf

			Var ReqAdddata22 = 0

		EndIf
    
			
	

		;If Ext1a = "ok" Then

		;	If Ext1c = "" Then
		;	
		;		Open "ROOT/taobin_project/xml/page_payment_credit3.xml" 
		;	Else

		;	EndIf
		;Else
		;	Var ShowErrorText = "Enable"
		;	Var PinNumber = ""
		;	Var ShowTextNumber1 = "Invisible"
		;	Var ShowTextNumber2 = "Invisible"
		;	Var ShowTextNumber3 = "Invisible"
		;	Var ShowTextNumber4 = "Invisible"
		;EndIf
	Else

	EndIf

	Refresh
</EventActionOk>

<EventActionError>
   Var ShowErrorText = "Enable"
   Refresh

   If ReqAdddata22 = 1 Then 
	
		Var ReqAdddata22 = 0
		
	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 PinNumber = PinNumber + "1"
	Var ShowTextNumber = "Invisible"
	Trim PinNumber 4
	
	StrLen PinNumber TelNumLen
	If TelNumLen >= 4 Then 
		;Var Tel_Confirm_State = "Enable"
		Function 2
	EndIf
	Var ShowErrorText = "Invisible"

	If TelNumLen > 0 Then
        Var ShowTextNumber1 = "Enable"
    EndIf

    If TelNumLen > 1 Then
        Var ShowTextNumber2= "Enable"
    EndIf

    If TelNumLen > 2 Then
        Var ShowTextNumber3= "Enable"
    EndIf

    If TelNumLen > 3 Then
        Var ShowTextNumber4= "Enable"
    EndIf

	Var ShowSentSmsText = "Invisible"

	TimerReset
	Refresh


</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 PinNumber = PinNumber + "2"
	Var ShowTextNumber = "Invisible"
	Trim PinNumber 4
	
	StrLen PinNumber TelNumLen
	If TelNumLen >= 4 Then 
		;Var Tel_Confirm_State = "Enable"
		Function 2
	EndIf
	Var ShowErrorText = "Invisible"

	If TelNumLen > 0 Then
        Var ShowTextNumber1 = "Enable"
    EndIf

    If TelNumLen > 1 Then
        Var ShowTextNumber2= "Enable"
    EndIf

    If TelNumLen > 2 Then
        Var ShowTextNumber3= "Enable"
    EndIf

    If TelNumLen > 3 Then
        Var ShowTextNumber4= "Enable"
    EndIf

	Var ShowSentSmsText = "Invisible"

	TimerReset
	Refresh

</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 PinNumber = PinNumber + "3"
	Var ShowTextNumber = "Invisible"
	Trim PinNumber 4
	
	StrLen PinNumber TelNumLen
	If TelNumLen >= 4 Then 
		;Var Tel_Confirm_State = "Enable"
		Function 2
	EndIf
	Var ShowErrorText = "Invisible"

	If TelNumLen > 0 Then
        Var ShowTextNumber1 = "Enable"
    EndIf

    If TelNumLen > 1 Then
        Var ShowTextNumber2= "Enable"
    EndIf

    If TelNumLen > 2 Then
        Var ShowTextNumber3= "Enable"
    EndIf

    If TelNumLen > 3 Then
        Var ShowTextNumber4= "Enable"
    EndIf

	Var ShowSentSmsText = "Invisible"

	TimerReset
	Refresh

</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 PinNumber = PinNumber + "4"
	Var ShowTextNumber = "Invisible"
	Trim PinNumber 4
	
	StrLen PinNumber TelNumLen
	If TelNumLen >= 4 Then 
		;Var Tel_Confirm_State = "Enable"
		Function 2
	EndIf
	Var ShowErrorText = "Invisible"

	If TelNumLen > 0 Then
        Var ShowTextNumber1 = "Enable"
    EndIf

    If TelNumLen > 1 Then
        Var ShowTextNumber2= "Enable"
    EndIf

    If TelNumLen > 2 Then
        Var ShowTextNumber3= "Enable"
    EndIf

    If TelNumLen > 3 Then
        Var ShowTextNumber4= "Enable"
    EndIf

	Var ShowSentSmsText = "Invisible"

	TimerReset
	Refresh

</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 PinNumber = PinNumber + "5"
	Var ShowTextNumber = "Invisible"
	Trim PinNumber 4
	
	StrLen PinNumber TelNumLen
	If TelNumLen >= 4 Then 
		;Var Tel_Confirm_State = "Enable"
		Function 2
	EndIf
	Var ShowErrorText = "Invisible"

	If TelNumLen > 0 Then
        Var ShowTextNumber1 = "Enable"
    EndIf

    If TelNumLen > 1 Then
        Var ShowTextNumber2= "Enable"
    EndIf

    If TelNumLen > 2 Then
        Var ShowTextNumber3= "Enable"
    EndIf

    If TelNumLen > 3 Then
        Var ShowTextNumber4= "Enable"
    EndIf

	Var ShowSentSmsText = "Invisible"

	TimerReset
	Refresh

</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 PinNumber = PinNumber + "6"
	Var ShowTextNumber = "Invisible"
	Trim PinNumber 4
	
	StrLen PinNumber TelNumLen
	If TelNumLen >= 4 Then 
		;Var Tel_Confirm_State = "Enable"
		Function 2
	EndIf
	Var ShowErrorText = "Invisible"

	If TelNumLen > 0 Then
        Var ShowTextNumber1 = "Enable"
    EndIf

    If TelNumLen > 1 Then
        Var ShowTextNumber2= "Enable"
    EndIf

    If TelNumLen > 2 Then
        Var ShowTextNumber3= "Enable"
    EndIf

    If TelNumLen > 3 Then
        Var ShowTextNumber4= "Enable"
    EndIf

	Var ShowSentSmsText = "Invisible"

	TimerReset
	Refresh

</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 PinNumber = PinNumber + "7"
	Var ShowTextNumber = "Invisible"
	Trim PinNumber 4
	
	StrLen PinNumber TelNumLen
	If TelNumLen >= 4 Then 
		;Var Tel_Confirm_State = "Enable"
		Function 2
	EndIf
	Var ShowErrorText = "Invisible"

	If TelNumLen > 0 Then
        Var ShowTextNumber1 = "Enable"
    EndIf

    If TelNumLen > 1 Then
        Var ShowTextNumber2= "Enable"
    EndIf

    If TelNumLen > 2 Then
        Var ShowTextNumber3= "Enable"
    EndIf

    If TelNumLen > 3 Then
        Var ShowTextNumber4= "Enable"
    EndIf

	Var ShowSentSmsText = "Invisible"

	TimerReset
	Refresh

</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 PinNumber = PinNumber + "8"
	Var ShowTextNumber = "Invisible"
	Trim PinNumber 4
	
	StrLen PinNumber TelNumLen
	If TelNumLen >= 4 Then 
		;Var Tel_Confirm_State = "Enable"
		Function 2
	EndIf
	Var ShowErrorText = "Invisible"

	If TelNumLen > 0 Then
        Var ShowTextNumber1 = "Enable"
    EndIf

    If TelNumLen > 1 Then
        Var ShowTextNumber2= "Enable"
    EndIf

    If TelNumLen > 2 Then
        Var ShowTextNumber3= "Enable"
    EndIf

    If TelNumLen > 3 Then
        Var ShowTextNumber4= "Enable"
    EndIf

	Var ShowSentSmsText = "Invisible"

	TimerReset
	Refresh

</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 PinNumber = PinNumber + "9"
	Var ShowTextNumber = "Invisible"
	Trim PinNumber 4
	
	StrLen PinNumber TelNumLen
	If TelNumLen >= 4 Then 
		;Var Tel_Confirm_State = "Enable"
		Function 2
	EndIf
	Var ShowErrorText = "Invisible"

	If TelNumLen > 0 Then
        Var ShowTextNumber1 = "Enable"
    EndIf

    If TelNumLen > 1 Then
        Var ShowTextNumber2= "Enable"
    EndIf

    If TelNumLen > 2 Then
        Var ShowTextNumber3= "Enable"
    EndIf

    If TelNumLen > 3 Then
        Var ShowTextNumber4= "Enable"
    EndIf

	Var ShowSentSmsText = "Invisible"

	TimerReset
	Refresh

</EventClick>
</Button>


<Button>
<X> 333 </X>
<Y> 1432 </Y>
<State> StateBGetSMS </State>
<Refresh> "Enable" </Refresh>
<Filename> Var( DirImage + "/bn_getPin.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_getPin.png")  </FilenamePress>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick> 
	Var Timeout = 0
    ;Open "ROOT/taobin_project/xml/page_catalog.xml" 

    Var ShowSentSmsText = "Enable"
	Var StateBGetSMS = "Disable"
   
   

	Var BmiYear = ""
	Var PointCrm1 = ""
	Var GetScore = ""
    AddData 13 TelephoneNumber  BmiYear PointCrm1 GetScore


	Var ShowTextNumber1 = "Invisible"
	Var ShowTextNumber2 = "Invisible"
	Var ShowTextNumber3 = "Invisible"
	Var ShowTextNumber4 = "Invisible"
	 Var PinNumber = ""

	 Var ShowErrorText = "Invisible"
   
    
	Var ReqFlag = 1
    
    TimerReset
	Refresh
</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 PinNumber = PinNumber + "0"
	Trim PinNumber 4
	StrLen PinNumber TelNumLen
	If TelNumLen >= 4 Then 
		;Var Tel_Confirm_State = "Enable"
		Function 2
	EndIf
	Var ShowTextNumber = "Invisible"

	
	Var ShowErrorText = "Invisible"

	If TelNumLen > 0 Then
        Var ShowTextNumber1 = "Enable"
    EndIf

    If TelNumLen > 1 Then
        Var ShowTextNumber2= "Enable"
    EndIf

    If TelNumLen > 2 Then
        Var ShowTextNumber3= "Enable"
    EndIf

    If TelNumLen > 3 Then
        Var ShowTextNumber4= "Enable"
    EndIf

	Var ShowSentSmsText = "Invisible"

	TimerReset
	Refresh

</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
	Trim PinNumber  -1
	;Var Tel_Confirm_State = "Invisible"
	
	StrLen PinNumber TelNumLen
	
	If TelNumLen = 0 Then 
		Var ShowTextNumber = "Enable"
	EndIf

	;Var ShowErrorText = "Invisible"
	TimerReset
	Refresh

	If TelNumLen < 1 Then
        Var ShowTextNumber1 = "Invisible"
    EndIf

    If TelNumLen < 2 Then
        Var ShowTextNumber2= "Invisible"
    EndIf

    If TelNumLen < 3 Then
        Var ShowTextNumber3= "Invisible"
    EndIf

    If TelNumLen < 4 Then
        Var ShowTextNumber4= "Invisible"
    EndIf

	Var ShowSentSmsText = "Invisible"

	Var ShowErrorText = "Invisible"

	TimerReset
	Refresh
	
</EventClick>
</Button>


<Button>
<X> 397 </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> 
	DEBUGVAR "USER BN_BACK"
	If ReqAdddata22 = 1 Then 

		Var BmiYear = useCreditAmount
		Var GetScore = "useCredit"
		AddData 24 TelephoneNumber  BmiYear PointCrm GetScore
	EndIf
	Open "ROOT/taobin_project/xml/page_payment_credit.xml" 
</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 + "/bn_confirm.png" )</FilenameDisable>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick> 	
</EventClick>
</Button>

<Image>
<X> 242 </X>
<Y> 830 </Y>
<Filename> Var( DirImage + "/img4.png" ) </Filename>
</Image>

<Image>
<X> 289 </X>
<Y> 870 </Y>
<State> ShowTextNumber1 </State>
<Refresh> "Enable" </Refresh>
<Filename> Var( DirImage + "/text_X.png" )</Filename>
</Image>

<Image>
<X> 446 </X>
<Y> 870 </Y>
<State> ShowTextNumber2 </State>
<Refresh> "Enable" </Refresh>
<Filename> Var( DirImage + "/text_X.png" )</Filename>
</Image>

<Image>
<X> 603 </X>
<Y> 870 </Y>
<State> ShowTextNumber3 </State>
<Refresh> "Enable" </Refresh>
<Filename> Var( DirImage + "/text_X.png" )</Filename>
</Image>

<Image>
<X> 758 </X>
<Y> 870 </Y>
<State> ShowTextNumber4 </State>
<Refresh> "Enable" </Refresh>
<Filename> Var( DirImage + "/text_X.png" )</Filename>
</Image>







	

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

<Image>
<X> 444 </X>
<Y> 945 </Y>
<Refresh> "Enable" </Refresh>
<State> ShowErrorText </State>
<Filename>  Var( DirImage + "/text_show_notfound.png") </Filename>
</Image>

<Image>
<X> Xtext </X>
<Y> 945 </Y>
<Refresh> "Enable" </Refresh>
<State> ShowSentSmsText </State>
<Filename> Var( DirImage + "/text_show_sentSMS.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>


<Function2>

		Var ShowSentSmsText = "Invisible"
		Var Timeout = 0

		If PinNumberUser = PinNumber Then

			Var SumCreditAmount = CoffeeCredit

			If SumCreditAmount >= PayAmount Then 

				If ReqAdddata22 = 0 Then 

					If Seeker = "next" Then
						Var Curr = "curr"
						If TelephoneNumber = Curr.CurrCreditTelNum Then
							Var SumCreditAmount = CoffeeCredit + Curr.CurrCreditAmount
						EndIf
					EndIf

					Var useCreditAmount = PayAmount
					Var BmiYear = useCreditAmount
					Var GetScore = "useCredit"
					AddData 22 TelephoneNumber  BmiYear PointCrm GetScore
					Var ReqAdddata22 = 1
				EndIf

				
			Else
				If Seeker = "next" Then
					Var Curr = "curr"
					If TelephoneNumber = Curr.CurrCreditTelNum Then

						Var SumCreditAmount = CoffeeCredit + Curr.CurrCreditAmount
						If SumCreditAmount >= PayAmount Then 
								If ReqAdddata22 = 0 Then 

									Var useCreditTemp = PayAmount - CoffeeCredit

									Var useCreditAmount = CoffeeCredit
									Var BmiYear = useCreditAmount
									Var GetScore = "useCredit"
									AddData 22 TelephoneNumber  BmiYear PointCrm GetScore
									Var ReqAdddata22 = 1
								EndIf
						Else
							Open "ROOT/taobin_project/xml/page_payment_credit3.xml" 
						EndIf
					Else
						Open "ROOT/taobin_project/xml/page_payment_credit3.xml" 
					EndIf
				Else
					Open "ROOT/taobin_project/xml/page_payment_credit3.xml" 
				EndIf
			EndIf

		Else

			Var ShowErrorText = "Enable"
			Var PinNumber = ""
			Var ShowTextNumber1 = "Invisible"
			Var ShowTextNumber2 = "Invisible"
			Var ShowTextNumber3 = "Invisible"
			Var ShowTextNumber4 = "Invisible"

		EndIf

		;Var DataTmp = TelephoneNumber + "/"
		;Var DataTmp = DataTmp + PinNumber
		;GETACCEXT DataTmp 19
		Var ReqFlag = 0

		Refresh


</Function2>





</Popup>