THAI: Add Lipit promotion

xml/page_payment_code.xml

@@ -16,6 +16,8 @@
    
     Var GetPayInfoFlag = 0
     Var Seeker.CodeChannel = 0
+	Var Seeker.CollectPointMain = 0
+	Var Seeker.CollectPointPromotion = 0
 
 	;Var VendingQRCode = "ERROR"
 	;VendingQR ON
@@ -193,14 +195,19 @@
 		If Seeker.VendingCode = "C00" Then
 
 		Else
-
 			Var VendingCreditRemain = ""
-			Var IntVendingCampaign1 = VendingCampaign1
-			INT IntVendingCampaign1
 
-			If IntVendingCampaign1 > 0 Then
-				Var VendingCreditRemain = VendingCampaign1
-			EndIf 
+			If VendingCampaign1 = "" Then
+				Var IntVendingCampaign1 = -1
+			Else
+				Var IntVendingCampaign1 = VendingCampaign1
+				INT IntVendingCampaign1
+
+				If IntVendingCampaign1 > 0 Then
+					Var VendingCreditRemain = VendingCampaign1
+				EndIf 
+			EndIf
+
 
 
 
@@ -209,10 +216,36 @@
 		
 			Var VendingREFID = SessionID
 
+
+			DEBUGVAR IntVendingCampaign1
+			DEBUGVAR PayAmount
+			DEBUGVAR Seeker.IntVendingCampaign
+
 			If  Seeker.IntVendingCampaign > 0 Then
 				Var QRChannel = 0
 
 				If Seeker.IntVendingCampaign >= PayAmount Then 
+
+					If IntVendingCampaign1 >= 0  Then
+						If Seeker.VendingCode = "FFR50" Then
+							Var Seeker.CollectPointMain = 0
+							Var Seeker.CollectPointPromotion = 0
+						Else
+							Var Seeker.CollectPointMain = 1
+							Var Seeker.CollectPointPromotion = 1
+						EndIf
+					EndIf
+
+					If Seeker.VendingCode = "MKF" Then
+						Var Seeker.CollectPointMain = 0
+						Var Seeker.CollectPointPromotion = 1
+					EndIf
+
+					If Seeker.VendingCode = "AFR" Then
+						Var Seeker.CollectPointMain = 0
+						Var Seeker.CollectPointPromotion = 1
+					EndIf
+
 					;Open "ROOT/taobin_project/xml/page_payment_cash.xml" 
 					Var Seeker.VendingCampaign = PayAmount
 					Var Seeker.FreeVendingCampaign = 1
@@ -243,6 +276,9 @@
 						EndIf
 						Open "ROOT/taobin_project/xml/page_thankyou.xml" 
 					EndIf
+				Else
+					Var Seeker.CollectPointMain = 1
+					Var Seeker.CollectPointPromotion = 1
 				EndIf