taobin_project/xml/page_payment_cashMore.xml

<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xFFFFFF" </Background>
<Volume> SoundVolume </Volume>
<Sound> PlaySoundLag </Sound>
<EventOpen>
	Var countClick2 = 0
	;SAVELOG SelectDrink
	;SAVELOG NameDrink
	;SAVELOG NameDrinkTH
	;SAVELOG DrinkDescription
	SAVELOG PriceDrink
	;SAVELOG topping1
	;SAVELOG topping2
	;SAVELOG topping3

	DEBUGVAR video_menu_0
	

	Var FlagQROpened = 0
	Var PayInfoCFlag = 0
    Var ActionOKCase = 0
	Var VendingCampaign = Seeker.IntVendingCampaign 
	Var Seeker.VendingCampaign = Seeker.IntVendingCampaign 

	Var PayAmount = PriceDrink

	Var LOADING_STATE = "Invisible"

	Var cancelState = "Invisible"
	
	; Below original 
	; On open
	Var alphaState = "Invisible"
	Var alphaState2 = "Invisible"
	Var alphaState3 = "Invisible"

	
	Var CoinInFlag = 0
	;Var CoinAmount = 0
	Var CancelFlag = 0
	Var CancelCounter = 0
	Var CoinInCounter = 0
	Var CancelNumber = 3
	
	Var PayAmount = PriceDrink
	Var RemainAmount = PayAmount - Seeker.IntVendingCampaign 
	Var RemainAmount = RemainAmount - CoinAmount
	Var RemainAmount = RemainAmount - Seeker.IntVendingCredit
	Var RemainAmountStr = "" + RemainAmount
	Var Timeout = 0
	Var PayOK = 0
	Var ChangeOK = 0
	Var CoinInOK = 0

	Var RemainAmountKeep = 0
	
	Var showRemaining = charOfBaht + RemainAmountStr

   
	
	Var VendingREFID = ""
	
	Var TelephoneNumber = "0899999999"
	Var ServiceType = "coffee"

	Var ServiceCredit = SelectDrink
	Var ServiceAmount2 = PayAmount
	Var ServiceCharge = 0
	Var	Donate = "" 
	Var SuggestID  = ""
	Var CancleState = "Enable"

	Var Seeker.VendingDiscount = DiscountDrink
	

	Var CashTextWarning = "" 
	Var QRErrorState = "Invisible"
	Var QRErrorFlag = 0


	SAVELOG SelectDrink

	SAVELOG QRChannel
	SAVELOG QRCODE99

	SAVELOG VendingCampaign
	SAVELOG Seeker.VendingCode
	SAVELOG Seeker.CodeChannel


	If Seeker.VendingCode = "C00" Then
		Var Seeker.CodeChannel = 0
	EndIf
	

	If RoadShow = "false" Then 
		If QRChannel = 0 Then
			;Var VendingQRCode = "ERROR"
			VendingQR ON
			If CoinVendingOnFlag = 0 Then
				;CoinVending ON
				Var CoinVendingOnFlag = 1
			Else

			

			EndIf
			;Var QRCODE99 = ""
			

		Else
			;Var VendingQRCode = "OK"
			VendingQR ON
			CoinVending OFF
			Var QRCODE99 = QRCODETMP
			Var RemainAmountStr = ""
			Var CashTextWarning = ""


			If QRCODE99 = "" Then
				Var CashTextWarning = "ระบบ Promtpay ไม่สามารถใช้งานได้ในขณะนี้"
				Var QRErrorState = "Enable"
			Else
				Var QRErrorState = "Invisible"
			EndIf

			

	EndIf
	EndIf


	If RoadShow = "true" Then
		Var PayState1 = "Enable"
		Var PayState2 = "Invisible"
		Var PayState3 = "Invisible"
		Var PayState4 = "Invisible"
		Var PayState5 = "Invisible"
		Var showRemaining = "Free"
	
	Else
		Var PayState1 = "Enable"
		If Seeker.IntVendingCampaign = 0 Then
			Var PayState2 = "Enable"
			Var PayState4 = "Enable"
			Var PayState5 = "Enable"
		Else 
			Var PayState2 = "Disable"
			Var PayState4 = "Disable"
			Var PayState5 = "Disable"
		EndIf
		Var PayState3 = "Enable"
		
		

		If CoinAmount > 0 Then
			Var PayState2 = "Disable"
			Var PayState3 = "Disable"
			Var PayState4 = "Disable"
			Var PayState5 = "Disable"
			Var CoinInFlag = 1
		EndIf

		If Seeker.IntVendingCredit > 0 Then
			Var PayState2 = "Disable"
			Var PayState4 = "Disable"
			Var PayState5 = "Disable"
		EndIf


		Var showRemaining = charOfBaht + RemainAmountStr

		If show_eng = "true" Then 
			Var showRemaining = charOfBaht + RemainAmountStr
		Else
			Var showRemaining = RemainAmountStr + " บาท"
		EndIf

	EndIf

	


	Var Seeker.PayWithQR = 0
	Var NoGotoMenupage = "false"
		If show_eng = "true" Then 
			Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment_en/page_payment/bn_cash.png"
			Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment_en/page_payment/bp_cash.png"
		Else
			Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment/bn_cash.png"
			Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment/bp_cash.png"
		
		EndIf

	If RoadShow = "true" Then
		If show_eng = "true" Then 
			Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment_en/page_payment/bn_cash_2.png"
			Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment_en/page_payment/bp_cash_2.png"
		Else
			Var FilenameShowbuttonCashBN = "ROOT/taobin_project/image/page_payment/bn_cash_2.png"
			Var FilenameShowbuttonCashBP = "ROOT/taobin_project/image/page_payment/bp_cash_2.png"
		EndIf
	EndIf

	If GetFreeFromError = 1 Then
		Var Seeker.FreeVendingCampaign = 1
		CoinVending OFF		
		MakeDrinkV1  SelectDrink SelectSugarID
		Open "ROOT/taobin_project/xml/page_thankyou.xml" 

	EndIf

	;If Seeker.IntVendingCampaign >= PayAmount Then 
	;	Var RemainAmount = 0
	;	Var RemainAmountStr = "" + RemainAmount
	;	CoinVending OFF		
	;	MakeDrinkV1  SelectDrink SelectSugarID
	;	Open "ROOT/taobin_project/xml/page_thankyou.xml" 
	;
	;EndIf

	If CoinInOK = 0 Then

		Var RemainAmount = PayAmount - CoinAmount
		Var RemainAmount = RemainAmount - Seeker.IntVendingCampaign
		Var RemainAmount = RemainAmount - Seeker.IntVendingCredit
		Var SumCoinAmount = CoinAmount + Seeker.IntVendingCampaign
		If SumCoinAmount >= PayAmount Then 
			;Var VendingQRCode = "ERROR"
			CoinVending OFF
			Var Canout = SumCoinAmount - PayAmount
			If Canout = 0 Then
				Var RemainAmountStr = 0
			Else
				Var RemainAmountStr = "ทอน " + Canout
			EndIf

			
			Var CancleState = "Disable"
			Var CoinInOK = 1
			Var CoinInCounter = 0



		Else
			Var RemainAmountStr = "" + RemainAmount
		EndIf

		;Var RemainAmount = 0

		Var showRemaining = charOfBaht + RemainAmountStr
		If RoadShow = "true" Then
			Var showRemaining = "Free"
		EndIf

	EndIf

	If show_eng = "true" Then 
		Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment"
		Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend_en"
		Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"

	Else
		Var DirImage = "ROOT/taobin_project/image/page_payment"
		Var DirImage2 = "ROOT/taobin_project/image/page_payment_cash_extend"
		Var page_doing_show_time_image = "ROOT/taobin_project/image/page_doing/img2.png"
	EndIf

	
	Var EnoughChange = "yes"

	

	If NetworkStatus = "DOWN" Then
	
			Var PayState2 = "Disable"
			Var PayState3 = "Disable"
			Var PayState4 = "Disable"
			Var PayState5 = "Disable"

			Var PayOfflineMode = 1
	Else
		Var PayOfflineMode = 0
	EndIf

	If NetworkStatus = "ACTIVATE" Then
		Var ShowNetworkProblem = "Invisible"
		Var ShowNetworkProblemText = ""
		
	Else
		Var ShowNetworkProblem = "Enable"
		Var ShowButtonClick2 = "Invisible"
		Var ShowNetworkProblemText = "การสื่อสารขัดข้อง ชำระเงินได้เฉพาะเงินสด"
	EndIf

	Var pay_with_credit_image = DirImage + "/bp_pay_with_credit.png"
	Var pay_with_chanel_text = DirImage + "/text_1.png"
	

	If DisableUsingCode = "true" Then
		SAVELOG "Diable code because using topping."
		Var PayState2 = "Disable"
		Var pay_with_code_image = DirImage + "/bp_pay_with_code_error.png"
	Else

		If Seeker.IntVendingCredit > 0 Then

			Var pay_with_code_image = DirImage + "/bp_pay_with_code_error2.png"
			Var pay_with_credit_image = DirImage + "/bp_pay_with_credit_error2.png"

			Var pay_with_chanel_text = DirImage + "/text_2.png"

		Else
			
			Var pay_with_code_image = DirImage + "/bp_pay_with_code.png"
		EndIf
	EndIf


	If CART_COUNT = 1 Then
		Var pay_with_code_imagebn =  "/bn_pay_with_code.png"
		Var pay_with_code_imagebp =  "/bp_pay_with_code.png"
	Else
		Var pay_with_code_imagebn =  "/bn_pay_with_codeSmall_error.png"
		Var pay_with_code_imagebp =  "/bn_pay_with_codeSmall_error.png"
		Var PayState2 = "Disable"
	EndIf


	Var cartNumText = "" + CART_COUNT
	If show_eng = "true" Then 
    	Var cartNumText = cartNumText + " cups"
	Else
		Var cartNumText = cartNumText + " แก้ว"
	EndIf
	Var PrepareFlag = 0
	Var PrepareTime = 0

	Var AddOrderState = "Enable"
	If CART_COUNT = 3 Then
		Var AddOrderState = "Invisible"
	EndIf

	If ShoppyPayEnable = "true" Then
	Else
		Var PayState5 = "Disable"
	EndIf

</EventOpen>

<EventActionOk>

	Var VendingQRTypeResult = ""
	
	DEBUGVAR ECommerceQR
	SPLIT  ECommerceQR "/"  5  VendingQRTypeResult

	If ActionOKCase = 0 Then 
		If VendingREFID = "" Then
			SAVELOG "menu_page4-QR.xml > ActOK_REFID"
			Refresh
		Else
			If ViewBill > 0 Then
				CoinVending BILLREJECT
			EndIf
			SAVELOG "menu_page4-QR.xml > ActOK_make"
			;Var VendingQRCode = "ERROR"
			;Coin STANDBY
			VendingQR OFF
			CoinVending OFF
			
				
			Cart "PreparID" 1
			Var CART_INDEX = 1
			Var PayReference = MultiTSID
			;GenHashWithTimeStamp PayReference
			Var Seeker.PayWithQR = 1
			Var Seeker.VendingTSID = VendingTSID
			
			Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif"
			Var BrewingTextThai = "เตรียมแก้ว"
			Cart "MakeID" CART_INDEX
			Open "ROOT/taobin_project/xml/page_thankyou.xml" 
				
		EndIf

		If ReqPayInfoFlag = 1 Then	
			If VendingQRTypeResult = "KBA:2" Then
				Var CashTextWarning = ""
				Var QRErrorState = "Invisible"
				Var QRCODE99KBANK = SessionID
				Var QRCODE99KBANK = QRCODE99KBANK + Ext1a
				SAVELOG Ext1a
				SAVELOG QRCODE99KBANK
				Var QRCODE99KBANK = QRCODE99KBANK + Ext21
				Var QRCODETMP = QRCODE99KBANK
				Var ReqPayInfoFlag = 0
				SAVELOG QRCODE99KBANK
				SAVELOG Ext21

				Var QRCODE99 = QRCODE99KBANK
				Var LOADING_STATE = "Invisible"
			EndIf
			
			
		EndIf

		If ReqPayInfoFlag = 2 Then	
			If VendingQRTypeResult = "AIR:2" Then
				Var CashTextWarning = ""
				Var QRErrorState = "Invisible"
				Var QRCODE99Shoppy = SessionID
				Var QRCODE99Shoppy = QRCODE99Shoppy + Ext1a
				SAVELOG Ext1a
				SAVELOG QRCODE99Shoppy
				Var QRCODE99Shoppy = QRCODE99Shoppy + Ext21
				Var ReqPayInfoFlag = 0
				SAVELOG QRCODE99Shoppy
				SAVELOG Ext21

				Var QRCODE99 = QRCODE99Shoppy
				Var LOADING_STATE = "Invisible"
			EndIf
		EndIf

	Else
		Var PayInfoCFlag = 1
    EndIf

</EventActionOk>

<EventActionError>

	If ActionOKCase = 0 Then 
		If ReqPayInfoFlag = 1 Then	
			Var QRErrorFlag = 1
			If alphaState = "Enable" Then
				Var QRErrorState = "Enable"
				Var LOADING_STATE = "Invisible"
			EndIf
		EndIf
		If ReqPayInfoFlag = 2 Then	
			Var QRErrorFlag = 1
			If alphaState = "Enable" Then
				Var QRErrorState = "Enable"
				Var LOADING_STATE = "Invisible"
			EndIf
		EndIf
	EndIf

	Refresh

</EventActionError>

<Timeout> 1000 </Timeout>
<EventTimeout> 
	If ReadyForBrew = "false" Then
		Open "ROOT/taobin_project/xml/page_back_to_main.xml"

	EndIf

	SAVELOG Timeout


	Var Timeout = Timeout + 1


	If Timeout >= 120 Then
	  Var alphaState = "Invisible"
	  Var PayState3 = "Disable"
	  Var PayState5 = "Disable"

	  Var LOADING_STATE = "Invisible"
	  Var QRErrorState = "Invisible"
	EndIf


	If Timeout > 210 Then
		If ActionOKCase = 1 Then
			Var PayInfoCFlag = 1
		EndIf
    EndIf

    If PayInfoCFlag = 1 Then
		If Seeker.CodeChannel = 1 Then  
			Var SessionID2 = SelectSlot + ":"
			Var SessionID2 = SessionID2 + 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 + "C00"
			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
		Open "ROOT/taobin_project/xml/page_catalog.xml"  
	EndIf


	If TestLoopMakeDrink = 1 Then 
		MakeDrinkV1  SelectDrink SelectSugarID
		Open "ROOT/taobin_project/xml/page_thankyou.xml" 
	EndIf
    


	If CoinInOK = 1 Then
		Var CoinInCounter = CoinInCounter + 1
		If CoinInCounter = 1 Then

			;Var ChangeOK = 1
			Var Timeout = 180
			Var PayOK = 1

		EndIf
	EndIf

	Var stringLog = "Timeout " + Timeout
	Var stringLog = stringLog + " PayOK"
	Var stringLog = stringLog + PayOK


	If Timeout > 180 Then
		If PayOK = 1 Then

			If PrepareFlag = 0 Then
			
				;MakeDrinkV1  SelectDrink SelectSugarID
				Cart "PreparID" 1
				Var CART_INDEX = 1
				Var PayReference = ""
				GenHashWithTimeStamp PayReference
				Cart "MakeID" CART_INDEX
				Open "ROOT/taobin_project/xml/page_thankyou.xml" 

			EndIf

		Else
			If CancelFlag = 0 Then
				SAVELOG "Timeout  > 180 s."
				Cart "DeleteMenuID" "ALL"
				

				If ViewBill > 0 Then
					CoinVending BILLREJECT
				EndIf

				CoinVending OFF
				Var CancelFlag = 1
				Var cancelState = "Enable"

				Var CancelCounter = 0
				If CoinAmount = 0 Then
					If Seeker.IntVendingCredit > 0 Then
							Var BmiYear = Seeker.IntVendingCredit
							Var GetScore = "useCredit"
							AddData 24 Seeker.TNumberTaobinCredit  BmiYear PointCrm GetScore
							Var Seeker.IntVendingCredit = 0
					EndIf

					If Seeker.IntVendingCampaign = 0 Then
						VendingQR OFF
						
						Open "ROOT/taobin_project/xml/page_back_to_main.xml"  
					EndIf
				EndIf
					
        	EndIf 
		EndIf
	EndIf


	If CancelFlag = 1 Then

		If Seeker.IntVendingCredit > 0 Then
			Var BmiYear = Seeker.IntVendingCredit
			Var GetScore = "useCredit"
			AddData 24 Seeker.TNumberTaobinCredit  BmiYear PointCrm GetScore
			Var Seeker.IntVendingCredit = 0
		EndIf

		Var CancelCounter = CancelCounter + 1
		If CancelCounter = CancelNumber Then
			;Change CoinAmount

			DEBUGVAR CoinAmount
			If CoinAmount > 0 Then
				If Seeker.StoreCreditFlag = 1 Then
					Var ChangeOK = 1 
				Else
					Change CoinAmount
				EndIf
				
			Else
				If ActionOKCase = 0 Then
					Var ActionOKCase = 1
					Var PayInfoCFlag = 1
				EndIf
			EndIf

			VendingQR OFF
		EndIf

		If CancelCounter >= 43 Then
			Var ChangeOK = 1 
		EndIf
	
	; This copy in file menu_catalog.xml
	
		If ChangeOK = 1 Then
			If ActionOKCase = 0 Then

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

				DEBUGVAR "TUBEKUNG"
				
				Var VendingDiscount = 0
				Var VendingCampaign = 0
				Var ServiceType = "credit"
				Var SessionID2 = SelectDrink
				Var ServiceCredit = "coffee"
				Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
				
				Var ActionOKCase = 1
				If Seeker.IntVendingCampaign = 0 Then
						
						Open "ROOT/taobin_project/xml/page_catalog.xml"  
				EndIf

			EndIf
		EndIf
	
	EndIf

	;Var CoinInCounter = CoinInCounter + 1
	;If CoinInOK = 1 Then
	;	If CoinInCounter = 3 Then
	;
	;		Var RemainAmount = PayAmount - CoinAmount
	;		If CoinAmount >= PayAmount Then 
	;			Var Canout = CoinAmount - PayAmount
	;			If Canout > 0 Then
	;				Change Canout
	;			Else
	;				Var ChangeOK = 1
	;			EndIf
    ;
	;			Var Timeout = 118
	;			Var PayOK = 1
	;
	;			MakeDrinkV1 SelectDrink SelectSugarID
	;			
	;			Open "ROOT/taobin_project/xml/page_thankyou.xml" 
	;	
	;		EndIf
	;	EndIf
	;EndIf

	Refresh
	TimerReset
</EventTimeout> 

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

<EventCoin>
	TimerReset

	If CoinInFlag = 0 Then
		;VendingQR OFF
		Var alphaState = "Invisible"
	EndIf

	;If Seeker.StoreCreditFlag = 1 Then
	;	Var ViewBill = 0
	;EndIf

	Var CoinInFlag = 1

	

	If ViewBill > 0 Then

		If PayOfflineMode = 1 Then
			CoinVending BILLREJECT
		Else


			Var RemainAmount = PayAmount - CoinAmount
			Var RemainAmount = RemainAmount - Seeker.IntVendingCampaign
			Var RemainAmount = RemainAmount - Seeker.IntVendingCredit

			If ViewBill > RemainAmount Then
				Var RemainAmountKeep = ViewBill - RemainAmount
			Else
				Var RemainAmountKeep = ViewBill
			EndIf

			Var Timeout = 0


			Var RemainAmountStr = "" + RemainAmount
			Var showRemaining = charOfBaht + RemainAmountStr


			
			
			Var alphaState3 = "Enable"
		EndIf
		

	Else
		

		If CoinInOK = 0 Then

			Var RemainAmount = PayAmount - CoinAmount
			Var RemainAmount = RemainAmount - Seeker.IntVendingCampaign
			Var RemainAmount = RemainAmount - Seeker.IntVendingCredit

			Var SumCoinAmount = CoinAmount + Seeker.IntVendingCampaign
			Var SumCoinAmount = SumCoinAmount + Seeker.IntVendingCredit
			If SumCoinAmount >= PayAmount Then 
				;Var VendingQRCode = "ERROR"
				CoinVending OFF
				VendingQR OFF
				Var Canout = SumCoinAmount - PayAmount
				If Canout = 0 Then
					Var RemainAmountStr = 0
				Else
					Var RemainAmountStr = "ทอน " + Canout
				EndIf

				
				Var CancleState = "Disable"
				Var CoinInOK = 1
				Var CoinInCounter = 0



			Else
				Var RemainAmountStr = "" + RemainAmount
			EndIf

			Var Timeout = 0

			;Var RemainAmount = 0
			Var showRemaining = charOfBaht + RemainAmountStr
			Var alphaState2 = "Enable"

		
		EndIf

	EndIf

	

	
	Refresh
</EventCoin>
<EventVDCancle>
	If CoinInFlag = 1 Then 
		
		If CoinInOK = 0 Then
			If CancelFlag = 0 Then
				Cart "DeleteMenuID" "ALL"
				SAVELOG "VDCancle  > Cancle Order."
				CoinVending OFF
				Var CancelFlag = 1
				Var cancelState = "Enable"
				Var CancelCounter = 0
				
				;Var showRemaining = "คืนเงิน"
				;Open "ROOT/taobin_project/xml/page_catalog.xml"

				Var showRemaining = charOfBaht + "0"

				If FlagQROpened = 1 Then 
					Var CancelNumber = 12
				EndIf

			EndIf 
		EndIf
		;VendingQR OFF
		Refresh

		If ViewBill > 0 Then
				CoinVending BILLREJECT
		EndIf
	EndIf
</EventVDCancle>

<EventCart>


	VendingQR OFF

	DEBUGVAR CART1_PICTURE
	DEBUGVAR CART2_PICTURE
	DEBUGVAR CART3_PICTURE

	DEBUGVAR CART1_PDCODE
	DEBUGVAR CART2_PDCODE
	DEBUGVAR CART3_PDCODE

	DEBUGVAR CART1_NAME_ENG
	DEBUGVAR CART2_NAME_ENG
	DEBUGVAR CART3_NAME_ENG

	DEBUGVAR CART1_NAME_THAI
	DEBUGVAR CART2_NAME_THAI
	DEBUGVAR CART3_NAME_THAI


	DEBUGVAR CART1_PRICE
	DEBUGVAR CART2_PRICE
	DEBUGVAR CART3_PRICE
	

	Var cartNumText = "" + CART_COUNT
	If show_eng = "true" Then 
		Var cartNumText = cartNumText + " cups"
	Else
    	Var cartNumText = cartNumText + " แก้ว"
	EndIf

	Var cart1_pic = ""
	Var cart2_pic = ""
	Var cart3_pic = ""

	Var cart1_name = ""
	Var cart2_name = ""
	Var cart3_name = ""

	Var cart1_price = ""
	Var cart2_price = ""
	Var cart3_price = ""

	Var cart1_en = "Invisible"
	Var cart2_en = "Invisible"
	Var cart3_en = "Invisible"


	Var PriceDrink  = 0 



	If CART_COUNT >= 1 Then
		Var cart1_pic = "ROOT/taobin_project/image/page_drink/" + CART1_PICTURE
		Var cart1_name = CART1_NAME_THAI
		Var cart1_price = "" + CART1_PRICE
		Var cart1_en = "Enable"

		Var PriceDrink = CART1_PRICE
	EndIf

	If CART_COUNT >= 2 Then
		Var cart2_pic = "ROOT/taobin_project/image/page_drink/" + CART2_PICTURE
		Var cart2_name = CART2_NAME_THAI
		Var cart2_price = "" + CART2_PRICE
		Var cart2_en = "Enable"

		Var PriceDrink = PriceDrink + CART2_PRICE
	EndIf

	If CART_COUNT = 3 Then
		Var cart3_pic = "ROOT/taobin_project/image/page_drink/" + CART3_PICTURE
		Var cart3_name = CART3_NAME_THAI
		Var cart3_price = "" + CART3_PRICE
		Var cart3_en = "Enable"

		Var PriceDrink = PriceDrink + CART3_PRICE
	EndIf




	Var ServiceAmountSum = PriceDrink

	If CART_COUNT >= 1 Then 

		Var SelectDrink = "00-00-00-0000"
		Var DiscountDrink = 0
		Var SelectSlot = "" + CART_COUNT

		SAVELOG BoxID

		Var QRCODE1 = "A000000677010112"
		Var QRCODE2 = "010755600066301"
		Var QRCODE3 = "VDGN"
		Var QRCODE4 = BoxID
		Var QRCODE5 = SelectSlot
		Var QRCODE6 = SelectDrink                
		Var QRCODE7 = PriceDrink 
		Var QRCODE8 = ""

		Var SessionID2 = SelectSlot + ":"
			Var SessionID2 = SessionID2 + "00000"

			Var CreditAmount1 = ""
			Var ServiceAmountFlow = ""
			Var TelephoneNumberQR = "0899999999"
			Var ServiceType = "coffee-multi"
			Var ECommerceQR = ""
			Var ECommerceQR = ECommerceQR + PriceDrink
			Var ECommerceQR =	ECommerceQR + "/"
			Var ECommerceQR =	ECommerceQR + DiscountDrink 
			Var ECommerceQR =	ECommerceQR + "/"
			Var ECommerceQR =	ECommerceQR + SessionID2 
			Var ECommerceQR =	ECommerceQR + "/"
			Var ECommerceQR =	ECommerceQR + SelectDrink 
			Var ECommerceQR =	ECommerceQR + "/"
			Var ECommerceQR =	ECommerceQR + "KBA:2"
			Var ServiceParameter = "max"
			Var ServiceCharge = 0
			Var AccountType = "new"
			Var testservice = "kbank"
			Var tc = ""
			Var GetScore = ""
			Var OperatorName = ""
			Var SessionID = ""


			;GetPayInfo TelephoneNumberQR ECommerceQR ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
			Var Timeout = 0

			Var QRCODE99 = ""
			Var QRCODETMP = ""
			;Var ReqPayInfoFlag = 1

			Open "ROOT/taobin_project/xml/page_payment_cashMore.xml"  

	Else

		;Open "ROOT/taobin_project/xml/page_catalog.xml"  
		Var showRemaining = charOfBaht + "0"
		
	
			If CancelFlag = 0 Then
				SAVELOG "EventCart  > Cancle All Order."
				CoinVending OFF
				Var CancelFlag = 1
				Var cancelState = "Enable"
				Var CancelCounter = 0

				If FlagQROpened = 1 Then 
					Var CancelNumber = 12
				EndIf
				
			EndIf
		
		Refresh
	EndIf 

	

</EventCart>


;<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>



; back
;<Button>
;<X> 19 </X>
;<Y> 420 </Y>
;<Filename> "ROOT/taobin_project/image/page2/bn_back_arrow.png" </Filename>
;<FilenamePress> "ROOT/taobin_project/image/page2/bn_back_arrow.png" </FilenamePress>
;<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
;<Volume> SoundVolume </Volume>
;<EventClick> 
;	
;	If CoinInOK = 0 Then
;        If CancelFlag = 0 Then
;			SAVELOG "ButtonCancleMain  > Cancle Order."
;            CoinVending OFF
;			Var CancelFlag = 1
;			Var CancelCounter = 0
;
;			If FlagQROpened = 1 Then 
;				Var CancelNumber = 12
;			EndIf
;			
;        EndIf
;	EndIf
;	
;</EventClick>
;</Button>

<Image>
<X> 0 </X>
<Y> 1172 </Y>
<Filename> Var( DirImage + "/Rectangle0.png" )</Filename>
</Image>

<Image>
<X> 0 </X>
<Y> 1012 </Y>
<Filename> Var( DirImage + "/Rectangle.png" )</Filename>
</Image>

<Button>
<X> 0 </X>
<Y> 1172 </Y>
<State> AddOrderState</State>
<Filename> Var( DirImage + "/bn_add_order.png" ) </Filename>
<FilenamePress> Var( DirImage + "/bn_add_order.png" ) </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick> 
	
	If CoinInFlag = 0 Then
		VendingQR OFF
		If Seeker.IntVendingCredit > 0 Then
			Var BmiYear = Seeker.IntVendingCredit
			Var GetScore = "useCredit"
			AddData 24 Seeker.TNumberTaobinCredit  BmiYear PointCrm GetScore
			Var Seeker.IntVendingCredit = 0
		EndIf
		Open "ROOT/taobin_project/xml/page_catalog.xml" 
	EndIf
	
</EventClick>
</Button>


<Button>
<X> 287 </X>
<Y> 1261 </Y>
<State> PayState1</State>
<Filename>  FilenameShowbuttonCashBN </Filename>
<FilenamePress> FilenameShowbuttonCashBP </FilenamePress>
<FilenameDisable> FilenameShowbuttonCashBP </FilenameDisable>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick> 

	If alphaState = "Invisible" Then

		If EnoughChange = "yes" Then

			
			Var alphaState2 = "Enable"
			

			If RoadShow = "true" Then
				Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif"
				Var MachineStage = "make-drink"
				Var BrewingTextThai = "เตรียมแก้ว"
				MakeDrinkV1  SelectDrink SelectSugarID
				Open "ROOT/taobin_project/xml/page_thankyou.xml" 
				;Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
				
			EndIf
		Else

			
			Var alphaState3 = "Enable"
			Refresh

		EndIf
	EndIf
</EventClick>
</Button>

<Button>
<X> 287 </X>
<Y>  1677</Y>
<State> PayState2</State>
<Filename> Var( DirImage + pay_with_code_imagebn) </Filename>
<FilenamePress> Var( DirImage + pay_with_code_imagebp) </FilenamePress>
<FilenameDisable> Var( DirImage + pay_with_code_imagebp) </FilenameDisable>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick> 

	If alphaState = "Invisible" Then
	
		If CoinInFlag = 0 Then
			If CancelFlag = 0 Then
			Var TelephoneNumber = ""
			Var Tel_Confirm_State = "Disable"
			Open "ROOT/taobin_project/xml/page_payment_code.xml" 
			EndIf
		EndIf

	EndIf
</EventClick>
</Button>

<Button>
<X> 287 </X>
<Y> 1365 </Y>
<State> PayState3</State>
<Filename> Var( DirImage + "/bn_prompt_pay.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_prompt_pay.png") </FilenamePress>
<FilenameDisable> Var( DirImage + "/bp_prompt_pay.png") </FilenameDisable> 
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick> 


	If Timeout < 120 Then

		If CoinInFlag = 0 Then
			If CancelFlag = 0 Then

				Var QR_POPUP = "/img_popup1.png"
				Var LOADING_STATE = "Enable"

				Var FlagQROpened = 1
				Var alphaState = "Enable"
				;CoinVending OFF
				VendingQR ON

				Var SessionID2 = SelectSlot + ":"
				Var SessionID2 = SessionID2 + "00000"
				Var CreditAmount1 = ""
				Var ServiceAmountFlow = ""
				Var TelephoneNumberQR = "0899999999"
				Var ServiceType = "coffee-multi"
				Var ECommerceQR = ""
				Var ECommerceQR = ECommerceQR + PriceDrink
				Var ECommerceQR =	ECommerceQR + "/"
				Var ECommerceQR =	ECommerceQR + DiscountDrink 
				Var ECommerceQR =	ECommerceQR + "/"
				Var ECommerceQR =	ECommerceQR + SessionID2 
				Var ECommerceQR =	ECommerceQR + "/"
				Var ECommerceQR =	ECommerceQR + SelectDrink 
				Var ECommerceQR =	ECommerceQR + "/"
				Var ECommerceQR =	ECommerceQR + "KBA:2/"

				If  Seeker.IntVendingCredit > 0 Then
					Var ECommerceQR =	ECommerceQR + "CRD"
					Var ECommerceQR =	ECommerceQR + ":"
					Var ECommerceQR =	ECommerceQR + Seeker.TNumberTaobinCredit
					Var ECommerceQR =	ECommerceQR + ":"
					Var ECommerceQR = 	ECommerceQR + Seeker.IntVendingCredit
					Var ECommerceQR =	ECommerceQR + ":"
					Var ECommerceQR = 	ECommerceQR + PointCrm
				EndIf

				Var ServiceParameter = "max"
				Var ServiceCharge = 0
				Var AccountType = "new"
				Var testservice = "kbank"
				Var tc = ""
				Var GetScore = ""
				Var OperatorName = ""
				Var SessionID = ""


				GetPayInfo TelephoneNumberQR ECommerceQR ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc

				Var ReqPayInfoFlag = 1
				Refresh

				;If CoinAmount > 0 Then
				;	Change CoinAmount
				;	Var ChangeOK = 0
				;	Var CancelFlag = 1
				;	Var CancelCounter = 0
				;	Var NoGotoMenupage = "true"
				;			
				;EndIf
			EndIf
		EndIf
	EndIf

;	If CoinInFlag = 0 Then
;		Var BG_Menu_Page4 =  "ROOT/image/BG_PromptPay_Page4.bmp"
;		Var PayState1 = "Enable"
;		Var PayState2 = "PressForever"
;		Var QRChannel = 1
;		Open "ROOT/taobin_project/xml/page_payment_qr.xml" 
;
;	EndIf
</EventClick>
</Button>

<Button>
<X> 287 </X>
<Y> 1573 </Y>
<State> PayState4</State>
<Filename> Var( DirImage + "/bn_pay_with_credit.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_pay_with_credit.png") </FilenamePress>
<FilenameDisable> Var( DirImage + "/bp_pay_with_credit.png")  </FilenameDisable>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick> 


	If alphaState = "Invisible" Then
	
		If CoinInFlag = 0 Then
			If CancelFlag = 0 Then
			Var TelephoneNumber = ""
			Var Tel_Confirm_State = "Disable"
			Open "ROOT/taobin_project/xml/page_payment_credit.xml" 
			EndIf
		EndIf

	EndIf


</EventClick>
</Button>


<Button>
<X> 287 </X>
<Y> 1469 </Y>
<State> PayState5</State>
<Filename> Var( DirImage + "/bn_pay_with_shoppy.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_pay_with_shoppy.png") </FilenamePress>
<FilenameDisable> Var( DirImage + "/bp_pay_with_shoppy.png") </FilenameDisable>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick> 


	

		If CoinInFlag = 0 Then
			If CancelFlag = 0 Then

				Var QR_POPUP = "/img_popup2.png"
				Var LOADING_STATE = "Enable"
				
				Var QRCODE99 = ""

				Var FlagQROpened = 1
				Var alphaState = "Enable"
				;CoinVending OFF
				VendingQR ON
				
				
				Var SessionID2 = SelectSlot + ":"
				Var SessionID2 = SessionID2 + ExtendData

				Var CreditAmount1 = ""
				Var ServiceAmountFlow = ""
				Var TelephoneNumberQR = "0899999999"
				Var ServiceType = "coffee-multi"
				Var ECommerceQR = ""
				Var ECommerceQR = ECommerceQR + PriceDrink
				Var ECommerceQR =	ECommerceQR + "/"
				Var ECommerceQR =	ECommerceQR + DiscountDrink 
				Var ECommerceQR =	ECommerceQR + "/"
				Var ECommerceQR =	ECommerceQR + SessionID2 
				Var ECommerceQR =	ECommerceQR + "/"
				Var ECommerceQR =	ECommerceQR + SelectDrink 
				Var ECommerceQR =	ECommerceQR + "/"
				Var ECommerceQR =	ECommerceQR + "AIR:2/"
				Var ServiceParameter = "max"
				Var ServiceCharge = 0
				Var AccountType = "new"
				Var testservice = "kbank"
				Var tc = ""
				Var GetScore = ""
				Var OperatorName = ""
				Var SessionID = ""

				GetPayInfo TelephoneNumberQR ECommerceQR ServiceType ServiceParameter SessionID OperatorName CreditAmount1 ServiceAmountFlow GetScore tc
				Var ReqPayInfoFlag = 2
				Refresh

			
			EndIf
		EndIf
	


</EventClick>
</Button>


<Button>
<X> 287 </X>
<Y> 1781 </Y>
<State> CancleState</State>
<Filename> Var( DirImage + "/bn_cancel_all.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_cancel_all.png") </FilenamePress>
<FilenameDisable> Var( DirImage + "/bp_cancel_all.png")  </FilenameDisable>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick> 

	
	If CoinInOK = 0 Then
        If CancelFlag = 0 Then
			Cart "DeleteMenuID" "ALL"
			SAVELOG "ButtonCancleMain  > Cancle All Order."
            CoinVending OFF
			Var CancelFlag = 1
			Var cancelState = "Enable"
			Var CancelCounter = 0

			If FlagQROpened = 1 Then 
				Var CancelNumber = 12
			EndIf
			
        EndIf
	EndIf



</EventClick>
</Button>



<Image>
<X> 60 </X>
<Y> 412 </Y>
<Width> 148 </Width>
<Height> 200 </Height>
<Filename> cart1_pic </Filename>
</Image>

<Text>
<X> 876 </X>
<Y> 467 </Y>
<Width> 1080</Width>
<Size> 50 </Size>
<Font> KanitMediumTTF </Font>
<Color> 0xDE794E </Color>
<Value> cart1_price </Value>
</Text>

<Text>
<X> 236 </X>
<Y> 470 </Y>
<Width> 1080</Width>
<Size> 50 </Size>
<Font> KanitMediumTTF </Font>
<Color> 0x513C2F </Color>
<Value> cart1_name </Value>
</Text>

<Button>
<X> 1016 </X>
<Y> 500 </Y>
<State> cart1_en </State>
<Filename> "ROOT/taobin_project/image/page_payment/iconX.png"  </Filename>
<EventClick> 
	If CoinInFlag = 0 Then
		If Seeker.IntVendingCredit > 0 Then
			Var BmiYear = Seeker.IntVendingCredit
			Var GetScore = "useCredit"
			AddData 24 Seeker.TNumberTaobinCredit  BmiYear PointCrm GetScore
			Var Seeker.IntVendingCredit = 0
		EndIf
		Cart "DeleteMenuID" 1
	EndIf

</EventClick> 
</Button>

<Image>
<X> 60 </X>
<Y> 612 </Y>
<Width> 148 </Width>
<Height> 200 </Height>
<Filename> cart2_pic </Filename>
</Image>

<Text>
<X> 876 </X>
<Y> 667 </Y>
<Width> 1080</Width>
<Size> 50 </Size>
<Font> KanitMediumTTF </Font>
<Color> 0xDE794E </Color>
<Value> cart2_price </Value>
</Text>

<Text>
<X> 236 </X>
<Y> 670 </Y>
<Width> 1080</Width>
<Size> 50 </Size>
<Font> KanitMediumTTF </Font>
<Color> 0x513C2F </Color>
<Value> cart2_name </Value>
</Text>

<Button>
<X> 1016 </X>
<Y> 700 </Y>
<State> cart2_en </State>
<Filename> "ROOT/taobin_project/image/page_payment/iconX.png"  </Filename>
<EventClick> 
If CoinInFlag = 0 Then
	If Seeker.IntVendingCredit > 0 Then
		Var BmiYear = Seeker.IntVendingCredit
		Var GetScore = "useCredit"
		AddData 24 Seeker.TNumberTaobinCredit  BmiYear PointCrm GetScore
		Var Seeker.IntVendingCredit = 0
	EndIf
	Cart "DeleteMenuID" 2
EndIf
</EventClick> 
</Button>


<Image>
<X> 60 </X>
<Y> 812 </Y>
<Width> 148 </Width>
<Height> 200 </Height>
<Filename> cart3_pic </Filename>
</Image>

<Text>
<X> 876 </X>
<Y> 872 </Y>
<Width> 1080</Width>
<Size> 50 </Size>
<Font> KanitMediumTTF </Font>
<Color> 0xDE794E </Color>
<Value> cart3_price </Value>
</Text>

<Text>
<X> 236 </X>
<Y> 872 </Y>
<Width> 1080</Width>
<Size> 50 </Size>
<Font> KanitMediumTTF </Font>
<Color> 0x513C2F </Color>
<Value> cart3_name </Value>
</Text>

<Button>
<X> 1016 </X>
<Y> 900 </Y>
<State> cart3_en </State>
<Filename> "ROOT/taobin_project/image/page_payment/iconX.png"  </Filename>
<EventClick> 
If CoinInFlag = 0 Then
	If Seeker.IntVendingCredit > 0 Then
		Var BmiYear = Seeker.IntVendingCredit
		Var GetScore = "useCredit"
		AddData 24 Seeker.TNumberTaobinCredit  BmiYear PointCrm GetScore
		Var Seeker.IntVendingCredit = 0
	EndIf
	Cart "DeleteMenuID" 3
EndIf
	
</EventClick> 
</Button>

<Text>
<X> 876 </X>
<Y> 1038 </Y>
<Width> 1080</Width>
<Size> 72 </Size>
<Font> KanitMediumTTF </Font>
<Color> 0xDE794E </Color>
<Value> showRemaining </Value>
</Text>

<Text>
<X> 80 </X>
<Y> 1038 </Y>
<Width> 1080</Width>
<Size> 72 </Size>
<Font> KanitMediumTTF </Font>
<Color> 0x513C2F </Color>
<Value> cartNumText </Value>
</Text>



; QR popup
<Image>
<X> 0 </X>
<Y> 380 </Y>
<State> alphaState </State>
<Filename> "ROOT/taobin_project/image/page_payment/alpha.png" </Filename>
</Image>

<Image>
<X> 249 </X>
<Y> 748 </Y>
<State> alphaState </State>
<Filename> Var( DirImage + QR_POPUP )</Filename>
</Image>

<GIF>
<X> 493 </X>
<Y> 968 </Y>
<Width> 94 </Width>
<Height> 94 </Height>
<State> LOADING_STATE </State>
<Filename> Var( DirImage + "/loading.gif" )</Filename>
</GIF>

<Image>
<X> 267 </X>
<Y> 1065 </Y>
<State> LOADING_STATE </State>
<Filename> Var( DirImage + "/loadingText.png" )</Filename>
</Image>
		
<Button>
<X> 438 </X>
<Y> 1345 </Y>
<State> alphaState </State>
<Filename> Var( DirImage + "/bn_cancel.png" )</Filename>
<FilenamePress> Var( DirImage + "/bp_cancel.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick> 

	  Var LOADING_STATE = "Invisible"
	  Var QRErrorState = "Invisible"
	  Var alphaState = "Invisible"
	  Var QRCODE99 = ""
	  ;CoinVending ON
	  ;VendingQR OFF
	  Refresh
</EventClick>
</Button>

; begin cash popup
<Image>
<X> 0 </X>
<Y> 380 </Y>
<State> alphaState2 </State>
<Filename> "ROOT/taobin_project/image/page_payment/alpha.png" </Filename>
</Image>

<Image>
<X> 182 </X>
<Y> 748 </Y>
<State> alphaState2 </State>
<Filename> Var( DirImage2 + "/img_popup11.png" )</Filename>
</Image>
		
<Button>
<X> 438 </X>
<Y> 1345 </Y>
<State> alphaState2 </State>
<Filename> Var( DirImage + "/bn_cancel.png" )</Filename>
<FilenamePress> Var( DirImage + "/bp_cancel.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick> 

	
	
	

	If CoinInOK = 0 Then
        If CancelFlag = 0 Then
			Cart "DeleteMenuID" "ALL"
			SAVELOG "ButtonCancleAlpha2  > Cancle Order."
            CoinVending OFF
			Var CancelFlag = 1
			Var cancelState = "Enable"
			Var CancelCounter = 0
			If FlagQROpened = 1 Then 
				Var CancelNumber = 12
			EndIf
        EndIf
	EndIf
	
	Var alphaState2 = "Invisible"
	Refresh

	

</EventClick>
</Button>



<Text>
<X> 0 </X>
<Y> 1041 </Y>
<Size> 144 </Size>
<Align> Center </Align>
<Width> 1080 </Width>
<Font> KanitRegularTTF </Font>
<State> alphaState2 </State>
<Color> 0xDE794E </Color>
<Value> RemainAmountStr </Value>
</Text>
; end case popup

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

<Image>
<X> 182 </X>
<Y> 748 </Y>
<State> alphaState3 </State>
<Filename> Var( DirImage2 + "/img_popup12.png" )</Filename>
</Image>

<Button>
<X> 327 </X>
<Y> 1208 </Y>
<State> alphaState3 </State>
<Filename> Var( DirImage2 + "/bn_keep.png" )</Filename>
<FilenamePress> Var( DirImage2 + "/bp_keep.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick> 

		Open "ROOT/taobin_project/xml/page_payment_storeCredit.xml" 
</EventClick>
</Button>

<Button>
<X> 327 </X>
<Y> 1335 </Y>
<State> alphaState3 </State>
<Filename> Var( DirImage2 + "/bn_cancel2.png" )</Filename>
<FilenamePress> Var( DirImage2 + "/bp_cancel2.png" )</FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick> 

	CoinVending BILLREJECT
	Var alphaState3 = "Invisible"
	Refresh
</EventClick>
</Button>

;<Text>
;<X> 0 </X>
;<Y> 1041 </Y>
;<Size> 100 </Size>
;<Align> Center </Align>
;<Width> 1080 </Width>
;<Font> KanitRegularTTF </Font>
;<State> alphaState3 </State>
;<Color> 0xDE794E </Color>
;<Value> RemainAmountKeep </Value>
;</Text>


<Text>
<X> 270 </X>
<Y> 1000 </Y>
<Width>550</Width>
<Align> Center </Align>
<Size> 30 </Size>
<Font> KanitRegularTTF </Font>
<State> alphaState </State>
<Color> 0xFF0000 </Color>
<Value> CashTextWarning </Value>
</Text>


<QRCode>
<X> 399 </X>
<Y> 905 </Y>
<Width> WQR </Width>
<Height> HQR </Height>
<State> alphaState </State>
<Service> testservice </Service>
</QRCode>

<Button>
<X> 267 </X>
<Y> 960 </Y>
<State>QRErrorState</State>
<Filename> Var( DirImage + "/QRError.png" ) </Filename>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick> 

</EventClick>
</Button>

<Image>
<X> 0 </X>
<Y> 380 </Y>
<State> cancelState </State>
<Filename> Var( DirImage + "/CancelOrder.png" ) </Filename>
</Image>

<GIF>
<X> 493 </X>
<Y> 960 </Y>
<Width> 94 </Width>
<Height> 94 </Height>
<State> cancelState </State>
<Filename> Var( DirImage + "/loading.gif" )</Filename>
</GIF>



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

;<Text>
;<X> 0 </X>
;<Y> 1880 </Y>
;<Size> 14 </Size>
;<Align> "Left" </Align>
;<Width> 1080 </Width>
;<Font> KanitThinTTF </Font>
;<Color> 0x513C2F </Color>
;<Value> SelectDrink </Value>
;</Text>



<Button>
<X> 0 </X>
<Y> 1870 </Y>
<State> ShowNetworkProblem </State>
<Color> "0xFF0000" </Color>
<Width> 1080 </Width>
<Height> 60 </Height>
</Button>

<Text>
<X> 5 </X>
<Y> 1880 </Y>
<Size> 24 </Size>
<Align> Center </Align>
<Width> 1080 </Width>
<Font> RobotoRegular </Font>
<Color> 0xFFFFFF </Color>
<Value> ShowNetworkProblemText </Value>
</Text>



<Button>
<X> 870 </X>
<Y> 1860 </Y>
<Width> 200 </Width>
<Height> 50 </Height>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick> 
	Var countClick2 = countClick2 + 1
	If countClick2 = 3 Then
		
	EndIf

	If countClick2 = 5 Then
		If IgnoreNetCore = "true" Then
			;Var MachineStage = "make-drink"
			; make drink
			
			MakeDrinkV1 SelectDrink ExtendData
			Open "ROOT/taobin_project/xml/page_thankyou.xml"
			
			;Var UnitTestType = "1"
			Var UnitTestType = "2"
			
			;Open "ROOT/taobin_project/xml/page_show_consent2.xml"
			
			;Open "ROOT/taobin_project/xml/page_payment_code.xml"
			
			;Open "ROOT/taobin_project/xml/page_thankyou.xml"

			;Open "ROOT/taobin_project/xml/page_collect_point_1.xml"
			
			; show consent
			;Open "ROOT/taobin_project/xml/page_show_consent.xml"
			;Open "ROOT/taobin_project/xml/page_drinkok.xml"

			
			;Var CoffeePoint = 11
			;Open "ROOT/taobin_project/xml/page_collect_point_3.xml"
			
			;Open "/mnt/sdcard/coffeevending/taobin_project/xml/page_back_to_error.xml"
		EndIf
	EndIf
	Refresh
</EventClick>
</Button>





</Popup>