diff --git a/xml/page_payment.xml b/xml/page_payment.xml
index 0fac1de0..35b29d1f 100644
--- a/xml/page_payment.xml
+++ b/xml/page_payment.xml
@@ -284,6 +284,7 @@
 		Var Seeker.CodeChannel = 1
 		Var Seeker.CodeNumber = IDNum
 		Var Seeker.VendingCampaignRI3 = PriceDiff
+		Var Seeker.CampaignPPrice = PriceDrink - PriceDiff
 	EndIf
 
 	If ChildrenFree = 1 Then
diff --git a/xml/page_payment_cash.xml b/xml/page_payment_cash.xml
index daefadf4..93f3bb6e 100644
--- a/xml/page_payment_cash.xml
+++ b/xml/page_payment_cash.xml
@@ -168,6 +168,10 @@
 	If Seeker.VendingCode = "C00" Then
 		Var Seeker.CodeChannel = 0
 	EndIf
+
+	If From15THBPro = 1 Then
+		Var Seeker.CodeChannel = 1
+	EndIf 
 	
 	Var ExtendData = Seeker.ExtendData