<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<EventOpen>
	; On open

	

	;Open "ROOT/taobin_project/xml/page_display_ExclusiveGift.xml"

	Var IndoQR = 0



	Var GetPayInfoFlag = 0
	Var SessionID2 = ""
	Var testservice = "kbank"
	Var QRCODE99 = ""
	Var QRCODETMP = ""

	Var QRChannel = 0

	;Var PriceDrink = 2

	Var DiscountDrink = 0
	Var SelectSlot = "1"

	SAVELOG BoxID

	Var ServiceCharge = 0

	Var AdultFlag = 0 

	If SelectDrink = "12-05-02-0028" Then
		Var AdultFlag = 1
	EndIf
	If SelectDrink = "12-05-02-0029" Then
		Var AdultFlag = 1
	EndIf
	If SelectDrink = "12-05-03-0028" Then
		Var AdultFlag = 1
	EndIf
	If SelectDrink = "12-05-03-0029" Then
		Var AdultFlag = 1
	EndIf
	If SelectDrink = "12-02-01-0017" Then
		Var AdultFlag = 1
	EndIf
	If SelectDrink = "12-05-02-0027" Then
		Var AdultFlag = 1
	EndIf
	If SelectDrink = "12-05-03-0027" Then
		Var AdultFlag = 1
	EndIf

	If CustomerFilterEnable = "YES" Then
		Var AdultFlag = 1

		DEBUGVAR CustomerFilterType
	EndIf

	;Var AdultFlag = 1



	Var QRCODE1 = "A000000677010112"
    Var QRCODE2 = "010755600066301"
    Var QRCODE3 = "VDGN"
    Var QRCODE4 = BoxID
    Var QRCODE5 = SelectSlot
    Var QRCODE6 = SelectDrink                
    Var QRCODE7 = PriceDrink 
    Var QRCODE8 = ""
   
    Var CountStepPackPayment = 0
    Var CountStepForCupFlagDelay = 1

	Var VendingBank = "other"
	Var ReqPayInfoFromCashOther = 0


	

	Var Seeker.PromotionIDCurrentOrder = 0

	Var Seeker.TxRef1 = ""
	Var Seeker.OrderChanel = "Normal"
	
	Var Seeker.CurrCreditAmount = 0
	Var Seeker.CurrCreditUse    = 0
	Var Seeker.CurrCreditTelNum = ""
	Var Seeker.CurrCreditPinNum = ""


	Var Seeker.TaobinErrorNetwork = 0

	Var Seeker.VendingCode = "C00"
	Var Seeker.VendingCampaignRI3 = 0
	Var Seeker.IntVendingCampaign = 0
	Var Seeker.FreeVendingCampaign = 0
	Var Seeker.CodeChannel = 0
	Var CoinVendingOnFlag = 0 
	Var Seeker.CreditCard = 0
	Var Seeker.CreditCardRef = ""

	Var Seeker.IntVendingCredit = 0
	
	Var Seeker.StoreCreditFlag = 0
	Var Seeker.pageStoreCredit0 = 0
	Var Seeker.TNumberTaobinCredit = ""
	Var Seeker.TNumberTaobinMember = ""
	Var Seeker.CoffeePinNumber = ""
	
	Var Seeker.VendingDiscount = 0
	Var Seeker.VendingCampaign = 0
	Var Seeker.VendingTSID = ""

	
	Var PayType = ""
	Var CART_INDEX = 0

	Var QRCODE99KBANK = ""
	Var QRCODE99Shoppy = ""
	Var LOADING_STATE = "Invisible"
	Var QR_POPUP = "/img_popup2.png"

	If show_eng = "true" Then 
		Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment"
		Var PlaySoundLag = "ROOT/taobin_project/sound_eng/How_would_you_like_to_pay.mp3"
		Var PlaySoundCodeLang = "ROOT/taobin_project/sound_eng/Code8digit.mp3"


	Else
		Var DirImage = "ROOT/taobin_project/image/page_payment"
		Var PlaySoundLag = "ROOT/taobin_project/sound_thai/payment.mp3"
		
		; Play Sound #zone
		If SoundBackToSchoolEnable = 1 Then
			
			If SoundBackToSchoolType = 1 Then 
				Var RootPathSoundBackToSchool = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/boy/"
			EndIf
			If SoundBackToSchoolType = 2 Then 
				Var RootPathSoundBackToSchool = "/mnt/sdcard/coffeevending/taobin_project/sound_thai/girl/"
			EndIf
			Var PlaySoundLag = RootPathSoundBackToSchool + "payment.wav"
		EndIf
		
		
		Var PlaySoundCodeLang = "ROOT/sounds/Code8digit.m4a"
	EndIf



	SAVELOG MachineStage

	
	If AdultFlag = 1 Then
		If CameraCount = 1 Then
			CameraSetting "usbfront" "default" "Rotate=90,Resolution=1280x720,scaleX=1.0,scaleY=1.0"
		EndIf

		 Var PlaySoundLag = ""

	EndIf


	READ_FILE "/mnt/sdcard/can_sell" ReadyForBrew

	If ReadyForBrew = "false" Then
		Open "ROOT/taobin_project/xml/page_back_to_main.xml"
		Var ReadyForBrew = "false"
	EndIf


	
	; Test
	;Var MachineStage = "-"

	Var PayReference = ""
	Var	Seeker.CreditReferenceTmp = ""

	If web_app_prepar = "true" Then
		Var web_app_prepar = "false"
		__CMD "ui-load-playlist" 0 SelectDrink "-"
	EndIf




	Var ServiceAmount2 = PriceDrink
	Var TelephoneNumber = "0899999999"
	Var ServiceType = "coffee"

	Var VendingCreditRemain = ""
	


	DEBUGVAR Seeker.thankLidFlag
	DEBUGVAR Seeker.thankStrawFlag

	Var Seeker.PayWithQR = 0
	Var Seeker.CampaignPayChanel = "cash"
	Var Seeker.CampaignPCode = SelectDrink
	Var Seeker.CampaignPPrice = PriceDrink

	If CupChecking = "true" Then
		Var StageShowAlias = "Invisible"
		Var StageShowLoading = "Enable"
	Else
		Var StageShowAlias = "Enable"
		Var StageShowLoading = "Invisible"
	EndIf


	Var Delay = 0
	Var DelayCount = 0

	DEBUGVAR SelectDrink

	Var NOCashFlag = 0

	If SELLSTATUS = "SELLNOCASH" Then
		Var NOCashFlag = 1
	EndIf


	If SongkranEnable = 1 Then
		If UserSelectProductCode = "12-01-02-0054" Then
			Var PromotionIDCurrentOrder = 3
		EndIf
		If UserSelectProductCode = "12-01-02-0053" Then
			Var PromotionIDCurrentOrder = 3
		EndIf
		If UserSelectProductCode = "12-02-02-0043" Then
			Var PromotionIDCurrentOrder = 3
		EndIf
		If UserSelectProductCode = "12-02-02-0044" Then
			Var PromotionIDCurrentOrder = 3
		EndIf
		If UserSelectProductCode = "12-03-02-0026" Then
			Var PromotionIDCurrentOrder = 3
		EndIf
		If UserSelectProductCode = "12-05-02-0055" Then
			Var PromotionIDCurrentOrder = 3
		EndIf
		If UserSelectProductCode = "12-05-02-0056" Then
			Var PromotionIDCurrentOrder = 3
		EndIf

		If SystemDateMonthInt = 5 Then
			Var PromotionIDCurrentOrder = 0
		EndIf
	EndIf



	Var RemainAmountStr = ""


	If ChildrenFree = 1 Then

		Var RemainAmountStr = "Free###size=150"

		Var Seeker.VendingCode = "MKFO"
		Var Seeker.IntVendingCampaign = PriceDrink
		Var Seeker.FreeVendingCampaign = 1
		Var Seeker.CodeChannel = 1
		Var Seeker.CodeNumber = IDNum


		Var Cid = 29
    	Var PointCrm = "1"
    	Var GetScore = "1"
		AddData Cid TelephoneNumber  IDNum PointCrm GetScore

		;If Seeker = "curr" Then	
		;
		;	MakeDrinkV1  SelectDrink SelectSugarID
		;	Var TxRef1 = ""
		;	CreateTxRef1 TxRef1
		;Else
		;	Var TxRef1 = ""
		;	CreateTxRef1 TxRef1
		;	
		;	Var DrinkPaid = SelectDrink
		;	Var PaidPaymentFromNextStage = 1
		;	
		;EndIf
		;Open "ROOT/taobin_project/xml/page_thankyou.xml" 
		Open "ROOT/taobin_project/xml/page_payment_cash.xml"



	EndIf



	; Oreo free 
	If PromotionIDOreoBuyTwoSaveMore = 1 Then
		Var PromotionIDOreoBuyTwoSaveMore = 0
		Var PromotionIDCurrentOrder = 2
	EndIf
				
	If PromotionIDCurrentOrder = 2 Then
		SAVELOG "Promotion: Oreo Get 1 Free 1"
	EndIf
	DEBUGVAR PromotionIDCurrentOrder

</EventOpen>
<Timeout> 900 </Timeout>
<EventTimeout> 


	If Seeker = "curr" Then
		If web_ready = "false" Then
			If Delay = 0 Then
				If MachineStage = "remove-cup" Then
					SAVELOG "MachineStage = remove-cup"
					If HaveCup = "true" Then
						Open "ROOT/taobin_project/xml/page_back_to_remove_cup.xml"
					EndIf

				EndIf
				
				If CupChecking = "true" Then
					If HaveCup = "true" Then
						SAVELOG "Have cup"
						Open "ROOT/taobin_project/xml/page_back_to_remove_cup.xml"
					EndIf
				EndIf

				If DoorCupPosition = "bottom" Then

				Else
					SAVELOG "DoorCupPosition not bottom"
					Open "ROOT/taobin_project/xml/page_back_to_remove_cup.xml"
				EndIf
			EndIf
		EndIf
	Else

	EndIf

	;If CupChecking = "true" Then
	;	Var CountStepForCupFlagDelay = 3
	;EndIf 
	
	If HaveCup = "true" Then
		;Var CountStepForCupFlagDelay = 3
	EndIf
	
	If ReadyForBrew = "false" Then
		Open "ROOT/taobin_project/xml/page_back_to_main.xml"
		Var ReadyForBrew = "false"
	EndIf

	If Seeker = "curr" Then
		If MachineStage = "remove-cup" Then
			SAVELOG "MachineStage = remove-cup 2"
			Open "ROOT/taobin_project/xml/page_back_to_remove_cup.xml"

		EndIf
	EndIf
	
	If CupChecking = "false" Then
			Var CountStepPackPayment = CountStepPackPayment + 1
	EndIf

	;Var CountStepPackPayment = 1

	DEBUGVAR Seeker
	DEBUGVAR HaveCup
	DEBUGVAR CupChecking
	DEBUGVAR CountStepPackPayment
	DEBUGVAR CountStepForCupFlagDelay



	If CountStepPackPayment = CountStepForCupFlagDelay Then
		If Seeker = "curr" Then
			Var Seeker.ExtendData = ExtendDataCurr
		Else
			Var Seeker.ExtendData = ExtendDataNext
		EndIf
		DEBUGVAR Seeker
		DEBUGVAR Seeker.ExtendData

		If GetPayInfoFlag = 0 Then
			SaveLog "RoadShow test"
			If RoadShow = "false" Then
				;CoinVending ON


				If AdultFlag = 1 Then
					Var CoinAmount = 0 
				Else
					If NOCashFlag = 0 Then
						CoinVending XBILL
					Else
						Var CoinAmount = 0 
					EndIf
				EndIf
				;Var CoinAmount = 0
				Var Delay = 1
			Else
				Var Delay = 1
			EndIf

			
			Var RemainAmount = 0



			Var SessionID2 = SelectSlot + ":"
			Var SessionID2 = SessionID2 + Seeker.ExtendData

		EndIf

		; Reset
		Var MachineState_Result = 0

		DEBUGVAR Seeker
		DEBUGVAR Seeker.ExtendData


	EndIf

	If Delay = 1 Then
		Var DelayCount = DelayCount + 1

		If DelayCount >= 2 Then
			If web_readyOK = "true" Then

				Var  Seeker.OrderChanel = "WebApp"
		
				Var  Seeker.selected_a_drink = SelectDrink
				Var  Seeker.ServiceAmount2 = PriceDrink
				Var PayAmount = PriceDrink
		
				If web_payment = "CODE" Then
					Open "ROOT/taobin_project/xml/page_payment_code.xml"
				EndIf
		
				If web_payment = "CREDIT" Then
					Open "ROOT/taobin_project/xml/page_payment_credit.xml"
				EndIf
		
			EndIf

			Open "ROOT/taobin_project/xml/page_payment_cash.xml"
		EndIf
	EndIf



	TimerReset
	Refresh
</EventTimeout> 


<Video>
<X> 0 </X>
<Y> 0 </Y>
<Width> 1080</Width>
<Height> 380 </Height>
<Loop> "true" </Loop>
<Filename> video_menu_0 </Filename>
</Video>



<Image>
<State> StageShowAlias</State>
<X> 375 </X>
<Y> 623 </Y>
<Width> 331 </Width>
<Height> 435 </Height>
<Filename> PictureDrink </Filename>
</Image>

<Text>
<State> StageShowAlias</State>
<X> 0 </X>
<Y> 938 </Y>
<Width> 1080</Width>
<Align> Center </Align>
<Size> 72 </Size>
<Font> KanitMediumTTF </Font>
<Color> 0x513C2F </Color>
<Value> showname </Value>
</Text>

<Text>
<State> StageShowAlias</State>	
<X> 0 </X>
<Y> 1022 </Y>
<Width> 1080</Width>
<Align> Center </Align>
<Size> 24 </Size>
<Font> KanitLightTTF </Font>
<Color> 0x6F5F51 </Color>
<Value> showdesc </Value>
</Text>

<Image>
<State> StageShowAlias</State>
<X> 144 </X>
<Y> 413 </Y>
<Filename> Var( DirImage + "/text_1.png" ) </Filename>
</Image>

<GIF>
<X> 493 </X>
<Y> 968 </Y>
<State>StageShowLoading</State>
<Width> 94 </Width>
<Height> 94 </Height>
<Filename> Var( DirImage + "/loading.gif" )</Filename>
</GIF>

<Image>
<State>StageShowLoading</State>
<X> 267 </X>
<Y> 1065 </Y>
<Filename> Var( DirImage + "/loadingText.png" )</Filename>
</Image>

<Text>
<X> 0 </X>
<Y> 1041 </Y>
<Size> 144 </Size>
<Align> Center </Align>
<Width> 1080 </Width>
<Font> KanitRegularTTF </Font>
<State> "Enable" </State>
<Color> 0xDE794E </Color>
<Value> RemainAmountStr </Value>
</Text>


</Popup>