Index: APPS/EC/Winkelkar/impl/WinkelkarUtils.cls.xml
===================================================================
diff -u -r39599 -r39641
--- APPS/EC/Winkelkar/impl/WinkelkarUtils.cls.xml	(.../WinkelkarUtils.cls.xml)	(revision 39599)
+++ APPS/EC/Winkelkar/impl/WinkelkarUtils.cls.xml	(.../WinkelkarUtils.cls.xml)	(revision 39641)
@@ -9,6 +9,30 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ProductLijnen">
+<Type>APPS.EC.Winkelkar.dto.ProductLijn</Type>
+<Collection>list</Collection>
+<Private>1</Private>
+</Property>
+
+<Method name="GeefProductLijnen">
+<FormalSpec>Winkelkar:APPS.EC.Winkelkar.dto.Winkelkar</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<ReturnTypeParams>ELEMENTTYPE="APPS.EC.Winkelkar.dto.ProductLijn"</ReturnTypeParams>
+<Implementation><![CDATA[
+	Do ..ProductLijnen.Clear()
+	Do Winkelkar.Accept($this)
+	Quit ..ProductLijnen
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductLijnIterator">
+<FormalSpec>Winkelkar:APPS.EC.Winkelkar.dto.Winkelkar</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	quit ##class(TECH.ListIterator).%New(..GeefProductLijnen(Winkelkar))
+]]></Implementation>
+</Method>
+
 <Method name="GeefMaatwerkLijnen">
 <FormalSpec>Winkelkar:APPS.EC.Winkelkar.dto.Winkelkar</FormalSpec>
 <ReturnType>%ListOfObjects</ReturnType>
@@ -23,10 +47,7 @@
 <Method name="GeefMaatwerkLijnIterator">
 <FormalSpec>Winkelkar:APPS.EC.Winkelkar.dto.Winkelkar</FormalSpec>
 <ReturnType>TECH.Iterator</ReturnType>
-<Implementation><![CDATA[
-	Do ..MaatwerkLijnen.Clear()	
-	Do Winkelkar.Accept($this)
-	quit ##class(TECH.ListIterator).%New(..MaatwerkLijnen)
+<Implementation><![CDATA[	quit ##class(TECH.ListIterator).%New(..GeefMaatwerkLijnen(Winkelkar))
 ]]></Implementation>
 </Method>
 
@@ -35,6 +56,12 @@
 <Implementation><![CDATA[	Do ..MaatwerkLijnen.Insert(MaatwerkLijn)
 ]]></Implementation>
 </Method>
+
+<Method name="VerwerkProductLijn">
+<FormalSpec>ProductLijn:APPS.EC.Winkelkar.dto.ProductLijn</FormalSpec>
+<Implementation><![CDATA[	Do ..ProductLijnen.Insert(ProductLijn)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/EC/Winkelkar/impl/LijnNaarDtoVisitor.cls.xml
===================================================================
diff -u -r39391 -r39641
--- APPS/EC/Winkelkar/impl/LijnNaarDtoVisitor.cls.xml	(.../LijnNaarDtoVisitor.cls.xml)	(revision 39391)
+++ APPS/EC/Winkelkar/impl/LijnNaarDtoVisitor.cls.xml	(.../LijnNaarDtoVisitor.cls.xml)	(revision 39641)
@@ -70,6 +70,7 @@
 	Set Lijn.Omschrijving = ProductLijn.Product.KortTekst
 	Set Lijn.TotaalPrijs = ProductLijn.GeefEindklantTotaalPrijs()
 	Set Lijn.ProductId = ProductLijn.GeefProductId()
+	Set Lijn.ExterneId = ProductLijn.ExterneId
 	
 	Do ..VoegToeLijn(Lijn)	
 	Quit $$$OK
Index: DOM/PM/MaatwerkProduct/impl/VerpakkingTypeBepaler.cls.xml
===================================================================
diff -u -r38591 -r39641
--- DOM/PM/MaatwerkProduct/impl/VerpakkingTypeBepaler.cls.xml	(.../VerpakkingTypeBepaler.cls.xml)	(revision 38591)
+++ DOM/PM/MaatwerkProduct/impl/VerpakkingTypeBepaler.cls.xml	(.../VerpakkingTypeBepaler.cls.xml)	(revision 39641)
@@ -48,7 +48,9 @@
 
 <Method name="VerwerkTBXKenmerken">
 <FormalSpec>TBXKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken</FormalSpec>
-<Implementation><![CDATA[	Set ..Verpakking = TBXKenmerken.VerpakkingType
+<Implementation><![CDATA[
+	Set ..Verpakking = TBXKenmerken.VerpakkingType
+	Set:(..Verpakking="") ..Verpakking = TBXKenmerken.LegacyKenmerken.ItemVPK
 ]]></Implementation>
 </Method>
 </Class>
Index: DOM/VKP/impl/ProductieTermijnBepaler.cls.xml
===================================================================
diff -u -r29636 -r39641
--- DOM/VKP/impl/ProductieTermijnBepaler.cls.xml	(.../ProductieTermijnBepaler.cls.xml)	(revision 29636)
+++ DOM/VKP/impl/ProductieTermijnBepaler.cls.xml	(.../ProductieTermijnBepaler.cls.xml)	(revision 39641)
@@ -3,24 +3,48 @@
 <Class name="DOM.VKP.impl.ProductieTermijnBepaler">
 <Super>TECH.RegisteredObject,DOM.VKP.ProductieTermijnBepaler</Super>
 
+<Property name="ProductieService">
+<Type>APPS.Halux.common.ProductieService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="VerpakkingTypeBepaler">
+<Type>DOM.PM.MaatwerkProduct.impl.VerpakkingTypeBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductieDagenBepaler">
+<Type>DOM.VKP.impl.ProductieDagenBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..ProductieService = ##class(APPS.Halux.common.ProductieService).%New()
+	Set ..VerpakkingTypeBepaler = ##class(DOM.PM.MaatwerkProduct.impl.VerpakkingTypeBepaler).%New()
+	set ..ProductieDagenBepaler = ##class(DOM.VKP.impl.ProductieDagenBepaler).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="GeefAantalProductieDagen">
 <FormalSpec>Product:DOM.PM.MaatwerkProduct,KlantID:DOM.VKP.VanHoeckeKlantID=""</FormalSpec>
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[
-	Set ProductieService = ##class(APPS.Halux.common.ProductieService).%New()
-	#dim Categorie As APPS.Halux.common.enu.Categorie = ProductieService.GeefCategorie(Product.GeefID())
-	Set VerpakkingTypeBepaler = ##class(DOM.PM.MaatwerkProduct.impl.VerpakkingTypeBepaler).%New()
-	#dim Verpakking As %String = VerpakkingTypeBepaler.BepaalVerpakkingType(Product)
+	#dim Categorie As APPS.Halux.common.enu.Categorie = ..ProductieService.GeefCategorie(Product.GeefID())
+	#dim Verpakking As %String = ..VerpakkingTypeBepaler.BepaalVerpakkingType(Product)
 	Quit ..GeefAantalProductieDagenVoorVerpakking(Categorie, Verpakking, KlantID, Product)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefAantalProductieDagenVoorVerpakking">
 <FormalSpec>Categorie:APPS.Halux.common.enu.Categorie,Verpakking:%String,KlantID:DOM.VKP.VanHoeckeKlantID="",Product:DOM.PM.MaatwerkProduct=""</FormalSpec>
 <ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[
-	Set ProductieDagenBepaler = ##class(DOM.VKP.impl.ProductieDagenBepaler).%New()
-	Quit ProductieDagenBepaler.BepaalProductieDagen(Categorie, Verpakking, KlantID,Product)
+<Implementation><![CDATA[	Quit ..ProductieDagenBepaler.BepaalProductieDagen(Categorie, Verpakking, KlantID,Product)
 ]]></Implementation>
 </Method>
 </Class>