SGP: add new_brewing3 (no next cup edition)

2025-04-07 14:43:12 +07:00 · 2025-04-07 14:43:12 +07:00 · 5a9b8927f4
commit 5a9b8927f4
parent 4a294ddf73
5 changed files with 2100 additions and 0 deletions
--- a/inter/whatthecup/sgp/xml/process/addpoint.ev
+++ b/inter/whatthecup/sgp/xml/process/addpoint.ev
@ -0,0 +1,89 @@
+
+
+	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
+
+
+