THAI: Added Swensen coupon

xml/process/addpoint.ev

@@ -2,7 +2,7 @@
 
 	Var AddData = 1
 
-	DEBUGVAR Seeker.TNumberTaobinMember 
+	DEBUGVAR Seeker.TNumberTaobinMember
 	DEBUGVAR Seeker.PointTaobinStr
 
 	If Seeker.TNumberTaobinCredit = "" Then
@@ -14,7 +14,7 @@
 		Else
 			Var TelephoneNumber = Seeker.TNumberTaobinMember
 		EndIf
-				
+
 	Else
 		Var TelephoneNumber = Seeker.TNumberTaobinCredit
 		Var PayO2 = Seeker.CoffeePinNumber
@@ -23,25 +23,13 @@
 
 	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
 
 	Var PointCrm = ""
-	If Seeker.FromConsent = 1 Then 
+	If Seeker.FromConsent = 1 Then
 		Var PointCrm = "pdpa1"
 	EndIf
 
@@ -49,7 +37,36 @@
 		Var GetScore = Seeker.VendingTSID
 	Else
 		Var GetScore = ""
-	EndIf 	
+	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