taobin_project/xml/page_payment_credit3.xml

<Popup>

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

<Volume> SoundVolume </Volume>

<EventOpen>
	; On open

	Var Timeout = 0

	Var Tel_Confirm_State = "Disable"
	Var ShowNotEnoughText = "Invisible"

	;Var CoffeeCredit = Ext1b
	;INT CoffeeCredit 


	
	Var SumCreditAmount = CoffeeCredit
	Var SumCreditAmount2 = SumCreditAmount

	Var useCreditTemp = 0;
	

	Var NotEnoughFlag = 0

	Var timeCountUp = 0

	If SumCreditAmount >= PayAmount Then 
		Var Tel_Confirm_State = "Enable"


		

	Else
		Var Tel_Confirm_State = "Enable"
		Var ShowNotEnoughText = "Enable"
		Var NotEnoughFlag = 1

		Var AcceptAuto = "false"

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

	EndIf

	Var ShowLoadingText = "Invisible"
	Var ShowErrorText = "Invisible"

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

	Var PrepareFlag = 0
	Var PrepareTime = 0

	Var ReqAdddata22 = 0
	Var timeout_Adddata22 = 0
	GenHashWithTimeStamp PointCrm

	;Var Tel_Confirm_State = "Invisible"

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


	If ReqAdddata22 = 0 Then
		Var Timeout = Timeout + 1
	Else
		Var timeout_Adddata22 = timeout_Adddata22 + 1

		If timeout_Adddata22 > 30 Then

			 Var Tel_Confirm_State = "Enable"
			 Var ShowLoadingText = "Invisible"
			 Var ReqAdddata22 = 0
			 Var timeout_Adddata22 = 0

			 Var ShowErrorText = "Enable"

		EndIf

	EndIf


	If AcceptAuto = "true" Then
		If Timeout > 3 Then

			Var AcceptAuto = "false"

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



	If Timeout > 60 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

	

	Refresh
	TimerReset
</EventTimeout> 


<EventActionOk>
	If ReqAdddata22 = 1 Then 

		If NotEnoughFlag = 0 Then

			Var Seeker.CreditReferenceTmp = "" + PayAmount
			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

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

			
			Var PayState1 = "PressForever"
			Var PayState2 = "Enable"
			Var QRChannel = 0
			Var Seeker.CodeChannel = 0

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

			Var Seeker.IntVendingCredit = SumCreditAmount2

			Var Seeker.CreditReferenceTmp = "" + SumCreditAmount
			Var Seeker.CreditReferenceTmp = Seeker.CreditReferenceTmp + "/"
			Var Seeker.CreditReferenceTmp = Seeker.CreditReferenceTmp + PointCrm


			Var Seeker.StoreCreditFlag = 1

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

			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

		Var ReqAdddata22 = 0

	EndIf
</EventActionOk>

<EventActionError>
	If ReqAdddata22 = 1 Then 
		Var Tel_Confirm_State = "Enable"
		Var ShowLoadingText = "Invisible"
		Var ReqAdddata22 = 0
		Var timeout_Adddata22 = 0
		Var ShowErrorText = "Enable"
	EndIf
</EventActionError>


<EventCoin>

	If ViewBill > 0 Then
		CoinVending BILLREJECT
	Else
	

		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

</EventCoin>



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


<Image>
<X> 182 </X>
<Y> 748 </Y>
<Filename> Var( DirImage + "/img_popup11.png" ) </Filename>
</Image>

<Text>
<X> 0 </X>
<Y> 1041 </Y>
<Size> 144 </Size>
<Align> Center </Align>
<Width> 1080 </Width>
<Font> KanitRegularTTF </Font>

<Color> 0xDE794E </Color>
<Value> SumCreditAmount2 </Value>
</Text>


<Button>
<X> 261 </X>
<Y> 1345 </Y>
<Filename> Var( DirImage + "/bn_cancel3.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_cancel3.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
	SAVELOG "payment_credit3-p121."
	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> 624 </X>
<Y> 1345 </Y>

<State> Tel_Confirm_State </State>
<Filename> Var( DirImage + "/bn_useCredit.png" ) </Filename>
<FilenamePress> Var( DirImage + "/bp_useCredit.png" )</FilenamePress>
<FilenameDisable> Var( DirImage + "/bp_useCredit.png" )</FilenameDisable>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick> 

	


	If ReqAdddata22 = 0 Then
	
		If NotEnoughFlag = 0 Then

			
			Var BmiYear = PayAmount
			Var GetScore = "useCredit"
				
			AddData 22 TelephoneNumber  BmiYear PointCrm GetScore

			
			Var ReqAdddata22 = 1

			
		Else

			

			SAVELOG "payment_credit3-p227."

			If Seeker = "next" Then
				Var Curr = "curr"
				If TelephoneNumber = Curr.CurrCreditTelNum Then
					Var useCreditTemp = Curr.CurrCreditAmount
				EndIf
			EndIf

			
			Var BmiYear = SumCreditAmount
			Var GetScore = "useCredit"
			
			AddData 22 TelephoneNumber  BmiYear PointCrm GetScore
			Var ReqAdddata22 = 1

		EndIf

	EndIf

	Var ShowNotEnoughText = "Invisible"
	Var ShowErrorText = "Invisible"
	Var ShowLoadingText = "Enable"
	Var Tel_Confirm_State = "Disable"
	Var Timeout = 0 


	Refresh
	
</EventClick>
</Button>





<Image>
<X> 230 </X>
<Y> 920 </Y>

<State> ShowNotEnoughText </State>
<Filename> Var( DirImage + "/text_show_notEnough.png") </Filename>
</Image>


<Image>
<X> 260 </X>
<Y> 920 </Y>

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

<Image>
<X> 260 </X>
<Y> 920 </Y>

<State> ShowErrorText </State>
<Filename> Var( DirImage + "/loadingTextError.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>