taobin_project/xml/page_payment_credit3-0.xml

<Popup>

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

<Volume> SoundVolume </Volume>

<EventOpen>
	; On open

	Var Timeout = 0
	Var ReqTimeout = 0

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


	Var img_popup11 = "/img_popup18.png"

	;inter-image
    If CountryName = "Malaysia" Then
		Var img_popup11 = "/img_popup18.png"
	EndIf

	;inter-image
	If CountryName = "Indonesia" Then
		Var img_popup11 = "/img_popup18.png"
	EndIf 

	Var showRemaining !assigned StringFmt( SumCreditAmount, DisplayFormat, PreScaleConvertShow )

	Var ShowErrorText = "Invisible"
	Var ReqAdddata22 = 0
	Var timeout_Adddata22 = 0
	GenHashWithTimeStamp PointCrm

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

	Var UseCreditState = "Enable"
	Var LOADING_REQ_ADDDATA22_STATE = "Invisible"
	
</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout> 

	Var Timeout = Timeout + 1
	
	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

	If ReqAdddata22 = 1 Then
		Var ReqTimeout = ReqTimeout + 1
		If ReqTimeout = 15 Then
			SAVELOG "Error ReqAdddata22 timeout."

			Var ShowErrorText = "Enable"
			If ReqAdddata22 = 1 Then 
				Var ReqAdddata22 = 0
				Var UseCreditState = "Enable"
				Var LOADING_REQ_ADDDATA22_STATE = "Invisible"
			EndIf
		EndIf
	EndIf
	

	Refresh
	TimerReset
</EventTimeout> 


<EventActionOk>
	If ReqAdddata22 = 1 Then 

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

		Var Seeker.CreditEnoughRefID = PointCrm

		CoinVending OFF

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

		Var Seeker.StoreCreditFlag = 1
		Var SumCreditAmount = SumCreditAmount - PayAmountSubDiscount
		Var VendingCreditRemain = "" + SumCreditAmount
		Var Seeker.UseCreditPayFullDrinkPrice = 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
				
				;include="ROOT/taobin_project/xml/sometime/make_drink.xml"
		EndIf

		Var ReqAdddata22 = 0
	EndIf
</EventActionOk>

<EventActionError>

 Var ShowErrorText = "Enable"
 Var UseCreditState = "Enable"
 Refresh

 If ReqAdddata22 = 1 Then 
		Var ReqAdddata22 = 0
	EndIf
</EventActionError>


<EventCoin>

	If ViewBill > 0 Then
		CoinVending BILLREJECT
	Else

	EndIf

</EventCoin>



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


<Image>
<X> 181 </X>
<Y> 647 </Y>
<Filename> Var( DirImage + img_popup11 ) </Filename>
</Image>

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

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


<Button>
<X> 287 </X>
<Y> 1426 </Y>
<Filename> Var( DirImage + "/bn_cancel4.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_cancel4.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> 287 </X>
<Y> 1140 </Y>
<State> UseCreditState </State>
<Filename> Var( DirImage + "/bn_useCredit2.png" ) </Filename>
<FilenamePress> Var( DirImage + "/bp_useCredit2.png" )</FilenamePress>
<FilenameDisable> Var( DirImage + "/bp_useCredit2.png" )</FilenameDisable>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick> 
		If ReqAdddata22 = 0 Then 
			Var useCreditAmount = PayAmountSubDiscount
			Var BmiYear = useCreditAmount
			Var GetScore = "useCredit"
			AddData 22 TelephoneNumber  BmiYear PointCrm GetScore
			Var ReqTimeout = 0
			Var Timeout = 0
			Var ShowErrorText = "Invisible"
			Var UseCreditState = "Disable"
			Var ReqAdddata22 = 1
			Var LOADING_REQ_ADDDATA22_STATE = "Enable"
			Refresh
		EndIf


</EventClick>
</Button>

<GIF>
<X> 508 </X>
<Y> 1080 </Y>
<Width> 45 </Width>
<Height> 45 </Height>
<State> LOADING_REQ_ADDDATA22_STATE </State>
<Filename> "ROOT/taobin_project/image/page_payment/loading.gif" </Filename>
</GIF>

<Button>
<X> 287 </X>
<Y> 1283 </Y>
<Filename> Var( DirImage + "/bn_useCredit3.png" ) </Filename>
<FilenamePress> Var( DirImage + "/bp_useCredit3.png" )</FilenamePress>
<FilenameDisable> Var( DirImage + "/bp_useCredit3.png" )</FilenameDisable>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick> 

	Var ShowNotEnoughText = "Invisible"
	Open "ROOT/taobin_project/xml/page_payment_credit3-1.xml" 

</EventClick>
</Button>

<Image>
<X> 156 </X>
<Y> 1050 </Y>
<Refresh> "Enable" </Refresh>
<State> ShowErrorText </State>
<Filename>  Var( DirImage + "/text_show_notOperate.png") </Filename>
</Image>

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

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

</Popup>