Index: APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml
===================================================================
diff -u -r34519 -r36005
--- APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 34519)
+++ APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 36005)
@@ -159,9 +159,8 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ..OpenWinkelkar(WinkelkarID)
-	#dim AdminTekstUtils As APPS.common.AdminTekstUtils = ##class(APPS.ApplicatieContext).Instance().GeefCommonAPI().GeefAdminTekstUtils()
 	Do ..MaatwerkLijnBuilder.Init(Winkelkar)
-	#dim MaatwerkLijn As DOM.EC.Winkelkar.MaatwerkLijn = ..MaatwerkLijnBuilder.MaakLijn(IngegevenKenmerken, Aantal, AdminTekstUtils.MaakTekstAdminVriendelijk(ProjectReferentie), GroepNaam)
+	#dim MaatwerkLijn As DOM.EC.Winkelkar.MaatwerkLijn = ..MaatwerkLijnBuilder.MaakLijn(IngegevenKenmerken, Aantal, ProjectReferentie, GroepNaam)
 
 	Do ..WinkelkarPrijsUpdater.HerberekenLijn(Winkelkar, MaatwerkLijn)
 	Do ..BerekenMaatwerkLijnGewicht(MaatwerkLijn)
@@ -317,7 +316,7 @@
 	#dim Lijn As DOM.EC.Winkelkar.MaatwerkLijn = Winkelkar.GeefLijn(LijnID)
 
 	Do ..MaatwerkLijnBuilder.Init(Winkelkar)
-	Do ..MaatwerkLijnBuilder.WijzigLijnProjectReferentie(Lijn, NieuweProjectReferentie)
+	Do ..MaatwerkLijnBuilder.ZetProjectReferentie(Lijn, NieuweProjectReferentie)
 	do Lijn.Save()
 	do Winkelkar.Save()
 ]]></Implementation>
Index: APPS/EC/Winkelkar/impl/MaatwerkLijnBuilder.cls.xml
===================================================================
diff -u -r35180 -r36005
--- APPS/EC/Winkelkar/impl/MaatwerkLijnBuilder.cls.xml	(.../MaatwerkLijnBuilder.cls.xml)	(revision 35180)
+++ APPS/EC/Winkelkar/impl/MaatwerkLijnBuilder.cls.xml	(.../MaatwerkLijnBuilder.cls.xml)	(revision 36005)
@@ -3,6 +3,26 @@
 <Class name="APPS.EC.Winkelkar.impl.MaatwerkLijnBuilder">
 <Super>TECH.RegisteredObject</Super>
 
+<Property name="IngegevenKenmerkenConverter">
+<Type>APPS.PM.Maatwerk.impl.IngegevenKenmerkenConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="AdminTekstUtils">
+<Type>APPS.common.AdminTekstUtils</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="WinkelkarLogger">
+<Type>APPS.EC.Winkelkar.impl.Logger</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="GroepNaamVoorLijnBepaler">
+<Type>APPS.EC.Winkelkar.impl.GroepNaamVoorLijnBepaler</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="Winkelkar">
 <Type>DOM.EC.Winkelkar.Winkelkar</Type>
 <Private>1</Private>
@@ -13,13 +33,19 @@
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
-<Implementation><![CDATA[	quit $$$OK
+<Implementation><![CDATA[
+	set ..IngegevenKenmerkenConverter = ##class(APPS.PM.Maatwerk.impl.IngegevenKenmerkenConverter).%New()
+	set ..AdminTekstUtils = ##class(APPS.ApplicatieContext).Instance().GeefCommonAPI().GeefAdminTekstUtils()
+	set ..GroepNaamVoorLijnBepaler = ##class(APPS.EC.Winkelkar.impl.GroepNaamVoorLijnBepaler).%New()
+	quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="Init">
 <FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar</FormalSpec>
-<Implementation><![CDATA[	Set ..Winkelkar = Winkelkar
+<Implementation><![CDATA[
+	Set ..Winkelkar = Winkelkar
+	Set ..WinkelkarLogger = ##class(APPS.EC.Winkelkar.impl.Logger).%New(..Winkelkar)
 ]]></Implementation>
 </Method>
 
@@ -30,11 +56,10 @@
 	#dim Lijn As DOM.EC.Winkelkar.MaatwerkLijn = ##class(DOM.EC.Winkelkar.MaatwerkLijn).%New()
 
 	Do Lijn.ZetAantal(Aantal)
-	
+
 	Do ..ZetIngegevenKenmerken(Lijn, IngegevenKenmerken)
+	Do ..ZetProjectReferentie(Lijn,ProjectReferentie)
 
-	Do Lijn.ZetProjectReferentie(ProjectReferentie)
-
 	Do ..VoegToeAanGroep(GroepNaam, Lijn)
 
 	Quit Lijn
@@ -45,32 +70,31 @@
 <FormalSpec>Lijn:DOM.EC.Winkelkar.MaatwerkLijn,IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Aantal:%String,GroepNaam:%String="",ProjectReferentie:%String=""</FormalSpec>
 <ReturnType>APPS.EC.Winkelkar.dto.Winkelkar</ReturnType>
 <Implementation><![CDATA[
-
-	#dim KenmerkenNaarDtoVisitor As APPS.PM.Maatwerk.impl.KenmerkNaarDtoVisitor = ##class(APPS.PM.Maatwerk.impl.KenmerkNaarDtoVisitor).%New()
-	#dim IngegevenKenmerkenStream As %Stream = KenmerkenNaarDtoVisitor.GeefIngegevenKenmerken(Lijn.GeefIngegevenKenmerken()).ToStream()
+	#dim IngegevenKenmerkenStream As %Stream = ..IngegevenKenmerkenConverter.NaarDataTransferObject(Lijn.GeefIngegevenKenmerken()).ToStream()
 	#dim OorspronkelijkAantalVanLijn As %Integer = Lijn.GeefAantal()
 	
 	Do Lijn.ZetAantal(Aantal)
 
 	Do ..ZetIngegevenKenmerken(Lijn, IngegevenKenmerken)
 
 	If ProjectReferentie '= "" {
-		Do Lijn.ZetProjectReferentie(ProjectReferentie)
+		Do ..ZetProjectReferentie(Lijn,ProjectReferentie)
 	}
 
-	Set GroepNaam = ##class(APPS.EC.Winkelkar.impl.GroepNaamVoorLijnBepaler).%New(Lijn, ..Winkelkar).GeefGroepNaam()
+	Set GroepNaam = ..GroepNaamVoorLijnBepaler.GeefGroepNaam(Lijn, ..Winkelkar)
 	If (GroepNaam '= "") { // Voorlopig is dit een optionele parameter op WS-niveau, om backward-compatible te zijn zolang de UI-code niet is aangepast...
 		Do ..VerplaatsLijnNaarGroepIndienNodig( Lijn, GroepNaam)
 	}
 	
 	#dim GewijzigdeKenmerkenStream As %Stream = IngegevenKenmerken.ToStream()
 	
-	Do ##class(APPS.EC.Winkelkar.impl.Logger).%New(..Winkelkar).VoegToeLogItemWijzigMaatwerkLijn(OorspronkelijkAantalVanLijn, IngegevenKenmerkenStream,GewijzigdeKenmerkenStream, Lijn)
+	Do ..WinkelkarLogger.VoegToeLogItemWijzigMaatwerkLijn(OorspronkelijkAantalVanLijn, IngegevenKenmerkenStream,GewijzigdeKenmerkenStream, Lijn)
 ]]></Implementation>
 </Method>
 
 <Method name="ZetIngegevenKenmerken">
 <FormalSpec>Lijn:DOM.EC.Winkelkar.MaatwerkLijn,IngegevenKenmerkenDto:APPS.PM.Maatwerk.dto.IngegevenKenmerken</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
 	if ..Winkelkar.GeefApplicatieType() = ##class(APPS.common.enu.ApplicatieType).Extern() {
 		if ( IngegevenKenmerkenDto.GeefFamilie() = ##class(DOM.PM.enu.Familie).Lade() ) 
@@ -83,20 +107,12 @@
 		}
 	}
 	
-	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ..MaakIngegevenKenmerkenDomeinObjectVanDto(IngegevenKenmerkenDto)
+	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ..IngegevenKenmerkenConverter.NaarObject(IngegevenKenmerkenDto)
+	
 	Do Lijn.ZetIngegevenKenmerken(IngegevenKenmerken)
 ]]></Implementation>
 </Method>
 
-<Method name="MaakIngegevenKenmerkenDomeinObjectVanDto">
-<FormalSpec>IngegevenKenmerkenDto:APPS.PM.Maatwerk.dto.IngegevenKenmerken</FormalSpec>
-<ReturnType>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</ReturnType>
-<Implementation><![CDATA[
-	Set IngegevenKenmerkenConverter = ##class(APPS.PM.Maatwerk.impl.IngegevenKenmerkenConverter).%New()
-	Quit IngegevenKenmerkenConverter.NaarObject(IngegevenKenmerkenDto)
-]]></Implementation>
-</Method>
-
 <Method name="VerplaatsLijnNaarGroepIndienNodig">
 <FormalSpec>Lijn:DOM.EC.Winkelkar.Lijn,GroepNaam:%String</FormalSpec>
 <Implementation><![CDATA[
@@ -126,35 +142,22 @@
 <Method name="VoegToeAanGroep">
 <FormalSpec>GroepNaam:%String,Lijn:DOM.EC.Winkelkar.Lijn</FormalSpec>
 <Implementation><![CDATA[
-	Set GroepNaam = ##class(APPS.EC.Winkelkar.impl.GroepNaamVoorLijnBepaler).%New(Lijn, ..Winkelkar).GeefGroepNaam()
+	Set GroepNaam = ..GroepNaamVoorLijnBepaler.GeefGroepNaam(Lijn, ..Winkelkar)
 	#dim GroepLijn As DOM.EC.Winkelkar.GroepLijn = ..Winkelkar.GeefGroepLijn(GroepNaam)
-	If (GroepLijn = "")
-	{
+	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))
-	}
+<Method name="ZetProjectReferentie">
+<FormalSpec>Lijn:DOM.EC.Winkelkar.MaatwerkLijn,ProjectReferentie:%String=""</FormalSpec>
+<Implementation><![CDATA[	do Lijn.ZetProjectReferentie(..AdminTekstUtils.MaakTekstAdminVriendelijk(ProjectReferentie))
 ]]></Implementation>
 </Method>
 
-<Method name="WijzigLijnProjectReferentie">
-<FormalSpec>Lijn:DOM.EC.Winkelkar.MaatwerkLijn,NieuweProjectReferentie:%String=""</FormalSpec>
-<Implementation><![CDATA[
-	#dim AdminTekstUtils As APPS.common.AdminTekstUtils = ##class(APPS.ApplicatieContext).Instance().GeefCommonAPI().GeefAdminTekstUtils()
-	do Lijn.ZetProjectReferentie(AdminTekstUtils.MaakTekstAdminVriendelijk(NieuweProjectReferentie))
-]]></Implementation>
-</Method>
-
 <Method name="IngaveGroeperingGewijzigd">
 <FormalSpec>Kenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,GroepNaam:%String,LijnIDIndienBestaandeLijn:%String=""</FormalSpec>
 <Implementation><![CDATA[
@@ -169,14 +172,23 @@
 		Do Lijn.ZetEindklantTotaalPrijs("")
 		Do ..VerplaatsLijnNaarGroepIndienNodig(Lijn, GroepNaam)		
 	} Else {
-		#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ..MaakIngegevenKenmerkenDomeinObjectVanDto(Kenmerken)
 		Set Lijn = ##class(DOM.EC.Winkelkar.MaatwerkLijn).%New()
-		Do Lijn.ZetIngegevenKenmerken(IngegevenKenmerken)
+		Do ..ZetIngegevenKenmerken(Lijn,Kenmerken)
 		Set Lijn.Groep = GroepNaam		
 		Do ..VoegToeAanGroep(GroepNaam,Lijn)				
 	}
 ]]></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>