Index: DOM/EC/Winkelkar/impl/WinkelkarUtils.cls.xml
===================================================================
diff -u -r39218 -r42354
--- DOM/EC/Winkelkar/impl/WinkelkarUtils.cls.xml	(.../WinkelkarUtils.cls.xml)	(revision 39218)
+++ DOM/EC/Winkelkar/impl/WinkelkarUtils.cls.xml	(.../WinkelkarUtils.cls.xml)	(revision 42354)
@@ -11,30 +11,59 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ProductLijnen">
+<Type>DOM.EC.Winkelkar.MaatwerkLijn</Type>
+<Collection>list</Collection>
+<Private>1</Private>
+</Property>
+
+<Method name="GeefProductLijnen">
+<FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<ReturnTypeParams>ELEMENTTYPE="DOM.EC.Winkelkar.ProductLijn"</ReturnTypeParams>
+<Implementation><![CDATA[
+	Do ..ProductLijnen.Clear()
+	Do Winkelkar.Accept($this)
+	Quit ..ProductLijnen
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductLijnIterator">
+<FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	quit ##class(TECH.ListIterator).%New(..GeefProductLijnen(Winkelkar))
+]]></Implementation>
+</Method>
+
 <Method name="GeefMaatwerkLijnen">
 <FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar</FormalSpec>
 <ReturnType>%ListOfObjects</ReturnType>
 <ReturnTypeParams>ELEMENTTYPE="DOM.EC.Winkelkar.MaatwerkLijn"</ReturnTypeParams>
 <Implementation><![CDATA[
+	Do ..MaatwerkLijnen.Clear()
 	Do Winkelkar.Accept($this)
 	Quit ..MaatwerkLijnen
 ]]></Implementation>
 </Method>
 
 <Method name="GeefMaatwerkLijnIterator">
+<FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar</FormalSpec>
 <ReturnType>TECH.Iterator</ReturnType>
-<Implementation><![CDATA[	quit ##class(TECH.ListIterator).%New(..MaatwerkLijnen)
+<Implementation><![CDATA[	quit ##class(TECH.ListIterator).%New(..GeefMaatwerkLijnen(Winkelkar))
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkMaatwerkLijn">
 <FormalSpec>MaatwerkLijn:DOM.EC.Winkelkar.MaatwerkLijn</FormalSpec>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Do ..MaatwerkLijnen.Insert(MaatwerkLijn)
-	Quit $$$OK
+<Implementation><![CDATA[	Do ..MaatwerkLijnen.Insert(MaatwerkLijn)
 ]]></Implementation>
 </Method>
+
+<Method name="VerwerkProductLijn">
+<FormalSpec>ProductLijn:DOM.EC.Winkelkar.ProductLijn</FormalSpec>
+<Implementation><![CDATA[	Do ..ProductLijnen.Insert(ProductLijn)
+]]></Implementation>
+</Method>
 </Class>