<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<EventOpen>
	; On open

	TRY "/mnt/sdcard/coffeevending/taobin_project/xml/process/payext_setup.ev"


	Var CountDownThankyou = 4
	Var CountDownBrewing = BrewTime
	Var CountUpBrewing = 0
	SAVELOG BrewTime
	Var ShowCountDownBrewing = CountDownBrewing
	Var Timeout = 0
	Var ChangeFlag = 0
	Var ErrTimeout = 0
	Var ActionOKCase = 0
	Var ChangeTimeout = 0
	Var ChangeOK = 0
	
	Var MachineState_Result = 0

	Var FailedCount = 0
	Var ChangeAmountSum = 0
	
	Var Tel_Confirm_Flag = 0
	
	DEBUGVAR MachineStage
	DEBUGVAR NextOrderStatus

	If show_eng = "true" Then 
		Var ImageDoing = "ROOT/taobin_project/image/page_doing/img2_eng.png" 
		Var show_btp = "ROOT/taobin_project/image/bn_thai_lang_press.png"
		Var show_btn = "ROOT/taobin_project/image/bn_thai_lang.png"

		Var BottomText = PicturePath + "text_bottom_eng.png"
        Var TextErrorShow = "Sorry, unable to produce the next order"
	Else
		Var ImageDoing = "ROOT/taobin_project/image/page_doing/img2.png" 
		Var show_btp = "ROOT/taobin_project/image/bn_eng_lang_press.png"
		Var show_btn = "ROOT/taobin_project/image/bn_eng_lang.png"
		Var BottomText = PicturePath + "text_bottom_thai2.png"

        Var TextErrorShow = "เต่าบินขัดข้องไม่สามารถทำเครื่องดื่มได้"
	EndIf

	DEBUGVAR StarwState
	DEBUGVAR LidState
	DEBUGVAR BottomText

	DEBUGVAR Seeker.TNumberTaobinCredit
	DEBUGVAR TelephoneNumber
	DEBUGVAR Seeker.StoreCreditFlag


	DEBUGVAR Seeker
	DEBUGVAR Seeker.selected_a_drink
	DEBUGVAR Seeker.ServiceAmount2


    If Seeker = "curr" Then
    	SAVELOG " cannot on curr"
    	
		Var ExtendData = Seeker.ExtendData
		Var SessionID2 = SelectSlot + ":"
		Var SessionID2 = SessionID2 + Seeker.ExtendData
		
		DEBUGVAR SessionID2

		Topping "ClearNextOrder" "-"
	EndIf

    Var LastMakeDrinkResult = "fail"
    Var NextOrderStatus = "Disable"

	DEBUGVAR LastMakeDrinkResult
	DEBUGVAR MachineStage
	DEBUGVAR NextOrderStatus

	DEBUGVAR error_code_stop_now

    ; page_brewing3.xml
    DEBUGVAR MachineStage

    Var PayReference = ""
	Var PayType = ""
    

	Var SelectDrink = Seeker.selected_a_drink
	Var ServiceAmount2 = Seeker.ServiceAmount2
	Var PriceDrink = Seeker.ServiceAmount2


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

	Var Timeout = 0

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

	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

	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 

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

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


	DEBUGVAR VendingCampaign

	Var CreditCardVoid = 0
	__CMD "PayWasSent" Seeker.ORDER_ID "-" "-"
	
</EventOpen>

<EventActionOk>

	If CreditCardVoid = 1 Then
		Var ChangeOK = 2
	EndIf

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

			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

	
</EventActionOk>

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

			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

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

	If Timeout > 480 Then
		Var MachineState_Result = 2
	EndIf

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


	If  waitAckPay = 2 Then  
		If Timeout > 10 Then

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

				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

			; Reject by app close order
			; XML must send pay detail by myself.
			SAVELOG " Cannot conti with new payment"
			
			If NextOrderStatus = "Disable" Then
				Var PayDetail="1/F:1221/0/"
				Var PayDetail = PayDetail + "/XML|"
				Var PayDetail = PayDetail +  Seeker.OrderChanel
			Else
				DEBUGVAR error_code_stop_now

				If error_code_stop_now > 0 Then
					Var PayDetail = "1/F:" + error_code_stop_now
					Var PayDetail = PayDetail + "/0/"
					Var PayDetail = PayDetail + "/XML|"
					Var PayDetail = PayDetail +  Seeker.OrderChanel
				Else

					Var PayDetail = "1/" + HURR_FOREVER
					Var PayDetail = PayDetail + "/"  
					Var PayDetail = PayDetail + ""
					Var PayDetail = PayDetail + "/"
					Var PayDetail = PayDetail + ""
					Var PayDetail = PayDetail + "/XML|"
					Var PayDetail = PayDetail +  Seeker.OrderChanel
				EndIf
			EndIf


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

			Var VendingDiscount = 0
			Var VendingCampaign = 0
			Var PayDetail = ""
			Var PayDetail2 = ""
			Var VendingOrderID = Seeker.ORDER_ID
			Var ServiceRefund = 0
			Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceRefund ServiceCharge Donate

			Var waitAckPay = 2
			Var Timeout = 5
			Var ActionOKCase = 1
			

			__CMD "send-pay-detail-now" error_code_stop_now PayDetail "-"
		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

			SAVELOG " Cannot conti with new payment ChangeTimeout > 30 "
			
			Var ServiceType = "coffee-refund"
			Var ServiceCredit = SelectDrink
			Var SuggestID  = ""
			Var SessionID2 = ""

			Var VendingDiscount = 0
			Var VendingCampaign = 0
			Var PayDetail = ""
			Var PayDetail2 = ""
			Var VendingOrderID = Seeker.ORDER_ID
			Var ServiceRefund = 0
			Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceRefund ServiceCharge Donate

			Var waitAckPay = 2
			Var Timeout = 5
			Var ActionOKCase = 1

		EndIf
	EndIf

	DEBUGVAR MachineState_Result
	DEBUGVAR ChangeOK
	

	If ChangeOK = 3 Then
		If ActionOKCase = 0 Then

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

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


			DEBUGVAR error_code_stop_now
			If error_code_stop_now > 0 Then
				Var PayDetail="1/F:" + error_code_stop_now
				Var PayDetail = PayDetail + "/0/"
				Var PayDetail = PayDetail + "/XML|"
				Var PayDetail = PayDetail +  Seeker.OrderChanel
			Else
				
				Var PayDetail = "1/" + HURR_FOREVER
				Var PayDetail = PayDetail + "/"  
				Var PayDetail = PayDetail + ""
				Var PayDetail = PayDetail + "/"
				Var PayDetail = PayDetail + ""
				Var PayDetail = PayDetail + "/XML|"
				Var PayDetail = PayDetail +  Seeker.OrderChanel

			EndIf
			

			Var DEE = PayDetail

			
			DEBUGVAR PayDetail
			DEBUGVAR PayDetail2
			DEBUGVAR SVT
			DEBUGVAR ACC
			DEBUGVAR VendingTSIDTmp
			
			
			__CMD "send-pay-detail-now" error_code_stop_now PayDetail "-"
			;PAYEXT SVT ACC VendingTSIDTmp DEE

			
			Var ActionOKCase = 1
			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 = 2 Then

		SAVELOG MachineStage

		If ErrTimeout = 0 Then
			Var ErrTimeout = 1

			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

			
		EndIf
	EndIf

	
	Refresh
	TimerReset

</EventTimeout> 


;<Image>
;<X> 0 </X>
;<Y> 0 </Y>
;<Filename> "ROOT/taobin_project/image/ad_medium_2.png" </Filename>
;</Image>

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


<Text>
<X> 0 </X>
<Y> 427 </Y>
<Width> 1080 </Width>
<Align> Center </Align>
<Size> 46 </Size>
<Font> RobotoBlack </Font>
<Color> 0x513C2F </Color>
<Refresh> "Enable" </Refresh>
<Value> TextErrorShow </Value>
</Text>


<Image>
<X> 375 </X>
<Y> 623 </Y>
<Width> 331 </Width>
<Height> 435 </Height>
<Filename> Seeker.PictureDrink </Filename>
</Image>

<Text>
<X> 0 </X>
<Y> 938 </Y>
<Width> 1080</Width>
<Align> Center </Align>
<Size> 72 </Size>
<Font> KanitMediumTTF </Font>
<Color> 0x513C2F </Color>
<Value> Seeker.showname </Value>
</Text>

<EventChangeStatus>
	If ChangeStatus = "payout-end" Then 
		If ChangeFlag = 1 Then
			Var ChangeOK = 2
		EndIf
	EndIf
</EventChangeStatus>


</Popup>