Index: vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/VoegToeProduct/Test.cls.xml
===================================================================
diff -u -r37423 -r37602
--- vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/VoegToeProduct/Test.cls.xml	(.../Test.cls.xml)	(revision 37423)
+++ vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/VoegToeProduct/Test.cls.xml	(.../Test.cls.xml)	(revision 37602)
@@ -13,16 +13,9 @@
 <Private>1</Private>
 </Property>
 
-<Method name="Test: niets toevoegen: nog altijd 2 elementen op winkelkar (root en tekstlijn)">
+<Method name="Test: Standaard gedrag, alle nodige methods worden opgeroepen">
 <Implementation><![CDATA[
 	Set ..Winkelkar = ##class(vhTest.Fake.DOM.EC.Winkelkar.Winkelkar).%New("UT-WinkelKar")
-	Do ..AssertVerplichteElementenInWinkelkar()
-]]></Implementation>
-</Method>
-
-<Method name="Test: 1 product proberen toevoegen met gekend ID, geen pakketreferentie -&gt; moet als nieuwe lijn op winkelkar">
-<Implementation><![CDATA[
-	Set ..Winkelkar = ##class(vhTest.Fake.DOM.EC.Winkelkar.Winkelkar).%New("UT-WinkelKar")
 	
 	Set DummyProduct = ##class(vhTest.Dummy.DOM.PM.Product).%New()
 	Set ProductLijnFake = ##class(vhTest.Fake.DOM.EC.Winkelkar.ProductLijn).%New(DummyProduct,1)	
@@ -35,67 +28,18 @@
 	Do WinkelkarRepositoryMock.VerwachtMethodCall("GeefViaID",$$$ElkeWaarde).DanReturn(..Winkelkar)
 	Do WinkelkarRepositoryMock.VerwachtMethodCall("Bewaar",..Winkelkar).ExactAantalKeer(1)
 	
-	Set ProductLijnRepositoryMock = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()
-	Do ProductLijnRepositoryMock.VerwachtMethodCall("Bewaar",ProductLijnFake).ExactAantalKeer(1)
+	Set WinkelkarLijnRepositoryMock = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()
+	Do WinkelkarLijnRepositoryMock.VerwachtMethodCall("Bewaar",ProductLijnFake).ExactAantalKeer(1)
 	
-	Set ..WinkelkarService = ##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New(,,,,,WinkelkarRepositoryMock,ProductLijnBuilderMock,ProductLijnRepositoryMock)
+	Set ..WinkelkarService = ##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New(,,,,,WinkelkarRepositoryMock,ProductLijnBuilderMock,WinkelkarLijnRepositoryMock,,,)
 	
-	#dim ProductLijnID As %String = ..WinkelkarService.VoegToeProduct(..Winkelkar.GeefID(),DummyProduct.GeefID(),1)
-		
-	Do ..AssertVerplichteElementenInWinkelkar()
-	If $$$AssertEquals(..Winkelkar.Inhoud.Count(),3) {
-		Do $$$AssertEquals(..Winkelkar.Inhoud.GetAt(3).GeefID(),ProductLijnID)
-	}
-	Do ProductLijnBuilderMock.Verifieer()
-	Do WinkelkarRepositoryMock.Verifieer()
-	Do ProductLijnRepositoryMock.Verifieer()
-]]></Implementation>
-</Method>
+	Do ..WinkelkarService.VoegToeProduct(..Winkelkar.GeefID(),DummyProduct.GeefID(),1)
 
-<Method name="Test: 2 producten proberen toevoegen met gekend (gelijk) ID, geen pakketreferentie -&gt; moeten beide als nieuwe lijn op winkelkar">
-<Implementation><![CDATA[
-	Set ..Winkelkar = ##class(vhTest.Fake.DOM.EC.Winkelkar.Winkelkar).%New("UT-WinkelKar")
-	
-	Set DummyProduct = ##class(vhTest.Dummy.DOM.PM.Product).%New()
-	Set ProductLijnFake1 = ##class(vhTest.Fake.DOM.EC.Winkelkar.ProductLijn).%New(DummyProduct,1)
-	Set ProductLijnFake2 = ##class(vhTest.Fake.DOM.EC.Winkelkar.ProductLijn).%New(DummyProduct,2)	
-	
-	Set ProductLijnBuilderMock = ##class(vhTest.Mock.APPS.EC.Winkelkar.impl.ProductLijnBuilder).%New()
-	Do ProductLijnBuilderMock.VerwachtMethodCall("Init",..Winkelkar)
-	Do ProductLijnBuilderMock.VerwachtMethodCall("MaakLijn",DummyProduct.GeefID(),1,"","").DanReturn(ProductLijnFake1)
-	Do ProductLijnBuilderMock.VerwachtMethodCall("MaakLijn",DummyProduct.GeefID(),2,"","").DanReturn(ProductLijnFake2)
-	
-	Set WinkelkarRepositoryMock = ##class(vhTest.Mock.DOM.EC.Winkelkar.impl.WinkelkarRepository).%New()
-	Do WinkelkarRepositoryMock.VerwachtMethodCall("GeefViaID",$$$ElkeWaarde).DanReturn(..Winkelkar)
-	Do WinkelkarRepositoryMock.VerwachtMethodCall("Bewaar",..Winkelkar).ExactAantalKeer(2)
-	
-	Set ProductLijnRepositoryMock = ##class(vhTest.Mock.TECH.Persistentie.Repository).%New()
-	Do ProductLijnRepositoryMock.VerwachtMethodCall("Bewaar",ProductLijnFake1).ExactAantalKeer(1)
-	Do ProductLijnRepositoryMock.VerwachtMethodCall("Bewaar",ProductLijnFake2).ExactAantalKeer(1)
-	
-	Set ..WinkelkarService = ##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New(,,,,,WinkelkarRepositoryMock,ProductLijnBuilderMock,ProductLijnRepositoryMock)
-	
-	#dim ProductLijnID As %String = ..WinkelkarService.VoegToeProduct(..Winkelkar.GeefID(),DummyProduct.GeefID(),1)
-	#dim ProductLijnID2 As %String = ..WinkelkarService.VoegToeProduct(..Winkelkar.GeefID(),DummyProduct.GeefID(),2)
-		
-	Do ..AssertVerplichteElementenInWinkelkar()
-	If $$$AssertEquals(..Winkelkar.Inhoud.Count(),4) {
-		Do $$$AssertEquals(..Winkelkar.Inhoud.GetAt(3).GeefID(),ProductLijnID)
-		Do $$$AssertEquals(..Winkelkar.Inhoud.GetAt(4).GeefID(),ProductLijnID2)
-	}
 	Do ProductLijnBuilderMock.Verifieer()
 	Do WinkelkarRepositoryMock.Verifieer()
-	Do ProductLijnRepositoryMock.Verifieer()
+	Do WinkelkarLijnRepositoryMock.Verifieer()
 ]]></Implementation>
 </Method>
-
-<Method name="AssertVerplichteElementenInWinkelkar">
-<Private>1</Private>
-<Implementation><![CDATA[
-	Do $$$AssertIsObject(..Winkelkar.Root)
-	Do $$$AssertEquals(..Winkelkar.Inhoud.GetAt(2).GeefTekst(),"DummyTekst")
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: APPS/EC/Winkelkar/impl/ExterneWinkelkarService/KenmerkenAanpasser.cls.xml
===================================================================
diff -u -r33325 -r37602
--- APPS/EC/Winkelkar/impl/ExterneWinkelkarService/KenmerkenAanpasser.cls.xml	(.../KenmerkenAanpasser.cls.xml)	(revision 33325)
+++ APPS/EC/Winkelkar/impl/ExterneWinkelkarService/KenmerkenAanpasser.cls.xml	(.../KenmerkenAanpasser.cls.xml)	(revision 37602)
@@ -13,7 +13,10 @@
 		#dim LijnenIterator As TECH.ListIterator = ##class(TECH.ListIterator).%New(GroepLijn.Lijnen)
 		
 		While (LijnenIterator.HasNext()) {
-			Do ..PasAanLijn(LijnenIterator.Next())
+			#dim Lijn As APPS.EC.Winkelkar.dto.Lijn = LijnenIterator.Next()
+			If Lijn.%Extends("APPS.EC.Winkelkar.dto.MaatwerkLijn") {
+				Do ..PasAanLijn(Lijn)
+			}
 		}
 	}
 ]]></Implementation>
Index: APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml
===================================================================
diff -u -r37589 -r37602
--- APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 37589)
+++ APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 37602)
@@ -213,8 +213,6 @@
 	Do ..ProductLijnBuilder.Init(Winkelkar)
 	#dim ProductLijn As DOM.EC.Winkelkar.ProductLijn = ..ProductLijnBuilder.MaakLijn(ProductID, Aantal, PakketReferentie, ProjectReferentie)
 	
-	Do Winkelkar.VoegToe(ProductLijn)
-	
 	Do ..WinkelkarLijnRepository.Bewaar(ProductLijn)
 	
 	Do ..WinkelkarRepository.Bewaar(Winkelkar)
Index: vhTest/Mock/APPS/EC/Winkelkar/impl/ProductLijnBuilder.cls.xml
===================================================================
diff -u -r37399 -r37602
--- vhTest/Mock/APPS/EC/Winkelkar/impl/ProductLijnBuilder.cls.xml	(.../ProductLijnBuilder.cls.xml)	(revision 37399)
+++ vhTest/Mock/APPS/EC/Winkelkar/impl/ProductLijnBuilder.cls.xml	(.../ProductLijnBuilder.cls.xml)	(revision 37602)
@@ -21,6 +21,12 @@
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("MaakLijn",ProductID,Aantal,PakketReferentie,ProjectReferentie)
 ]]></Implementation>
 </Method>
+
+<Method name="VoegToeAanGroep">
+<FormalSpec>GroepNaam:%String,Lijn:DOM.EC.Winkelkar.Lijn</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VoegToeAanGroep",GroepNaam,Lijn)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/EC/Winkelkar/impl/ProductLijnBuilder/MaakLijn/Test.cls.xml
===================================================================
diff -u -r37232 -r37602
--- vhUnitTest/APPS/EC/Winkelkar/impl/ProductLijnBuilder/MaakLijn/Test.cls.xml	(.../Test.cls.xml)	(revision 37232)
+++ vhUnitTest/APPS/EC/Winkelkar/impl/ProductLijnBuilder/MaakLijn/Test.cls.xml	(.../Test.cls.xml)	(revision 37602)
@@ -3,41 +3,106 @@
 <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">
+<Method name="Test: niets toevoegen: nog altijd 2 elementen op winkelkar (root en tekstlijn)">
 <Implementation><![CDATA[
+	Set Winkelkar = ##class(vhTest.Fake.DOM.EC.Winkelkar.Winkelkar).%New("UT-WinkelKar")
+	Do ..AssertVerplichteElementenInWinkelkar(Winkelkar)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Gegeven een ProductID en geen pakketreferentie/projectreferentie -&gt; ProductLijn maken en in de juiste groeplijn toevoegen">
+<Implementation><![CDATA[
 	Set DummyProduct = ##class(vhTest.Dummy.DOM.PM.Product).%New()
 	Set ProductLijnBuilder = ##class(APPS.EC.Winkelkar.impl.ProductLijnBuilder).%New()
+	Set Winkelkar = ##class(vhTest.Fake.DOM.EC.Winkelkar.Winkelkar).%New("UT-WinkelKar")
+	Do ProductLijnBuilder.Init(Winkelkar)
 	#dim ProductLijn As DOM.EC.Winkelkar.ProductLijn = ProductLijnBuilder.MaakLijn(DummyProduct.GeefID(),1)
 	
+	Do ..AssertVerplichteElementenInWinkelkar(Winkelkar)
 	Do $$$AssertEquals(ProductLijn.GeefProductId(),1000)
 	Do $$$AssertEquals(ProductLijn.PakketReferentie,"")
 	Do $$$AssertEquals(ProductLijn.ProjectReferentie,"")
+	If $$$AssertEquals(Winkelkar.Inhoud.Count(),4) {
+		If $$$AssertTrue(Winkelkar.Inhoud.GetAt(3).%Extends("DOM.EC.Winkelkar.GroepLijn")) {
+			Do $$$AssertEquals(Winkelkar.Inhoud.GetAt(3).Sublijnen.GetAt(1).GeefProductId(),1000)
+		}
+	}
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Gegeven een ProductID en wel een pakketreferentie -&gt; ProductLijn maken met pakketreferentie ingevuld">
+<Method name="Test: Gegeven een ProductID en wel een pakketreferentie -&gt; ProductLijn maken met pakketreferentie ingevuld en in de juiste groeplijn toevoegen">
 <Implementation><![CDATA[
 	Set DummyProduct = ##class(vhTest.Dummy.DOM.PM.Product).%New()
 	Set ProductLijnBuilder = ##class(APPS.EC.Winkelkar.impl.ProductLijnBuilder).%New()
+	Set Winkelkar = ##class(vhTest.Fake.DOM.EC.Winkelkar.Winkelkar).%New("UT-WinkelKar")
+	Do ProductLijnBuilder.Init(Winkelkar)
 	#dim ProductLijn As DOM.EC.Winkelkar.ProductLijn = ProductLijnBuilder.MaakLijn(DummyProduct.GeefID(),1,"PakketReferentie")
 	
+	Do ..AssertVerplichteElementenInWinkelkar(Winkelkar)
 	Do $$$AssertEquals(ProductLijn.GeefProductId(),1000)
 	Do $$$AssertEquals(ProductLijn.PakketReferentie,"PakketReferentie")
 	Do $$$AssertEquals(ProductLijn.ProjectReferentie,"")
+	If $$$AssertEquals(Winkelkar.Inhoud.Count(),4) {
+		If $$$AssertTrue(Winkelkar.Inhoud.GetAt(3).%Extends("DOM.EC.Winkelkar.GroepLijn")) {
+			Do $$$AssertEquals(Winkelkar.Inhoud.GetAt(3).Sublijnen.GetAt(1).GeefProductId(),1000)
+		}
+	}
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Gegeven een ProductID en wel een projectreferentie -&gt; ProductLijn maken met projectreferentie ingevuld">
+<Method name="Test: Gegeven een ProductID en wel een projectreferentie -&gt; ProductLijn maken met projectreferentie ingevuld en in de juiste groeplijn toevoegen">
 <Implementation><![CDATA[
 	Set DummyProduct = ##class(vhTest.Dummy.DOM.PM.Product).%New()
 	Set ProductLijnBuilder = ##class(APPS.EC.Winkelkar.impl.ProductLijnBuilder).%New()
+	Set Winkelkar = ##class(vhTest.Fake.DOM.EC.Winkelkar.Winkelkar).%New("UT-WinkelKar")
+	Do ProductLijnBuilder.Init(Winkelkar)
 	#dim ProductLijn As DOM.EC.Winkelkar.ProductLijn = ProductLijnBuilder.MaakLijn(DummyProduct.GeefID(),1,,"ProjectReferentie")
 	
+	Do ..AssertVerplichteElementenInWinkelkar(Winkelkar)
 	Do $$$AssertEquals(ProductLijn.GeefProductId(),1000)
 	Do $$$AssertEquals(ProductLijn.PakketReferentie,"")
 	Do $$$AssertEquals(ProductLijn.ProjectReferentie,"ProjectReferentie")
+	If $$$AssertEquals(Winkelkar.Inhoud.Count(),4) {
+		If $$$AssertTrue(Winkelkar.Inhoud.GetAt(3).%Extends("DOM.EC.Winkelkar.GroepLijn")) {
+			Do $$$AssertEquals(Winkelkar.Inhoud.GetAt(3).Sublijnen.GetAt(1).GeefProductId(),1000)
+		}
+	}
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Gegeven twee dezelfde ProductIDs  -&gt; 2x ProductLijn maken  en in de juiste groeplijn toevoegen">
+<Implementation><![CDATA[
+	Set DummyProduct = ##class(vhTest.Dummy.DOM.PM.Product).%New()
+	Set ProductLijnBuilder = ##class(APPS.EC.Winkelkar.impl.ProductLijnBuilder).%New()
+	Set Winkelkar = ##class(vhTest.Fake.DOM.EC.Winkelkar.Winkelkar).%New("UT-WinkelKar")
+	Do ProductLijnBuilder.Init(Winkelkar)
+	#dim ProductLijn1 As DOM.EC.Winkelkar.ProductLijn = ProductLijnBuilder.MaakLijn(DummyProduct.GeefID(),1,,)
+	#dim ProductLijn2 As DOM.EC.Winkelkar.ProductLijn = ProductLijnBuilder.MaakLijn(DummyProduct.GeefID(),2,,)
+	
+	Do ..AssertVerplichteElementenInWinkelkar(Winkelkar)
+	Do $$$AssertEquals(ProductLijn1.GeefProductId(),1000)
+	Do $$$AssertEquals(ProductLijn1.PakketReferentie,"")
+	Do $$$AssertEquals(ProductLijn1.ProjectReferentie,"")
+	Do $$$AssertEquals(ProductLijn2.GeefProductId(),1000)
+	Do $$$AssertEquals(ProductLijn2.PakketReferentie,"")
+	Do $$$AssertEquals(ProductLijn2.ProjectReferentie,"")
+	If $$$AssertEquals(Winkelkar.Inhoud.Count(),5) {		
+		If $$$AssertTrue(Winkelkar.Inhoud.GetAt(3).%Extends("DOM.EC.Winkelkar.GroepLijn")) {
+			Do $$$AssertEquals(Winkelkar.Inhoud.GetAt(3).Sublijnen.GetAt(1).GeefProductId(),1000)
+			Do $$$AssertEquals(Winkelkar.Inhoud.GetAt(3).Sublijnen.GetAt(2).GeefProductId(),1000)
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="AssertVerplichteElementenInWinkelkar">
+<FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do $$$AssertIsObject(Winkelkar.Root)
+	Do $$$AssertEquals(Winkelkar.Inhoud.GetAt(2).GeefTekst(),"DummyTekst")
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/EC/Winkelkar/impl/ProductLijnBuilder.cls.xml
===================================================================
diff -u -r37399 -r37602
--- APPS/EC/Winkelkar/impl/ProductLijnBuilder.cls.xml	(.../ProductLijnBuilder.cls.xml)	(revision 37399)
+++ APPS/EC/Winkelkar/impl/ProductLijnBuilder.cls.xml	(.../ProductLijnBuilder.cls.xml)	(revision 37602)
@@ -41,9 +41,38 @@
 <Method name="MaakLijn">
 <FormalSpec>ProductID:%String,Aantal:%Integer=1,PakketReferentie:%String="",ProjectReferentie:%String=""</FormalSpec>
 <ReturnType>DOM.EC.Winkelkar.ProductLijn</ReturnType>
-<Implementation><![CDATA[	Quit ##class(DOM.EC.Winkelkar.ProductLijn).%New(ProductID, Aantal, PakketReferentie,ProjectReferentie)
+<Implementation><![CDATA[
+	#dim Lijn As DOM.EC.Winkelkar.ProductLijn = ##class(DOM.EC.Winkelkar.ProductLijn).%New(ProductID, Aantal, PakketReferentie, ProjectReferentie)
+
+	Do ..VoegToeAanGroep("", Lijn)
+
+	Quit Lijn
 ]]></Implementation>
 </Method>
+
+<Method name="VoegToeAanGroep">
+<FormalSpec>GroepNaam:%String,Lijn:DOM.EC.Winkelkar.Lijn</FormalSpec>
+<Implementation><![CDATA[
+	set GroepNaamVoorLijnBepaler = ##class(APPS.EC.Winkelkar.impl.GroepNaamVoorLijnBepaler).%New()
+	Set GroepNaam = GroepNaamVoorLijnBepaler.GeefGroepNaam(Lijn, ..Winkelkar)
+	#dim GroepLijn As DOM.EC.Winkelkar.GroepLijn = ..Winkelkar.GeefGroepLijn(GroepNaam)
+	If (GroepLijn = "") {
+		Set GroepLijn = ##class(DOM.EC.Winkelkar.GroepLijn).%New(GroepNaam)
+		Do ..Winkelkar.VoegToe(GroepLijn)
+	}
+	Do ..ControleerStatusOK( GroepLijn.VoegToe(Lijn), ##class(TECH.enu.ExceptionCode).SaveFailed(), "De lijn kon niet worden toegevoegd aan de winkelkar." )
+]]></Implementation>
+</Method>
+
+<Method name="ControleerStatusOK">
+<FormalSpec>Status:%Status,StatusCodeIndienNietOK:TECH.enu.ExceptionCode="",BerichtIndienNietOK:%String=""</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If ($$$ISERR(Status)) {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.StatusException).%New(StatusCodeIndienNietOK,"De winkelkar kon niet worden leeggemaakt omdat ze niet kon worden opgeslagen",Status))
+	}
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Fake/APPS/EC/Winkelkar/impl/ProductLijnBuilder.cls.xml
===================================================================
diff -u -r37399 -r37602
--- vhTest/Fake/APPS/EC/Winkelkar/impl/ProductLijnBuilder.cls.xml	(.../ProductLijnBuilder.cls.xml)	(revision 37399)
+++ vhTest/Fake/APPS/EC/Winkelkar/impl/ProductLijnBuilder.cls.xml	(.../ProductLijnBuilder.cls.xml)	(revision 37602)
@@ -18,6 +18,12 @@
 <Implementation><![CDATA[	Quit ""
 ]]></Implementation>
 </Method>
+
+<Method name="VoegToeAanGroep">
+<FormalSpec>GroepNaam:%String,Lijn:DOM.EC.Winkelkar.Lijn</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/EC/Winkelkar/dto/ProductLijn.cls.xml
===================================================================
diff -u
--- APPS/EC/Winkelkar/dto/ProductLijn.cls.xml	(revision 0)
+++ APPS/EC/Winkelkar/dto/ProductLijn.cls.xml	(revision 37602)
@@ -0,0 +1,39 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EC.Winkelkar.dto.ProductLijn">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.EC.Winkelkar.dto.Lijn,%XML.Adaptor</Super>
+<Inheritance>right</Inheritance>
+
+<Property name="Aantal">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="Omschrijving">
+<Type>%String</Type>
+</Property>
+
+<Property name="ProjectReferentie">
+<Type>%String</Type>
+<Parameter name="MAXLEN" value="200"/>
+<Parameter name="TRUNCATE" value="1"/>
+</Property>
+
+<Property name="PakketReferentie">
+<Type>%String</Type>
+</Property>
+
+<Property name="TotaalPrijs">
+<Type>%Decimal</Type>
+</Property>
+
+<Method name="Accept">
+<FormalSpec>Visitor:APPS.EC.Winkelkar.WinkelkarVisitor</FormalSpec>
+<Implementation><![CDATA[	Do Visitor.VerwerkProductLijn($this)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/EC/Winkelkar/impl/TotaalPrijsBepaler.cls.xml
===================================================================
diff -u -r29059 -r37602
--- APPS/EC/Winkelkar/impl/TotaalPrijsBepaler.cls.xml	(.../TotaalPrijsBepaler.cls.xml)	(revision 29059)
+++ APPS/EC/Winkelkar/impl/TotaalPrijsBepaler.cls.xml	(.../TotaalPrijsBepaler.cls.xml)	(revision 37602)
@@ -21,6 +21,14 @@
 	Quit $$$OK
 ]]></Implementation>
 </Method>
+
+<Method name="VerwerkProductLijn">
+<FormalSpec>ProductLijn:APPS.EC.Winkelkar.dto.ProductLijn</FormalSpec>
+<Implementation><![CDATA[
+	Set ..Prijs = ..Prijs + (ProductLijn.TotaalPrijs)
+	Quit $$$OK
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/EC/Winkelkar/impl/LijnNaarDtoVisitor.cls.xml
===================================================================
diff -u -r29441 -r37602
--- APPS/EC/Winkelkar/impl/LijnNaarDtoVisitor.cls.xml	(.../LijnNaarDtoVisitor.cls.xml)	(revision 29441)
+++ APPS/EC/Winkelkar/impl/LijnNaarDtoVisitor.cls.xml	(.../LijnNaarDtoVisitor.cls.xml)	(revision 37602)
@@ -59,6 +59,21 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkProductLijn">
+<FormalSpec>ProductLijn:DOM.EC.Winkelkar.ProductLijn</FormalSpec>
+<Implementation><![CDATA[
+	#Dim Lijn As APPS.EC.Winkelkar.dto.ProductLijn = ##class(APPS.EC.Winkelkar.dto.ProductLijn).%New()
+	Set Lijn.LijnID = ProductLijn.%Id()
+	Set Lijn.Aantal = ProductLijn.Aantal
+	Set Lijn.ProjectReferentie = ProductLijn.ProjectReferentie
+	Set Lijn.PakketReferentie = ProductLijn.PakketReferentie
+	Set Lijn.Omschrijving = ProductLijn.Product.KortTekst
+	Set Lijn.TotaalPrijs = ProductLijn.GeefEindklantTotaalPrijs()
+	Do ..VoegToeLijn(Lijn)	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="GeefLijn">
 <FormalSpec>MaatwerkLijn:DOM.EC.Winkelkar.MaatwerkLijn</FormalSpec>
 <Private>1</Private>