Index: vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/MaatwerklijnInputValidator/Valideer/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/MaatwerklijnInputValidator/Valideer/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/MaatwerklijnInputValidator/Valideer/Test.cls.xml	(revision 30029)
@@ -0,0 +1,100 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EC.Winkelkar.impl.WinkelkarService.MaatwerklijnInputValidator.Valideer.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="MailAPI">
+<Type>vhUnitTest.TECH.Mail.impl.MailAPIMock</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="MaatwerklijnInputValidator">
+<Type>APPS.EC.Winkelkar.impl.WinkelkarService.MaatwerklijnInputValidator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="TAORKenmerken">
+<Type>APPS.PM.Maatwerk.dto.TAORKenmerken</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	do ##super()
+	
+	set ..MaatwerklijnInputValidator = ##class(APPS.EC.Winkelkar.impl.WinkelkarService.MaatwerklijnInputValidator).%New()
+]]></Implementation>
+</Method>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	do ##super(aTestName)
+	
+	set ..MailAPI = ##class(vhUnitTest.TECH.Mail.impl.MailAPIMock).MockInstance()
+	set ..TAORKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardLade()
+]]></Implementation>
+</Method>
+
+<Method name="Test: exceptie wordt geraised bij aantal 0">
+<Implementation><![CDATA[
+	#dim OmschrijvingSubStrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Het aantal moet groter zijn dan")
+	#dim VerwachteExceptie = ##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidUserInputException", OmschrijvingSubStrings)
+	
+	do ..ZetVerwachteExceptie(VerwachteExceptie)
+	do ..MaatwerklijnInputValidator.Valideer(..TAORKenmerken, 0)
+	
+	do $$$AssertFalse(..MaatwerklijnInputValidator.IsGeldigAantal(..TAORKenmerken, 0))
+]]></Implementation>
+</Method>
+
+<Method name="Test: aantal groter dan 0 is toegelaten">
+<Implementation><![CDATA[	do $$$AssertTrue(..MaatwerklijnInputValidator.IsGeldigAantal(..TAORKenmerken, 1))
+]]></Implementation>
+</Method>
+
+<Method name="Test: exceptie wordt geraised en ict-mail wordt verstuurd bij onvolledige kenmerken">
+<Implementation><![CDATA[
+	#dim OmschrijvingSubStrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("De ingegeven kenmerken zijn niet volledig")
+	#dim VerwachteExceptie = ##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException", OmschrijvingSubStrings)
+	
+	set ..TAORKenmerken.BodemKleur = ""
+	
+	do ..ZetVerwachteExceptie(VerwachteExceptie)
+	do ..MaatwerklijnInputValidator.Valideer(..TAORKenmerken, 10)
+	
+	do $$$AssertEquals(..MailAPI.GeefAantalVerzondenMails(), 1)
+]]></Implementation>
+</Method>
+
+<Method name="Test: volledige kenmerken worden toegelaten">
+<Implementation><![CDATA[	do $$$AssertTrue(..MaatwerklijnInputValidator.IsGeldigeKenmerken(..TAORKenmerken))
+]]></Implementation>
+</Method>
+
+<Method name="Test: aantal voor losse componenten moet veelvoud van 10 zijn">
+<Implementation><![CDATA[
+	set ..TAORKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardLadeVerpaktIn(##class(DOM.PM.enu.TAORVerpakkingType).LosseComponentenInBulk())
+	
+	do $$$AssertTrue(..TAORKenmerken.IsVolledig())
+	do $$$AssertTrue(..MaatwerklijnInputValidator.IsGeldigAantal(..TAORKenmerken, 30))
+]]></Implementation>
+</Method>
+
+<Method name="Test: exceptie wordt geraised als aantal voor losse componenten geen veelvoud van 10 is">
+<Implementation><![CDATA[
+	set ..TAORKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardLadeVerpaktIn(##class(DOM.PM.enu.TAORVerpakkingType).LosseComponentenInBulk())
+	
+	#dim OmschrijvingSubStrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Het opgegeven aantal", "is geen geldige bestelhoeveelheid")
+	#dim VerwachteExceptie = ##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidUserInputException", OmschrijvingSubStrings)
+	
+	do ..ZetVerwachteExceptie(VerwachteExceptie)
+	do ..MaatwerklijnInputValidator.Valideer(..TAORKenmerken, 12)
+	
+	do $$$AssertFalse(..MaatwerklijnInputValidator.IsGeldigAantal(..TAORKenmerken, 12))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/EC/Winkelkar/impl/WinkelkarService/MaatwerklijnInputValidator.cls.xml
===================================================================
diff -u
--- APPS/EC/Winkelkar/impl/WinkelkarService/MaatwerklijnInputValidator.cls.xml	(revision 0)
+++ APPS/EC/Winkelkar/impl/WinkelkarService/MaatwerklijnInputValidator.cls.xml	(revision 30029)
@@ -0,0 +1,117 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.EC.Winkelkar.impl.WinkelkarService.MaatwerklijnInputValidator">
+<Super>TECH.Mockable</Super>
+
+<Method name="Valideer">
+<FormalSpec>Kenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Aantal:%Integer</FormalSpec>
+<Implementation><![CDATA[
+	do ..ValideerKenmerken(Kenmerken)
+	do ..ValideerAantal(Kenmerken, Aantal)
+]]></Implementation>
+</Method>
+
+<Method name="IsGeldigAantal">
+<FormalSpec>Kenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Aantal:%Integer</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim IsGeldig As %Boolean = $$$True
+	
+	try {
+		do ..ValideerAantal(Kenmerken, Aantal)
+	} catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch(..E.InvalidUserInputException)
+		set IsGeldig = $$$False
+	}	
+	
+	quit IsGeldig
+]]></Implementation>
+</Method>
+
+<Method name="IsGeldigeKenmerken">
+<FormalSpec>Kenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim IsGeldig As %Boolean = $$$True
+	
+	try {
+		do ..ValideerKenmerken(Kenmerken)
+	} catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch(..E.InvalidInputException)
+		set IsGeldig = $$$False
+	}	
+	
+	quit IsGeldig
+]]></Implementation>
+</Method>
+
+<Method name="ValideerAantal">
+<FormalSpec>Kenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Aantal:%Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	do:(Aantal <= 0) ..ThrowInvalidUserInputException("Het aantal moet groter zijn dan 0.")	
+	do:($$$Not((Aantal # ..GeefBestelVeelvoud(Kenmerken)) = 0)) ..ThrowInvalidUserInputException("Het opgegeven aantal '" _ Aantal _ "' is geen geldige bestelhoeveelheid.")
+]]></Implementation>
+</Method>
+
+<Method name="ValideerKenmerken">
+<FormalSpec>Kenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	if ($$$Not(Kenmerken.IsVolledig())) {		
+		#dim Omschrijving As TECH.String = "De ingegeven kenmerken zijn niet volledig: '" _ Kenmerken _ "'."
+		#dim Exception As TECH.Exceptions.InvalidInputException = ##class(TECH.Exceptions.InvalidInputException).%New(Omschrijving)
+		
+		do ##class(TECH.ExceptionHandler).Throw(Exception)	
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefBestelVeelvoud">
+<FormalSpec>Kenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim BestelVeelvoud As TECH.Integer	= 1
+	
+	if (Kenmerken.GeefVariant() = ##class(DOM.PM.enu.Variant).Taorbox()) {		
+		if ((Kenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).LosseComponentenInBulk()) && $$$Not(Kenmerken.LosseComponent = "")) {
+			#dim LadeOnderdeel As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel 
+			#dim DoosAfmetingenBepaler As zTryout.PBO.TAXBOG.impl.DoosAfmetingenBepaler = ..MaakDoosAfmetingenBepaler(Kenmerken, .LadeOnderdeel)
+			
+			set BestelVeelvoud = DoosAfmetingenBepaler.GeefMaximaalAantalOnderdelen(LadeOnderdeel)
+		}		
+	} 
+	
+	quit BestelVeelvoud
+]]></Implementation>
+</Method>
+
+<Method name="MaakDoosAfmetingenBepaler">
+<FormalSpec><![CDATA[Kenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,&LadeOnderdeel:%CacheString]]></FormalSpec>
+<Private>1</Private>
+<ReturnType>zTryout.PBO.TAXBOG.impl.DoosAfmetingenBepaler</ReturnType>
+<Implementation><![CDATA[
+	#dim TAORKenmerken AS DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(APPS.PM.Maatwerk.impl.IngegevenKenmerkenConverter).%New().NaarObject(Kenmerken)
+	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ##class(DOM.DomeinContext).Instance().GeefMaatwerkCalcAPI().GeefHalffabItemsBoom(TAORKenmerken)
+	#dim Factory As DOM.PM.Maatwerk.LadeInfo.impl.LosseComponentFactory = ##class(DOM.PM.Maatwerk.LadeInfo.impl.LosseComponentFactory).%New()
+	#dim LosseComponent As DOM.PM.Maatwerk.Lade.enu.LosseComponent = ##class(DOM.PM.Maatwerk.TAX.impl.ProductieWijzeNaarLosseComponentConverter).%New().Convert(TAORKenmerken.ProductieWijze)
+	
+	set LadeOnderdeel = Factory.MaakLosseComponent(HalffabItemsBoom, TAORKenmerken, LosseComponent)
+	
+	quit $classmethod("zTryout.PBO.TAXBOG.impl.DoosAfmetingen" _ LadeOnderdeel.GeefRol() _ "Bepaler", "%New")
+]]></Implementation>
+</Method>
+
+<Method name="ThrowInvalidUserInputException">
+<FormalSpec>Omschrijving:TECH.String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Exception As TECH.Exceptions.InvalidUserInputException = ##class(TECH.Exceptions.InvalidUserInputException).%New(Omschrijving)
+	do ##class(TECH.ExceptionHandler).Throw(Exception)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Utils/APPS/PM/Maatwerk/dto/TAORKenmerken.cls.xml
===================================================================
diff -u -r29826 -r30029
--- vhTest/Utils/APPS/PM/Maatwerk/dto/TAORKenmerken.cls.xml	(.../TAORKenmerken.cls.xml)	(revision 29826)
+++ vhTest/Utils/APPS/PM/Maatwerk/dto/TAORKenmerken.cls.xml	(.../TAORKenmerken.cls.xml)	(revision 30029)
@@ -3,11 +3,81 @@
 <Class name="vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken">
 <Super>TECH.RegisteredObject</Super>
 
-<Method name="CLade">
+<Method name="StandaardLade">
 <ClassMethod>1</ClassMethod>
 <ReturnType>APPS.PM.Maatwerk.dto.TAORKenmerken</ReturnType>
 <Implementation><![CDATA[
+	#dim TAORKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(APPS.PM.Maatwerk.dto.TAORKenmerken).%New()
+	set TAORKenmerken.BodemKleur = ##class(DOM.PM.enu.TAORBodemKleur).NatuurNotenhout()
+	set TAORKenmerken.CorpusBreedte = "600"
+	set TAORKenmerken.CorpusWandDikte = ""
+	set TAORKenmerken.Draagkracht = ##class(DOM.PM.enu.TAORDraagkracht).Draagkracht40()
+	set TAORKenmerken.ExplicietGekozenKenmerken = ##class(%ListOfDataTypes).%New()
+	set TAORKenmerken.FrontBevestiging = ##class(DOM.PM.enu.TAORFrontBevestiging).Drevel()
+	set TAORKenmerken.FrontEindkapKleur = ##class(DOM.PM.enu.TAORFrontEindkapKleur).AluminiumLook()
+	set TAORKenmerken.GlijderType = ##class(DOM.PM.enu.TAORGlijderType).Movento()
+	set TAORKenmerken.HeeftDiepteVerstelling = "0"
+	set TAORKenmerken.HeeftOpvullijstLinks = "0"
+	set TAORKenmerken.HeeftOpvullijstRechts = "0"
+	set TAORKenmerken.HeeftTipon = "0"
+	set TAORKenmerken.HeeftZijstabilisering = "0"
+	set TAORKenmerken.IsBinnenbreedte = $$$True
+	set TAORKenmerken.IsBinnenlade = "0"
+	set TAORKenmerken.KoppelingType = ##class(DOM.PM.enu.TAORKoppelingType).Schroef()
+	set TAORKenmerken.LadeDiepte = ##class(DOM.PM.enu.TAORLadeDiepte).LadeDiepte500()
+	set TAORKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).C()
+	set TAORKenmerken.LadeKleur = ##class(DOM.PM.enu.TAORLadeKleur).NatuurNotenhout()
+	set TAORKenmerken.LosseComponent = ""
+	set TAORKenmerken.NietIngegeven = ##class(%ListOfDataTypes).%New()
+	set TAORKenmerken.NietMeeleveren = ##class(%ListOfDataTypes).%New()
+	set TAORKenmerken.Omschrijving = ""
+	set TAORKenmerken.OpvullijstKleur = ""
+	set TAORKenmerken.Uittrekbaarheid = ##class(DOM.PM.enu.TAORUittrekbaarheid).Volledig()
+	set TAORKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).V1()
+	set TAORKenmerken.VersieNr = "0"
+		
+	quit TAORKenmerken
+]]></Implementation>
+</Method>
+
+<Method name="StandaardLadeVerpaktIn">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Verpakking:DOM.PM.enu.TAORVerpakkingType</FormalSpec>
+<ReturnType>APPS.PM.Maatwerk.dto.TAORKenmerken</ReturnType>
+<Implementation><![CDATA[
 	#dim TAORKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ..StandaardLade()
+	set TAORKenmerken.VerpakkingType = Verpakking
+	if TAORKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).LosseComponentenInBulk() {
+		set TAORKenmerken.LosseComponent = ##class(APPS.PM.enu.TAORLosseComponent).Bodem()
+	}
+	quit TAORKenmerken
+]]></Implementation>
+</Method>
+
+<Method name="StandaardBinnenlade">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.PM.Maatwerk.dto.TAORKenmerken</ReturnType>
+<Implementation><![CDATA[	quit ..StandaardBinnenladeVerpaktIn(##class(DOM.PM.enu.TAORVerpakkingType).V1())
+]]></Implementation>
+</Method>
+
+<Method name="StandaardBinnenladeVerpaktIn">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Verpakking:DOM.PM.enu.TAORVerpakkingType</FormalSpec>
+<ReturnType>APPS.PM.Maatwerk.dto.TAORKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim TAORKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ..StandaardLadeVerpaktIn(Verpakking)
+	set TAORKenmerken.IsBinnenlade = $$$True
+	set TAORKenmerken.FrontEindkapKleur = ##class(DOM.PM.enu.TAORFrontEindkapKleur).AluminiumLook()
+	quit TAORKenmerken
+]]></Implementation>
+</Method>
+
+<Method name="CLade">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.PM.Maatwerk.dto.TAORKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim TAORKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ..Basis()
 	
 	set TAORKenmerken.CorpusBreedte = "600"
 	set TAORKenmerken.CorpusWandDikte = "0"
@@ -63,7 +133,7 @@
 <ClassMethod>1</ClassMethod>
 <ReturnType>APPS.PM.Maatwerk.dto.TAORKenmerken</ReturnType>
 <Implementation><![CDATA[
-	#dim TAORKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ..StandaardLade()
+	#dim TAORKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ..Basis()
 	
 	set TAORKenmerken.CorpusBreedte = "963"
 	set TAORKenmerken.CorpusWandDikte = "0"
@@ -82,29 +152,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="StandaardLade">
-<ClassMethod>1</ClassMethod>
-<ReturnType>APPS.PM.Maatwerk.dto.TAORKenmerken</ReturnType>
-<Implementation><![CDATA[
-	#dim TAORKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(APPS.PM.Maatwerk.dto.TAORKenmerken).%New()
-	
-	set TAORKenmerken.GlijderType = "Movento"
-	set TAORKenmerken.HeeftDiepteVerstelling = "0"
-	set TAORKenmerken.HeeftOpvullijstLinks = "0"
-	set TAORKenmerken.HeeftOpvullijstRechts = "0"
-	set TAORKenmerken.KoppelingType = ##class(DOM.PM.enu.TAORKoppelingType).Schroef()
-	set TAORKenmerken.NietIngegeven = ##class(%ListOfDataTypes).%New()
-	set TAORKenmerken.NietMeeleveren = ##class(%ListOfDataTypes).%New()
-	set TAORKenmerken.Omschrijving = ""
-	set TAORKenmerken.Uittrekbaarheid = "V"
-	set TAORKenmerken.VerpakkingType = "V1"
-	set TAORKenmerken.VersieNr = "0"
-	set TAORKenmerken.FrontEindkapKleur = ##class(DOM.PM.enu.TAORFrontEindkapKleur).AluminiumLook()
-	
-	quit TAORKenmerken
-]]></Implementation>
-</Method>
-
 <Method name="CLadeFlatpackV1">
 <ClassMethod>1</ClassMethod>
 <ReturnType>APPS.PM.Maatwerk.dto.TAORKenmerken</ReturnType>
@@ -135,6 +182,30 @@
 	quit TAORKenmerken
 ]]></Implementation>
 </Method>
+
+<Method name="Basis">
+<ClassMethod>1</ClassMethod>
+<Private>1</Private>
+<ReturnType>APPS.PM.Maatwerk.dto.TAORKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim TAORKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(APPS.PM.Maatwerk.dto.TAORKenmerken).%New()
+	
+	set TAORKenmerken.GlijderType = "Movento"
+	set TAORKenmerken.HeeftDiepteVerstelling = "0"
+	set TAORKenmerken.HeeftOpvullijstLinks = "0"
+	set TAORKenmerken.HeeftOpvullijstRechts = "0"
+	set TAORKenmerken.KoppelingType = ##class(DOM.PM.enu.TAORKoppelingType).Schroef()
+	set TAORKenmerken.NietIngegeven = ##class(%ListOfDataTypes).%New()
+	set TAORKenmerken.NietMeeleveren = ##class(%ListOfDataTypes).%New()
+	set TAORKenmerken.Omschrijving = ""
+	set TAORKenmerken.Uittrekbaarheid = "V"
+	set TAORKenmerken.VerpakkingType = "V1"
+	set TAORKenmerken.VersieNr = "0"
+	set TAORKenmerken.FrontEindkapKleur = ##class(DOM.PM.enu.TAORFrontEindkapKleur).AluminiumLook()
+	
+	quit TAORKenmerken
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/WS/EC/TestInterneWinkelkarService.cls.xml
===================================================================
diff -u -r29059 -r30029
--- vhUnitTest/WS/EC/TestInterneWinkelkarService.cls.xml	(.../TestInterneWinkelkarService.cls.xml)	(revision 29059)
+++ vhUnitTest/WS/EC/TestInterneWinkelkarService.cls.xml	(.../TestInterneWinkelkarService.cls.xml)	(revision 30029)
@@ -9,12 +9,30 @@
 <Type>WS.EC.InterneVerkoopService</Type>
 </Property>
 
-<UDLText name="T">
-<Content><![CDATA[
-// Parameter Type As %String = "IntegratieTest";
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	do ##super()
+	do ##class(vhUnitTest.UnitTestUsers).WisITTestUser()
+	do ##class(vhUnitTest.UnitTestUsers).MaakITTestUser()
+	do ##class(TECH.Context.RuntimeContext).Instance().ZetTaal(##class(DOM.enu.Taal).Nederlands())
+	
+	set ..InterneVerkoopService = ##class(WS.EC.InterneVerkoopService).%New()
+]]></Implementation>
+</Method>
 
-]]></Content>
-</UDLText>
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	do ##super(aTestName)
+	
+	#dim ECommerceAPIMock As vhTest.Mock.APPS.EC.ECommerceAPI = ##class(vhTest.Mock.APPS.EC.ECommerceAPI).MockInstance()	
+	#dim WebshopSessionServiceFake As vhTest.Mock.APPS.EC.WebshopSessionService = ##class(vhTest.Mock.APPS.EC.WebshopSessionService).%New()
+	
+	do WebshopSessionServiceFake.IndienMethodCall("GeefVanHoeckeSessie",##class(TECH.Context.RuntimeContext).Instance().GeefSessieID()).DanReturn(##class(APPS.EC.impl.VanHoeckeWebshopSessie).%New($$$DummyString))
+	do ECommerceAPIMock.IndienMethodCall("GeefWebshopSessionService").DanReturn(WebshopSessionServiceFake)
+	do ECommerceAPIMock.IndienMethodCall("GeefWinkelkarService").DanReturn(##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New())
+]]></Implementation>
+</Method>
 
 <Method name="TestGeefParameters">
 <Implementation><![CDATA[
@@ -111,35 +129,12 @@
 ]]></Implementation>
 </Method>
 
-<Method name="OnBeforeAllTests">
-<Implementation><![CDATA[
-	do ##super()
-	Do ##class(vhUnitTest.UnitTestUsers).WisITTestUser()
-	Do ##class(vhUnitTest.UnitTestUsers).MaakITTestUser()
-	do ##class(TECH.Context.RuntimeContext).Instance().ZetTaal(##class(DOM.enu.Taal).Nederlands())
-	
-	Set ..InterneVerkoopService = ##class(WS.EC.InterneVerkoopService).%New()
-]]></Implementation>
-</Method>
-
 <Method name="OnAfterAllTests">
 <Implementation><![CDATA[
 	do ##super()
 	Do ##class(vhUnitTest.UnitTestUsers).WisITTestUser()
 ]]></Implementation>
 </Method>
-
-<Method name="OnBeforeOneTest">
-<FormalSpec>aTestName:%String</FormalSpec>
-<Implementation><![CDATA[
-	Do ##super(aTestName)
-	#dim ECommerceAPIMock As vhTest.Mock.APPS.EC.ECommerceAPI = ##class(vhTest.Mock.APPS.EC.ECommerceAPI).MockInstance()	
-	Set WebshopSessionServiceFake = ##class(vhTest.Mock.APPS.EC.WebshopSessionService).%New()
-	Do WebshopSessionServiceFake.IndienMethodCall("GeefVanHoeckeSessie",##class(TECH.Context.RuntimeContext).Instance().GeefSessieID()).DanReturn(##class(APPS.EC.impl.VanHoeckeWebshopSessie).%New($$$DummyString))
-	Do ECommerceAPIMock.IndienMethodCall("GeefWebshopSessionService").DanReturn(WebshopSessionServiceFake)
-	Do ECommerceAPIMock.IndienMethodCall("GeefWinkelkarService").DanReturn(##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New())
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/TestHandel.cls.xml
===================================================================
diff -u -r29059 -r30029
--- vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/TestHandel.cls.xml	(.../TestHandel.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/TestHandel.cls.xml	(.../TestHandel.cls.xml)	(revision 30029)
@@ -1,8 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.APPS.EC.Winkelkar.WinkelkarService.TestHandel">
-<Description>
-do ##class(vhUnitTest.Manager).RunTest("/debug/Display=all","APPS.EC.Winkelkar.WinkelkarService.TestHandel")</Description>
 <ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.TestCase</Super>
@@ -21,6 +19,11 @@
 <Type>APPS.EC.Winkelkar.impl.WinkelkarService</Type>
 </Property>
 
+<Property name="MaatwerklijnValidatorMock">
+<Type>vhTest.Mock.APPS.EC.Winkelkar.impl.MaatwerklijnValidator</Type>
+<Private>1</Private>
+</Property>
+
 <Parameter name="AantalProductenInLijn">
 <Type>%Integer</Type>
 <Default>2</Default>
@@ -29,10 +32,16 @@
 <Method name="OnBeforeAllTests">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Do ##class(TECH.Context.RuntimeContext).Instance().ZetTaal(##class(DOM.enu.Taal).Nederlands())	
+	do ##class(TECH.Context.RuntimeContext).Instance().ZetTaal(##class(DOM.enu.Taal).Nederlands())
+		
 	#dim MailAPI As vhUnitTest.TECH.Mail.impl.MailAPIMock = ##class(vhUnitTest.TECH.Mail.impl.MailAPIMock).MockInstance()
-	Set ..WinkelkarService = ##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New()
-	Do ##super()
+	#dim MagMaatwerklijnGewijzigdWordenBepaler As APPS.EC.Winkelkar.impl.WinkelkarService.MagMaatwerklijnGewijzigdWorden = ##class(APPS.EC.Winkelkar.impl.WinkelkarService.MagMaatwerklijnGewijzigdWorden).%New()
+	#dim WinkelkarPrijsUpdater As APPS.EC.impl.WinkelkarPrijsUpdater = ##class(APPS.EC.impl.WinkelkarPrijsUpdater).%New()
+	
+	set ..MaatwerklijnValidatorMock = ##class(vhTest.Mock.APPS.EC.Winkelkar.impl.MaatwerklijnValidator).%New()
+	set ..WinkelkarService = ##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New(MagMaatwerklijnGewijzigdWordenBepaler, WinkelkarPrijsUpdater, ..MaatwerklijnValidatorMock)
+	
+	do ##super()
 ]]></Implementation>
 </Method>
 
@@ -75,7 +84,6 @@
 	Do WebshopSessionServiceFake.IndienMethodCall( "GeefSFSSessie", ##class(TECH.Context.RuntimeContext).Instance().GeefSessieID() ).DanReturn( SFSFictievePrijsSessie )
 	Do WebshopSessionServiceFake.IndienMethodCall( "BestaatWebshopSessie", ##class(TECH.Context.RuntimeContext).Instance().GeefSessieID() ).DanReturn( 1 )
 	
-	
 	#dim Lijn As DOM.EC.Winkelkar.MaatwerkLijn = ##class(DOM.EC.Winkelkar.MaatwerkLijn).%New()
 	Do Lijn.ZetEenheidPrijsNettoExclBTW("Niet Te Gebruiken EenheidsPrijs")
 	Do Lijn.ZetTotaalPrijs("Niet Te Gebruiken TotaalPrijs")
@@ -135,10 +143,15 @@
 	#dim WinkelkarID As %String = ..MaakWinkelkarEnGeefID()
 	#dim MaatwerkLijnID As %String = ..VoegToeMaatwerkLijnEnGeefID(WinkelkarID)
 	#dim LijnDtoInitieel As APPS.EC.Winkelkar.dto.Lijn = ..WinkelkarService.GeefLijn(WinkelkarID, MaatwerkLijnID)
+	#dim TAORKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).CLade()
 	
+	do ..MaatwerklijnValidatorMock.VerwachtMethodCall("Valideer", TAORKenmerken, $$$NieuwAantal).ExactAantalKeer(1).DanDoeNiks()
+	
 	// Actie
 	Do ..WinkelkarService.WijzigLijnAantal(WinkelkarID, MaatwerkLijnID, $$$NieuwAantal)
 	
+	do ..MaatwerklijnValidatorMock.Verifieer()
+	
 	// Controle
 	#dim LijnDtoNaWijziging As APPS.EC.Winkelkar.dto.MaatwerkLijn = ..WinkelkarService.GeefLijn(WinkelkarID, MaatwerkLijnID)
 	Quit:('$$$AssertTrue($IsObject(LijnDtoNaWijziging)))
Index: vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/WijzigMaatwerklijn/Test.cls.xml
===================================================================
diff -u -r29059 -r30029
--- vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/WijzigMaatwerklijn/Test.cls.xml	(.../Test.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/WijzigMaatwerklijn/Test.cls.xml	(.../Test.cls.xml)	(revision 30029)
@@ -7,33 +7,37 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.TestCase</Super>
 
+<Parameter name="GebruiktVariabeleControle">
+<Default>0</Default>
+</Parameter>
+
 <Property name="WinkelkarService">
 <Type>APPS.EC.Winkelkar.impl.WinkelkarService</Type>
+<Private>1</Private>
 </Property>
 
-<Parameter name="GebruiktVariabeleControle">
-<Default>0</Default>
-</Parameter>
+<Property name="TAORKenmerken">
+<Type>APPS.PM.Maatwerk.dto.TAORKenmerken</Type>
+<Private>1</Private>
+</Property>
 
 <Property name="MagMaatwerklijnGewijzigdWordenBepalerMock">
 <Type>vhTest.Mock.APPS.EC.Winkelkar.impl.WinkelkarService.MagMaatwerklijnGewijzigdWorden</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="MaatwerklijnInputValidatorMock">
+<Type>vhTest.Mock.APPS.EC.Winkelkar.impl.WinkelkarService.MaatwerklijnInputValidator</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="CommonAPI">
 <Description><![CDATA[
 Deze property wordt alleen gebruikt in method "Test Bij MaatwerkLijnGewijzigd wordt dit gelogd" --> refactor ? ]]></Description>
 <Type>vhUnitTest.APPS.EC.Winkelkar.WinkelkarService.WijzigMaatwerklijn.CommonAPIMock</Type>
 <Private>1</Private>
 </Property>
 
-<UDLText name="T">
-<Content><![CDATA[
-// Parameter Type As %String = "IntegratieTest";
-
-]]></Content>
-</UDLText>
-
 <Parameter name="AantalProductenInLijn">
 <Type>%Integer</Type>
 <Default>2</Default>
@@ -42,207 +46,203 @@
 <Method name="OnBeforeAllTests">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Do ##super()
-	Do ##class(TECH.Context.RuntimeContext).Instance().ZetTaal(##class(DOM.enu.Taal).Nederlands())
+	do ##super()
+	do ##class(TECH.Context.RuntimeContext).Instance().ZetTaal(##class(DOM.enu.Taal).Nederlands())
 ]]></Implementation>
 </Method>
 
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
-	Do ##super(aTestName)
-	Set ..WinkelkarService = ##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New()	
-	Set ..MagMaatwerklijnGewijzigdWordenBepalerMock = ""
-	Set ..CommonAPI = ##class(vhUnitTest.APPS.EC.Winkelkar.WinkelkarService.WijzigMaatwerklijn.CommonAPIMock).MockInstance()
+	do ##super(aTestName)
+	
+	set ..TAORKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardLade()
+	set ..TAORKenmerken.Draagkracht = ##class(DOM.PM.enu.TAORDraagkracht).Draagkracht30()
+	set ..TAORKenmerken.GlijderType = ##class(DOM.PM.enu.TAORGlijderType).Tandem()
+	
+	set ..MagMaatwerklijnGewijzigdWordenBepalerMock = ##class(vhTest.Mock.APPS.EC.Winkelkar.impl.WinkelkarService.MagMaatwerklijnGewijzigdWorden).%New()
+	set ..MaatwerklijnInputValidatorMock = ##class(vhTest.Mock.APPS.EC.Winkelkar.impl.WinkelkarService.MaatwerklijnInputValidator).%New()
+	
+	#dim WinkelkarPrijsUpdater As APPS.EC.impl.WinkelkarPrijsUpdater = ##class(APPS.EC.impl.WinkelkarPrijsUpdater).%New()
+	
+	set ..WinkelkarService = ##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New(..MagMaatwerklijnGewijzigdWordenBepalerMock, WinkelkarPrijsUpdater, ..MaatwerklijnInputValidatorMock)
+	set ..CommonAPI = ##class(vhUnitTest.APPS.EC.Winkelkar.WinkelkarService.WijzigMaatwerklijn.CommonAPIMock).MockInstance()
 ]]></Implementation>
 </Method>
 
-<Method name="Test Bij MaatwerkLijnGewijzigd wordt dit gelogd">
+<Method name="Test: Bij MaatwerklijnGewijzigd wordt dit gelogd">
 <Implementation><![CDATA[
-	#define NieuweLadeHoogte ##class(DOM.PM.enu.TAORLadeHoogte).C()
-	
-	// Setup
 	#dim WinkelkarID As %String = ..MaakWinkelkarEnGeefID()
-	#dim MaatwerkLijnID As %String = ..VoegToeMaatwerkLijnEnGeefID(WinkelkarID)
-	
-	#dim NieuweIngegevenKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhUnitTest.DOM.PM.Maatwerk.HF.Data).GeefTAORKenmerkenDto()
-	Set NieuweIngegevenKenmerken.LadeHoogte = $$$NieuweLadeHoogte
-	
-	Do ..ZetWinkelkarService($$$True, WinkelkarID, MaatwerkLijnID)
+	#dim MaatwerklijnID As %String = ..VoegToeMaatwerkLijnEnGeefID(WinkelkarID, ..TAORKenmerken)
 
-	// Actie
-	#dim Lijn As APPS.EC.Winkelkar.dto.MaatwerkLijn = ..WinkelkarService.WijzigMaatwerkLijn(WinkelkarID, MaatwerkLijnID, NieuweIngegevenKenmerken, ..#AantalProductenInLijn)
+	do ..ZetVerwachtingen($$$True, WinkelkarID, MaatwerklijnID)
+
+	#dim Lijn As APPS.EC.Winkelkar.dto.MaatwerkLijn = ..WinkelkarService.WijzigMaatwerkLijn(WinkelkarID, MaatwerklijnID, ..TAORKenmerken, ..#AantalProductenInLijn)
 	
-	// Controle
-	If $$$AssertEquals(..CommonAPI.GeefGelogdeOnderwerpTypes().Count(),1) {
-		Do $$$AssertEquals(..CommonAPI.GeefGelogdeOnderwerpTypes().GetAt(1),"DOM.EC.Winkelkar.Winkelkar")
+	If $$$AssertEquals(..CommonAPI.GeefGelogdeOnderwerpTypes().Count(), 1) {
+		Do $$$AssertEquals(..CommonAPI.GeefGelogdeOnderwerpTypes().GetAt(1), "DOM.EC.Winkelkar.Winkelkar")
 	}
-	do ..MagMaatwerklijnGewijzigdWordenBepalerMock.Verifieer()
+	
+	do ..VerifieerVerwachtingen()
 ]]></Implementation>
 </Method>
 
-<Method name="TestMaatwerkLijnMagGewijzigdWorden">
+<Method name="Test: MaatwerkLijn mag gewijzigd worden">
 <Implementation><![CDATA[
 	#define NieuweCorpusBreedte "999"
 	#define NieuweHeeftTipon 1
 	#define NieuweLadeHoogte ##class(DOM.PM.enu.TAORLadeHoogte).C()
 	
-	// Setup
-	#dim WinkelkarID As %String = ..MaakWinkelkarEnGeefID()
-	#dim MaatwerkLijnID As %String = ..VoegToeMaatwerkLijnEnGeefID(WinkelkarID)
+	set ..TAORKenmerken.LadeHoogte = $$$NieuweLadeHoogte
+	set ..TAORKenmerken.CorpusBreedte = $$$NieuweCorpusBreedte
+	set ..TAORKenmerken.HeeftTipon = $$$NieuweHeeftTipon
 	
-	#dim NieuweIngegevenKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhUnitTest.DOM.PM.Maatwerk.HF.Data).GeefTAORKenmerkenDto()
-	Set NieuweIngegevenKenmerken.CorpusBreedte = $$$NieuweCorpusBreedte // Enkele kenmerken worden ingevuld voor de steekproef-controle achteraf.
-	Set NieuweIngegevenKenmerken.HeeftTipon = $$$NieuweHeeftTipon
-	Set NieuweIngegevenKenmerken.LadeHoogte = $$$NieuweLadeHoogte
-	
-	Do ..ZetWinkelkarService($$$True, WinkelkarID, MaatwerkLijnID)
+	#dim WinkelkarID As %String = ..MaakWinkelkarEnGeefID()
+	#dim MaatwerklijnID As %String = ..VoegToeMaatwerkLijnEnGeefID(WinkelkarID)
 
-	// Actie
-	#dim Lijn As APPS.EC.Winkelkar.dto.MaatwerkLijn = ..WinkelkarService.WijzigMaatwerkLijn(WinkelkarID, MaatwerkLijnID, NieuweIngegevenKenmerken, ..#AantalProductenInLijn)
-	Set NieuweIngegevenKenmerken = ""
+	do ..ZetVerwachtingen($$$True, WinkelkarID, MaatwerklijnID)
+
+	#dim Lijn As APPS.EC.Winkelkar.dto.MaatwerkLijn = ..WinkelkarService.WijzigMaatwerkLijn(WinkelkarID, MaatwerklijnID, ..TAORKenmerken, ..#AantalProductenInLijn)
 	
-	// Controle
 	#dim WinkelkarDto As APPS.EC.Winkelkar.dto.Winkelkar = ..WinkelkarService.GeefWinkelkar(WinkelkarID)
-	If ( $$$AssertTrue( $IsObject(WinkelkarDto)) ) {
-		Do $$$AssertEquals( 1, WinkelkarDto.Lijnen.Count())
-		Do $$$AssertTrue(WinkelkarDto.Lijnen.GetNext().%IsA("APPS.EC.Winkelkar.dto.GroepLijn"), WinkelkarDto.Lijnen.GetNext())
-		Do $$$AssertEquals( 1, WinkelkarDto.Lijnen.GetNext().Lijnen.Count())
-	 	Do $$$AssertTrue(WinkelkarDto.Lijnen.GetNext().Lijnen.GetNext().%IsA("APPS.EC.Winkelkar.dto.MaatwerkLijn"))
-		Do $$$AssertTrue( WinkelkarDto.Lijnen.GetNext().Lijnen.GetNext().IngegevenKenmerken.%Extends("APPS.PM.Maatwerk.dto.TAORKenmerken"))
+	If ($$$AssertTrue($IsObject(WinkelkarDto))) {
+		do $$$AssertEquals(1, WinkelkarDto.Lijnen.Count())
+		do $$$AssertTrue(WinkelkarDto.Lijnen.GetNext().%IsA("APPS.EC.Winkelkar.dto.GroepLijn"), WinkelkarDto.Lijnen.GetNext())
+		do $$$AssertEquals(1, WinkelkarDto.Lijnen.GetNext().Lijnen.Count())
+	 	do $$$AssertTrue(WinkelkarDto.Lijnen.GetNext().Lijnen.GetNext().%IsA("APPS.EC.Winkelkar.dto.MaatwerkLijn"))
+		do $$$AssertTrue(WinkelkarDto.Lijnen.GetNext().Lijnen.GetNext().IngegevenKenmerken.%Extends("APPS.PM.Maatwerk.dto.TAORKenmerken"))
 	}
 	
 	#dim TeruggekregenIngegevenKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = WinkelkarDto.Lijnen.GetNext().Lijnen.GetNext().IngegevenKenmerken
-	Do $$$AssertEquals( $$$NieuweCorpusBreedte, TeruggekregenIngegevenKenmerken.CorpusBreedte )
-	Do $$$AssertEquals( $$$NieuweHeeftTipon, TeruggekregenIngegevenKenmerken.HeeftTipon )
-	Do $$$AssertEquals( $$$NieuweLadeHoogte, TeruggekregenIngegevenKenmerken.LadeHoogte )
-	Do $$$AssertEquals( MaatwerkLijnID,  WinkelkarDto.Lijnen.GetNext().Lijnen.GetNext().LijnID )
-	do ..MagMaatwerklijnGewijzigdWordenBepalerMock.Verifieer()
+	do $$$AssertEquals($$$NieuweCorpusBreedte, TeruggekregenIngegevenKenmerken.CorpusBreedte)
+	do $$$AssertEquals($$$NieuweHeeftTipon, TeruggekregenIngegevenKenmerken.HeeftTipon)
+	do $$$AssertEquals($$$NieuweLadeHoogte, TeruggekregenIngegevenKenmerken.LadeHoogte)
+	do $$$AssertEquals(MaatwerklijnID, WinkelkarDto.Lijnen.GetNext().Lijnen.GetNext().LijnID)
+	
+	do ..VerifieerVerwachtingen()
 ]]></Implementation>
 </Method>
 
-<Method name="TestWijzigMaatwerkLijnBehoudVolgordeInGroep">
+<Method name="Test: WijzigMaatwerklijn behoudt volgorde in groep">
 <Implementation><![CDATA[
-	#define NieuweCorpusBreedte "999"
-	#define NieuweHeeftTipon 1
-	#define NieuweLadeHoogte ##class(DOM.PM.enu.TAORLadeHoogte).C()
-	
-	// Setup
 	#dim WinkelkarID As %String = ..MaakWinkelkarEnGeefID()
-	Do ..VoegToeMaatwerkLijnEnGeefID(WinkelkarID)
-	#dim MaatwerkLijnID As %String = ..VoegToeMaatwerkLijnEnGeefID(WinkelkarID)
-	Do ..VoegToeMaatwerkLijnEnGeefID(WinkelkarID)
+	do ..VoegToeMaatwerkLijnEnGeefID(WinkelkarID)
+	#dim MaatwerklijnID As %String = ..VoegToeMaatwerkLijnEnGeefID(WinkelkarID)
+	do ..VoegToeMaatwerkLijnEnGeefID(WinkelkarID)
 	
-	#dim NieuweIngegevenKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhUnitTest.DOM.PM.Maatwerk.HF.Data).GeefTAORKenmerkenDto()
-	Set NieuweIngegevenKenmerken.CorpusBreedte = $$$NieuweCorpusBreedte // Enkele kenmerken worden ingevuld voor de steekproef-controle achteraf.
-
-	Do ..ZetWinkelkarService($$$True, WinkelkarID, MaatwerkLijnID)
-		
-	// Actie
-	#dim Lijn As APPS.EC.Winkelkar.dto.MaatwerkLijn = ..WinkelkarService.WijzigMaatwerkLijn(WinkelkarID, MaatwerkLijnID, NieuweIngegevenKenmerken, ..#AantalProductenInLijn, "GroepNaam")
-	Set NieuweIngegevenKenmerken = ""
+	do ..ZetVerwachtingen($$$True, WinkelkarID, MaatwerklijnID)
 	
-	// Controle
-	do ..MagMaatwerklijnGewijzigdWordenBepalerMock.Verifieer()
+	#dim Lijn As APPS.EC.Winkelkar.dto.MaatwerkLijn = ..WinkelkarService.WijzigMaatwerkLijn(WinkelkarID, MaatwerklijnID, ..TAORKenmerken, ..#AantalProductenInLijn, "GroepNaam")
+	
+	do ..VerifieerVerwachtingen()
 
 	#dim WinkelkarDto As APPS.EC.Winkelkar.dto.Winkelkar = ..WinkelkarService.GeefWinkelkar(WinkelkarID)
-	Quit:( '$$$AssertTrue( $IsObject(WinkelkarDto)) )
-	Quit:( '$$$AssertEquals( 1, WinkelkarDto.Lijnen.Count()) )
-	Quit:( '$$$AssertTrue(WinkelkarDto.Lijnen.GetNext().%IsA("APPS.EC.Winkelkar.dto.GroepLijn"), WinkelkarDto.Lijnen.GetNext()) )
-	Quit:( '$$$AssertEquals( 3, WinkelkarDto.Lijnen.GetNext().Lijnen.Count()) )
+	quit:($$$Not($$$AssertTrue($IsObject(WinkelkarDto))))
+	quit:($$$Not($$$AssertEquals(1, WinkelkarDto.Lijnen.Count())))
+	quit:($$$Not($$$AssertTrue(WinkelkarDto.Lijnen.GetNext().%IsA("APPS.EC.Winkelkar.dto.GroepLijn"), WinkelkarDto.Lijnen.GetNext())))
+	quit:($$$Not($$$AssertEquals(3, WinkelkarDto.Lijnen.GetNext().Lijnen.Count())))
+	
 	#dim OpnieuwGekregenLijn As APPS.EC.Winkelkar.dto.MaatwerkLijn = WinkelkarDto.Lijnen.GetNext().Lijnen.GetAt("2")
-	Quit:( '$$$AssertTrue( OpnieuwGekregenLijn.%IsA("APPS.EC.Winkelkar.dto.MaatwerkLijn")) )
-	Quit:('$$$AssertEquals( MaatwerkLijnID,  OpnieuwGekregenLijn.LijnID ))
+	quit:($$$Not($$$AssertTrue(OpnieuwGekregenLijn.%IsA("APPS.EC.Winkelkar.dto.MaatwerkLijn"))))
+	quit:($$$Not($$$AssertEquals(MaatwerklijnID, OpnieuwGekregenLijn.LijnID)))
 ]]></Implementation>
 </Method>
 
-<Method name="TestWijzigOnbestaandeMaatwerkLijn">
+<Method name="Test: Wijzig onbestaande Maatwerklijn">
 <Implementation><![CDATA[
-	// Setup
 	#dim WinkelkarID As %String = ..MaakWinkelkarEnGeefID()
-	#dim MaatwerkLijnID As %String = ..VoegToeMaatwerkLijnEnGeefID(WinkelkarID)
-	
-	#dim NieuweIngegevenKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhUnitTest.DOM.PM.Maatwerk.HF.Data).GeefTAORKenmerkenDto()
-		
-	Try {
-		// Actie
-		#dim Lijn As APPS.EC.Winkelkar.dto.MaatwerkLijn = ..WinkelkarService.WijzigMaatwerkLijn(WinkelkarID, MaatwerkLijnID+1, NieuweIngegevenKenmerken, ..#AantalProductenInLijn)
-		// Controle		
-		Do $$$AssertFalse(1, "We verwachten een exception.")
-	} Catch {
+	#dim MaatwerklijnID As %String = ..VoegToeMaatwerkLijnEnGeefID(WinkelkarID) + 1
+
+	do ..ZetVerwachtingen($$$True, WinkelkarID, MaatwerklijnID)
+
+	try {
+		#dim Lijn As APPS.EC.Winkelkar.dto.MaatwerkLijn = ..WinkelkarService.WijzigMaatwerkLijn(WinkelkarID, MaatwerklijnID, ..TAORKenmerken, ..#AantalProductenInLijn)
+		do $$$AssertFalse(1, "We verwachten een exception.")
+	} catch {
 		#dim Exception As TECH.Exceptions.InvalidInputException = ##class(TECH.ExceptionHandler).Catch()
-		Do $$$AssertTrue(Exception.%Extends("TECH.Exceptions.InvalidInputException"))
+		do $$$AssertTrue(Exception.%Extends("TECH.Exceptions.InvalidInputException"))
 	}
+	
+	do ..VerifieerVerwachtingen()
 ]]></Implementation>
 </Method>
 
-<Method name="TestWijzigMaatwerkLijnInOnbestaandeWinkelkar">
+<Method name="Test: WijzigMaatwerklijn in onbestaande Winkelkar">
 <Implementation><![CDATA[
-	#dim NieuweIngegevenKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhUnitTest.DOM.PM.Maatwerk.HF.Data).GeefTAORKenmerkenDto()
+	#dim WinkelkarID As TECH.String = ..MaakWinkelkarEnGeefID()
+	#dim MaatwerklijnID As TECH.String = 1
 		
-	Try {
-		// Actie
-		#dim Lijn As APPS.EC.Winkelkar.dto.MaatwerkLijn = ..WinkelkarService.WijzigMaatwerkLijn("Onbestaande WinkelkarID", 1, NieuweIngegevenKenmerken, ..#AantalProductenInLijn)
-		// Controle		
-		Do $$$AssertFalse(1, "We verwachten een exception.")
-	} Catch {
+	do ..ZetVerwachtingen($$$True, WinkelkarID, MaatwerklijnID)
+		
+	try {
+		#dim Lijn As APPS.EC.Winkelkar.dto.MaatwerkLijn = ..WinkelkarService.WijzigMaatwerkLijn(WinkelkarID, MaatwerklijnID, ..TAORKenmerken, ..#AantalProductenInLijn)	
+		do $$$AssertFalse(1, "We verwachten een exception.")
+	} catch {
 		#dim Exception As TECH.Exceptions.InvalidInputException = ##class(TECH.ExceptionHandler).Catch()
-		Do $$$AssertTrue(Exception.%Extends("TECH.Exceptions.InvalidInputException"))
+		do $$$AssertTrue(Exception.%Extends("TECH.Exceptions.InvalidInputException"))
 	}
+	
+	do ..VerifieerVerwachtingen()
 ]]></Implementation>
 </Method>
 
-<Method name="TestWijzigMaatwerkLijnMetVerkeerdTypeLijn">
+<Method name="Test: WijzigMaatwerklijn met verkeerd type lijn">
 <Implementation><![CDATA[
-	// Setup
 	#dim WinkelkarID As %String = ..MaakWinkelkarEnGeefID()
-	#dim MaatwerkLijnID As %String = ..VoegToeMaatwerkLijnEnGeefID(WinkelkarID)
+	#dim MaatwerklijnID As %String = ..VoegToeMaatwerkLijnEnGeefID(WinkelkarID)
 	#dim GroepLijnID As %String = ..WinkelkarService.GeefWinkelkar(WinkelkarID).Lijnen.GetNext().LijnID
-	
-	#dim NieuweIngegevenKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhUnitTest.DOM.PM.Maatwerk.HF.Data).GeefTAORKenmerkenDto()
-		
-	Try {
-		// Actie
-		#dim Lijn As APPS.EC.Winkelkar.dto.MaatwerkLijn = ..WinkelkarService.WijzigMaatwerkLijn(WinkelkarID, GroepLijnID, NieuweIngegevenKenmerken, ..#AantalProductenInLijn)
-		// Controle		
-		Do $$$AssertFalse(1, "We verwachten een exception.")
-	} Catch {
-		#dim Exception As TECH.Exceptions.InvalidInputException = ##class(TECH.ExceptionHandler).Catch()
-		Do $$$AssertTrue(Exception.%Extends("TECH.Exceptions.InvalidInputException"), "Exception classname is :"_Exception.%ClassName(1))
+
+	do ..ZetVerwachtingen($$$True, WinkelkarID, GroepLijnID)
+
+	try {
+		#dim Lijn As APPS.EC.Winkelkar.dto.MaatwerkLijn = ..WinkelkarService.WijzigMaatwerkLijn(WinkelkarID, GroepLijnID, ..TAORKenmerken, ..#AantalProductenInLijn)		
+		do $$$AssertFalse(1, "We verwachten een exception.")
+	} catch {
+		#dim Exception As TECH.Exceptions.InvalidInputException = ##class(TECH.ExceptionHandler).Catch()		
+		do $$$AssertTrue(Exception.%Extends("TECH.Exceptions.InvalidInputException"), "Exception classname is :" _ Exception.%ClassName(1))
 	}
+	
+	do ..VerifieerVerwachtingen()
 ]]></Implementation>
 </Method>
 
 <Method name="MaakWinkelkarEnGeefID">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	set Winkelkar = ##class(DOM.EC.Winkelkar.InterneWinkelkar).%New("UnitTest")	
+	#dim Winkelkar As DOM.EC.Winkelkar.InterneWinkelkar = ##class(DOM.EC.Winkelkar.InterneWinkelkar).%New("UnitTest")	
+	
 	do Winkelkar.ZetPersonalityID(##class(DOM.common.enu.Personality).VanHoecke())
 	do Winkelkar.ZetKlantID("K||7587")
+	
 	do $$$AssertEquals($$$OK, Winkelkar.%Save())
+	
 	quit Winkelkar.%Id()
 ]]></Implementation>
 </Method>
 
 <Method name="VoegToeMaatwerkLijnEnGeefID">
-<FormalSpec>WinkelkarID:%String</FormalSpec>
+<FormalSpec>WinkelkarID:%String,TAORKenmerken:APPS.PM.Maatwerk.dto.TAORKenmerken</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..WinkelkarService.VoegToeMaatwerk(WinkelkarID, "GroepNaam", ..TAORKenmerken, ..#AantalProductenInLijn)
+]]></Implementation>
+</Method>
+
+<Method name="ZetVerwachtingen">
+<FormalSpec>MagMaatwerklijnGewijzigdWorden:%Boolean,WinkelkarID:%String,MaatwerklijnID:%String</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
-	#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhUnitTest.DOM.PM.Maatwerk.HF.Data).GeefTAORKenmerkenDto()
-	#dim LijnID As %String = ..WinkelkarService.VoegToeMaatwerk(WinkelkarID, "GroepNaam", IngegevenKenmerken, ..#AantalProductenInLijn)
-	Quit LijnID
+	do ..MaatwerklijnInputValidatorMock.VerwachtMethodCall("Valideer", ..TAORKenmerken, ..#AantalProductenInLijn).ExactAantalKeer(1).DanDoeNiks()
+	do ..MagMaatwerklijnGewijzigdWordenBepalerMock.VerwachtMethodCall("MagMaatwerklijnGewijzigdWorden", WinkelkarID, MaatwerklijnID).DanReturn(MagMaatwerklijnGewijzigdWorden)
 ]]></Implementation>
 </Method>
 
-<Method name="ZetWinkelkarService">
-<FormalSpec>MagMaatwerklijnGewijzigdWorden:%Boolean,WinkelkarID:%String,MaatwerkLijnID:%String</FormalSpec>
+<Method name="VerifieerVerwachtingen">
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set ..MagMaatwerklijnGewijzigdWordenBepalerMock = ##class(vhTest.Mock.APPS.EC.Winkelkar.impl.WinkelkarService.MagMaatwerklijnGewijzigdWorden).%New()
-	do ..MagMaatwerklijnGewijzigdWordenBepalerMock.VerwachtMethodCall("MagMaatwerklijnGewijzigdWorden",WinkelkarID, MaatwerkLijnID).DanReturn(MagMaatwerklijnGewijzigdWorden)
-	Set ..WinkelkarService = ##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New(..MagMaatwerklijnGewijzigdWordenBepalerMock)
+	do ..MaatwerklijnInputValidatorMock.Verifieer()
+	do ..MagMaatwerklijnGewijzigdWordenBepalerMock.Verifieer()
 ]]></Implementation>
 </Method>
 </Class>
Index: vhTest/Mock/APPS/EC/Winkelkar/impl/WinkelkarService/MaatwerklijnInputValidator.cls.xml
===================================================================
diff -u
--- vhTest/Mock/APPS/EC/Winkelkar/impl/WinkelkarService/MaatwerklijnInputValidator.cls.xml	(revision 0)
+++ vhTest/Mock/APPS/EC/Winkelkar/impl/WinkelkarService/MaatwerklijnInputValidator.cls.xml	(revision 30029)
@@ -0,0 +1,34 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.APPS.EC.Winkelkar.impl.WinkelkarService.MaatwerklijnInputValidator">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.EC.Winkelkar.impl.WinkelkarService.MaatwerklijnInputValidator,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="IsGeldigAantal">
+<FormalSpec>Kenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Aantal:%Integer</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("IsGeldigAantal",Kenmerken,Aantal)
+]]></Implementation>
+</Method>
+
+<Method name="IsGeldigeKenmerken">
+<FormalSpec>Kenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("IsGeldigeKenmerken",Kenmerken)
+]]></Implementation>
+</Method>
+
+<Method name="Valideer">
+<FormalSpec>Kenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Aantal:%Integer</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("Valideer",Kenmerken,Aantal)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/PM/Maatwerk/TAX/impl/LosseComponentNaarProductieWijzeConverter.cls.xml
===================================================================
diff -u -r29926 -r30029
--- DOM/PM/Maatwerk/TAX/impl/LosseComponentNaarProductieWijzeConverter.cls.xml	(.../LosseComponentNaarProductieWijzeConverter.cls.xml)	(revision 29926)
+++ DOM/PM/Maatwerk/TAX/impl/LosseComponentNaarProductieWijzeConverter.cls.xml	(.../LosseComponentNaarProductieWijzeConverter.cls.xml)	(revision 30029)
@@ -7,11 +7,11 @@
 <FormalSpec>LosseComponent:DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel</FormalSpec>
 <ReturnType>DOM.PM.enu.TAORProductieWijze</ReturnType>
 <Implementation><![CDATA[
-	#dim ProductieWijze As %String = ""
-	#dim StringIterator = ##class(TECH.PiecesIterator).%New(LosseComponent, ".")
+	#dim ProductieWijze As TECH.String = ""
+	#dim StringIterator As TECH.PiecesIterator = ##class(TECH.PiecesIterator).%New(LosseComponent, ".")
 	
-	while StringIterator.HasNext() {
-		set ProductieWijze = ProductieWijze_ $extract(StringIterator.Next(), 1)
+	while (StringIterator.HasNext()) {
+		set ProductieWijze = ProductieWijze _ $extract(StringIterator.Next(), 1)
 	}
 	
 	quit ProductieWijze
Index: vhTest/Fake/APPS/EC/Winkelkar/impl/WinkelkarService/MaatwerklijnInputValidator.cls.xml
===================================================================
diff -u
--- vhTest/Fake/APPS/EC/Winkelkar/impl/WinkelkarService/MaatwerklijnInputValidator.cls.xml	(revision 0)
+++ vhTest/Fake/APPS/EC/Winkelkar/impl/WinkelkarService/MaatwerklijnInputValidator.cls.xml	(revision 30029)
@@ -0,0 +1,32 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.APPS.EC.Winkelkar.impl.WinkelkarService.MaatwerklijnInputValidator">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.EC.Winkelkar.impl.WinkelkarService.MaatwerklijnInputValidator</Super>
+
+<Method name="IsGeldigAantal">
+<FormalSpec>Kenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Aantal:%Integer</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="IsGeldigeKenmerken">
+<FormalSpec>Kenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="Valideer">
+<FormalSpec>Kenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Aantal:%Integer</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/DOM/PM/Maatwerk/TAX/impl/LosseComponentNaarProductieWijzeConverter/Converteer/Test.cls.xml
===================================================================
diff -u -r29926 -r30029
--- vhUnitTest/DOM/PM/Maatwerk/TAX/impl/LosseComponentNaarProductieWijzeConverter/Converteer/Test.cls.xml	(.../Test.cls.xml)	(revision 29926)
+++ vhUnitTest/DOM/PM/Maatwerk/TAX/impl/LosseComponentNaarProductieWijzeConverter/Converteer/Test.cls.xml	(.../Test.cls.xml)	(revision 30029)
@@ -28,11 +28,13 @@
 <Method name="Test: Smoke">
 <Implementation><![CDATA[
 	#dim Iterator As TECH.Iterator = ##class(DOM.PM.Maatwerk.Lade.enu.LosseComponent).ValueListIterator()
-	while Iterator.HasNext() {
+	
+	while (Iterator.HasNext()) {
 		#dim LosseComponent As DOM.PM.Maatwerk.Lade.enu.LosseComponent = Iterator.Next()
 		#dim ProductieWijze As DOM.PM.enu.TAORProductieWijze = ..Converter.Convert(LosseComponent)
+		
 		if $$$Not(##class(DOM.PM.enu.TAORProductieWijze).IsValid(ProductieWijze)) {
-			do ..Fail("Losse component : '"_LosseComponent_"' ProductieWijze : '"_ProductieWijze_"'")
+			do ..Fail("Losse component: '" _ LosseComponent _ "' <-> ProductieWijze: '" _ ProductieWijze _ "'")
 		}
 	}
 ]]></Implementation>
Index: APPS/PM/Maatwerk/impl/DtoNaarKenmerkVisitor.cls.xml
===================================================================
diff -u -r29646 -r30029
--- APPS/PM/Maatwerk/impl/DtoNaarKenmerkVisitor.cls.xml	(.../DtoNaarKenmerkVisitor.cls.xml)	(revision 29646)
+++ APPS/PM/Maatwerk/impl/DtoNaarKenmerkVisitor.cls.xml	(.../DtoNaarKenmerkVisitor.cls.xml)	(revision 30029)
@@ -69,6 +69,7 @@
 	Set IngegevenKenmerken.OpvullijstKleur = TAORKenmerken.OpvullijstKleur
 	Set IngegevenKenmerken.AfdekkapBovenKleur = TAORKenmerken.FrontEindkapKleur
 	Set IngegevenKenmerken.FrontEindkapKleur = TAORKenmerken.FrontEindkapKleur
+	Set IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.Maatwerk.TAX.impl.LosseComponentNaarProductieWijzeConverter).%New().Convert(TAORKenmerken.LosseComponent)
 	
 	If $$$Not(##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI().IsTAORKoppelingActief($$$True)) {
 		Set IngegevenKenmerken.AfdekkapBovenKleur = ##class(DOM.PM.enu.TAORAfdekkapBovenKleur).AluminiumLook()
Index: APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml
===================================================================
diff -u -r29059 -r30029
--- APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 29059)
+++ APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 30029)
@@ -15,15 +15,21 @@
 <Private>1</Private>
 </Property>
 
+<Property name="MaatwerklijnInputValidator">
+<Type>APPS.EC.Winkelkar.impl.WinkelkarService.MaatwerklijnInputValidator</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>MagMaatwerklijnGewijzigdWordenBepaler:APPS.EC.Winkelkar.impl.WinkelkarService.MagMaatwerklijnGewijzigdWorden,WinkelkarPrijsUpdater:APPS.EC.impl.WinkelkarPrijsUpdater</FormalSpec>
+<FormalSpec>MagMaatwerklijnGewijzigdWordenBepaler:APPS.EC.Winkelkar.impl.WinkelkarService.MagMaatwerklijnGewijzigdWorden,WinkelkarPrijsUpdater:APPS.EC.impl.WinkelkarPrijsUpdater,MaatwerklijnInputValidator:APPS.EC.Winkelkar.impl.WinkelkarService.MaatwerklijnInputValidator</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 ..WinkelkarPrijsUpdater = $$$Implementation(WinkelkarPrijsUpdater, ##class(APPS.EC.impl.WinkelkarPrijsUpdater).%New())
+	Set ..MaatwerklijnInputValidator = $$$Implementation(MaatwerklijnInputValidator, ##class(APPS.EC.Winkelkar.impl.WinkelkarService.MaatwerklijnInputValidator).%New())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -104,20 +110,22 @@
 <FormalSpec>WinkelkarID:%String,GroepNaam:%String,IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Aantal:%String,ProjectReferentie:%String=""</FormalSpec>
 <ReturnType>APPS.EC.Winkelkar.dto.Winkelkar</ReturnType>
 <Implementation><![CDATA[
-	Do ..VoegToeMaatwerk(WinkelkarID,GroepNaam,IngegevenKenmerken,Aantal,ProjectReferentie)
-	Quit ..GeefWinkelkar(WinkelkarID)
+	do ..MaatwerklijnInputValidator.Valideer(IngegevenKenmerken, Aantal)
+	do ..VoegToeMaatwerk(WinkelkarID, GroepNaam, IngegevenKenmerken, Aantal, ProjectReferentie)
+	
+	quit ..GeefWinkelkar(WinkelkarID)
 ]]></Implementation>
 </Method>
 
 <Method name="VoegToeMaatwerk">
 <FormalSpec>WinkelkarID:%String,GroepNaam:%String,IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Aantal:%String,ProjectReferentie:%String=""</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim Winkelkar As DOM.EC.Winkelkar.Winkelkar= ..OpenWinkelkar(WinkelkarID)
-	
+	#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))
-	Do ..VoegToeAanGroep( Winkelkar, GroepNaam, MaatwerkLijn )
+	
+	Do ..VoegToeAanGroep(Winkelkar, GroepNaam, MaatwerkLijn)
 	Do MaatwerkLijn.Save()
 	Do Winkelkar.Save()
 	
@@ -160,9 +168,11 @@
 <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 )
+	
+	Do ..ZetMaatwerkLijnIngegevenKenmerken(Lijn, IngegevenKenmerken, Winkelkar)
+	Do ..ZetMaatwerkLijnAantalEnPrijs(Lijn, Aantal, Winkelkar)
+	Do Lijn.ZetProjectReferentie(ProjectReferentie)
+	
 	Quit Lijn
 ]]></Implementation>
 </Method>
@@ -286,14 +296,14 @@
 <FormalSpec>WinkelkarID:%String,LijnID:%String,IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Aantal:%String,GroepNaam:%String="",ProjectReferentie:%String=""</FormalSpec>
 <ReturnType>APPS.EC.Winkelkar.dto.Winkelkar</ReturnType>
 <Implementation><![CDATA[
-	If (..MagMaatwerklijnGewijzigdWordenBepaler.MagMaatwerklijnGewijzigdWorden(WinkelkarID,LijnID)) {
-
+	do ..MaatwerklijnInputValidator.Valideer(IngegevenKenmerken, Aantal)
+	
+	if (..MagMaatwerklijnGewijzigdWordenBepaler.MagMaatwerklijnGewijzigdWorden(WinkelkarID, LijnID)) {
 		#dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ..OpenWinkelkar(WinkelkarID)
 		#dim Lijn As DOM.EC.Winkelkar.MaatwerkLijn = Winkelkar.GeefLijn(LijnID)
-		
-		
-		Do ..ControleerInput( Lijn.%Extends("DOM.EC.Winkelkar.MaatwerkLijn"), "Lijn met id '"_LijnID_"' in winkelkar met id '"_WinkelkarID_"' is geen MaatwerkLijn, dus kunnen er geen IngegevenKenmerken van gewijzigd worden." )
 
+		Do ..ControleerInput( Lijn.%Extends("DOM.EC.Winkelkar.MaatwerkLijn"), "Lijn met id '"_LijnID_"' in winkelkar met id '"_WinkelkarID_"' is geen MaatwerkLijn, dus kunnen er geen IngegevenKenmerken van gewijzigd worden." )
+	
 		#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 OorspronkelijkAantalVanLijn As %Integer = Lijn.GeefAantal()
@@ -308,23 +318,22 @@
 		}
 		
 		#dim GewijzigdeKenmerkenStream As %Stream = IngegevenKenmerken.ToStream()
-		Do ..VoegToeLogItemWijzigMaatwerklijn(OorspronkelijkAantalVanLijn, IngegevenKenmerkenStream,GewijzigdeKenmerkenStream, Lijn, Winkelkar)
+		Do ..VoegToeLogItemWijzigMaatwerkLijn(OorspronkelijkAantalVanLijn, IngegevenKenmerkenStream,GewijzigdeKenmerkenStream, Lijn, Winkelkar)
 		
 		Do Lijn.Save()
 		Do Winkelkar.Save()
-	}
-	else
-	{
+	} else {
 		Set Exception = ##class(TECH.Exceptions.GeneralErrorException).%New("De Maatwerklijn van de winkelkar werd niet aangepast, u heeft geen authorisatie om deze te kunnen aanpassen")
 		Do Exception.VoegToeExtraInfo("WinkelkarID="_WinkelkarID)
 		Do Exception.VoegToeExtraInfo("LijnID="_LijnID)
 		Do ##class(TECH.ExceptionHandler).Throw(Exception)
 	}
+	
 	Quit ..GeefWinkelkar(WinkelkarID)
 ]]></Implementation>
 </Method>
 
-<Method name="VoegToeLogItemWijzigMaatwerklijn">
+<Method name="VoegToeLogItemWijzigMaatwerkLijn">
 <FormalSpec>OorspronkelijkAantalVanLijn:%Integer,IngegevenKenmerkenStream:%Stream,GewijzigdeKenmerkenStream:%Stream,Lijn:DOM.EC.Winkelkar.MaatwerkLijn,Winkelkar:DOM.EC.Winkelkar.Winkelkar</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
@@ -417,11 +426,10 @@
 <FormalSpec>Lijn:DOM.EC.Winkelkar.MaatwerkLijn,IngegevenKenmerkenDto:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Winkelkar:DOM.EC.Winkelkar.Winkelkar</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Do ..ControleerInput( IngegevenKenmerkenDto.IsVolledig(), "De ingegeven kenmerken zijn niet volledig. "_IngegevenKenmerkenDto )
 	Do ..ControleerIKVolgensKenmerkMogelijkheden(IngegevenKenmerkenDto, Winkelkar)
 	
 	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ..MaakIngegevenKenmerkenDomeinObjectVanDto(IngegevenKenmerkenDto)
-	Do Lijn.ZetIngegevenKenmerken( IngegevenKenmerken )
+	Do Lijn.ZetIngegevenKenmerken(IngegevenKenmerken)
 ]]></Implementation>
 </Method>
 
@@ -468,9 +476,8 @@
 <FormalSpec>Lijn:DOM.EC.Winkelkar.MaatwerkLijn,Aantal:%String,Winkelkar:DOM.EC.Winkelkar.Winkelkar</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Do ..ControleerInput( (Aantal>0), "Het aantal moet groter zijn dan 0" )
-	Do Lijn.ZetAantal( Aantal )
-	Do ..BerekenMaatwerkLijnPrijs(Lijn, Winkelkar)
+	do Lijn.ZetAantal(Aantal)
+	do ..BerekenMaatwerkLijnPrijs(Lijn, Winkelkar)
 ]]></Implementation>
 </Method>
 
@@ -531,8 +538,7 @@
 <FormalSpec>Status:%Status,StatusCodeIndienNietOK:TECH.enu.ExceptionCode="",BerichtIndienNietOK:%String=""</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	If ($$$ISERR(Status))
-	{
+	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>
@@ -558,7 +564,7 @@
 		Do Lijn.ZetEindklantEenheidPrijsNettoExclBTW("")
 		Do Lijn.ZetEindklantTotaalPrijs("")
 		Do ..VerplaatsLijnNaarGroepIndienNodig(WinkelkarImpl, Lijn, GroepNaam)		
-	}Else{
+	} Else {
 		#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ..MaakIngegevenKenmerkenDomeinObjectVanDto(Kenmerken)
 		Set Lijn = ##class(DOM.EC.Winkelkar.MaatwerkLijn).%New()
 		Do Lijn.ZetIngegevenKenmerken(IngegevenKenmerken)
Index: vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/WijzigMaatwerklijn/TestSmijtError.cls.xml
===================================================================
diff -u -r29059 -r30029
--- vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/WijzigMaatwerklijn/TestSmijtError.cls.xml	(.../TestSmijtError.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/WijzigMaatwerklijn/TestSmijtError.cls.xml	(.../TestSmijtError.cls.xml)	(revision 30029)
@@ -7,17 +7,26 @@
 
 <Method name="Test: MaatwerkLijnMagNietGewijzigdWorden en smijt error">
 <Implementation><![CDATA[
+	#dim TAORKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).CLade()
 	#dim WinkelkarID As %String = "UT_WinkelkarID"
 	#dim MaatwerkLijnID As %String = "UT_MaatwerkLijnID"
-
-	Set MagMaatwerklijnGewijzigdWordenBepalerMock = ##class(vhTest.Mock.APPS.EC.Winkelkar.impl.WinkelkarService.MagMaatwerklijnGewijzigdWorden).%New()
-	do MagMaatwerklijnGewijzigdWordenBepalerMock.IndienMethodCall("MagMaatwerklijnGewijzigdWorden",WinkelkarID, MaatwerkLijnID).DanReturn($$$False)
-	Set WinkelkarService = ##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New(MagMaatwerklijnGewijzigdWordenBepalerMock)
+	#dim Aantal As %Integer = 1
+	
+	#dim MagMaatwerklijnGewijzigdWordenBepalerMock As vhTest.Mock.APPS.EC.Winkelkar.impl.WinkelkarService.MagMaatwerklijnGewijzigdWorden = ##class(vhTest.Mock.APPS.EC.Winkelkar.impl.WinkelkarService.MagMaatwerklijnGewijzigdWorden).%New()
+	#dim WinkelkarPrijsUpdater As APPS.EC.impl.WinkelkarPrijsUpdater = ##class(APPS.EC.impl.WinkelkarPrijsUpdater).%New()
+	#dim MaatwerklijnInputValidatorMock As vhTest.Mock.APPS.EC.Winkelkar.impl.WinkelkarService.MaatwerklijnInputValidator = ##class(vhTest.Mock.APPS.EC.Winkelkar.impl.WinkelkarService.MaatwerklijnInputValidator).%New()
+	
+	do MagMaatwerklijnGewijzigdWordenBepalerMock.IndienMethodCall("MagMaatwerklijnGewijzigdWorden", WinkelkarID, MaatwerkLijnID).DanReturn($$$False)
+	do MaatwerklijnInputValidatorMock.VerwachtMethodCall("Valideer", TAORKenmerken, Aantal).ExactAantalKeer(1).DanDoeNiks()
+	
+	#dim WinkelkarService As APPS.EC.Winkelkar.impl.WinkelkarService = ##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New(MagMaatwerklijnGewijzigdWordenBepalerMock, WinkelkarPrijsUpdater, MaatwerklijnInputValidatorMock)
 		
-	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("De Maatwerklijn van de winkelkar werd niet aangepast, u heeft geen authorisatie om deze te kunnen aanpassen")
-	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException",Substrings))
+	#dim Substrings As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("De Maatwerklijn van de winkelkar werd niet aangepast, u heeft geen authorisatie om deze te kunnen aanpassen")
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException", Substrings))
 	
-	#dim Lijn As APPS.EC.Winkelkar.dto.MaatwerkLijn = WinkelkarService.WijzigMaatwerkLijn(WinkelkarID, MaatwerkLijnID, $$$DummyObject, $$$DummyInteger)
+	#dim Lijn As APPS.EC.Winkelkar.dto.MaatwerkLijn = WinkelkarService.WijzigMaatwerkLijn(WinkelkarID, MaatwerkLijnID, TAORKenmerken, Aantal)
+	
+	do MaatwerklijnInputValidatorMock.Verifieer()
 ]]></Implementation>
 </Method>
 </Class>