DEBUGVAR "MIGGAZE0"
If Seeker.PayWithQR = 1 Then

		Var ServiceAmount2 = Seeker.ServiceAmount2
		Var CreditReference = ""
		Var TxReference = ""
		Var VendingDiscount = 0
		Var VendingCampaign = 0
		Var SelectDrink = Seeker.selected_a_drink
		Var SuggestID  = ""

		If ChangeFlag2 = 1 Then
			Var TelephoneNumber = "0899999999"
			Var PayO2 = ""
			Var ServiceType = "credit"
			Var SessionID2 = SelectDrink
			Var ServiceCredit = "coffee"
			Var PayDetail = ""
			Var PayDetail2 = ""
			Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate

		Else

			If Seeker.StoreCreditFlag = 1 Then
				Var TelephoneNumber = Seeker.TNumberTaobinCredit
				Var PayO2 = Seeker.CoffeePinNumber
				Var ServiceType = "credit"
				Var SessionID2 = SelectDrink
				Var ServiceCredit = "coffee"
				Var PayDetail = ""
				Var PayDetail2 = ""
				Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate

			EndIf
		EndIf

		TRY "/mnt/sdcard/coffeevending/taobin_project/xml/process/addpoint.ev"

		If ConnectWithPOSMachine = 1 Then
    		Var SelectDrink = Seeker.selected_a_drink
    		Var ExtendData = Seeker.ExtendData
    		Var ServiceAmount2 = Seeker.ServiceAmount2
    		Var SessionID2 = SelectSlot + ":"
    		Var SessionID2 = SessionID2 + ExtendData

    		Var CreditReference = Seeker.CreditReferenceTmp
    		Var VendingDiscount = Seeker.VendingDiscount
    		Var VendingCampaign = Seeker.VendingCampaign
    		Var TxReference = Seeker.TxRef1
    		Var VendingOrderID = Seeker.ORDER_ID
    		Var PayType = "newpay"

    		Var ServiceType = "coffee-payment"
    		Var ServiceCredit = SelectDrink
    		Var SuggestID  = ""

    		Var PayDetail = "2/S:0/0//XML|" +  Seeker.OrderChanel

    		If GetFreeFromError = 1 Then
    			Var Seeker.CodeChannel = 1
    			Var Seeker.VendingCode = "FAU"
    			Var Seeker.CodeNumber = "0000000000"
    			Var VendingCampaign = ServiceAmount2
    		EndIf

    		Var PayDetail2 = Seeker.PayDetail2
    		POSPay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
		EndIf


	Else

		TRY "/mnt/sdcard/coffeevending/taobin_project/xml/process/addpoint.ev"


		Var SelectDrink = Seeker.selected_a_drink
		Var ExtendData = Seeker.ExtendData
		Var ServiceAmount2 = Seeker.ServiceAmount2
		Var SessionID2 = SelectSlot + ":"
		Var SessionID2 = SessionID2 + ExtendData

		Var CreditReference = Seeker.CreditReferenceTmp
		Var VendingDiscount = Seeker.VendingDiscount
		Var VendingCampaign = Seeker.VendingCampaign
		Var TxReference = Seeker.TxRef1
		Var VendingOrderID = Seeker.ORDER_ID
		Var PayType = "newpay"

		Var ServiceType = "coffee-payment"
		Var ServiceCredit = SelectDrink
		Var SuggestID  = ""

		Var PayDetail = "2/S:0/0//XML|" +  Seeker.OrderChanel

		If GetFreeFromError = 1 Then
			Var Seeker.CodeChannel = 1
			Var Seeker.VendingCode = "FAU"
			Var Seeker.CodeNumber = "0000000000"
			Var VendingCampaign = ServiceAmount2
		EndIf

		If Seeker.CodeChannel = 1 Then
			Var SessionID2 = SessionID2 + "/"
			Var SessionID2 = SessionID2 + ""
			Var SessionID2 = SessionID2 + "/"
			Var SessionID2 = SessionID2 + Seeker.VendingCode
			Var SessionID2 = SessionID2 + "/"
			Var SessionID2 = SessionID2 + SelectDrink
			Var SessionID2 = SessionID2 + "/"
			Var SessionID2 = SessionID2 + BoxID
			Var SessionID2 = SessionID2 + "/"
			Var SessionID2 = SessionID2 + "S"
			Var SessionID2 = SessionID2 + "/"
			Var SessionID2 = SessionID2 + Seeker.CodeNumber
			Var SessionID2 = SessionID2 + "/"


			Var PayDetail2 = Seeker.PayDetail2
			Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate
		Else


			Var PayDetail2 = Seeker.PayDetail2
			Pay ServiceType TelephoneNumber ServiceCredit SuggestID SessionID2 ServiceAmount2 ServiceCharge Donate

		EndIf
	EndIf