Index: APPS/EC/Winkelkar/impl/LijnNaarDtoVisitor.cls.xml
===================================================================
diff -u -r1674 -r2015
--- APPS/EC/Winkelkar/impl/LijnNaarDtoVisitor.cls.xml	(.../LijnNaarDtoVisitor.cls.xml)	(revision 1674)
+++ APPS/EC/Winkelkar/impl/LijnNaarDtoVisitor.cls.xml	(.../LijnNaarDtoVisitor.cls.xml)	(revision 2015)
@@ -50,6 +50,7 @@
 	Set Lijn.Aantal = MaatwerkLijn.GeefAantal()
 	Set Lijn.EenheidPrijs = MaatwerkLijn.GeefEenheidPrijs()
 	Set Lijn.TotaalPrijs = MaatwerkLijn.GeefTotaalPrijs()
+	Set Lijn.ProjectReferentie = MaatwerkLijn.GeefProjectReferentie()
 	
 	Set KenmerkNaarDtoVisitor = ##class(APPS.PM.Maatwerk.impl.KenmerkNaarDtoVisitor).%New()
 	Do MaatwerkLijn.GeefIngegevenKenmerken().Accept(KenmerkNaarDtoVisitor)
Index: DOM/common/ProductLijn.cls.xml
===================================================================
diff -u -r1075 -r2015
--- DOM/common/ProductLijn.cls.xml	(.../ProductLijn.cls.xml)	(revision 1075)
+++ DOM/common/ProductLijn.cls.xml	(.../ProductLijn.cls.xml)	(revision 2015)
@@ -3,6 +3,7 @@
 <Class name="DOM.common.ProductLijn">
 <Abstract>1</Abstract>
 <ProcedureBlock>1</ProcedureBlock>
+<ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="Aantal">
 <Description>
Index: APPS/VKP/Maatwerk/impl/WinkelkarToProductVisitor.cls.xml
===================================================================
diff -u -r1679 -r2015
--- APPS/VKP/Maatwerk/impl/WinkelkarToProductVisitor.cls.xml	(.../WinkelkarToProductVisitor.cls.xml)	(revision 1679)
+++ APPS/VKP/Maatwerk/impl/WinkelkarToProductVisitor.cls.xml	(.../WinkelkarToProductVisitor.cls.xml)	(revision 2015)
@@ -65,7 +65,7 @@
 	Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
 	Set Product = ProductAPI.MaakProduct(ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem)
 	
-	Do ..BesteldeProducten.Lijst.Insert(##class(APPS.VKP.Maatwerk.impl.BesteldProduct).%New(Product.GeefPRNr(),..HuidigeLijn.GeefAantal()))
+	Do ..BesteldeProducten.Lijst.Insert(##class(APPS.VKP.Maatwerk.impl.BesteldProduct).%New(Product.GeefPRNr(),..HuidigeLijn.GeefAantal(),..HuidigeLijn.GeefProjectReferentie()))
 	
 	Quit $$$OK
 ]]></Implementation>
Index: APPS/EC/Winkelkar/WinkelkarService.cls.xml
===================================================================
diff -u -r2011 -r2015
--- APPS/EC/Winkelkar/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 2011)
+++ APPS/EC/Winkelkar/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 2015)
@@ -96,12 +96,12 @@
 </Method>
 
 <Method name="VoegToeMaatwerk">
-<FormalSpec>Applicatie:APPS.common.dto.Applicatie,WinkelkarID:%String,GroepNaam:%String,IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Aantal:%String</FormalSpec>
+<FormalSpec>Applicatie:APPS.common.dto.Applicatie,WinkelkarID:%String,GroepNaam:%String,IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Aantal:%String,ProjectReferentie:%String=""</FormalSpec>
 <ReturnType>APPS.EC.Winkelkar.dto.Winkelkar</ReturnType>
 <Implementation><![CDATA[
 	Set Winkelkar = ..OpenWinkelkar(Applicatie, WinkelkarID)
 	
-	Set Status = ..VoegToeAanGroep(Winkelkar, GroepNaam, ..MaakMaatwerkLijn(IngegevenKenmerken, Aantal, Winkelkar.Klant.%Id()))
+	Set Status = ..VoegToeAanGroep(Winkelkar, GroepNaam, ..MaakMaatwerkLijn(IngegevenKenmerken, Aantal, Winkelkar.Klant.%Id(), ProjectReferentie))
 	
 	If ($$$ISERR(Status))
 	{
@@ -170,7 +170,7 @@
 </Method>
 
 <Method name="MaakMaatwerkLijn">
-<FormalSpec>IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Aantal:%String,KlantID:%String</FormalSpec>
+<FormalSpec>IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Aantal:%String,KlantID:%String,ProjectReferentie:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	If (Aantal '> 0)
@@ -202,7 +202,7 @@
 	Set EenheidPrijs = $$ROUND^KPRIJS(KostItem.GeefKost())
 	Set TotaalPrijs = EenheidPrijs * Aantal
 	
-	Quit ##class(DOM.EC.Winkelkar.MaatwerkLijn).%New(Aantal, IngegevenKenmerkenDOM, EenheidPrijs, TotaalPrijs)
+	Quit ##class(DOM.EC.Winkelkar.MaatwerkLijn).%New(Aantal, IngegevenKenmerkenDOM, EenheidPrijs, TotaalPrijs, ProjectReferentie)
 ]]></Implementation>
 </Method>
 
Index: FLOWOFF.mac.rou
===================================================================
diff -u -r1733 -r2015
--- FLOWOFF.mac.rou	(.../FLOWOFF.mac.rou)	(revision 1733)
+++ FLOWOFF.mac.rou	(.../FLOWOFF.mac.rou)	(revision 2015)
@@ -540,17 +540,19 @@
  Do ##class(CHUI.Flow.ConfiguratorHelper).StartConfiguratorMet(Parameters)
  Set BesteldeProducten = ##class(CHUI.Flow.ConfiguratorHelper).GeefBesteldeProducten(##class(APPS.VKP.Maatwerk.enu.DocumentType).Offerte(), OFFNr)
  
- 
  If (WijzigProduct)
  {
 	 Do MDELETE
  }
  
+ New GeselecteerdeLijn
  Set BesteldeProductenIterator = ##class(TECH.ListIterator).%New(BesteldeProducten.Lijst)
  While (BesteldeProductenIterator.HasNext())
  {
 	 Set BesteldProduct = BesteldeProductenIterator.Next()
 	 Do PINSERT("","",BesteldProduct.GeefPRNr(),BesteldProduct.GeefAantal())
+	 Set OFLNr=Detail(@DL(1)@(6))
+	 Set $Piece(^KOFKL(KLNr,"F",OFFNr,OFLNr),"\",5) = BesteldProduct.GeefProjectReferentie()
  }
  
  Do BesteldeProducten.%DeleteId(BesteldeProducten.%Id())
Index: FLOWORD.mac.rou
===================================================================
diff -u -r1733 -r2015
--- FLOWORD.mac.rou	(.../FLOWORD.mac.rou)	(revision 1733)
+++ FLOWORD.mac.rou	(.../FLOWORD.mac.rou)	(revision 2015)
@@ -443,6 +443,8 @@
  {
 	 Set BesteldProduct = BesteldeProductenIterator.Next()
 	 Do PINSERT("","",BesteldProduct.GeefPRNr(),BesteldProduct.GeefAantal())
+	 Set OLNr=Detail(@DL(1)@(6))
+	 Set $Piece(^KOD(KLNr,"F",ORDNr,OLNr),"\",5) = BesteldProduct.GeefProjectReferentie()
  }
  
  Do BesteldeProducten.%DeleteId(BesteldeProducten.%Id())
Index: APPS/EC/Winkelkar/dto/MaatwerkLijn.cls.xml
===================================================================
diff -u -r1574 -r2015
--- APPS/EC/Winkelkar/dto/MaatwerkLijn.cls.xml	(.../MaatwerkLijn.cls.xml)	(revision 1574)
+++ APPS/EC/Winkelkar/dto/MaatwerkLijn.cls.xml	(.../MaatwerkLijn.cls.xml)	(revision 2015)
@@ -17,6 +17,10 @@
 <Type>%Float</Type>
 </Property>
 
+<Property name="ProjectReferentie">
+<Type>%String</Type>
+</Property>
+
 <Property name="IngegevenKenmerken">
 <Type>APPS.PM.Maatwerk.dto.IngegevenKenmerken</Type>
 </Property>
Index: DOM/EC/Winkelkar/MaatwerkLijn.cls.xml
===================================================================
diff -u -r1574 -r2015
--- DOM/EC/Winkelkar/MaatwerkLijn.cls.xml	(.../MaatwerkLijn.cls.xml)	(revision 1574)
+++ DOM/EC/Winkelkar/MaatwerkLijn.cls.xml	(.../MaatwerkLijn.cls.xml)	(revision 2015)
@@ -26,8 +26,13 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ProjectReferentie">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>Aantal:%Integer,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,EenheidPrijs:%Float,TotaalPrijs:%Float</FormalSpec>
+<FormalSpec>Aantal:%Integer,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,EenheidPrijs:%Float,TotaalPrijs:%Float,ProjectReferentie:%String=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -36,6 +41,7 @@
 	Set ..EenheidPrijs = EenheidPrijs
 	Set ..TotaalPrijs = TotaalPrijs
 	Set ..IngegevenKenmerken = IngegevenKenmerken
+	Set ..ProjectReferentie = ProjectReferentie
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -64,6 +70,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefProjectReferentie">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..ProjectReferentie
+]]></Implementation>
+</Method>
+
 <Method name="Accept">
 <FormalSpec>Visitor:DOM.EC.Winkelkar.WinkelkarVisitor</FormalSpec>
 <ReturnType>%Status</ReturnType>
@@ -92,6 +104,9 @@
 <Value name="5">
 <Value>IngegevenKenmerken</Value>
 </Value>
+<Value name="6">
+<Value>ProjectReferentie</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: vhUnitTest/APPS/EC/Winkelkar/TestWinkelkarService.cls.xml
===================================================================
diff -u -r2011 -r2015
--- vhUnitTest/APPS/EC/Winkelkar/TestWinkelkarService.cls.xml	(.../TestWinkelkarService.cls.xml)	(revision 2011)
+++ vhUnitTest/APPS/EC/Winkelkar/TestWinkelkarService.cls.xml	(.../TestWinkelkarService.cls.xml)	(revision 2015)
@@ -132,11 +132,12 @@
 	
 	Set IngegevenKenmerken.HeeftTipon = 0
 	
-	Set Winkelkar = WinkelkarService.VoegToeMaatwerk(Applicatie, Winkelkar.WinkelkarID, GroepNaam, IngegevenKenmerken, Aantal)
+	Set Winkelkar = WinkelkarService.VoegToeMaatwerk(Applicatie, Winkelkar.WinkelkarID, GroepNaam, IngegevenKenmerken, Aantal, "Dit is de projectreferentie")
 	
 	Do $$$AssertTrue($IsObject(Winkelkar),"Er werd een winkelkar teruggegeven")
 	Do $$$AssertEquals(Winkelkar.Lijnen.Count(),1,"Er is 1 groep toegevoegd")
 	Do $$$AssertTrue(Winkelkar.Lijnen.GetAt(1).%Extends("APPS.EC.Winkelkar.dto.GroepLijn"))
+	Do $$$AssertEquals(Winkelkar.Lijnen.GetAt(1).Lijnen.GetAt(1).ProjectReferentie,"Dit is de projectreferentie","De projectreferentie")
 	
 	Set Winkelkar = WinkelkarService.VerwijderLijn(Applicatie, Winkelkar.WinkelkarID, Winkelkar.Lijnen.GetAt(1).Lijnen.GetAt(1).LijnID)
 	
Index: APPS/VKP/Maatwerk/impl/BesteldProduct.cls.xml
===================================================================
diff -u -r1679 -r2015
--- APPS/VKP/Maatwerk/impl/BesteldProduct.cls.xml	(.../BesteldProduct.cls.xml)	(revision 1679)
+++ APPS/VKP/Maatwerk/impl/BesteldProduct.cls.xml	(.../BesteldProduct.cls.xml)	(revision 2015)
@@ -16,14 +16,20 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ProjectReferentie">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>PRNr:%Integer,Aantal:%Integer</FormalSpec>
+<FormalSpec>PRNr:%Integer,Aantal:%Integer,ProjectReferentie:%String</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..PRNr = PRNr
 	Set ..Aantal = Aantal
+	Set ..ProjectReferentie = ProjectReferentie
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -40,6 +46,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefProjectReferentie">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..ProjectReferentie
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <State>BesteldProductState</State>
@@ -53,6 +65,9 @@
 <Value name="2">
 <Value>PRNr</Value>
 </Value>
+<Value name="3">
+<Value>ProjectReferentie</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: WS/EC/Winkelkar/WinkelkarService.cls.xml
===================================================================
diff -u -r2011 -r2015
--- WS/EC/Winkelkar/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 2011)
+++ WS/EC/Winkelkar/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 2015)
@@ -38,10 +38,10 @@
 </Method>
 
 <Method name="VoegToeMaatwerk">
-<FormalSpec>Applicatie:APPS.common.dto.Applicatie,WinkelkarID:%String,GroepNaam:%String,IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Aantal:%String</FormalSpec>
+<FormalSpec>Applicatie:APPS.common.dto.Applicatie,WinkelkarID:%String,GroepNaam:%String,IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Aantal:%String,ProjectReferentie:%String</FormalSpec>
 <ReturnType>APPS.EC.Winkelkar.dto.Winkelkar</ReturnType>
 <WebMethod>1</WebMethod>
-<Implementation><![CDATA[	Quit ##class(APPS.EC.Winkelkar.WinkelkarService).%New().VoegToeMaatwerk(Applicatie, WinkelkarID, GroepNaam, IngegevenKenmerken, Aantal)
+<Implementation><![CDATA[	Quit ##class(APPS.EC.Winkelkar.WinkelkarService).%New().VoegToeMaatwerk(Applicatie, WinkelkarID, GroepNaam, IngegevenKenmerken, Aantal, .ProjectReferentie)
 ]]></Implementation>
 </Method>