taobin_project/xml/page_payment_cash.xml

<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<Volume> SoundVolume </Volume>
<Sound> PlaySoundLag </Sound>
<EventOpen>

	Var cash_disable = "0"
	READ_FILE "/mnt/sdcard/coffeevending/cash_disable" cash_disable
	DEBUGVAR cash_disable

	;If AdultFlag = 1 Then
	;	Open "ROOT/taobin_project/xml/page_payment_camera.xml" 
	;EndIf

	
	Var CashlessPayFlag = 0
	Var RemainAmountStrENG = ""
	Var AdultState = "Invisible"
	Var AdultState1 = "Invisible"
	Var AdultState2 = "Invisible"
	Var AdultState3 = "Invisible"

	;Var AdultFlag = 0
	Var AdultFlag2 = 0

	If AdultFlag = 1 Then

		Var AdultFlag = 0

		DEBUGVAR SystemDate
		Var sdate = ""
		Var sdate = SystemDate
		Var sdateday = ""
		Var sdatemonth = ""
		Var sdateyear = ""
		SPLIT sdate "/" 1 sdateday 
		SPLIT sdate "/" 2 sdatemonth
		SPLIT sdate "/" 3 sdateyear 
		INT sdateday
		INT sdatemonth
		INT sdateyear
		READCARDID

		Var AdultState = "Enable"
		Var AdultState1 = "Enable"

		Var countAdultS2 = 0
		Var AdultFlag2 = 1
	EndIf

	Var ReqPayInfoFlag2 = 0


	DEBUGVAR QRCODETMP 

	DEBUGVAR IsSmoRet
	Var countClick2 = 0
	;SAVELOG SelectDrink
	;SAVELOG NameDrink
	;SAVELOG NameDrinkTH
	;SAVELOG DrinkDescription
	SAVELOG PriceDrink
	;SAVELOG topping1
	;SAVELOG topping2
	;SAVELOG topping3
	DEBUGVAR SelectDrink

	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"
	; Below original 
	; On open



	Var cancelState = "Invisible"

	
	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 Seeker.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
	DEBUGVAR QRCODE99

	SAVELOG VendingCampaign
	SAVELOG Seeker.VendingCode
	SAVELOG Seeker.CodeChannel


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

	If RoadShow = "true" Then
		Var PayState1 = "Enable"
		Var PayState2 = "Invisible"
		Var PayState3 = "Invisible"
		Var PayState4 = "Invisible"
		Var PayState5 = "Invisible"
		Var PayState6 = "Invisible"
		Var showRemaining = "Free"
	
	Else
		Var PayState1 = "Enable"

		If cash_disable = "1" Then 
			Var PayState1 = "Press"
		EndIf

		If Seeker.IntVendingCampaign = 0 Then
			Var PayState2 = "Enable"
			Var PayState4 = "Enable"
			Var PayState5 = "Enable"
			Var PayState6 = "Enable"
		Else 
			SAVELOG "Cash only IntVendingCampaign"
			Var PayState2 = "Disable"
			Var PayState4 = "Disable"
			Var PayState5 = "Enable"
			Var PayState6 = "Disable"
		EndIf
		Var PayState3 = "Enable"
		
		
		DEBUGVAR CoinAmount
		If CoinAmount > 0 Then
			SAVELOG "Cash only CoinAmount"
			Var PayState2 = "Disable"
			Var PayState3 = "Disable"
			Var PayState4 = "Disable"
			Var PayState5 = "Disable"
			Var PayState6 = "Disable"
			Var CoinInFlag = 1
		EndIf

		If Seeker.IntVendingCredit > 0 Then
			SAVELOG "Cash only IntVendingCredit"
			Var PayState2 = "Disable"
			Var PayState4 = "Disable"
			Var PayState5 = "Disable"
			Var PayState6 = "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

	Var X_CASH = 184

	If RoadShow = "true" Then
		Var X_CASH = 287
		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	
		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" 

	EndIf

	

	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 = CoinAmount + Seeker.IntVendingCredit
		If SumCoinAmount >= PayAmount Then 

			SAVELOG "CoinInOk First"
			DEBUGVAR CoinAmount
			DEBUGVAR Seeker.IntVendingCampaign
			DEBUGVAR Seeker.IntVendingCredit

			;Var VendingQRCode = "ERROR"
			CoinVending OFF
			Var Canout = SumCoinAmount - PayAmount
			If Canout = 0 Then
				Var RemainAmountStr = 0
			Else

				If show_eng = "true" Then 
					Var RemainAmountStr = "Change " + Canout
					Var RemainAmountStr = RemainAmountStr + "###size=90"
				Else
					Var RemainAmountStr = "ทอน " + Canout
				EndIf
			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"

	Var SELLONLINE = 0
	If SELLSTATUS = "SELLONLINE" Then
		Var SELLONLINE = 1
	EndIf
	If SELLSTATUS = "SELLNOCASH" Then
		Var SELLONLINE = 1
	EndIf

	If SELLONLINE = 0 Then
			SAVELOG "Cash only NetworkStatus down"
			
			Var PayState2 = "Disable"
			Var PayState3 = "Disable"
			Var PayState4 = "Disable"
			Var PayState5 = "Disable"
			Var PayState6 = "Disable"

			Var PayOfflineMode = 1

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

	Else
		Var PayOfflineMode = 0

		Var ShowNetworkProblem = "Invisible"
		Var ShowNetworkProblemText = ""
	EndIf

	DEBUGVAR NOCashFlag

	If NOCashFlag = 1 Then
		Var PayState1 = "Disable"
	EndIf

	;cancel order 
	If SELLSTATUS = "DEACTIVE" Then
		Var SELLONLINE = 1
	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
	If DisableUsingCode = "-" Then
		SAVELOG "Diable code because using topping."
		Var PayState2 = "Disable"
		Var pay_with_code_image = DirImage + "/bd_pay_with_code.png"
	Else

		If Seeker.IntVendingCredit > 0 Then

			Var pay_with_code_image = DirImage + "/bp_pay_with_code.png"
			Var pay_with_credit_image = DirImage + "/bp_pay_with_credit.png"

			Var pay_with_chanel_text = DirImage + "/text_2.png"

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

	Machine DoorClose


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


	If web_readyOK = "true" Then

		Var web_readyOK = "false" 

		If web_payment = "CASH" Then
			Var alphaState2 = "Enable"
		EndIf

		If web_payment = "QR" Then

				If IndoQR = 1 Then
					Var QR_POPUP = "/img_popup7.png"
				Else
					Var QR_POPUP = "/img_popup1.png"
				EndIf
				
				Var LOADING_STATE = "Enable"

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

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

				Var CreditAmount1 = ""
				Var ServiceAmountFlow = ""
				Var TelephoneNumberQR = "0899999999"
				Var ServiceType = "coffee"
				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 + "/"
				If IndoQR = 1 Then
					Var ECommerceQR =	ECommerceQR + "IND:2/"
				Else
					Var ECommerceQR =	ECommerceQR + "KBA:2/"
				EndIf



				If  Seeker.IntVendingCampaign > 0 Then
					Var ECommerceQR =	ECommerceQR + Seeker.VendingCode
					Var ECommerceQR =	ECommerceQR + ":"
					Var ECommerceQR =	ECommerceQR + Seeker.CodeNumber
					Var ECommerceQR =	ECommerceQR + ":"
					Var ECommerceQR = ECommerceQR + Seeker.VendingCampaignRI3
				EndIf

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

		If web_payment = "SHOPEE" Then
				
				Var QR_POPUP = "/img_popup2.png"
				Var LOADING_STATE = "Enable"

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

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

				Var CreditAmount1 = ""
				Var ServiceAmountFlow = ""
				Var TelephoneNumberQR = "0899999999"
				Var ServiceType = "coffee"
				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/"



				;If  Seeker.IntVendingCampaign > 0 Then
				;	Var ECommerceQR =	ECommerceQR + Seeker.VendingCode
				;	Var ECommerceQR =	ECommerceQR + ":"
				;	Var ECommerceQR =	ECommerceQR + Seeker.CodeNumber
				;	Var ECommerceQR =	ECommerceQR + ":"
				;	Var ECommerceQR = ECommerceQR + Seeker.VendingCampaignRI3
				;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 = 2
		EndIf

		If web_payment = "TRUE" Then
				
				Var QR_POPUP = "/img_popup3.png"
				Var LOADING_STATE = "Enable"

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

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

				Var CreditAmount1 = ""
				Var ServiceAmountFlow = ""
				Var TelephoneNumberQR = "0899999999"
				Var ServiceType = "coffee"
				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 + "TWN: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 = 3
		EndIf

		If web_payment = "DOLFIN" Then
				
				Var QR_POPUP = "/img_popup5.png"
				Var LOADING_STATE = "Enable"

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

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

				Var CreditAmount1 = ""
				Var ServiceAmountFlow = ""
				Var TelephoneNumberQR = "0899999999"
				Var ServiceType = "coffee"
				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 + "DOL: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 = 4
		EndIf



	EndIf

	__CMD "prepar-cup-from-order" 0 "-" "-"

	If ReqPayInfoFromCashOther = 1 Then
			Var LOADING_STATE = "Enable"

			Var FlagQROpened = 1
			Var alphaState = "Enable"
		
			VendingQR ON

			Var ReqPayInfoFromCashOther = 0
	EndIf

	If ReqPayInfoFromCashOther = 2 Then
			Var alphaState = "Enable"
			Var ReqPayInfoFromCashOther = 0
	EndIf


	;Open "ROOT/taobin_project/xml/page_page_camera.xml" 

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


			If ReqPayInfoFlag2 = 1 Then
				DEBUGVAR VendingBank
				If VendingBank = "kbank" Then
					Var Seeker.CampaignPayChanel = "kbank"
				Else
					If IndoQR = 1 Then
						Var Seeker.CampaignPayChanel = "xendit"
					Else
						Var Seeker.CampaignPayChanel = "cash"
					EndIf
				EndIf
			EndIf
			If ReqPayInfoFlag2 = 2 Then
				Var Seeker.CampaignPayChanel = "shopee"
			EndIf
			If ReqPayInfoFlag2 = 3 Then
				Var Seeker.CampaignPayChanel = "true"
			EndIf
			If ReqPayInfoFlag2 = 4 Then
				Var Seeker.CampaignPayChanel = "dolfin"
			EndIf
			If ReqPayInfoFlag2 = 5 Then
				Var Seeker.CampaignPayChanel = "linepay"
			EndIf



			
			If Seeker = "curr" Then
				MakeDrinkV1  SelectDrink SelectSugarID
				;Var TxRef1 = ""
				;CreateTxRef1 TxRef1
			EndIf
			Var Seeker.PayWithQR = 1
			Var Seeker.VendingTSID = VendingTSID
			

			Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif"
			Var BrewingTextThai = "เตรียมแก้ว"
			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
				Var ReqPayInfoFlag2 = 1
				SAVELOG QRCODE99KBANK
				SAVELOG Ext21

				Var QRCODE99 = QRCODE99KBANK
				Var LOADING_STATE = "Invisible"

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

			EndIf

			If VendingQRTypeResult = "IND: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
				Var ReqPayInfoFlag2 = 1
				SAVELOG QRCODE99KBANK
				SAVELOG Ext21

				Var QRCODE99 = QRCODE99KBANK
				Var LOADING_STATE = "Invisible"

				If show_eng = "true" Then 
					PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_eng/Please_scan_to_pay_via_e-wallet.mp3"
				Else
					PlayLong "/mnt/sdcard/coffeevending/taobin_project/sound_thai/Please_scan_to_pay_via_e-wallet.mp3"
				EndIf
				
			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
				Var ReqPayInfoFlag2 = 2
				SAVELOG QRCODE99Shoppy
				SAVELOG Ext21

				Var QRCODE99 = QRCODE99Shoppy
				Var LOADING_STATE = "Invisible"

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

			EndIf
		EndIf

		If ReqPayInfoFlag = 3 Then	
			If VendingQRTypeResult = "TWN: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
				Var ReqPayInfoFlag2 = 3
				SAVELOG QRCODE99Shoppy
				SAVELOG Ext21

				Var QRCODE99 = QRCODE99Shoppy
				Var LOADING_STATE = "Invisible"

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

			EndIf
		EndIf

		If ReqPayInfoFlag = 4 Then	
			If VendingQRTypeResult = "DOL: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
				Var ReqPayInfoFlag2 = 4
				SAVELOG QRCODE99Shoppy
				SAVELOG Ext21

				Var QRCODE99 = QRCODE99Shoppy
				Var LOADING_STATE = "Invisible"

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

			EndIf
		EndIf

		If ReqPayInfoFlag = 5 Then	
			If VendingQRTypeResult = "LPY: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
				Var ReqPayInfoFlag2 = 5
				SAVELOG QRCODE99Shoppy
				SAVELOG Ext21

				Var QRCODE99 = QRCODE99Shoppy
				Var LOADING_STATE = "Invisible"

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

			EndIf
		EndIf

	Else
		Var PayInfoCFlag = 1
    EndIf


	If VendingCashless = "OK" Then
		DEBUGVAR CashlessCode
		Var Timeout = 0

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

		If ViewBill > 0 Then
				CoinVending BILLREJECT
		EndIf
			
		VendingQR OFF
		CoinVending OFF
		Refresh

		If Seeker = "curr" Then
				MakeDrinkV1  SelectDrink SelectSugarID
		EndIf
		Var Seeker.CreditCard = 1
		Var Seeker.CreditCardRef = CreditCardRef

		Open "ROOT/taobin_project/xml/page_thankyou.xml" 

	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
		If ReqPayInfoFlag = 3 Then	
			Var QRErrorFlag = 1
			If alphaState = "Enable" Then
				Var QRErrorState = "Enable"
				Var LOADING_STATE = "Invisible"
			EndIf
		EndIf
		If ReqPayInfoFlag = 4 Then	
			Var QRErrorFlag = 1
			If alphaState = "Enable" Then
				Var QRErrorState = "Enable"
				Var LOADING_STATE = "Invisible"
			EndIf
		EndIf
	Else
		Var PayInfoCFlag = 1
	EndIf


	If VendingCashless = "ERROR" Then
		Var Timeout = 0
		
		;Var QRErrorFlag = 1
		If alphaState = "Enable" Then
			Var QRErrorState = "Enable"
			Var LOADING_STATE = "Invisible"	
		EndIf

	EndIf



	Refresh

</EventActionError>

<EventCashlessCard>

	Var CreditCardRef = ""
	GenHashWithTimeStamp CreditCardRef
	DEBUGVAR VendingCashless 

	If VendingCashless = "READY" Then
		Var QRCODE99 = ""
		Var Timeout = 0
		Var QRErrorState = "Invisible"
		Var QR_POPUP = "/img_popup8-2.png"
		Var VendingCashless = "-"
		Var LOADING_STATE = "Enable"
		Var RemainAmountX = PayAmount - Seeker.IntVendingCampaign  
		CashlessPay RemainAmountX CreditCardRef
		Var CashlessPayFlag = 1
	EndIf

	Refresh

</EventCashlessCard>


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

	EndIf


	If CamFlag = 1 Then
		Var CamCount = CamCount + 1
		If CamCount > 2 Then
			facecompare 10 
			Var CamFlag = 0
			Var CamCount = 0
		EndIf
	EndIf


	
	If AdultState2 = "Enable" Then
		Var countAdultS2 = countAdultS2 + 1

		If countAdultS2 > 60 Then
			Var AdultState2 = "Invisible"
			Var AdultState3 = "Enable"
		EndIf
	Else
		Var countAdultS2 = 0
	EndIf

	
	Var Timeout = Timeout + 1


	If Timeout >= 120 Then
	  Var alphaState = "Invisible"
	 

	  If RoadShow = "true" Then
	  Else
		Var PayState3 = "Disable"
	  	Var PayState5 = "Disable"
	  EndIf 

	  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 + 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
		If Seeker = "curr" Then
			Open "ROOT/taobin_project/xml/page_catalog.xml"  
		Else
			
			Open "ROOT/taobin_project/xml/page_brewing3Conti.xml"  
		EndIf
	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

		SAVELOG "CoinInOk OK"

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

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

				If ViewBill > 0 Then
					CoinVending BILLREJECT
				EndIf

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

				If CashlessPayFlag = 1 Then
					Var CashlessPayFlag = 0 
					CashlessReq FAIL
				EndIf

				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
					Var Seeker.CurrCreditUse = 0
				EndIf



					If Seeker.IntVendingCampaign = 0 Then
						VendingQR OFF
						If Seeker = "curr" Then
							Open "ROOT/taobin_project/xml/page_catalog.xml"  
						Else
							
							Open "ROOT/taobin_project/xml/page_brewing3Conti.xml"  
						EndIf
					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
			Var Seeker.CurrCreditUse = 0
		EndIf

		Var CancelCounter = CancelCounter + 1
		If CancelCounter = CancelNumber Then
			;Change 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
				
				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 PayCredit = 1
				
				Var ActionOKCase = 1
				If Seeker = "curr" Then 
					If Seeker.IntVendingCampaign = 0 Then
							If Seeker = "curr" Then
								Open "ROOT/taobin_project/xml/page_catalog.xml"  
							Else
								
								Open "ROOT/taobin_project/xml/page_brewing3Conti.xml"  
							EndIf
					EndIf
				Else
					;wait ack
				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>

<EventIDCard>

	DEBUGVAR IDCardStatus
	DEBUGVAR IDCardReady
	DEBUGVAR IDCardData
	DEBUGVAR IDBirthdate

	If CancelFlag = 0 Then

		If AdultFlag2 = 1 Then

			If IDCardStatus = "OK" Then
				If IDCardReady = "OK" Then
					If IDCardData = "START" Then

						Var AdultState2 = "Enable"
						Var AdultState1 = "Invisible"
						Var AdultState3 = "Invisible"
					
						Refresh
					EndIf
				EndIf
			EndIf

			If IDCardStatus = "OK" Then
				If IDCardReady = "OK" Then
					If IDCardData = "ERROR" Then
						Var AdultState2 = "Invisible"
						Var AdultState3 = "Enable"
					
						Refresh
					EndIf
				EndIf
			EndIf

			If IDCardStatus = "ERROR" Then 
				Var AdultState2 = "Invisible"
				Var AdultState3 = "Enable"
					
				Refresh
			EndIf

			If IDCardStatus = "OK" Then
				If IDCardReady = "OK" Then
					If IDCardData = "DONE" Then

						;Var birthDate = IDBirthdate
						Var StrYear = ""
						Var StrMon = ""
						Var StrDay = ""

						SUBSTRING IDBirthdate 0 4 StrYear
						SUBSTRING IDBirthdate 4 6 StrMon
						SUBSTRING IDBirthdate 6 8 StrDay

						INT StrYear
						INT StrMon
						INT StrDay

						Var Adult20 = 0


						DEBUGVAR StrYear
						DEBUGVAR StrMon
						DEBUGVAR StrDay

						DEBUGVAR sdatemonth
						DEBUGVAR sdateday

						Var sdateyear = sdateyear + 543
						Var AgeNumber = sdateyear - StrYear
						DEBUGVAR AgeNumber

						If AgeNumber >= 20 Then 

							If AgeNumber = 20 Then
								If sdatemonth > StrMon Then 
									Var Adult20 = 1
								Else
									If sdatemonth = StrMon Then 
										If  sdateday >= StrDay Then 
											Var Adult20 = 1
										EndIf
									EndIf
								EndIf
							Else
								Var Adult20 = 1
							EndIf

							If Adult20 = 1 Then 
								Var AdultState3 = "Invisible"
								Var AdultState2 = "Invisible"
								Var AdultState1 = "Invisible"
								Var AdultState = "Invisible"
								;CoinVending XBILL
								Open "ROOT/taobin_project/xml/page_payment_camera.xml"  
								Refresh
								
							Else
								Var AdultState2 = "Invisible"
								Var AdultState3 = "Enable"
								Refresh
							EndIf

						Else
								Var AdultState2 = "Invisible"
								Var AdultState3 = "Enable"
								Refresh
						EndIf


						Var AdultFlag2 = 1
					
					EndIf
				EndIf
			EndIf


		EndIf

	EndIf



</EventIDCard>

<EventCoin>
	TimerReset

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

	

	Var CoinInFlag = 1

	

	If ViewBill > 0 Then

		If PayOfflineMode = 1 Then
			CoinVending BILLREJECT
		Else

			If Seeker.StoreCreditFlag = 1 Then 
				CoinVending BILLSTACKALL
			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"

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

			EndIf
			
		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
					If show_eng = "true" Then 
						Var RemainAmountStr = "Change " + Canout
						Var RemainAmountStr = RemainAmountStr + "###size=90"
					Else
						Var RemainAmountStr = "ทอน " + Canout
					EndIf
				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
				SAVELOG "VDCancle  > Cancle Order."
				Machine CancelWepApp
				CoinVending OFF
				Var CancelFlag = 1
				Var cancelState = "Enable"
				Var CancelCounter = 0
				;If CoinAmount = 0 Then
				;	Open "ROOT/taobin_project/xml/page_catalog.xml"  
				;EndIf

				Var showRemaining = "คืนเงิน"
				;Open "ROOT/taobin_project/xml/page_catalog.xml"

				If FlagQROpened = 1 Then 
					Var CancelNumber = 12
				EndIf

			EndIf 
		EndIf
		;VendingQR OFF
		Refresh

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




<Image>
<X> 91 </X>
<Y> 1180 </Y>
<State> MenuCautionImageStage0 </State>
<Filename> "ROOT/taobin_project/image/warning/image_warning_energy_drink.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>

<Image>
<X> 144 </X>
<Y> 413 </Y>
<Filename> pay_with_chanel_text </Filename>
</Image>


; back
<Button>
<X> 18 </X>
<Y> 422 </Y>
<Filename> Var( DirImage + "/bn_back_arrow2.png")  </Filename>
<FilenamePress> Var( DirImage + "/bn_back_arrow2.png") </FilenamePress>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick> 
	
	If CoinInOK = 0 Then
        If CancelFlag = 0 Then

			If ViewBill > 0 Then
					CoinVending BILLREJECT
			EndIf

			SAVELOG "ButtonCancleMain  > Cancle Order."
			Machine CancelWepApp
            CoinVending OFF
			Var CancelFlag = 1
			Var cancelState = "Enable"
			Var CancelCounter = 0

			If FlagQROpened = 1 Then 
				Var CancelNumber = 12
			EndIf

			If CashlessPayFlag = 1 Then
				Var CashlessPayFlag = 0 
				CashlessReq FAIL
			EndIf
			
        EndIf
	EndIf
	
</EventClick>
</Button>



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


<Image>
<X> 375 </X>
<Y> 623 </Y>
<State> eval(  
 If IsSmoRet = "true" Then
 	Var return = "Enable"
 Else
 	Var return = "Invisible"
 EndIf
)  
</State> 
<Filename> "ROOT/taobin_project/image/topping2/blender_icon.png" </Filename>
</Image>

<Button>
<X> X_CASH </X>
<Y> 1255 </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> 184 </X>
<Y>  1503</Y>
<State> PayState2</State>
<Filename> Var( DirImage + "/bn_pay_with_code.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_pay_with_code.png") </FilenamePress>
<FilenameDisable> pay_with_code_image </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> 432 </X>
<Y> 1255 </Y>
<State> PayState3</State>
<Filename> Var( DirImage + "/bn_prompt_pay.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_prompt_pay.png") </FilenamePress>
<FilenameDisable> Var( DirImage + "/bd_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
				If alphaState = "Invisible" Then

				If IndoQR = 1 Then
					Var QR_POPUP = "/img_popup7.png"
				Else
					Var QR_POPUP = "/img_popup1.png"
				EndIf

				Var LOADING_STATE = "Enable"

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

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

				Var CreditAmount1 = ""
				Var ServiceAmountFlow = ""
				Var TelephoneNumberQR = "0899999999"
				Var ServiceType = "coffee"
				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 + "/"
				If IndoQR = 1 Then
					Var ECommerceQR =	ECommerceQR + "IND:2/"
				Else
					Var ECommerceQR =	ECommerceQR + "KBA:2/"
				EndIf

				



				If  Seeker.IntVendingCampaign > 0 Then
					Var ECommerceQR =	ECommerceQR + Seeker.VendingCode
					Var ECommerceQR =	ECommerceQR + ":"
					Var ECommerceQR =	ECommerceQR + Seeker.CodeNumber
					Var ECommerceQR =	ECommerceQR + ":"
					Var ECommerceQR = ECommerceQR + Seeker.VendingCampaignRI3
				EndIf

				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 = 1x
				;	Var CancelCounter = 0
				;	Var NoGotoMenupage = "true"
				;			
				;EndIf
				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> 680 </X>
<Y> 1255 </Y>
<State> PayState4</State>
<Filename> Var( DirImage + "/bn_pay_with_credit.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_pay_with_credit.png") </FilenamePress>
<FilenameDisable> pay_with_credit_image </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> 432 </X>
<Y> 1503 </Y>
<State> PayState5</State>
<Filename> Var( DirImage + "/bn_pay_with_ewallet.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_pay_with_ewallet.png") </FilenamePress>
<FilenameDisable> Var( DirImage + "/bd_pay_with_ewallet.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
				Open "ROOT/taobin_project/xml/page_payment_cashOther.xml" 
			EndIf
		EndIf

	EndIf

</EventClick>
</Button>

<Button>
<X> 432 </X>
<Y> 1503 </Y>
<State> "Invisible" </State>
<Filename> Var( DirImage + "/bn_pay_with_ccard.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_pay_with_ccard.png") </FilenamePress>
<FilenameDisable> Var( DirImage + "/bd_pay_with_ccard.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
				
				Coin CARD
				Var QR_POPUP = "/img_popup8.png"
				Var alphaState = "Enable"
				Refresh

				
					
			EndIf
		EndIf

	EndIf

</EventClick>
</Button>

<Button>
<X> 418 </X>
<Y> 1503 </Y>
<State> "Invisible" </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 Timeout < 120 Then

		If CoinInFlag = 0 Then
			If CancelFlag = 0 Then
				If alphaState = "Invisible" 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 + Seeker.ExtendData

					Var CreditAmount1 = ""
					Var ServiceAmountFlow = ""
					Var TelephoneNumberQR = "0899999999"
					Var ServiceType = "coffee"
					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/"

					;If  IntVendingCampaign > 0 Then
					;	Var ECommerceQR =	ECommerceQR + Seeker.VendingCode
					;	Var ECommerceQR =	ECommerceQR + ":"
					;	Var ECommerceQR =	ECommerceQR + Seeker.CodeNumber
					;	Var ECommerceQR =	ECommerceQR + ":"
					;	Var ECommerceQR = ECommerceQR + Seeker.VendingCampaignRI3
					;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 = 2
					Refresh
				
				EndIf
			
			EndIf
		EndIf
	EndIf
	


</EventClick>
</Button>


<Button>
<X> 170 </X>
<Y> 1503 </Y>
<State> "Invisible" </State>
<Filename> Var( DirImage + "/bn_pay_with_true.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_pay_with_true.png") </FilenamePress>
<FilenameDisable> Var( DirImage + "/bp_pay_with_true.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
				If alphaState = "Invisible" Then

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

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

					Var CreditAmount1 = ""
					Var ServiceAmountFlow = ""
					Var TelephoneNumberQR = "0899999999"
					Var ServiceType = "coffee"
					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 + "TWN:2/"

					;If  IntVendingCampaign > 0 Then
					;	Var ECommerceQR =	ECommerceQR + Seeker.VendingCode
					;	Var ECommerceQR =	ECommerceQR + ":"
					;	Var ECommerceQR =	ECommerceQR + Seeker.CodeNumber
					;	Var ECommerceQR =	ECommerceQR + ":"
					;	Var ECommerceQR = ECommerceQR + Seeker.VendingCampaignRI3
					;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 = 3
					Refresh
				
				EndIf
			
			EndIf
		EndIf
	EndIf
	


</EventClick>
</Button>

<Button>
<X> 173 </X>
<Y> 1503 </Y>
<State> "Invisible"</State>
<Filename> Var( DirImage + "/bn_pay_with_linepay.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_pay_with_linepay.png") </FilenamePress>
<FilenameDisable> Var( DirImage + "/bp_pay_with_linepay.png") </FilenameDisable>
<Sound> "/mnt/sdcard/coffeevending/wav/click.wav" </Sound>
<Volume> SoundVolume </Volume>
<EventClick>
</EventClick>
</Button>

<Button>
<X> 680 </X>
<Y> 1503 </Y>
<State> PayState2</State>
<Filename> Var( DirImage + "/bn_pay_with_codeOther.png") </Filename>
<FilenamePress> Var( DirImage + "/bp_pay_with_codeOther.png") </FilenamePress>
<FilenameDisable> Var( DirImage + "/bp_pay_with_codeOther.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_codeOther.xml" 
			EndIf
		EndIf

	EndIf
</EventClick>
</Button>


<Button>
<X> 360 </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> 

	;VendingQR OFF
	
	If CoinInOK = 0 Then
        If CancelFlag = 0 Then
			SAVELOG "ButtonCancleMain  > Cancle Order."
			Machine CancelWepApp
			If ViewBill > 0 Then
					CoinVending BILLREJECT
			EndIf
            CoinVending OFF
			Var CancelFlag = 1
			Var cancelState = "Enable"
			Var CancelCounter = 0

			If FlagQROpened = 1 Then 
				Var CancelNumber = 12
			EndIf

			If CashlessPayFlag = 1 Then
				Var CashlessPayFlag = 0 
				CashlessReq FAIL
			EndIf
			
        EndIf
	EndIf

	Refresh
	 
</EventClick>
</Button>

<Text>
<X> 0 </X>
<Y> 1065 </Y>
<Width> 1080</Width>
<Align> Center </Align>
<Size> 72 </Size>
<Font> KanitMediumTTF </Font>
<Color> 0xB78F24 </Color>
<Value> showRemaining </Value>
</Text>



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

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



<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

	  CashlessReq OFF

	  If CashlessPayFlag = 1 Then
		Var CashlessPayFlag = 0 
		CashlessReq FAIL
	  EndIf


	  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>


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


<Image>
<X> 249 </X>
<Y> 751 </Y>
<State> AdultState1 </State>
<Filename> Var( DirImage + "/img_popup4.png" )</Filename>
</Image>

<Image>
<X> 838 </X>
<Y> 1350 </Y>
<State> eval(  
	 Var return = "Invisible"

	 If AdultState1 = "Enable" Then
	 	If AdultState2 = "Invisible" Then
	 		Var return = "Enable"
	 	EndIf
 	EndIf
 	DEBUGVAR return
	)  
</State>
<Animation>
	<Style> "Bounce" </Style>
	<OnEvent> "TimerSec=3" </OnEvent>
</Animation>
<Filename> "ROOT/taobin_project/image/anmi/arrow_1.png" </Filename>
</Image>

<Button>
<X> 360 </X>
<Y> 1373 </Y>
<State>AdultState1</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> 
	;VendingQR OFF
	
	If CoinInOK = 0 Then
        If CancelFlag = 0 Then
			SAVELOG "ButtonCancleMain  > Cancle Order."
			Machine CancelWepApp
			If ViewBill > 0 Then
					CoinVending BILLREJECT
			EndIf
            CoinVending OFF
			Var CancelFlag = 1
			Var cancelState = "Enable"
			Var CancelCounter = 0

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

	Refresh
</EventClick>
</Button>

<Image>
<X> 249 </X>
<Y> 751 </Y>
<State> AdultState2 </State>
<Filename> Var( DirImage + "/img_popup4-2.png" )</Filename>
</Image>

<Image>
<X> 249 </X>
<Y> 751 </Y>
<State> AdultState3 </State>
<Filename> Var( DirImage + "/img_popup4-3.png" )</Filename>
</Image>

<Button>
<X> 360 </X>
<Y> 1373 </Y>
<State>AdultState3</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> 
	;VendingQR OFF
	
	If CoinInOK = 0 Then
        If CancelFlag = 0 Then
			SAVELOG "ButtonCancleMain  > Cancle Order."
			Machine CancelWepApp
			If ViewBill > 0 Then
					CoinVending BILLREJECT
			EndIf
            CoinVending OFF
			Var CancelFlag = 1
			Var cancelState = "Enable"
			Var CancelCounter = 0

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

	Refresh
</EventClick>
</Button>
		
<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
			SAVELOG "ButtonCancleAlpha2  > Cancle Order."
			Machine CancelWepApp
			If ViewBill > 0 Then
				CoinVending BILLREJECT
			EndIf
            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> 445 </X>
<Y> 958 </Y>
<Width> 200 </Width>
<Height> 200 </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>

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

<GIF>
<X> 493 </X>
<Y> 968 </Y>
<Width> 94 </Width>
<Height> 94 </Height>
<State> LOADING_STATE </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>
<EventClick>
	DEBUGVAR IgnoreNetCore
	If IgnoreNetCore = "true" Then
		MakeDrinkV1  SelectDrink SelectSugarID
		Open "ROOT/taobin_project/xml/page_thankyou.xml" 
	EndIf
</EventClick>
</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>









</Popup>