taobin_project/xml/page_brewing3.xml

<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
	Var SendNotiPaySuccess = 2

	Var GetMoreStrawCount = 3

	DEBUGVAR TxRef1

	SAVELOG "page_brewing3.xml"
	DEBUGVAR MachineStage



	If CART_COUNT >= 1 Then
		 Open "ROOT/taobin_project/xml/page_brewing3Multi.xml"  
	Else
       	Var PayReference = ""
		Var PayType = ""
    EndIf

	Var SelectDrink = Seeker.selected_a_drink
	Var ExtendData = Seeker.ExtendData

	Var ServiceAmount2 = Seeker.ServiceAmount2

	DEBUGVAR Seeker
	DEBUGVAR Seeker.selected_a_drink
	DEBUGVAR Seeker.ServiceAmount2

	Var SessionID2 = SelectSlot + ":"
	Var SessionID2 = SessionID2 + ExtendData

	; On open move from page_brewing3.xml
	Var countClick2 = 0

	Var Timeout = 0

	Var PrintCoinAmount = 0


    If show_eng = "true" Then 
		
		Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2_eng.png"

		Play "ROOT/taobin_project/sound_eng/Wait_a_moment.mp3"

		Var bnGetMoreStrawFileName = "ROOT/taobin_project/image/page_doing/bn_get_more_straw_en.png"
		Var bpGetMoreStrawFileName = "ROOT/taobin_project/image/page_doing/bp_get_more_straw_en.png"

		Var bnStrawProblemReport = "ROOT/taobin_project/image/page_doing/bn_send_report_straw_en.png"
		Var bpStrawProblemReport = "ROOT/taobin_project/image/page_doing/bp_send_report_straw_en.png"

		Var bnLidProblemReport = "ROOT/taobin_project/image/page_doing/bn_send_report_lid_en.png"
		Var bpLidProblemReport = "ROOT/taobin_project/image/page_doing/bp_send_report_lid_en.png"
		

		Var bn_get_lid_image = "ROOT/taobin_project/image/page_doing/bn_get_lid_en.png"
		Var bp_get_lid_image = "ROOT/taobin_project/image/page_doing/bp_get_lid_en.png"

		Var brew_txt2 = "ROOT/taobin_project/image/page_doing/brewing_txt_adv3_en.png"
		Var brew_txt1 = "ROOT/taobin_project/image/page_doing/brewing_txt_adv1_en.png"

		Var XStraw = 336
	Else
		Var PlaySoundLag = "ROOT/taobin_project/sound_thai/thankyou.mp3"
		
		If SoundThaiIndex = 1 Then
			Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/sublang/north/next_drink.wav"
		EndIf
		If SoundThaiIndex = 2 Then
			Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/sublang/northeast/next_drink.wav"
		EndIf
		If SoundThaiIndex = 3 Then
			Var PlaySoundLag = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/sublang/south/next_drink.wav"
		EndIf

		Play PlaySoundLag

		Var IMG_CNT = "ROOT/taobin_project/image/page_doing/img2.png"
	

		Var bnGetMoreStrawFileName = "ROOT/taobin_project/image/page_doing/bn_get_more_straw.png"
		Var bpGetMoreStrawFileName = "ROOT/taobin_project/image/page_doing/bp_get_more_straw.png"

		Var bnStrawProblemReport = "ROOT/taobin_project/image/page_doing/bn_send_report_straw.png"
		Var bpStrawProblemReport = "ROOT/taobin_project/image/page_doing/bp_send_report_straw.png"

		Var bnLidProblemReport = "ROOT/taobin_project/image/page_doing/bn_send_report_lid.png"
		Var bpLidProblemReport = "ROOT/taobin_project/image/page_doing/bp_send_report_lid.png"		

		
		Var bn_get_lid_image = "ROOT/taobin_project/image/page_doing/bn_get_lid.png"
		Var bp_get_lid_image = "ROOT/taobin_project/image/page_doing/bp_get_lid.png"

		Var brew_txt2 = "ROOT/taobin_project/image/page_doing/brewing_txt_adv3.png"
		Var brew_txt1 = "ROOT/taobin_project/image/page_doing/brewing_txt_adv1.png"

		Var XStraw = 382
	EndIf

	Var waitAckPay = 0
	Var VendingTSIDTmp = ""
	Var VendingTSIDProblem = ""
	Var CreditReference = ""
	Var PayCredit = 0

	

	If Seeker.PayWithQR = 1 Then
		Var VendingTSIDTmp = Seeker.VendingTSID

		If Seeker.TNumberTaobinCredit = "" Then
			Var TelephoneNumber = "0899999999"
			Var PayO2 = ""
		Else
			Var TelephoneNumber = Seeker.TNumberTaobinCredit
			Var PayO2 = Seeker.CoffeePinNumber
		EndIf


		If ChangeFlag2 = 1 Then
					Var TelephoneNumber = "0899999999"
					Var PayO2 = ""
					Var VendingDiscount = 0
					Var VendingCampaign = 0
					Var ServiceType = "credit"
					Var SessionID2 = SelectDrink
					Var ServiceCredit = "coffee"
					Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
					
		Else

					If Seeker.StoreCreditFlag = 1 Then
						Var VendingDiscount = 0
						Var VendingCampaign = 0
						Var ServiceType = "credit"
						Var SessionID2 = SelectDrink
						Var ServiceCredit = "coffee"
						Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
						

					EndIf
		EndIf
	EndIf

	If Seeker.TNumberTaobinCredit = "" Then

		If Seeker.TNumberTaobinMember = "" Then
			Var TelephoneNumberProblem = ""
		Else
			Var TelephoneNumberProblem = Seeker.TNumberTaobinMember
		EndIf
				
	Else
		Var TelephoneNumberProblem = Seeker.TNumberTaobinCredit
	EndIf

	If TelephoneNumberProblem = "" Then
		;Var TelephoneNumberProblem = ""
    	Var ShowTextNumber = "Enable"
    	Var Tel_Confirm_State = "Disable"
	Else
		Var ShowTextNumber = "Invisible"
    	Var Tel_Confirm_State = "Enable"
	EndIf

	Var AddData = 0

	DEBUGVAR Seeker.TNumberTaobinMember 
	DEBUGVAR Seeker.PointTaobinStr
	

	If Seeker.TNumberTaobinMember = "" Then

	Else
		If Seeker.PayWithQR = 1 Then
			Var VendingTSID = VendingTSIDTmp
		Else
			Var VendingTSID = ""
		EndIf 	


		Var BmiYear = Seeker.PointTaobinStr
		Var PointCrm = ""
		If Seeker.FromConsent = 1 Then 
			Var PointCrm = "pdpa1"
		EndIf
		Var GetScore = VendingTSID
		If Seeker.TaobinErrorNetwork = 0 Then
			Var Cid = 11
			Var AddData = 1
			;AddData Cid Seeker.TNumberTaobinMember  BmiYear PointCrm GetScore
		Else
			Var PointCrm = ""
			Var Cid = 14
			Var AddData = 1
			;AddData Cid Seeker.TNumberTaobinMember  BmiYear PointCrm GetScore
		EndIf
		
		Var VendingTSID = ""
	EndIf


	If GetFreeFromError = 1 Then
		;Var GetFreeFromError = 0
		Var TelephoneNumberProblem = TelephoneNumberGOTFree
		
	EndIf


	If LedLidBlink = "true" Then
		Var LedLidBlink = "no"
		LED LedDoorLid Blink 255 255 255 255
	EndIf


	Var CreditReference = Seeker.CreditReferenceTmp
	Var VendingDiscount = Seeker.VendingDiscount
	Var VendingCampaign = Seeker.VendingCampaign
	Var TxReference = Seeker.TxRef1
	DEBUGVAR TxReference


	If show_eng = "true" Then 
		Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment"
		Var DirImage2 = "ROOT/taobin_project/image/topping2_en"
	Else
		Var DirImage = "ROOT/taobin_project/image/page_payment"
		Var DirImage2 = "ROOT/taobin_project/image/topping2"
	EndIf

	DEBUGVAR show_eng 

	Var next_pic_bn = DirImage + "/bn_add_order.png"
	Var next_pic_bp = DirImage + "/bp_add_order.png"
	Var text_next_order = DirImage + "/text_next_order.png"
	Var bg_strawlid = DirImage2 + "/bg_strawlidSmall.png"
	

	Var Seeker.strawAction = 0
	Var Seeker.lidAction = 0

	If Seeker.thankLidFlag = 1 Then
		Var bg_strawlid = DirImage2 + "/bg_strawSmall.png"
		Var LidStateX = "Invisible"
		Var Seeker.lidAction = 2
	EndIf

	
	DEBUGVAR LastMakeDrinkResult

	If LastMakeDrinkResult = "success" Then
		Var MachineState_Result = 1
	EndIf

	If LastMakeDrinkResult = "fail" Then
		SAVELOG "LastMakeDrinkResult is 2"
		Var MachineState_Result = 2
	EndIf


	DEBUGVAR VendingCampaign


	If MachineState_Result > 0 Then
		Var SelectMenuBetweenBrewEnable1 = "Invisible"
	Else
		Var SelectMenuBetweenBrewEnable1 = "Enable"
	EndIf

	If GetFreeFromError = 1 Then
		Var SelectMenuBetweenBrewEnable1 = "Invisible"
	EndIf

	If SelectMenuBetweenBrewEnable1 = "Enable" Then 
		Var EnableGetMoreStrawFileName = "Enable"
		Var SelectMenuBetweenBrewEnable1Blink = "Enable"
	Else
		Var SelectMenuBetweenBrewEnable1Blink = "Invisible"

		Var EnableGetMoreStrawFileName = "Invisible"
	EndIf


	; Hide
	Var bg_strawProblem_ST = "Invisible"
	Var StrawProblemStatus = 1
	Var StrawStateX = "Invisible"
	Var LidStateX = "Invisible"

	; Override from config
	If StrawGetMoreState = "Invisible" Then 
		Var bg_strawProblem_ST = "Enable"
		Var EnableGetMoreStrawFileName = "Invisible"
	EndIf

	If RoadShow = "true" Then
		Var SelectMenuBetweenBrewEnable1Blink = "Invisible"  
	EndIf

	If Seeker.CreditCard = 1 Then
		Var SelectMenuBetweenBrewEnable1Blink = "Invisible"  
		Var SelectMenuBetweenBrewEnable1 = "Invisible"  
	EndIf

	If NeedUpgrade = "true" Then
		Var SelectMenuBetweenBrewEnable1Blink = "Invisible"  
		Var SelectMenuBetweenBrewEnable1 = "Invisible"  
	EndIf

	If NeedReboot = "true" Then
		Var SelectMenuBetweenBrewEnable1Blink = "Invisible"  
		Var SelectMenuBetweenBrewEnable1 = "Invisible"  
	EndIf

	DEBUGVAR NeedUpgrade

	Var bg_lidProblem_ST2 = bg_lidProblem_ST

	; zone Language
	If LanguageObjectShow = "Enable" Then
	
		Var SelectMenuBetweenBrewEnable2 = SelectMenuBetweenBrewEnable1
		Var SelectMenuBetweenBrewEnable1 = "Invisible"

		Var IMG_CNT = "ROOT/taobin_project/image/page_doing_inter/bg_show_time_remaining.png"

		Var bg_lidProblem_ST = "Invisible"
		Var GetLidButtonState = "Invisible"
		Var bg_strawProblem_ST = "Invisible"
		var EnableGetMoreStrawFileName = "Invisible"

		If bg_lidProblem_ST2 = "Invisible" Then 
			Var GetLidButtonState2 = "Enable"
			Var XStraw = 265
		EndIf
	EndIf
	

	
	If NoLangObjectShow = "Enable" Then
		Var SelectMenuBetweenBrewEnable2 = "Invisible"

		Var bg_lidProblem_ST2 = "Invisible"
		Var GetLidButtonState2 = "Invisible"
		Var bg_strawProblem_ST2 = "Invisible"
		var EnableGetMoreStrawFileName2 = "Invisible"


		DEBUGVAR bg_lidProblem_ST


		If bg_lidProblem_ST = "Invisible" Then 
			Var GetLidButtonState = "Enable"
			Var XStraw = 265
		EndIf


	EndIf

	DEBUGVAR SelectMenuBetweenBrewEnable1
	DEBUGVAR SelectMenuBetweenBrewEnable2

	DEBUGVAR LanguageObjectShow
	DEBUGVAR NoLangObjectShow



	Var CreditCardVoid = 0


	If adver_brewing_en = 1 Then
		Var adver_brewing_playing = 1
		Var adver_brewing_play_index = 2
		Var adver_brewing_count_down = 10
		Var VideoPlayFile = "ROOT/taobin_project/image/page_doing/tao_adv1.png"
		Var PictureFile = brew_txt1
	EndIf

	Var CampaignEnable = 0


	Var GetLidButtonCountDown = 0

	; language instance

	RootLayoutVisible 3 "hide"
	
</EventOpen>
<EventLanguageOnChange>
	Var XPosiShowCountDownBrew = 768
	Refresh
</EventLanguageOnChange>

<EventActionOk>

	If CreditCardVoid = 1 Then
		Var ChangeOK = 2
	EndIf

	
	If ActionOKCase = 1 Then
		If Seeker.CodeChannel = 1 Then 
			Var SessionID2 = SelectSlot + ":"
			Var SessionID2 = SessionID2 + ExtendData
			DEBUGVAR SessionID2

			DEBUGVAR SessionID2

			Var CreditAmount1 = ""
			Var ServiceAmountFlow = ""
			Var TelephoneNumber = "0899999999"
			Var ServiceType = "coffee"
			Var ECommerce = ""
			Var ECommerce = ECommerce + PriceDrink
			Var ECommerce =	ECommerce + "/"
			Var ECommerce =	ECommerce + DiscountDrink 
			Var ECommerce =	ECommerce + "/"
			Var ECommerce =	ECommerce + SessionID2 
			Var ECommerce =	ECommerce + "/"
			Var ECommerce =	ECommerce + SelectDrink 
			Var ECommerce =	ECommerce + "/"
			Var ECommerce =	ECommerce + Seeker.VendingCode
			Var ECommerce =	ECommerce + "/"
			Var ECommerce =	ECommerce + Seeker.CodeNumber
			Var ECommerce =	ECommerce + "/"
			Var ECommerce =	ECommerce + "C:"
			Var ECommerce =	ECommerce + Seeker.IntVendingCampaign
			Var ServiceParameter = "max"
			Var ServiceCharge = 0
			Var AccountType = "new"
			Var testservice = "kbank"
			Var tc = ""
			Var GetScore = ""
			Var OperatorName = ""
			Var SessionID = ""

			GetPayInfo TelephoneNumber ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
			;Var Timeout = 0
			Var ActionOKCase = 2

			SAVELOG "back_to_main from line  > 142."
			Open "ROOT/taobin_project/xml/page_drinkfail2.xml" 
			
		Else 

			SAVELOG "back_to_main from line  > 147."
			Open "ROOT/taobin_project/xml/page_drinkfail2.xml" 
		EndIf
       
    Else

		

	EndIf

	If waitAckPay = 1 Then	
		SAVELOG "waitAckPay = 1"
		Open "ROOT/taobin_project/xml/page_drinkok.xml" 
		
	EndIf

</EventActionOk>

<EventActionError>
   If ActionOKCase = 1 Then
		If Seeker.CodeChannel = 1 Then 
			Var SessionID2 = SelectSlot + ":"
			Var SessionID2 = SessionID2 + ExtendData
			DEBUGVAR SessionID2

			DEBUGVAR SessionID2

			Var CreditAmount1 = ""
			Var ServiceAmountFlow = ""
			Var TelephoneNumber = "0899999999"
			Var ServiceType = "coffee"
			Var ECommerce = ""
			Var ECommerce = ECommerce + PriceDrink
			Var ECommerce =	ECommerce + "/"
			Var ECommerce =	ECommerce + DiscountDrink 
			Var ECommerce =	ECommerce + "/"
			Var ECommerce =	ECommerce + SessionID2 
			Var ECommerce =	ECommerce + "/"
			Var ECommerce =	ECommerce + SelectDrink 
			Var ECommerce =	ECommerce + "/"
			Var ECommerce =	ECommerce + Seeker.VendingCode
			Var ECommerce =	ECommerce + "/"
			Var ECommerce =	ECommerce + Seeker.CodeNumber
			Var ECommerce =	ECommerce + "/"
			Var ECommerce =	ECommerce + "C:"
			Var ECommerce =	ECommerce + Seeker.IntVendingCampaign
			Var ServiceParameter = "max"
			Var ServiceCharge = 0
			Var AccountType = "new"
			Var testservice = "kbank"
			Var tc = ""
			Var GetScore = ""
			Var OperatorName = ""
			Var SessionID = ""

			GetPayInfo TelephoneNumber ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
			;Var Timeout = 0
			Var ActionOKCase = 2

			SAVELOG "back_to_main from line  > 204."
			Open "ROOT/taobin_project/xml/page_drinkfail2.xml" 
			
		Else 
			SAVELOG "back_to_main from line  > 173."
			Open "ROOT/taobin_project/xml/page_drinkfail2.xml" 
		EndIf
       
    Else

		

	EndIf
</EventActionError>


<Timeout> 1000 </Timeout>
<EventTimeout> 

	
	Var Timeout = Timeout + 1

	DEBUGVAR MachineState_Result
	DEBUGVAR BREW_COUNT_DOWN_FROM_APP


	If MOVE_CUP_TO_DOOR = "true" Then
		Var MOVE_CUP_TO_DOOR = "false"
	EndIf

	If BREW_COUNT_DOWN_FROM_APP = "on" Then
		Var CountDownBrewing = BREW_CNT
	Else

		If CountDownBrewing > 0 Then
			Var CountDownBrewing = CountDownBrewing - 1
		EndIf
	Endif

	;If Simulation = "true" Then
	;	If CountDownBrewing = 0 Then
	;		;Open "ROOT/taobin_project/xml/page_drinkok.xml"
	;	EndIf
	;EndIf

	
	If SelectMenuBetweenBrewEnable1 = "Enable" Then
		If Timeout = 5 Then
			If show_eng = "true" Then 
				PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/next_drink.mp3"
			Else
				PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_thai/next_drink.mp3"
			EndIf
		EndIf
		If Timeout = 9 Then
			PlayLong "/mnt/sdcard/coffeevending/taobin_project/sounds/music1.mp3"
		EndIf
	Else
		If Timeout = 4 Then
			PlayLong "/mnt/sdcard/coffeevending/taobin_project/sounds/music1.mp3"
		EndIf
	EndIf
	
	; run test;
	;If CountDownBrewing = 40 Then 
	;	Open "ROOT/taobin_project/xml/page_drinkok.xml"  
	;EndIf
	;If CountDownBrewing = 0 Then
	;	;Open "ROOT/taobin_project/xml/page_drinkok.xml" 
	;EndIf

	Var ShowCountDownBrewing = CountDownBrewing


	If Timeout > 540 Then
		SAVELOG "back_to_main from line  > 217."
		Open "ROOT/taobin_project/xml/page_drinkfail2.xml" 
	EndIf
	

	If Timeout > 480 Then
		SAVELOG " Timeout > 480"
		Var MachineState_Result = 2
	EndIf

	If ChangeFlag = 1 Then
		Var ChangeTimeout = ChangeTimeout + 1
	EndIf

	If  waitAckPay = 1 Then  
		If Timeout > 60 Then
			Var VendingTSID = ""
			SAVELOG "TIMEOUT=60"
			Open "ROOT/taobin_project/xml/page_drinkok.xml" 

		EndIf
	EndIf

	If  waitAckPay = 2 Then  
		If Timeout > 10 Then

			If Seeker.CodeChannel = 1 Then 
				Var SessionID2 = SelectSlot + ":"
				Var SessionID2 = SessionID2 + ExtendData
				DEBUGVAR SessionID2

				Var CreditAmount1 = ""
				Var ServiceAmountFlow = ""
				Var TelephoneNumber = "0899999999"
				Var ServiceType = "coffee"
				Var ECommerce = ""
				Var ECommerce = ECommerce + PriceDrink
				Var ECommerce =	ECommerce + "/"
				Var ECommerce =	ECommerce + DiscountDrink 
				Var ECommerce =	ECommerce + "/"
				Var ECommerce =	ECommerce + SessionID2 
				Var ECommerce =	ECommerce + "/"
				Var ECommerce =	ECommerce + SelectDrink 
				Var ECommerce =	ECommerce + "/"
				Var ECommerce =	ECommerce + Seeker.VendingCode
				Var ECommerce =	ECommerce + "/"
				Var ECommerce =	ECommerce + Seeker.CodeNumber
				Var ECommerce =	ECommerce + "/"
				Var ECommerce =	ECommerce + "C:"
				Var ECommerce =	ECommerce + Seeker.IntVendingCampaign
				Var ServiceParameter = "max"
				Var ServiceCharge = 0
				Var AccountType = "new"
				Var testservice = "kbank"
				Var tc = ""
				Var GetScore = ""
				Var OperatorName = ""
				Var SessionID = ""

				GetPayInfo TelephoneNumber ECommerce ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
				;Var Timeout = 0
			EndIf
				
			SAVELOG "back_to_main from line  > 309."
			Open "ROOT/taobin_project/xml/page_drinkfail2.xml" 
		EndIf
	EndIf


	If  ChangeOK = 2 Then
		If ActionOKCase = 0 Then

			If Seeker.TNumberTaobinCredit = "" Then
				Var TelephoneNumber = "0899999999"
				Var PayO2 = ""

				If Seeker.TNumberTaobinMember = "" Then
				Else
					Var TelephoneNumber = Seeker.TNumberTaobinMember
				EndIf

			Else
				Var TelephoneNumber = Seeker.TNumberTaobinCredit
				Var PayO2 = Seeker.CoffeePinNumber
			EndIf


			If NextOrderStatus = "Disable" Then
				Var PayDetail="2/F:1221/0/"
				Var PayDetail = PayDetail + "/XML|"
				Var PayDetail = PayDetail +  Seeker.OrderChanel
			Else


				If HURR_FOREVER = "S:0" Then
					Var HURR_FOREVER = "F:1303"
				EndIf


				Var PayDetail = "2/" + HURR_FOREVER
				Var PayDetail = PayDetail + "/"  
				Var PayDetail = PayDetail + SAMESALARY
				Var PayDetail = PayDetail + "/"
				Var PayDetail = PayDetail + NOBONUS
				Var PayDetail = PayDetail + "/XML|"
				Var PayDetail = PayDetail +  Seeker.OrderChanel

			EndIf



			;Var PayDetail="1/F:404/500/1:430|1001:12|1002:15|1020:7|1042:5|1050:50|9501:1|9502:1|9701:1|9702:1"

			Var ServiceType = "coffee"
			Var ServiceCredit = SelectDrink
			Var SuggestID  = ""
			Var SessionID2 = ""

			
			Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate


			;If Seeker.CodeChannel = 0 Then 
			;	SAVELOG "back_to_main from line  > 315."
			;	Open "ROOT/taobin_project/xml/page_drinkfail2.xml" 
			;EndIf

			Var waitAckPay = 2
			Var Timeout = 5
			Var ActionOKCase = 1
			SAVELOG "ActionOKCase = change OK 2"

		EndIf
	EndIf

	If  ChangeTimeout > 30 Then
		If ActionOKCase = 0 Then
			If Seeker.TNumberTaobinCredit = "" Then
				Var TelephoneNumber = "0899999999"
				Var PayO2 = ""

				If Seeker.TNumberTaobinMember = "" Then
				Else
					Var TelephoneNumber = Seeker.TNumberTaobinMember
				EndIf

			Else
				Var TelephoneNumber = Seeker.TNumberTaobinCredit
				Var PayO2 = Seeker.CoffeePinNumber
			EndIf


			If NextOrderStatus = "Disable" Then
				Var PayDetail="2/F:1221/0/"
				Var PayDetail = PayDetail + "/XML|"
				Var PayDetail = PayDetail +  Seeker.OrderChanel
			Else


				If HURR_FOREVER = "S:0" Then
					Var HURR_FOREVER = "F:1303"
				EndIf

				Var PayDetail = "2/" + HURR_FOREVER
				Var PayDetail = PayDetail + "/"  
				Var PayDetail = PayDetail + SAMESALARY
				Var PayDetail = PayDetail + "/"
				Var PayDetail = PayDetail + NOBONUS
				Var PayDetail = PayDetail + "/XML|"
				Var PayDetail = PayDetail +  Seeker.OrderChanel

			EndIf

			;Var PayDetail="1/F:404/500/1:430|1001:12|1002:15|1020:7|1042:5|1050:50|9501:1|9502:1|9701:1|9702:1"

			
			Var ServiceType = "coffee"
			Var ServiceCredit = SelectDrink
			Var SuggestID  = ""
			Var SessionID2 = ""

			

			Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate

			;If Seeker.CodeChannel = 0 Then 
			;	SAVELOG "back_to_main from line  > 357."
			;	Open "ROOT/taobin_project/xml/page_drinkfail2.xml" 
			;EndIf

			Var waitAckPay = 2
			Var Timeout = 5
			Var ActionOKCase = 1
			SAVELOG "ActionOKCase = change time out"

		EndIf
	EndIf

	If ChangeOK = 3 Then
		If ActionOKCase = 0 Then

			Var SVT = "coffee"
			Var ACC = "0899999999"

			If Seeker.TNumberTaobinMember = "" Then
			Else
				Var ACC = Seeker.TNumberTaobinMember
			EndIf


			If NextOrderStatus = "Disable" Then
				Var PayDetail="2/F:1221/0/"
				Var PayDetail = PayDetail + "/XML|"
				Var PayDetail = PayDetail +  Seeker.OrderChanel
			Else

				If HURR_FOREVER = "S:0" Then
					Var HURR_FOREVER = "F:1303"
				EndIf

				Var PayDetail = "2/" + HURR_FOREVER
				Var PayDetail = PayDetail + "/"  
				Var PayDetail = PayDetail + SAMESALARY
				Var PayDetail = PayDetail + "/"
				Var PayDetail = PayDetail + NOBONUS
				Var PayDetail = PayDetail + "/XML|"
				Var PayDetail = PayDetail +  Seeker.OrderChanel
				
			EndIf




			Var DEE = PayDetail

			PAYEXT SVT ACC VendingTSIDTmp DEE
		
			Var ActionOKCase = 1
			SAVELOG "ActionOKCase = change OK 3"
			If Seeker.CodeChannel = 0 Then 
				SAVELOG "back_to_main from line  > 391."
				Open "ROOT/taobin_project/xml/page_drinkfail2.xml" 
			EndIf

			Var waitAckPay = 2
			Var Timeout = 5




		EndIf
	EndIf

	If MachineState_Result = 1 Then
		;Var MachineState_Result = 2
	EndIf

	If MachineState_Result = 1 Then
		DEBUGVAR PaySuccessWithDaemonTask

		If  waitAckPay = 0 Then 

			Var waitAckPay = 0 
			Var Timeout = 0

			Var ProcessText = "" 

			If Seeker.TNumberTaobinCredit = "" Then
				Var TelephoneNumber = "0899999999"
				Var PayO2 = ""

				If Seeker.TNumberTaobinMember = "" Then
				Else
					Var TelephoneNumber = Seeker.TNumberTaobinMember
				EndIf
				
			Else
				Var TelephoneNumber = Seeker.TNumberTaobinCredit
				Var PayO2 = Seeker.CoffeePinNumber
			EndIf



			If AddData = 1 Then
				Var Cid = 26
				AddData Cid Seeker.TNumberTaobinMember  Seeker.PointTaobinStr PointCrm GetScore
			EndIf
			
			Var ServiceType = "coffee"
			Var ServiceCredit = SelectDrink
			Var SuggestID  = ""

			Var PayDetail = "2/" + HURR_FOREVER
			Var PayDetail = PayDetail + "/"  
			Var PayDetail = PayDetail + SAMESALARY
			Var PayDetail = PayDetail + "/"
			Var PayDetail = PayDetail + NOBONUS
			Var PayDetail = PayDetail + "/XML|"
			Var PayDetail = PayDetail +  Seeker.OrderChanel

			
 			;Var PayDetail="1/S:0/500/1:430|1001:12|1002:15|1020:7|1042:5|1050:50|9501:1|9502:1|9701:1|9702:1"

			If GetFreeFromError = 1 Then
				Var Seeker.CodeChannel = 1 
				Var Seeker.VendingCode = "FAU"
				Var Seeker.CodeNumber = "0000000000"
				Var VendingCampaign = ServiceAmount2
			EndIf

			If Seeker.PayWithQR = 0 Then
				If Seeker.CodeChannel = 1 Then
					Var SessionID2 = SessionID2 + "/"
					Var SessionID2 = SessionID2 + Seeker.CodeNumber
					Var SessionID2 = SessionID2 + "/"
					Var SessionID2 = SessionID2 + Seeker.VendingCode
					Var SessionID2 = SessionID2 + "/"
					Var SessionID2 = SessionID2 + SelectDrink
					Var SessionID2 = SessionID2 + "/"
					Var SessionID2 = SessionID2 + BoxID
					Var SessionID2 = SessionID2 + "/"
					Var SessionID2 = SessionID2 + "S"
					Var SessionID2 = SessionID2 + "/"
					Var SessionID2 = SessionID2 + Seeker.CodeNumber
					Var SessionID2 = SessionID2 + "/"

					If Seeker.CreditCard = 1 Then
					
							CashlessReq SUCCESS
							;CashlessReq FAIL

					EndIf

					Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
				Else
					
						If Seeker.CreditCard = 1 Then
					
							CashlessReq SUCCESS
							;CashlessReq FAIL

						EndIf
						
						Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
					

				EndIf

			
			Else

				;no wait ack pay
				Var waitAckPay = 0 

				Var SVT = "coffee"
				Var ACC = "0899999999"
				Var DEE = PayDetail

				If Seeker.TNumberTaobinMember = "" Then
				Else
					Var ACC = Seeker.TNumberTaobinMember
				EndIf

				PAYEXT SVT ACC VendingTSIDTmp DEE

			EndIf
			
		EndIf

		__CMD "clear-stock-data" 0 "-" "-"


		Var ServiceSuccess = "yes"
		If  waitAckPay = 0 Then
			SAVELOG "waitAckPay=0"
			Open "ROOT/taobin_project/xml/page_drinkok.xml" 
		EndIf

	EndIf

	If MachineState_Result = 2 Then

		SAVELOG MachineStage

		If ErrTimeout = 0 Then
			Var ErrTimeout = 1

			If AddData = 1 Then
				Var Cid = 26
				AddData Cid Seeker.TNumberTaobinMember  Seeker.PointTaobinStr PointCrm GetScore
			EndIf


			If Seeker.PayWithQR = 0 Then 

				If Seeker.CreditCard = 1 Then
					CashlessReq FAIL
					Var ChangeFlag = 1 
					Var CreditCardVoid = 1
				Else

					If Seeker.CodeChannel = 0 Then
						If ChangeFlag = 0 Then
							Var ChangeFlag = 1 

							If Seeker.StoreCreditFlag = 1 Then
								Var ChangeOK = 2
							Else
								If GetFreeFromError = 1 Then
									Var ChangeOK = 2
								Else
									Change ServiceAmount2
								EndIf
								
							EndIf
								
						EndIf

					Else

						If CoinAmount > 0 Then
						
							If ChangeFlag = 0 Then
								Var ChangeFlag = 1 
								Var ServiceAmount3 = ServiceAmount2 - Seeker.IntVendingCampaign

								If Seeker.StoreCreditFlag = 1 Then
									Var ChangeOK = 2
								Else
									Change ServiceAmount3
								EndIf
								
							EndIf
						Else
							Var ChangeOK = 2
						EndIf


					EndIf

				EndIf

			Else
				Var ChangeOK = 3
			EndIf

			

			
			
					



			

			;OpenInst 0 "/mnt/sdcard/coffeevending/taobin_project/xml/page_drinkfail.xml"
			
			;OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/page_advert.xml"
			
			;OpenInst 1 "/mnt/sdcard/coffeevending/taobin_project/xml/test_video_loop.xml"
			;Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_list.xml"
			
		EndIf
	EndIf

	
	If MachineStage = "close-maintenance" Then
		If MachineState_Result = 0 Then
			SAVELOG "back_to_main from line  > 663."
			Var MachineState_Result = 2
		EndIf
	EndIf
	
	If MachineStage = "drink-success" Then
		Var MachineState_Result = 1
	EndIf

	If MachineStage = "drink-failed" Then
		If RoadShow = "true" Then
			Open "ROOT/taobin_project/xml/page_back_to_error.xml"
		Else
			SAVELOG " drink-failed...."
			Var MachineState_Result = 2
		EndIf
	EndIf

	If MachineState_Result > 0 Then
		Var SelectMenuBetweenBrewEnable1 = "Invisible"
	EndIf

	If SelectMenuBetweenBrewEnable1 = "Enable" Then 
		If SelectMenuBetweenBrewEnable1Blink = "Enable" Then 
			Var SelectMenuBetweenBrewEnable1Blink = "Invisible"
		Else
			Var SelectMenuBetweenBrewEnable1Blink = "Enable"
		EndIf
		
	Else
		If SelectMenuBetweenBrewEnable2 = "Enable" Then 
			If SelectMenuBetweenBrewEnable1Blink = "Enable" Then 
				Var SelectMenuBetweenBrewEnable1Blink = "Invisible"
			Else
				Var SelectMenuBetweenBrewEnable1Blink = "Enable"
			EndIf
			
		Else
			Var SelectMenuBetweenBrewEnable1Blink = "Invisible"
		EndIf
	EndIf
	
	DEBUGVAR CountUpBrewing

	; animation video loop
	If AnimationOn = "true" Then

		If adver_brewing_playing = 1 Then

			If adver_brewing_play_index = 2 Then
				DEBUGVAR adver_brewing_count_down

				If adver_brewing_count_down > 0 Then
					Var adver_brewing_count_down = adver_brewing_count_down - 1
					
					
					Var PictureFile = brew_txt1

				EndIf

				If adver_brewing_count_down = 0 Then

					GetFileSizeK "taobin_project/video/brewing_adv3.mp4" brewing_adv_size	
					DEBUGVAR brewing_adv_size
					If brewing_adv_size = 8321419 Then
						Var adver_brewing_play_index = 1
						Var adver_brewing_count_down = 20
					Else
						Var adver_brewing_play_index = 1
						Var adver_brewing_count_down = 0
					EndIf				
				
					If ShowPromoitonOreo = 1 Then

					Else
						Var adver_brewing_play_index = 1
						Var adver_brewing_count_down = 0
					EndIf 
				EndIf
			EndIf

			If adver_brewing_play_index = 1 Then
				DEBUGVAR adver_brewing_count_down

				If adver_brewing_count_down > 0 Then
					Var adver_brewing_count_down = adver_brewing_count_down - 1
		
					Var VideoPlayFile = "ROOT/taobin_project/video/brewing_adv3.mp4"
					
					Var PictureFile = brew_txt2

				EndIf

				If adver_brewing_count_down = 0 Then
					Var adver_brewing_play_index = 0
					Var adver_brewing_playing = 0
				EndIf
			EndIf

			DEBUGVAR VideoPlayFile

		Else
			Var CountUpBrewing = CountUpBrewing + 1

			;CampaignEnable
			Var SlotVideo = CountUpBrewing / AnimationVideoPlayTime
			
			If PreviseStepVideo = SlotVideo Then
				;SAVELOG SlotVideo
			Else
				Var PreviseStepVideo = SlotVideo
				;SAVELOG PreviseStepVideo
				;SAVELOG SlotVideo
				;SAVELOG CountUpBrewing

				;Var CountDownVideoTime = CountDownVideoTimeReload
				
				Var StepVideo = SlotVideo + 2
				
				;SAVELOG StepVideo

				If StepVideo = 1 Then
					Var videoID = VideoID1
				EndIf
				If StepVideo = 2 Then
					Var videoID = VideoID2
				EndIf
				If StepVideo = 3 Then
					Var videoID = VideoID3
				EndIf
				If StepVideo = 4 Then
					Var videoID = VideoID4
				EndIf
				If StepVideo = 5 Then
					Var videoID = VideoID5
				EndIf
				If StepVideo = 6 Then
					Var videoID = VideoID6
				EndIf
				If StepVideo = 7 Then
					Var videoID = VideoID7
				EndIf
				If StepVideo = 8 Then
					Var videoID = VideoID8
				EndIf
				If StepVideo = 9 Then
					Var videoID = VideoID9
				EndIf

				;SAVELOG videoID

				If videoID = 0 Then

				Else
					If videoID = "---" Then

					Else

						Var VideoPlayFile = VideoPath
						Var VideoPlayFile = VideoPlayFile + VideoFileBegin
						Var VideoPlayFile = VideoPlayFile + videoID
						Var VideoPlayFile = VideoPlayFile + VideoFileEnd

						Var PictureFile = PicturePath
						Var PictureFile = PictureFile + PictureBegin
						Var PictureFile = PictureFile + videoID
						Var PictureFile = PictureFile + PictureEnd
						
						DEBUGVAR VideoPlayFile
						DEBUGVAR PictureFile
					EndIf
				EndIf
			EndIf
		EndIf 
		; CampaignEnable
	EndIf


	If IgnoreNetCore = "true" Then 
		If CountDownBrewing = 0 Then
			SAVELOG "CountDownBrewing=0"
			Open "ROOT/taobin_project/xml/page_drinkok.xml"
		EndIf
	EndIf
	

	If RoadShow = "true" Then
		Var SelectMenuBetweenBrewEnable1Blink = "Invisible"  
	EndIf


	DEBUGVAR EnableGetMoreStrawFileName

	If EnableGetMoreStrawFileName = "PressForever" Then
		DEBUGVAR GetMoreStrawCount
		If GetMoreStrawCount > 0 Then 
			If EnableGetMoreStrawFileNameCountDown > 0 Then
				Var EnableGetMoreStrawFileNameCountDown = EnableGetMoreStrawFileNameCountDown - 1

				If EnableGetMoreStrawFileNameCountDown = 0 Then
					If NoLangObjectShow = "Enable" Then
						Var EnableGetMoreStrawFileName = "Enable"
					EndIf
				EndIf
			EndIf

		EndIf
	EndIf
		
	If GetMoreStrawCount <= 0 Then
		If StrawProblemStatus = 1 Then
			Var StrawProblemStatus = 2
			
			If NoLangObjectShow = "Enable" Then
				Var bg_strawProblem_ST = "Enable"
			EndIf
		EndIf

	EndIf

	If GetLidButtonCountDown > 0 Then
		Var GetLidButtonCountDown = GetLidButtonCountDown - 1
		DEBUGVAR GetLidButtonCountDown
	EndIf

	
	If NoLangObjectShow = "Enable" Then

		If GetLidButtonCountDown = 1 Then
			Var GetLidButtonState = "Invisible"
			Var bg_lidProblem_ST = "Enable"
			Var XStraw = 356

		EndIf
	EndIf


	Refresh
	TimerReset

</EventTimeout> 

<EventMachine>
	
	;If MachineStage = "drink-success" Then
	;	Open "ROOT/taobin_project/xml/page_drinkok.xml" 
	;EndIf
	;If MachineStage = "drink-failed" Then
	;	Open "ROOT/taobin_project/xml/page_drinkfail.xml" 
	;EndIf

	If MachineStage = "drink-success" Then
		Var MachineState_Result = 1
	EndIf

	
	DEBUGVAR MachineStage

	If MachineStage = "drink-failed" Then
		If RoadShow = "true" Then
			Open "ROOT/taobin_project/xml/page_back_to_error.xml"
		Else
			SAVELOG "Event Machine drink fail"
			Var MachineState_Result = 2
		EndIf
	EndIf

	Refresh
	
</EventMachine>

; this copy in file menu_brew2.xml and menu_lid_straw.xml
<EventChangeStatus>
	If ChangeStatus = "payout-end" Then 
		If ChangeFlag = 1 Then
			Var ChangeOK = 2
		EndIf
	EndIf
</EventChangeStatus>

<Video>
<X> 0 </X>
<Y> 380 </Y>
<Width> 1080</Width>
<Height> 840 </Height>
<Refresh> "Reload" </Refresh>
<Loop> "true" </Loop>
<Filename> VideoPlayFile </Filename>
</Video>

<Video>
<X> 0 </X>
<Y> 0 </Y>
<Width> 1080</Width>
<Height> 380 </Height>
<Loop> "true" </Loop>
<Filename> video_menu_0 </Filename>
</Video>



<Image>
<X> 60 </X>
<Y> 1290 </Y>
<State> NoLangObjectShow </State>
<Filename> PictureFile</Filename>
</Image>



<Image>
<X> 0 </X>
<Y> 1655 </Y>
<State> SelectMenuBetweenBrewEnable1 </State>
<Filename> text_next_order </Filename>
<Image>
<Text>
<X> 0 </X>
<Y> 1655 </Y>
<Width> 1080 </Width>
<State> SelectMenuBetweenBrewEnable2 </State>
<Language>
	<ID> 000408 </ID>
</Language>
</Text>


<Image>
<X> 835 </X>
<Y> 1735 </Y>
<State>SelectMenuBetweenBrewEnable1Blink</State>
<Filename> "ROOT/taobin_project/image/page_payment/arrow_1.png" </Filename>
<Image>



; zone show time remaining
<Image>
<X> 751 </X>
<Y> 413 </Y>
<Filename> IMG_CNT </Filename>
</Image>
;
<Text>
<X> XPosiShowCountDownBrew </X>
<Y> 470 </Y>
<Align> End </Align>
<Width> 153 </Width>
<Size> 88 </Size>
<Font> RobotoBold </Font>
<Color> 0x513C2F </Color>
<Value> ShowCountDownBrewing </Value>
</Text>

<Text>
<X> 816 </X>
<Y> 429 </Y>
<State> LanguageObjectShow </State>
<Language>
	<ID> 000405 </ID>
</Language>
</Text>
<Text>
<X> 941 </X>
<Y> 518 </Y>
<State> LanguageObjectShow </State>
<Language>
	<ID> 000406 </ID>
</Language>
</Text>

<EventUnitTest1>
	Var BREW_COUNT_DOWN_FROM_APP = "off"
	Var CountDownBrewing = 121
</EventUnitTest1>
;
;
;
;
;
;
; Next Order
;
<Button>
<X> 733 </X>
<Y> 1787 </Y>
<State>SelectMenuBetweenBrewEnable1</State>
<Filename> next_pic_bn </Filename>
<FilenamePress> next_pic_bp </FilenamePress>
<EventClick> 
	If MachineState_Result = 0 Then
	
		SAVELOG "User click next button"

		Var Seeker = "next"
		Var MultiPayEnable = "false"
		CoinPause

		Open "ROOT/taobin_project/xml/page_catalog.xml" 
	EndIf
</EventClick> 
</Button>
<Button>
<X> 733 </X>
<Y> 1787 </Y>
<State>SelectMenuBetweenBrewEnable2</State>
<Filename> "ROOT/taobin_project/image/page_doing_inter/bn_next_order.png" </Filename>
<FilenamePress> "ROOT/taobin_project/image/page_doing_inter/bp_next_order.png" </FilenamePress>
<EventClick> 
	If MachineState_Result = 0 Then
	
		SAVELOG "User click next button"

		Var Seeker = "next"
		Var MultiPayEnable = "false"
		CoinPause

		Open "ROOT/taobin_project/xml/page_catalog.xml" 
	EndIf
</EventClick> 
<Language>
	<X> 0 </X>
	<Y> 20 </Y>
	<Width> 297 </Width>
	<Height> 96 </Height>
	<ID> 000407 </ID>
</Language>
</Button>

;
;
;
;
;
;
; Button Straw, More request and report.
;
<Button>
<X> XStraw </X>
<Y> 1787 </Y>
<State> EnableGetMoreStrawFileName </State>
<Filename> bnGetMoreStrawFileName </Filename>
<FilenamePress> bpGetMoreStrawFileName </FilenamePress>
<Mode> "No" </Mode>
<EventClick> 
	Var EnableGetMoreStrawFileNameCountDown = 5
	Var EnableGetMoreStrawFileName = "PressForever"
	Var GetMoreStrawCount = GetMoreStrawCount - 1

	DEBUGVAR GetMoreStrawCount

	If GetMoreStrawCount > 0 Then
		Machine Straw
	EndIf
</EventClick> 
</Button>

<Button>
<X> XStraw </X>
<Y> 1787 </Y>
<State>bg_strawProblem_ST</State>
<Filename>  bnStrawProblemReport </Filename>
<FilenamePress> bpStrawProblemReport </FilenamePress>
<EventClick> 

	Var strawStr = "แจ้งปัญหาไม่ได้รับหลอด"
	
	__CMD "straw-alert-disable" 0 strawStr "-"
 	__CMD "send-error-code" 1231 "-" "-"
	Var bg_strawProblem_ST = "Invisible"

	Refresh
</EventClick> 
</Button>
;
;
;
;
;
;
; Lid button, Get one and report
;
<Button>
<X> 14 </X>
<Y> 1787 </Y>
<State>bg_lidProblem_ST</State>
<Filename>  bnLidProblemReport </Filename>
<FilenamePress> bpLidProblemReport </FilenamePress>
<EventClick> 

	Var lidStr = "แจ้งปัญหาไม่ได้รับฝา"
	
	__CMD "lid-alert-disable" 0 lidStr "-"
 	__CMD "send-error-code" 1343 "-" "-"
	Var bg_lidProblem_ST = "Invisible"

	Refresh
</EventClick> 
</Button>

<Button>
<X> 14 </X>
<Y> 1787 </Y>
<State>GetLidButtonState</State>
<Mode> "No" </Mode>
<Filename>  bn_get_lid_image </Filename>
<FilenamePress> bp_get_lid_image </FilenamePress>
<EventClick> 

	If GetLidButtonState = "Enable" Then
		Machine Lid
		Var GetLidButtonCountDown = 12
	EndIf

	Var GetLidButtonState = "Press"

	Refresh
</EventClick> 
</Button>

<Button>
<X> 14 </X>
<Y> 1787 </Y>
<State>bg_lidProblem_ST2</State>
<Filename>  "ROOT/taobin_project/image/page_doing_inter/bn_send_report.png" </Filename>
<FilenamePress>"ROOT/taobin_project/image/page_doing_inter/bn_send_report.png" </FilenamePress>
<EventClick> 

	Var lidStr = "แจ้งปัญหาไม่ได้รับฝา"
	
	__CMD "lid-alert-disable" 0 lidStr "-"
 	__CMD "send-error-code" 1343 "-" "-"
	Var bg_lidProblem_ST2 = "Invisible"

	Refresh
</EventClick> 
<Language>
	<X> 0 </X>
	<Y> 20 </Y>
	<Width> 331 </Width>
	<Height> 96 </Height>
	<ID> 000400 </ID>
</Language>
</Button>

<Button>
<X> 14 </X>
<Y> 1787 </Y>
<State>GetLidButtonState2</State>
<Mode> "No" </Mode>
<Filename>  "ROOT/taobin_project/image/page_doing_inter/bn_get_lid.png" </Filename>
<FilenamePress>"ROOT/taobin_project/image/page_doing_inter/bp_get_lid.png" </FilenamePress>
<EventClick> 

	If GetLidButtonState2 = "Enable" Then
		Machine Lid
		Var GetLidButtonCountDown = 12
	EndIf

	Var GetLidButtonState2 = "Press"

	Refresh
</EventClick>
<Language>
	<X> 0 </X>
	<Y> 20 </Y>
	<Width> 232 </Width>
	<Height> 96 </Height>
	<ID> 000403 </ID>
</Language>
</Button>



</Popup>