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 MachineStage = "-"
	Var HaveCup = "true"

	;Var PriceDrink = 5

	Var DiscountDrink = 0
	Var SelectSlot = "1"

	SAVELOG BoxID

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


	Var IntVendingCampaign = 0
	Var FreeVendingCampaign = 0
	Var CodeChannel = 0
	Var CoinVendingOnFlag = 0 

	If show_eng = "true" Then 
		Var DirImage = "ROOT/taobin_project/image/page_payment_en/page_payment"

	Else
		Var DirImage = "ROOT/taobin_project/image/page_payment"
	EndIf

	If MachineStage = "close-maintenance" Then
		Open "ROOT/taobin_project/xml/page_show_error.xml"

	EndIf

	
</EventOpen>
<Timeout> 900 </Timeout>
<EventTimeout> 
	Var CountStepPackPayment = CountStepPackPayment + 1
	If CountStepPackPayment = 1 Then

		SAVELOG ExtendData

		If GetPayInfoFlag = 0 Then

			CoinVending ON
			
			Var RemainAmount = 0



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

		EndIf

		; Reset
		Var MachineState_Result = 0
		Open "ROOT/taobin_project/xml/page_payment_cash.xml"
	
	EndIf

	TimerReset
	Refresh
</EventTimeout> 


;<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> "ROOT/taobin_project/video/taobin_adv2.mp4" </Filename>
</Video>


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

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

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


</Popup>