Var AddData = 1

	DEBUGVAR Seeker.TNumberTaobinMember
	DEBUGVAR Seeker.PointTaobinStr

	If Seeker.TNumberTaobinCredit = "" Then
		Var TelephoneNumber = "0899999999"
		Var PayO2 = ""

		If Seeker.TNumberTaobinMember = "" Then
			Var AddData = 0
		Else
			Var TelephoneNumber = Seeker.TNumberTaobinMember
		EndIf

	Else
		Var TelephoneNumber = Seeker.TNumberTaobinCredit
		Var PayO2 = Seeker.CoffeePinNumber
	EndIf


	If Seeker.VendingCode = "MKFOO" Then
		Var AddData = 0
	EndIf

	DEBUGVAR Seeker.CodeChannel
	DEBUGVAR Seeker.CollectPointMain

	Var PointCrm = ""
	If Seeker.FromConsent = 1 Then
		Var PointCrm = "pdpa1"
	EndIf

	If Seeker.PayWithQR = 1 Then
		Var GetScore = Seeker.VendingTSID
	Else
		Var GetScore = ""
	EndIf
    
    DEBUGVAR Seeker.RedeemSwensenCoupon
    DEBUGVAR Seeker.RedeemSwensenCouponDrinkPrice
	If Seeker.RedeemSwensenCoupon = 1 Then
        Var Cid = 56
        Var var1 = ""
        Var var2 = ""
        Var var3 = ""
        If Seeker.RedeemSwensenCouponDrinkPrice >= 20 Then
            Var var1 = "153"
        EndIf
        If Seeker.RedeemSwensenCouponDrinkPrice >= 30 Then
            Var var1 = "154"
        EndIf
        If Seeker.RedeemSwensenCouponDrinkPrice >= 40 Then
            Var var1 = "155"
        EndIf
        If Seeker.RedeemSwensenCouponDrinkPrice >= 50 Then
            Var var1 = "156"
        EndIf

        DEBUGVAR var1

        If var1 = "" Then
        
        Else
            AddData Cid Seeker.TNumberTaobinMember var1 var2 var3
        EndIf
	EndIf

	If AddData = 1 Then
		Var Cid = 26
		DEBUGVAR "Befor Brewing3"
		DEBUGVAR Seeker
		DEBUGVAR Seeker.UseGet15Discount
		If NewCollectPoint = 1 Then
			If Seeker.UseGet15Discount = 1 Then
				Var Cid = 39
			Else
				Var Cid = 40
				Var PreviousSeeker.UseGetDrink5Bath = 0
			EndIf
		EndIf

		AddData Cid Seeker.TNumberTaobinMember  Seeker.PointTaobinStr PointCrm GetScore
	EndIf