taobin_project/xml/page_payment.xml

<Popup>
<Cache> "Enable" </Cache>
<Width> 1080 </Width>
<Height> 1920 </Height>
<Background> "0xeae6e1" </Background>
<EventOpen>
	; On open
	Var GetPayInfoFlag = 0
	Var SessionID2 = ""
	Var testservice = "kbank"
	Var QRCODE99 = ""
	Var QRCODETMP = ""

	Var QRChannel = 0

	;Var PriceDrink = 5

	Var DiscountDrink = 0
	Var SelectSlot = "1"

	SAVELOG BoxID

	Var ServiceCharge = 0

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


	Var Seeker.TaobinErrorNetwork = 0

	Var Seeker.VendingCode = "C00"
	Var Seeker.VendingCampaignRI3 = 0
	Var Seeker.IntVendingCampaign = 0
	Var Seeker.FreeVendingCampaign = 0
	Var Seeker.CodeChannel = 0
	Var CoinVendingOnFlag = 0 

	Var Seeker.IntVendingCredit = 0
	
	Var Seeker.StoreCreditFlag = 0
	Var Seeker.pageStoreCredit0 = 0
	Var Seeker.TNumberTaobinCredit = ""
	Var Seeker.TNumberTaobinMember = ""
	Var Seeker.CoffeePinNumber = ""
	
	Var Seeker.VendingDiscount = 0
	Var Seeker.VendingCampaign = 0
	Var Seeker.VendingTSID = ""

	
	Var PayType = ""
	Var CART_INDEX = 0

	Var QRCODE99KBANK = ""
	Var QRCODE99Shoppy = ""
	Var LOADING_STATE = "Invisible"
	Var QR_POPUP = "/img_popup2.png"

	If show_eng = "true" Then 
		Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment"
		Var PlaySoundLag = "ROOT/taobin_project/sound_eng/How_would_you_like_to_pay.mp3"

	Else
		Var DirImage = "ROOT/taobin_project/image/page_payment"
		Var PlaySoundLag = "ROOT/taobin_project/sound_thai/payment.mp3"
	EndIf

	SAVELOG MachineStage


	READ_FILE "/mnt/sdcard/can_sell" ReadyForBrew

	If ReadyForBrew = "false" Then
		Open "ROOT/taobin_project/xml/page_back_to_main.xml"
		Var ReadyForBrew = "false"
	EndIf


	
	; Test
	;Var MachineStage = "-"

	Var PayReference = ""
	Var	Seeker.CreditReferenceTmp = ""

	If web_app_prepar = "true" Then
		Var web_app_prepar = "false"
		__CMD "ui-load-playlist" 0 SelectDrink "-"
	EndIf




	Var ServiceAmount2 = PriceDrink
	Var TelephoneNumber = "0899999999"
	Var ServiceType = "coffee"

	Var VendingCreditRemain = ""
	


	DEBUGVAR Seeker.thankLidFlag
	DEBUGVAR Seeker.thankStrawFlag

	Var Seeker.PayWithQR = 0

	If CupChecking = "true" Then
		Var StageShowAlias = "Invisible"
		Var StageShowLoading = "Enable"
	Else
		Var StageShowAlias = "Enable"
		Var StageShowLoading = "Invisible"
	EndIf


	Var Delay = 0
	Var DelayCount = 0
				
	
</EventOpen>
<Timeout> 900 </Timeout>
<EventTimeout> 


	If Seeker = "curr" Then
		If web_ready = "false" Then

			If MachineStage = "remove-cup" Then
				SAVELOG "MachineStage = remove-cup"
				If HaveCup = "true" Then
					Open "ROOT/taobin_project/xml/page_back_to_remove_cup.xml"
				EndIf

			EndIf
			
			If CupChecking = "true" Then
				If HaveCup = "true" Then
					Open "ROOT/taobin_project/xml/page_back_to_remove_cup.xml"
				EndIf
			EndIf
		EndIf

	EndIf

	If CupChecking = "true" Then
		Var CountStepForCupFlagDelay = 3
	EndIf 
	If HaveCup = "true" Then
		Var CountStepForCupFlagDelay = 3
	EndIf
	
	If ReadyForBrew = "false" Then
		Open "ROOT/taobin_project/xml/page_back_to_main.xml"
		Var ReadyForBrew = "false"
	EndIf

	If Seeker = "curr" Then
		If MachineStage = "remove-cup" Then
			SAVELOG "MachineStage = remove-cup 2"
			Open "ROOT/taobin_project/xml/page_back_to_remove_cup.xml"

		EndIf
	EndIf
	
	If CupChecking = "false" Then
			Var CountStepPackPayment = CountStepPackPayment + 1
	EndIf

	;Var CountStepPackPayment = 1

	DEBUGVAR Seeker
	DEBUGVAR HaveCup
	DEBUGVAR CupChecking
	DEBUGVAR CountStepPackPayment
	DEBUGVAR CountStepForCupFlagDelay



	If CountStepPackPayment = CountStepForCupFlagDelay Then

		SAVELOG ExtendData

		If GetPayInfoFlag = 0 Then
			SaveLog "RoadShow test"
			If RoadShow = "false" Then
				;CoinVending ON
				CoinVending XBILL
				;Var CoinAmount = 0
				Var Delay = 1
			EndIf

			
			Var RemainAmount = 0



			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"
			;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 GetPayInfoFlag = 1
			;Var ReqPayInfoFlag = 1

		EndIf

		; Reset
		Var MachineState_Result = 0


		DEBUGVAR ExtendData


		;If web_readyOK = "true" Then
		;
		;	Var  Seeker.selected_a_drink = SelectDrink
		;	Var  Seeker.ServiceAmount2 = PriceDrink
		;	Var PayAmount = PriceDrink
		;
		;	If web_payment = "CODE" Then
		;		Open "ROOT/taobin_project/xml/page_payment_code.xml"
		;	EndIf
		;
		;	If web_payment = "CREDIT" Then
		;		Open "ROOT/taobin_project/xml/page_payment_credit.xml"
		;	EndIf
		;
		;EndIf

		;Open "ROOT/taobin_project/xml/page_payment_cash.xml"
	
	EndIf

	If Delay = 1 Then
		Var DelayCount = DelayCount + 1

		If DelayCount >= 2 Then
			If web_readyOK = "true" Then
		
				Var  Seeker.selected_a_drink = SelectDrink
				Var  Seeker.ServiceAmount2 = PriceDrink
				Var PayAmount = PriceDrink
		
				If web_payment = "CODE" Then
					Open "ROOT/taobin_project/xml/page_payment_code.xml"
				EndIf
		
				If web_payment = "CREDIT" Then
					Open "ROOT/taobin_project/xml/page_payment_credit.xml"
				EndIf
		
			EndIf

			Open "ROOT/taobin_project/xml/page_payment_cash.xml"
		EndIf
	EndIf



	TimerReset
	Refresh
</EventTimeout> 


<Video>
<X> 0 </X>
<Y> 0 </Y>
<Width> 1080</Width>
<Height> 380 </Height>
<Loop> "true" </Loop>
<Filename> video_menu_0 </Filename>
</Video>



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

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

<Text>
<State> StageShowAlias</State>	
<X> 0 </X>
<Y> 1022 </Y>
<Width> 1080</Width>
<Align> Center </Align>
<Size> 24 </Size>
<Font> KanitLightTTF </Font>
<Color> 0x6F5F51 </Color>
<Value> showdesc </Value>
</Text>

<Image>
<State> StageShowAlias</State>
<X> 144 </X>
<Y> 413 </Y>
<Filename> Var( DirImage + "/text_1.png" ) </Filename>
</Image>

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

<Image>
<State>StageShowLoading</State>
<X> 267 </X>
<Y> 1065 </Y>
<Filename> Var( DirImage + "/loadingText.png" )</Filename>
</Image>


</Popup>