Index: DOM/EC/Winkelkar/ProductLijn.cls.xml
===================================================================
diff -u -r29059 -r37059
--- DOM/EC/Winkelkar/ProductLijn.cls.xml	(.../ProductLijn.cls.xml)	(revision 29059)
+++ DOM/EC/Winkelkar/ProductLijn.cls.xml	(.../ProductLijn.cls.xml)	(revision 37059)
@@ -10,6 +10,12 @@
 <Required>1</Required>
 </Property>
 
+<Property name="ProjectReferentie">
+<Type>%String</Type>
+<Private>1</Private>
+<Parameter name="MAXLEN" value="200"/>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>Product:Prod.Product,Aantal:%Integer</FormalSpec>
 <Private>1</Private>
@@ -29,6 +35,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefProjectReferentie">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..ProjectReferentie
+]]></Implementation>
+</Method>
+
+<Method name="ZetProjectReferentie">
+<FormalSpec>NieuweProjectReferentie:%String</FormalSpec>
+<Implementation><![CDATA[	Set ..ProjectReferentie = NieuweProjectReferentie
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DefaultData>ProductLijnDefaultData</DefaultData>
@@ -40,6 +58,9 @@
 <Value name="5">
 <Value>Product</Value>
 </Value>
+<Value name="6">
+<Value>ProjectReferentie</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: APPS/VKP/impl/WinkelkarLijnenNaarOrderVisitor.cls.xml
===================================================================
diff -u -r29059 -r37059
--- APPS/VKP/impl/WinkelkarLijnenNaarOrderVisitor.cls.xml	(.../WinkelkarLijnenNaarOrderVisitor.cls.xml)	(revision 29059)
+++ APPS/VKP/impl/WinkelkarLijnenNaarOrderVisitor.cls.xml	(.../WinkelkarLijnenNaarOrderVisitor.cls.xml)	(revision 37059)
@@ -59,7 +59,9 @@
 <Implementation><![CDATA[
 	#dim Service As APPS.VKP.OrderLevenCyclusService = ##class(APPS.VKP.VerkoopContext).Instance().GeefOrderLevenCyclusService()
 	#dim ProductOrderLijn As DOM.VKP.ProductOrderlijn = Service.VoegToeProductVoorKlant(..Order,..Order.GeefKlantID(),ProductLijn.ProductGetObjectId(),ProductLijn.GeefAantal())
-	quit $$$OK
+	Do ProductOrderLijn.ZetProjectReferentie(ProductLijn.GeefProjectReferentie())
+	
+	Quit $$$OK
 ]]></Implementation>
 </Method>