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>

	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 = IntVendingCampaign 

	Var PayAmount = PriceDrink
	
	Var LOADING_STATE = "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 - IntVendingCampaign 
	Var RemainAmount = RemainAmount - CoinAmount
	Var RemainAmount = RemainAmount - 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 VendingDiscount = DiscountDrink
	

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


	SAVELOG SelectDrink

	SAVELOG QRChannel
	SAVELOG QRCODE99
	DEBUGVAR QRCODE99

	SAVELOG VendingCampaign
	SAVELOG VendingCode
	SAVELOG CodeChannel


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

	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 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 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 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 FreeVendingCampaign = 1
		CoinVending OFF		
		MakeDrinkV1  SelectDrink SelectSugarID
		Open "ROOT/taobin_project/xml/page_thankyou.xml" 

	EndIf

	If 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 - IntVendingCampaign
		Var RemainAmount = RemainAmount - IntVendingCredit
		Var SumCoinAmount = CoinAmount + 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 + "/bn_pay_with_codeSmall_error.png"
	Else

		If 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"
	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
			
			;Var GIFShowProcess = "ROOT/ui/page_05_loading/pic_loading_cup.gif" 
			MakeDrinkV1  SelectDrink SelectSugarID
			Var PayWithQR = 1
			;Open "/media/bt/xml/page_page4-1.xml" 

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

	


	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 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 + CodeNumber
			Var ECommerce =	ECommerce + "/"
			Var ECommerce =	ECommerce + "C"
			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
			
			MakeDrinkV1  SelectDrink SelectSugarID
			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 CancelCounter = 0
				If CoinAmount = 0 Then
					If IntVendingCampaign = 0 Then
						VendingQR OFF
						Open "ROOT/taobin_project/xml/page_catalog.xml"  
					EndIf
				EndIf
					
        	EndIf 
		EndIf
	EndIf


	If CancelFlag = 1 Then

		Var CancelCounter = CancelCounter + 1
		If CancelCounter = CancelNumber Then
			;Change CoinAmount
			If CoinAmount > 0 Then
				If 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 TNumberTaobinCredit = "" Then
					Var TelephoneNumber = "0899999999"
					Var PayO2 = ""
				Else
					Var TelephoneNumber = TNumberTaobinCredit
					Var PayO2 = 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
				;If NoGotoMenupage = "false" Then
				;
				;	Open "ROOT/taobin_project/xml/page_catalog.xml" 
				;EndIf
				Var ActionOKCase = 1
				If 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 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 - IntVendingCampaign
			Var RemainAmount = RemainAmount - 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 - IntVendingCampaign
			Var RemainAmount = RemainAmount - IntVendingCredit

			Var SumCoinAmount = CoinAmount + IntVendingCampaign
			Var SumCoinAmount = SumCoinAmount + 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
				SAVELOG "VDCancle  > Cancle Order."
				Machine CancelWepApp
				CoinVending OFF
				Var CancelFlag = 1
				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> 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>

<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
			SAVELOG "ButtonCancleMain  > Cancle Order."
			Machine CancelWepApp
            CoinVending OFF
			Var CancelFlag = 1
			Var CancelCounter = 0

			If FlagQROpened = 1 Then 
				Var CancelNumber = 12
			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> 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 + "/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> 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
				If alphaState = "Invisible" 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 + 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 + "KBA:2/"



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

				If  IntVendingCredit > 0 Then
					Var ECommerceQR =	ECommerceQR + "CRD"
					Var ECommerceQR =	ECommerceQR + ":"
					Var ECommerceQR =	ECommerceQR + TNumberTaobinCredit
					Var ECommerceQR =	ECommerceQR + ":"
					Var ECommerceQR = 	ECommerceQR + 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
				Refresh

				
				

				;If CoinAmount > 0 Then
				;	Change CoinAmount
				;	Var ChangeOK = 0
				;	Var CancelFlag = 1
				;	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> 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> 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> 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 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 + 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 + VendingCode
					;	Var ECommerceQR =	ECommerceQR + ":"
					;	Var ECommerceQR =	ECommerceQR + CodeNumber
					;	Var ECommerceQR =	ECommerceQR + ":"
					;	Var ECommerceQR = ECommerceQR + 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> 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> 

	;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 CancelCounter = 0

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

	  
	;If CoinAmount > 0 Then
	;	Change CoinAmount
	;	Var ChangeOK = 0
	;	Var CancelFlag = 1
	;	Var CancelCounter = 0
	;			
	;Else
	;	;Var ChangeOK = 1
	;EndIf

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

	Refresh
	 
</EventClick>
</Button>

<Text>
<X> 0 </X>
<Y> 1132 </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>

<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
			SAVELOG "ButtonCancleAlpha2  > Cancle Order."
			Machine CancelWepApp
			If ViewBill > 0 Then
				CoinVending BILLREJECT
			EndIf
            CoinVending OFF
			Var CancelFlag = 1
			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>



<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"
			;Open "ROOT/taobin_project/xml/page_tel_number_mask.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>