Index: APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml
===================================================================
diff -u -r33580 -r33645
--- APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 33580)
+++ APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 33645)
@@ -10,11 +10,6 @@
 <Private>1</Private>
 </Property>
 
-<Property name="WinkelkarPrijsUpdater">
-<Type>APPS.EC.impl.WinkelkarPrijsUpdater</Type>
-<Private>1</Private>
-</Property>
-
 <Property name="MaatwerklijnInputValidator">
 <Type>APPS.EC.Winkelkar.impl.WinkelkarService.MaatwerklijnInputValidator</Type>
 <Private>1</Private>
@@ -30,18 +25,25 @@
 <Private>1</Private>
 </Property>
 
+<Property name="MaatwerkLijnBuilder">
+<Type>APPS.EC.Winkelkar.MaatwerkLijnBuilder</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>MagMaatwerklijnGewijzigdWordenBepaler:APPS.EC.Winkelkar.impl.WinkelkarService.MagMaatwerklijnGewijzigdWorden,WinkelkarPrijsUpdater:APPS.EC.impl.WinkelkarPrijsUpdater,MaatwerklijnInputValidator:APPS.EC.Winkelkar.impl.WinkelkarService.MaatwerklijnInputValidator,BestelService:DOM.VKP.Maatwerk.BestelService,VroegsteLeverdatumBepaler:APPS.EC.impl.VroegsteLeverdatumBepaler</FormalSpec>
+<FormalSpec>MagMaatwerklijnGewijzigdWordenBepaler:APPS.EC.Winkelkar.impl.WinkelkarService.MagMaatwerklijnGewijzigdWorden,MaatwerklijnInputValidator:APPS.EC.Winkelkar.impl.WinkelkarService.MaatwerklijnInputValidator,BestelService:DOM.VKP.Maatwerk.BestelService,VroegsteLeverdatumBepaler:APPS.EC.impl.VroegsteLeverdatumBepaler</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..MagMaatwerklijnGewijzigdWordenBepaler = $$$Implementation(MagMaatwerklijnGewijzigdWordenBepaler,##class(APPS.EC.Winkelkar.impl.WinkelkarService.MagMaatwerklijnGewijzigdWorden).%New($this))
-	Set ..WinkelkarPrijsUpdater = $$$Implementation(WinkelkarPrijsUpdater, ##class(APPS.EC.impl.WinkelkarPrijsUpdater).%New())
 	Set ..MaatwerklijnInputValidator = $$$Implementation(MaatwerklijnInputValidator, ##class(APPS.EC.Winkelkar.impl.WinkelkarService.MaatwerklijnInputValidator).%New())
 	set ..BestelService = $$$Implementation(BestelService, ##class(DOM.VKP.Maatwerk.impl.BestelService).%New())
 	Set ..VroegsteLeverdatumBepaler = $$$Implementation(VroegsteLeverdatumBepaler, ##Class(APPS.EC.impl.VroegsteLeverdatumBepaler).%New())
+	
+	Set ..MaatwerkLijnBuilder = ##class(APPS.EC.Winkelkar.MaatwerkLijnBuilder).%New()
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -142,7 +144,7 @@
 <Implementation><![CDATA[
 	#dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ..OpenWinkelkar(WinkelkarID)
 	#dim AdminTekstUtils As APPS.common.AdminTekstUtils = ##class(APPS.ApplicatieContext).Instance().GeefCommonAPI().GeefAdminTekstUtils()
-	#dim MaatwerkLijn As DOM.EC.Winkelkar.MaatwerkLijn = ..MaakMaatwerkLijn(IngegevenKenmerken, Aantal, Winkelkar, AdminTekstUtils.MaakTekstAdminVriendelijk(ProjectReferentie))
+	#dim MaatwerkLijn As DOM.EC.Winkelkar.MaatwerkLijn = ..MaatwerkLijnBuilder.MaakMaatwerkLijn(IngegevenKenmerken, Aantal, Winkelkar, AdminTekstUtils.MaakTekstAdminVriendelijk(ProjectReferentie))
 	
 	Do ..VoegToeAanGroep(Winkelkar, GroepNaam, MaatwerkLijn)
 	Do MaatwerkLijn.Save()
@@ -181,21 +183,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="MaakMaatwerkLijn">
-<FormalSpec>IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Aantal:%String,Winkelkar:DOM.EC.Winkelkar.Winkelkar,ProjectReferentie:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>DOM.EC.Winkelkar.MaatwerkLijn</ReturnType>
-<Implementation><![CDATA[
-	#dim Lijn As DOM.EC.Winkelkar.MaatwerkLijn = ##class(DOM.EC.Winkelkar.MaatwerkLijn).%New()
-	
-	Do ..ZetMaatwerkLijnIngegevenKenmerken(Lijn, IngegevenKenmerken, Winkelkar)
-	Do ..ZetMaatwerkLijnAantalEnPrijs(Lijn, Aantal, Winkelkar)
-	Do Lijn.ZetProjectReferentie(ProjectReferentie)
-	
-	Quit Lijn
-]]></Implementation>
-</Method>
-
 <Method name="OpenWinkelkar">
 <FormalSpec>WinkelkarID:%String</FormalSpec>
 <ReturnType>DOM.EC.Winkelkar.Winkelkar</ReturnType>
@@ -308,7 +295,7 @@
 		do ##class(TECH.ExceptionHandler).Catch(..E.InvalidInputException).Rethrow(..E.InvalidUserInputException, "Het opgegeven aantal '" _ Aantal _ "' is geen geldige bestelhoeveelheid.")
 	}
 
-	Do ..ZetMaatwerkLijnAantalEnPrijs(Lijn, Aantal, Winkelkar)
+	Do ..MaatwerkLijnBuilder.ZetMaatwerkLijnAantalEnPrijs(Lijn, Aantal, Winkelkar)
 	Do Lijn.Save()
 	Do Winkelkar.Save()
 ]]></Implementation>
@@ -343,8 +330,8 @@
 	#dim IngegevenKenmerkenStream As %Stream = KenmerkenNaarDtoVisitor.GeefIngegevenKenmerken(Lijn.GeefIngegevenKenmerken()).ToStream()
 	#dim OorspronkelijkAantalVanLijn As %Integer = Lijn.GeefAantal()
 	
-	Do ..ZetMaatwerkLijnIngegevenKenmerken(Lijn, IngegevenKenmerken, Winkelkar)
-	Do ..ZetMaatwerkLijnAantalEnPrijs(Lijn, Aantal, Winkelkar)
+	Do ..MaatwerkLijnBuilder.ZetMaatwerkLijnIngegevenKenmerken(Lijn, IngegevenKenmerken, Winkelkar)
+	Do ..MaatwerkLijnBuilder.ZetMaatwerkLijnAantalEnPrijs(Lijn, Aantal, Winkelkar)
 	If ProjectReferentie '= "" {
 		Do Lijn.ZetProjectReferentie(ProjectReferentie)
 	}
@@ -463,57 +450,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="ZetMaatwerkLijnIngegevenKenmerken">
-<FormalSpec>Lijn:DOM.EC.Winkelkar.MaatwerkLijn,IngegevenKenmerkenDto:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Winkelkar:DOM.EC.Winkelkar.Winkelkar</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	/* Dirty hack : intracto doet blijkbaar nog wat verkeerd met wijziging van de LadeHoogte -> RugHoogte volgt niet */
-
-	if Winkelkar.GeefApplicatieType() = ##class(APPS.common.enu.ApplicatieType).Extern() {
-		if ( IngegevenKenmerkenDto.GeefFamilie() = ##class(DOM.PM.enu.Familie).Lade() ) && ( IngegevenKenmerkenDto.GeefVariant() = ##class(DOM.PM.enu.Variant).LegraboxPure()) && ( IngegevenKenmerkenDto.Klasse = ##class(DOM.PM.enu.LBXKlasse).Lade() ) {
-			if $$$Not(IngegevenKenmerkenDto.LadeHoogte = IngegevenKenmerkenDto.RugHoogte) {
-			  	do ##class(vhLib.Logger).%New().InfoMail("Data Correctie","Rughoogte '"_IngegevenKenmerkenDto.RugHoogte_"' gelijkgesteld aan LadeHoogte '"_IngegevenKenmerkenDto.LadeHoogte_"'")
-			  	set IngegevenKenmerkenDto.RugHoogte = IngegevenKenmerkenDto.LadeHoogte
-			}
-		}
-	}
-	
-	Do ..ControleerIKVolgensKenmerkMogelijkheden(IngegevenKenmerkenDto, Winkelkar)
-	
-	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ..MaakIngegevenKenmerkenDomeinObjectVanDto(IngegevenKenmerkenDto)
-	Do Lijn.ZetIngegevenKenmerken(IngegevenKenmerken)
-]]></Implementation>
-</Method>
-
-<Method name="ControleerIKVolgensKenmerkMogelijkheden">
-<FormalSpec>IngegevenKenmerkenDto:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Winkelkar:DOM.EC.Winkelkar.Winkelkar</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-
-	// !!!  Deze controle voorlopig nog niet uitvoeren !!! 
-	// Aparte story om de controles te vervolledigen en duidelijk te rapporteren 
-
-	Quit   
-	
- /*
-	#dim ConfiguratorService As APPS.EC.impl.ConfiguratorService.ConfiguratorServiceTemplate = ..GeefConfiguratorService(Winkelkar)
-	#dim Personality As DOM.common.Personality = Winkelkar.GeefPersonality()
-	#dim KlantIDVoorKenmerkkMogelijkheden As DOM.common.PartijID = ##class(APPS.EC.Winkelkar.WinkelkarService.impl.KlantBepaler).%New().GeefKlantID(Personality,Winkelkar.GeefKlantID())
-	#dim Klant As DOM.VKP.VanHoeckeKlant = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI().GeefKlant(KlantIDVoorKenmerkkMogelijkheden)
-	
-	Try {
-		Set IKVolgensKenmerkMogelijkhedenControleur=##class(APPS.PM.Maatwerk.impl.IngegevenKenmerkenVolgensKenmerkMogelijkhedenControleur).%New(ConfiguratorService)
-		Do IKVolgensKenmerkMogelijkhedenControleur.Controleer(IngegevenKenmerkenDto,Klant,Personality)
-	}
-	Catch {
-		// Alleen de InvalidInputException opvangen. 
-		#dim Exceptie As TECH.IException = ##class(TECH.ExceptionHandler).Catch(##class(TECH.Exceptions.InvalidInputException).%ClassName(1))
-		Do ##class(vhLib.Logger).%New("APPS.EC.Winkelkar.WinkelkarService").WarningMail("ControleerIKVolgensKenmerkMogelijkheden","Details over conflict tussen IK en kenmerkmogelijkheden : "_Exceptie.ToString())
-	}
- */
-]]></Implementation>
-</Method>
-
 <Method name="GeefConfiguratorService">
 <FormalSpec>Winkelkar:DOM.EC.Winkelkar.Winkelkar</FormalSpec>
 <Private>1</Private>
@@ -524,31 +460,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="ZetMaatwerkLijnAantalEnPrijs">
-<FormalSpec>Lijn:DOM.EC.Winkelkar.MaatwerkLijn,Aantal:%String,Winkelkar:DOM.EC.Winkelkar.Winkelkar</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	do Lijn.ZetAantal(Aantal)
-	do ..BerekenMaatwerkLijnPrijs(Lijn, Winkelkar)
-]]></Implementation>
-</Method>
-
-<Method name="BerekenMaatwerkLijnPrijs">
-<FormalSpec>Lijn:DOM.EC.Winkelkar.MaatwerkLijn,Winkelkar:DOM.EC.Winkelkar.Winkelkar</FormalSpec>
-<Implementation><![CDATA[	Do ..WinkelkarPrijsUpdater.HerberekenLijn(Winkelkar,Lijn)
-]]></Implementation>
-</Method>
-
-<Method name="MaakIngegevenKenmerkenDomeinObjectVanDto">
-<FormalSpec>IngegevenKenmerkenDto:APPS.PM.Maatwerk.dto.IngegevenKenmerken</FormalSpec>
-<Private>1</Private>
-<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>Winkelkar:DOM.EC.Winkelkar.Winkelkar,Lijn:DOM.EC.Winkelkar.Lijn,GroepNaam:%String</FormalSpec>
 <Private>1</Private>
@@ -610,14 +521,14 @@
 	
 	If $L(LijnIDIndienBestaandeLijn) {
 		Set Lijn = WinkelkarImpl.GeefLijn(LijnIDIndienBestaandeLijn)
-		Do ..ZetMaatwerkLijnIngegevenKenmerken(Lijn, Kenmerken, WinkelkarImpl)
+		Do ..MaatwerkLijnBuilder.ZetMaatwerkLijnIngegevenKenmerken(Lijn, Kenmerken, WinkelkarImpl)
 		Do Lijn.ZetEenheidPrijsNettoExclBTW("")
 		Do Lijn.ZetTotaalPrijs("")
 		Do Lijn.ZetEindklantEenheidPrijsNettoExclBTW("")
 		Do Lijn.ZetEindklantTotaalPrijs("")
 		Do ..VerplaatsLijnNaarGroepIndienNodig(WinkelkarImpl, Lijn, GroepNaam)		
 	} Else {
-		#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ..MaakIngegevenKenmerkenDomeinObjectVanDto(Kenmerken)
+		#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ..MaatwerkLijnBuilder.MaakIngegevenKenmerkenDomeinObjectVanDto(Kenmerken)
 		Set Lijn = ##class(DOM.EC.Winkelkar.MaatwerkLijn).%New()
 		Do Lijn.ZetIngegevenKenmerken(IngegevenKenmerken)
 		Set Lijn.Groep = GroepNaam