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 

	If MyMintEnable = 1 Then
		If FromMyMintPro = 1 Then
			Var AddData = 0
		EndIf
	EndIf

	If ProBadValentineEnable = 1 Then
		If FromBadValentinePro = 1 Then
			Var AddData = 0
		EndIf
	EndIf

	DEBUGVAR Seeker.CodeChannel
	DEBUGVAR Seeker.CollectPointMain
	DEBUGVAR LipitPro
	DEBUGVAR FromLipitPro
	If LipitPro = 1 Then
		If FromLipitPro = 1 Then
			If Seeker.CodeChannel = 1 Then
				If Seeker.CollectPointMain = 0 Then
					Var AddData = 0
				EndIf
			EndIf
		EndIf
	EndIf

	DEBUGVAR FromPowerUpPro
	If FreeEnergyDrink = 1 Then
		If FromPowerUpPro = 1 Then
				; AddData

			; +1 in quota in this id card
			Var Param1 = ""
			Var Param2 = ""
			Var Param3 = ""

			If IDNum = "" Then

			Else
				AddData 44 TelephoneNumber IDNum Param1 Param2
			EndIf

			; clear id
			Var IDNum = ""
			Var FromPowerUpPro = 0
			Var AddData = 0
			Var DisableFromPowerup = "true"
		Else
			Var DisableFromPowerup = ""
		EndIf
	EndIf

	If EnergyDrink1BathPro = 1 Then
		If FromEnergyDrink1BathPro = 1 Then
			SAVELOG "Adding Energy drink 1 Bath pro quota"
			Var Param1 = ""
			Var Param2 = ""
			Var Param3 = ""

			If IDNum = "" Then

			Else
				AddData 44 TelephoneNumber IDNum Param1 Param2
			EndIf

			; clear id
			Var IDNum = ""
			Var FromEnergyDrink1BathPro = 0
			Var AddData = 0
			Var DisableFromPowerup = "true"
		Else
			Var DisableFromPowerup = ""
		EndIf
	EndIf

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

	If Seeker.PayWithQR = 1 Then
		Var GetScore = Seeker.VendingTSID
	Else
		Var GetScore = ""
	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