taobin_project/xml/page_payment_credit.xml

<Popup>

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

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

	VendingQR OFF
	
	Var Timeout = 0

	Var TelephoneNumber = ""
   
	Var ShowTextNumber = "Enable"
	Var ShowErrorText = "Invisible"
	Var ShowErrorText2 = "Invisible"
	Var Tel_Confirm_State = "Invisible"

	Var GetCreditFlag = 0

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

	
	Var Ext1a = ""

	Var GetAccFlag = 0

	Var AcceptAuto = "false"

	If web_readyOK = "true" Then
		Var web_readyOK = "false"
		Var AcceptAuto = "true"
		Var ShowTextNumber = "Invisible"
		

    
		Var PinNumber = ""
		Var TelephoneNumber = web_telnum

		Var DataTmp = TelephoneNumber + "/"
		Var DataTmp = DataTmp + PinNumber

		GETACCEXT DataTmp 19
		Var GetAccFlag = 1
	Else

		If show_eng = "true" Then 
			PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Please_enter_your_phone_for_credits.mp3"
		Else
			PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_thai/Please_enter_your_phone_for_credits.mp3"
		EndIf

	EndIf


	Var MaxNumber = 10
	Var PosX_Cancel = 397

	;Var CountryName = "Malaysia"

	If CountryName = "Malaysia" Then
		Var MaxNumber = 11
		Var PosX_Cancel = 218
	EndIf

	If CountryName = "Indonesia" Then
		Var MaxNumber = 12
		Var PosX_Cancel = 218
	EndIf 






</EventOpen>
<Timeout> 1000 </Timeout>
<EventTimeout> 

	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


	TimerReset
</EventTimeout> 

<EventIDCard>
</EventIDCard>

<EventCoin>

	If ViewBill > 0 Then
		CoinVending BILLREJECT
	EndIf

</EventCoin>


<EventActionOk>
	;Open "ROOT/taobin_project/xml/page_payment_credit2.xml" 
	If  GetAccFlag = 1 Then
		If Ext1a = "ok" Then
			Var PinNumberUser = Ext1c
			Var CoffeeCredit = Ext1b
			INT CoffeeCredit 

			;Var CoffeeCredit = 5


			DEBUGVAR PinNumberUser

			If Seeker = "next" Then
				Var Curr = "curr"

				DEBUGVAR CoffeeCredit
				DEBUGVAR Curr.CurrCreditUse

				If TelephoneNumber = Curr.CurrCreditTelNum Then

					Var CoffeeCredit = CoffeeCredit - Curr.CurrCreditUse
					If CoffeeCredit < 0 Then
						Var CoffeeCredit = 0
					EndIf
				EndIf
			EndIf
			
			Open "ROOT/taobin_project/xml/page_payment_credit2.xml" 
		Else
			DEBUGVAR Ext1a
			Var Curr = "curr"
			DEBUGVAR Curr
			DEBUGVAR Curr.CurrCreditTelNum

			If Seeker = "next" Then
				If Ext1a = "new customer" Then 
					Var Curr = "curr"

					

					If TelephoneNumber = Curr.CurrCreditTelNum Then
						Var CoffeeCredit = 0
						Var PinNumberUser = Curr.CurrCreditPinNum
						Open "ROOT/taobin_project/xml/page_payment_credit2.xml" 
					EndIf
				EndIf
			EndIf
			Var ShowErrorText = "Enable"
		EndIf
	EndIf

	Refresh
</EventActionOk>

<EventActionError>
	If  GetAccFlag = 1 Then
   		Var ShowErrorText = "Enable"
	EndIf
   Refresh
</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"
	Trim TelephoneNumber MaxNumber
	StrLen TelephoneNumber TelNumLen
	
	
	Var ShowTextNumber = "Invisible"
	
	If TelNumLen >= 10 Then 
		If MaxNumber > 10 Then
			Var Tel_Confirm_State = "Enable"
		Else
			Function 2
		EndIf
	EndIf
	Var ShowErrorText = "Invisible"
	Var ShowErrorText2 = "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 TelephoneNumber = TelephoneNumber + "2"
	Trim TelephoneNumber MaxNumber
	StrLen TelephoneNumber TelNumLen
	
	
	Var ShowTextNumber = "Invisible"
	
	If TelNumLen >= 10 Then 
		If MaxNumber > 10 Then
			Var Tel_Confirm_State = "Enable"
		Else
			Function 2
		EndIf
	EndIf
	Var ShowErrorText = "Invisible"
	Var ShowErrorText2 = "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 TelephoneNumber = TelephoneNumber + "3"
	Trim TelephoneNumber MaxNumber
	StrLen TelephoneNumber TelNumLen
	
	
	Var ShowTextNumber = "Invisible"
	
	If TelNumLen >= 10 Then 
		If MaxNumber > 10 Then
			Var Tel_Confirm_State = "Enable"
		Else
			Function 2
		EndIf
	EndIf
	Var ShowErrorText = "Invisible"
	Var ShowErrorText2 = "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 TelephoneNumber = TelephoneNumber + "4"
	Trim TelephoneNumber MaxNumber
	StrLen TelephoneNumber TelNumLen
	
	
	Var ShowTextNumber = "Invisible"
	
	If TelNumLen >= 10 Then 
		If MaxNumber > 10 Then
			Var Tel_Confirm_State = "Enable"
		Else
			Function 2
		EndIf
	EndIf
	Var ShowErrorText = "Invisible"
	Var ShowErrorText2 = "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 TelephoneNumber = TelephoneNumber + "5"
	Trim TelephoneNumber MaxNumber
	StrLen TelephoneNumber TelNumLen
	
	
	Var ShowTextNumber = "Invisible"
	
	If TelNumLen >= 10 Then 
		If MaxNumber > 10 Then
			Var Tel_Confirm_State = "Enable"
		Else
			Function 2
		EndIf
	EndIf
	Var ShowErrorText = "Invisible"
	Var ShowErrorText2 = "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 TelephoneNumber = TelephoneNumber + "6"
	Trim TelephoneNumber MaxNumber
	StrLen TelephoneNumber TelNumLen
	
	
	Var ShowTextNumber = "Invisible"
	
	If TelNumLen >= 10 Then 
		If MaxNumber > 10 Then
			Var Tel_Confirm_State = "Enable"
		Else
			Function 2
		EndIf
	EndIf
	Var ShowErrorText = "Invisible"
	Var ShowErrorText2 = "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 TelephoneNumber = TelephoneNumber + "7"
	Trim TelephoneNumber MaxNumber
	StrLen TelephoneNumber TelNumLen
	
	
	Var ShowTextNumber = "Invisible"
	
	If TelNumLen >= 10 Then 
		If MaxNumber > 10 Then
			Var Tel_Confirm_State = "Enable"
		Else
			Function 2
		EndIf
	EndIf
	Var ShowErrorText = "Invisible"
	Var ShowErrorText2 = "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 TelephoneNumber = TelephoneNumber + "8"
	Trim TelephoneNumber MaxNumber
	StrLen TelephoneNumber TelNumLen
	
	
	Var ShowTextNumber = "Invisible"
	
	If TelNumLen >= 10 Then 
		If MaxNumber > 10 Then
			Var Tel_Confirm_State = "Enable"
		Else
			Function 2
		EndIf
	EndIf
	Var ShowErrorText = "Invisible"
	Var ShowErrorText2 = "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 TelephoneNumber = TelephoneNumber + "9"
	Trim TelephoneNumber MaxNumber
	StrLen TelephoneNumber TelNumLen
	
	
	Var ShowTextNumber = "Invisible"
	
	If TelNumLen >= 10 Then 
		If MaxNumber > 10 Then
			Var Tel_Confirm_State = "Enable"
		Else
			Function 2
		EndIf
	EndIf
	Var ShowErrorText = "Invisible"
	Var ShowErrorText2 = "Invisible"

	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 TelephoneNumber = TelephoneNumber + "0"
	Trim TelephoneNumber MaxNumber
	StrLen TelephoneNumber TelNumLen
	
	
	Var ShowTextNumber = "Invisible"
	
	If TelNumLen >= 10 Then 
		If MaxNumber > 10 Then
			Var Tel_Confirm_State = "Enable"
		Else
			Function 2
		EndIf
	EndIf
	Var ShowErrorText = "Invisible"
	Var ShowErrorText2 = "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 TelephoneNumber  -1
	
	StrLen TelephoneNumber TelNumLen

	If TelNumLen < 10 Then 
		Var Tel_Confirm_State = "Invisible"
	EndIf
	
	If TelNumLen = 0 Then 
		Var ShowTextNumber = "Enable"
	EndIf

	Var ShowErrorText = "Invisible"
	Var ShowErrorText2 = "Invisible"
	TimerReset
	Refresh
	
</EventClick>
</Button>

<Button>
<X> PosX_Cancel </X>
<Y> 1607 </Y>

<Filename> Var( DirImage + "/bn_cancel2.png" )</Filename>
<FilenamePress> Var( DirImage + "/bp_cancel2.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.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 + "/bn_confirm.png" )</FilenameDisable>
<Sound> "ROOT/sounds/codebuttom.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick> 

		Function 2
	

</EventClick>
</Button>

<Image>
<X> 217 </X>
<Y> 802 </Y>
<Filename> Var( DirImage + "/img3.png" ) </Filename>
</Image>

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

<Image>
<X> 248 </X>
<Y> 836 </Y>
<State> ShowTextNumber </State>
<Refresh> "Enable" </Refresh>
<Filename> Var( DirImage + "/Group.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>
<Format> Telnum-mask-1 </Format>
</Text>


	

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

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

<Image>
<X> 152 </X>
<Y> 920 </Y>
<State> ShowErrorText2 </State>
<Refresh> "Enable" </Refresh>
<Filename> Var( DirImage + "/text_show_error5.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 Tel2DFlag = 0

	Var Tel2D = TelephoneNumber 
	Trim Tel2D 1

	If Tel2D = "0" Then
		Var Tel2DFlag = 1
	EndIf
	
	
	If Tel2DFlag = 1 Then



		Var GetAccFlag = 1
		GETACCEXT TelephoneNumber 19
	Else

		Var ShowErrorText2 = "Enable"
		;Var TelephoneNumber = ""
		Var Tel_Confirm_State = "Invisible"
		Refresh

	EndIf
</Function2>


</Popup>