Index: vhTest/Mock/APPS/EC/Winkelkar/impl/ProductLijnBuilder.cls.xml
===================================================================
diff -u -r37216 -r37232
--- vhTest/Mock/APPS/EC/Winkelkar/impl/ProductLijnBuilder.cls.xml	(.../ProductLijnBuilder.cls.xml)	(revision 37216)
+++ vhTest/Mock/APPS/EC/Winkelkar/impl/ProductLijnBuilder.cls.xml	(.../ProductLijnBuilder.cls.xml)	(revision 37232)
@@ -16,9 +16,9 @@
 </Method>
 
 <Method name="MaakLijn">
-<FormalSpec>ProductID:%String,Aantal:%String,PakketReferentie:%String</FormalSpec>
+<FormalSpec>ProductID:%String,Aantal:%String="1",PakketReferentie:%String="",ProjectReferentie:%String=""</FormalSpec>
 <ReturnType>DOM.EC.Winkelkar.ProductLijn</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("MaakLijn",ProductID,Aantal,PakketReferentie)
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("MaakLijn",ProductID,Aantal,PakketReferentie,ProjectReferentie)
 ]]></Implementation>
 </Method>
 </Class>
Index: DOM/EC/Winkelkar/ProductLijn.cls.xml
===================================================================
diff -u -r37230 -r37232
--- DOM/EC/Winkelkar/ProductLijn.cls.xml	(.../ProductLijn.cls.xml)	(revision 37230)
+++ DOM/EC/Winkelkar/ProductLijn.cls.xml	(.../ProductLijn.cls.xml)	(revision 37232)
@@ -20,13 +20,15 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>ProductId:%String,Aantal:%Integer</FormalSpec>
+<FormalSpec>ProductId:%String,Aantal:%Integer,PakketReferentie:%String="",ProjectReferentie:%String=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	do ..ProductSetObjectId(ProductId)
 	Set ..Aantal = Aantal
+	Set ..PakketReferentie = PakketReferentie
+	Set ..ProjectReferentie = ProjectReferentie
 	
 	Quit ##super()
 ]]></Implementation>
Index: vhUnitTest/APPS/EC/Winkelkar/impl/ProductLijnBuilder/MaakLijn/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EC/Winkelkar/impl/ProductLijnBuilder/MaakLijn/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EC/Winkelkar/impl/ProductLijnBuilder/MaakLijn/Test.cls.xml	(revision 37232)
@@ -0,0 +1,44 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EC.Winkelkar.impl.ProductLijnBuilder.MaakLijn.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Gegeven een ProductID en geen pakketreferentie/projectreferentie -&gt; ProductLijn maken">
+<Implementation><![CDATA[
+	Set DummyProduct = ##class(vhTest.Dummy.DOM.PM.Product).%New()
+	Set ProductLijnBuilder = ##class(APPS.EC.Winkelkar.impl.ProductLijnBuilder).%New()
+	#dim ProductLijn As DOM.EC.Winkelkar.ProductLijn = ProductLijnBuilder.MaakLijn(DummyProduct.GeefID(),1)
+	
+	Do $$$AssertEquals(ProductLijn.GeefProductId(),1000)
+	Do $$$AssertEquals(ProductLijn.PakketReferentie,"")
+	Do $$$AssertEquals(ProductLijn.ProjectReferentie,"")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Gegeven een ProductID en wel een pakketreferentie -&gt; ProductLijn maken met pakketreferentie ingevuld">
+<Implementation><![CDATA[
+	Set DummyProduct = ##class(vhTest.Dummy.DOM.PM.Product).%New()
+	Set ProductLijnBuilder = ##class(APPS.EC.Winkelkar.impl.ProductLijnBuilder).%New()
+	#dim ProductLijn As DOM.EC.Winkelkar.ProductLijn = ProductLijnBuilder.MaakLijn(DummyProduct.GeefID(),1,"PakketReferentie")
+	
+	Do $$$AssertEquals(ProductLijn.GeefProductId(),1000)
+	Do $$$AssertEquals(ProductLijn.PakketReferentie,"PakketReferentie")
+	Do $$$AssertEquals(ProductLijn.ProjectReferentie,"")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Gegeven een ProductID en wel een projectreferentie -&gt; ProductLijn maken met projectreferentie ingevuld">
+<Implementation><![CDATA[
+	Set DummyProduct = ##class(vhTest.Dummy.DOM.PM.Product).%New()
+	Set ProductLijnBuilder = ##class(APPS.EC.Winkelkar.impl.ProductLijnBuilder).%New()
+	#dim ProductLijn As DOM.EC.Winkelkar.ProductLijn = ProductLijnBuilder.MaakLijn(DummyProduct.GeefID(),1,,"ProjectReferentie")
+	
+	Do $$$AssertEquals(ProductLijn.GeefProductId(),1000)
+	Do $$$AssertEquals(ProductLijn.PakketReferentie,"")
+	Do $$$AssertEquals(ProductLijn.ProjectReferentie,"ProjectReferentie")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/EC/Winkelkar/impl/ProductLijnBuilder.cls.xml
===================================================================
diff -u -r37214 -r37232
--- APPS/EC/Winkelkar/impl/ProductLijnBuilder.cls.xml	(.../ProductLijnBuilder.cls.xml)	(revision 37214)
+++ APPS/EC/Winkelkar/impl/ProductLijnBuilder.cls.xml	(.../ProductLijnBuilder.cls.xml)	(revision 37232)
@@ -39,17 +39,9 @@
 </Method>
 
 <Method name="MaakLijn">
-<FormalSpec>ProductID:%String,Aantal:%String,PakketReferentie:%String</FormalSpec>
+<FormalSpec>ProductID:%String,Aantal:%String="1",PakketReferentie:%String="",ProjectReferentie:%String=""</FormalSpec>
 <ReturnType>DOM.EC.Winkelkar.ProductLijn</ReturnType>
-<Implementation><![CDATA[
-	#dim Product As DOM.PM.Product = ..ProductAPI.GeefProduct(ProductID)
-	
-	#dim ProductLijn As DOM.EC.Winkelkar.ProductLijn = ##class(DOM.EC.Winkelkar.ProductLijn).%New()
-	
-	Set ProductLijn.Product = Product
-	Do ProductLijn.ZetAantal(Aantal)
-	
-	Quit ProductLijn
+<Implementation><![CDATA[	Quit ##class(DOM.EC.Winkelkar.ProductLijn).%New(ProductID, Aantal, PakketReferentie,ProjectReferentie)
 ]]></Implementation>
 </Method>
 </Class>