Index: vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/TestVanHoecke.cls.xml
===================================================================
diff -u -r29059 -r30089
--- vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/TestVanHoecke.cls.xml	(.../TestVanHoecke.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/TestVanHoecke.cls.xml	(.../TestVanHoecke.cls.xml)	(revision 30089)
@@ -11,11 +11,13 @@
 <Type>APPS.EC.Winkelkar.impl.WinkelkarService</Type>
 </Property>
 
-<Parameter name="Type">
-<Type>%String</Type>
-<Default>IntegratieTest</Default>
-</Parameter>
+<UDLText name="T">
+<Content><![CDATA[
+// Parameter Type As %String = "IntegratieTest";
 
+]]></Content>
+</UDLText>
+
 <Property name="KlantID">
 <Type>%String</Type>
 <InitialExpression>"K||7587"</InitialExpression>
@@ -39,10 +41,10 @@
 <Method name="OnBeforeAllTests">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Do ##class(TECH.Context.RuntimeContext).Instance().ZetTaal(##class(DOM.enu.Taal).Nederlands())
-	Set ..WinkelkarService = ##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New()	
-	
 	Do ##super()
+	
+	Do ##class(TECH.Context.RuntimeContext).Instance().ZetTaal(##class(DOM.enu.Taal).Nederlands())
+	Set ..WinkelkarService = ##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New()
 ]]></Implementation>
 </Method>
 
@@ -544,7 +546,7 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhUnitTest.DOM.PM.Maatwerk.HF.Data).GeefTAORKenmerkenDto()
+	#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardBinnenlade()
 	#dim LijnID As %String = ..WinkelkarService.VoegToeMaatwerk(WinkelkarID, "GroepNaam", IngegevenKenmerken, ..#AantalProductenInLijn)
 	Quit LijnID
 ]]></Implementation>
Index: APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml
===================================================================
diff -u -r30029 -r30089
--- APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 30029)
+++ APPS/EC/Winkelkar/impl/WinkelkarService.cls.xml	(.../WinkelkarService.cls.xml)	(revision 30089)
@@ -20,8 +20,13 @@
 <Private>1</Private>
 </Property>
 
+<Property name="BestelService">
+<Type>DOM.VKP.Maatwerk.BestelService</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</FormalSpec>
+<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</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -30,6 +35,7 @@
 	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())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -60,10 +66,9 @@
 <Implementation><![CDATA[
 	If (Applicatie.Type = ##class(APPS.common.enu.ApplicatieType).Intern()) {
 		Set WinkelkarImpl = ##class(DOM.EC.Winkelkar.InterneWinkelkar).%New(Applicatie.Naam)
-	}ElseIf (Applicatie.Type = ##class(APPS.common.enu.ApplicatieType).Extern()) {
+	} ElseIf (Applicatie.Type = ##class(APPS.common.enu.ApplicatieType).Extern()) {
 		Set WinkelkarImpl = ##class(DOM.EC.Winkelkar.ExterneWinkelkar).%New(Applicatie.Naam)
-	}
-	Else {
+	} Else {
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Voor dit type winkelkar ("_Applicatie.Type_" "_Applicatie.Naam_") is nog geen implementatie voorzien."))
 	}
 	
@@ -259,10 +264,7 @@
 <Method name="DupliceerLijn">
 <FormalSpec>WinkelkarID:%String,LijnID:%String</FormalSpec>
 <ReturnType>APPS.EC.Winkelkar.dto.Lijn</ReturnType>
-<Implementation><![CDATA[
-	Set LijnDto = ##class(APPS.EC.Winkelkar.dto.Lijn).%New()
-	/// TO DO
-	Quit LijnDto
+<Implementation><![CDATA[	Quit ##class(APPS.EC.Winkelkar.dto.Lijn).%New()
 ]]></Implementation>
 </Method>
 
@@ -271,9 +273,18 @@
 <Implementation><![CDATA[
 	#dim Winkelkar As DOM.EC.Winkelkar.Winkelkar = ..OpenWinkelkar( WinkelkarID )	
 	#dim Lijn As DOM.EC.Winkelkar.MaatwerkLijn = ..GeefWinkelkarLijn( Winkelkar, LijnID )
-	Do ..ControleerInput( Lijn.%IsA("DOM.EC.Winkelkar.MaatwerkLijn"), "'Aantal' is niet van toepassing of het lijntype van lijn met opgegeven id '"_LijnID_"'." )
 	
-	Do ..ZetMaatwerkLijnAantalEnPrijs( Lijn, Aantal, Winkelkar)
+	do ..ControleerInput(Lijn.%IsA("DOM.EC.Winkelkar.MaatwerkLijn"), "'Aantal' is niet van toepassing of het lijntype van lijn met opgegeven id '"_LijnID_"'.")
+	
+	do:(Aantal <= 0) ##class(TECH.Exceptions.InvalidUserInputException).Throw("Het aantal moet groter zijn dan 0.")
+	
+	try {
+		do ..BestelService.ValideerBestelEenheid(Lijn.GeefIngegevenKenmerken(), Aantal)
+	} catch {
+		do ##class(TECH.ExceptionHandler).Catch(..E.InvalidInputException).Rethrow(..E.InvalidUserInputException, "Het opgegeven aantal '" _ Aantal _ "' is geen geldige bestelhoeveelheid.")
+	}
+
+	Do ..ZetMaatwerkLijnAantalEnPrijs(Lijn, Aantal, Winkelkar)
 	Do Lijn.Save()
 	Do Winkelkar.Save()
 ]]></Implementation>
@@ -296,39 +307,33 @@
 <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[
+	do ..MagMaatwerklijnGewijzigdWordenBepaler.Valideer(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)
+	#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()
 	
-		#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()
-		
-		Do ..ZetMaatwerkLijnIngegevenKenmerken( Lijn, IngegevenKenmerken, Winkelkar )
-		Do ..ZetMaatwerkLijnAantalEnPrijs( Lijn, Aantal, Winkelkar )
-		Do Lijn.ZetProjectReferentie(ProjectReferentie)
-	
-		Set GroepNaam = ##class(APPS.EC.Winkelkar.impl.GroepNaamVoorLijnBepaler).%New(Lijn, Winkelkar).GeefGroepNaam()
-		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(Winkelkar, Lijn, GroepNaam)
-		}
-		
-		#dim GewijzigdeKenmerkenStream As %Stream = IngegevenKenmerken.ToStream()
-		Do ..VoegToeLogItemWijzigMaatwerkLijn(OorspronkelijkAantalVanLijn, IngegevenKenmerkenStream,GewijzigdeKenmerkenStream, Lijn, Winkelkar)
-		
-		Do Lijn.Save()
-		Do Winkelkar.Save()
-	} 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)
+	Do ..ZetMaatwerkLijnIngegevenKenmerken(Lijn, IngegevenKenmerken, Winkelkar)
+	Do ..ZetMaatwerkLijnAantalEnPrijs(Lijn, Aantal, Winkelkar)
+	Do Lijn.ZetProjectReferentie(ProjectReferentie)
+
+	Set GroepNaam = ##class(APPS.EC.Winkelkar.impl.GroepNaamVoorLijnBepaler).%New(Lijn, Winkelkar).GeefGroepNaam()
+	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(Winkelkar, Lijn, GroepNaam)
 	}
 	
+	#dim GewijzigdeKenmerkenStream As %Stream = IngegevenKenmerken.ToStream()
+	Do ..VoegToeLogItemWijzigMaatwerkLijn(OorspronkelijkAantalVanLijn, IngegevenKenmerkenStream,GewijzigdeKenmerkenStream, Lijn, Winkelkar)
+	
+	Do Lijn.Save()
+	Do Winkelkar.Save()
+
 	Quit ..GeefWinkelkar(WinkelkarID)
 ]]></Implementation>
 </Method>
Index: APPS/EC/Winkelkar/impl/WinkelkarService/MagMaatwerklijnGewijzigdWorden.cls.xml
===================================================================
diff -u -r29059 -r30089
--- APPS/EC/Winkelkar/impl/WinkelkarService/MagMaatwerklijnGewijzigdWorden.cls.xml	(.../MagMaatwerklijnGewijzigdWorden.cls.xml)	(revision 29059)
+++ APPS/EC/Winkelkar/impl/WinkelkarService/MagMaatwerklijnGewijzigdWorden.cls.xml	(.../MagMaatwerklijnGewijzigdWorden.cls.xml)	(revision 30089)
@@ -26,12 +26,18 @@
 ]]></Implementation>
 </Method>
 
-<Method name="MagMaatwerklijnGewijzigdWorden">
+<Method name="Valideer">
 <FormalSpec>WinkelkarID:%String,LijnID:%String</FormalSpec>
-<ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	#dim WinkelkarParent As APPS.EC.Winkelkar.Parent = ..WinkelkarService.GeefParent(WinkelkarID)
-	Quit ..MagParentGewijzigdWorden(WinkelkarParent)
+	
+	if $$$Not(..MagParentGewijzigdWorden(WinkelkarParent)) {
+		#dim Exception As TECH.Exceptions.GeneralErrorException = ##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)
+	}
 ]]></Implementation>
 </Method>
 
Index: DOM/VKP/Maatwerk/BestelService.cls.xml
===================================================================
diff -u -r30051 -r30089
--- DOM/VKP/Maatwerk/BestelService.cls.xml	(.../BestelService.cls.xml)	(revision 30051)
+++ DOM/VKP/Maatwerk/BestelService.cls.xml	(.../BestelService.cls.xml)	(revision 30089)
@@ -9,6 +9,11 @@
 <FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
 <ReturnType>TECH.Integer</ReturnType>
 </Method>
+
+<Method name="ValideerBestelEenheid">
+<Abstract>1</Abstract>
+<FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Aantal:TECH.Integer</FormalSpec>
+</Method>
 </Class>
 
 
Index: APPS/EC/Winkelkar/impl/WinkelkarService/MaatwerklijnInputValidator.cls.xml
===================================================================
diff -u -r30051 -r30089
--- APPS/EC/Winkelkar/impl/WinkelkarService/MaatwerklijnInputValidator.cls.xml	(.../MaatwerklijnInputValidator.cls.xml)	(revision 30051)
+++ APPS/EC/Winkelkar/impl/WinkelkarService/MaatwerklijnInputValidator.cls.xml	(.../MaatwerklijnInputValidator.cls.xml)	(revision 30089)
@@ -67,8 +67,13 @@
 <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 # ..BestelService.GeefBestelEenheid(Kenmerken)) = 0)) ..ThrowInvalidUserInputException("Het opgegeven aantal '" _ Aantal _ "' is geen geldige bestelhoeveelheid.")
+	do:(Aantal <= 0) ##class(TECH.Exceptions.InvalidUserInputException).Throw("Het aantal moet groter zijn dan 0.")
+	
+	try {
+		do ..BestelService.ValideerBestelEenheid(Kenmerken, Aantal)	
+	} catch {
+		do ##class(TECH.ExceptionHandler).Catch(..E.InvalidInputException).Rethrow(..E.InvalidUserInputException, "Het opgegeven aantal '" _ Aantal _ "' is geen geldige bestelhoeveelheid.")
+	}
 ]]></Implementation>
 </Method>
 
@@ -79,20 +84,10 @@
 	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="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>
 
 
Index: vhTest/Mock/DOM/VKP/Maatwerk/BestelService.cls.xml
===================================================================
diff -u -r30051 -r30089
--- vhTest/Mock/DOM/VKP/Maatwerk/BestelService.cls.xml	(.../BestelService.cls.xml)	(revision 30051)
+++ vhTest/Mock/DOM/VKP/Maatwerk/BestelService.cls.xml	(.../BestelService.cls.xml)	(revision 30089)
@@ -15,6 +15,12 @@
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefBestelEenheid",Kenmerken)
 ]]></Implementation>
 </Method>
+
+<Method name="ValideerBestelEenheid">
+<FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Aantal:TECH.Integer</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ValideerBestelEenheid",Kenmerken,Aantal)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Fake/APPS/EC/Winkelkar/impl/WinkelkarService/MagMaatwerklijnGewijzigdWorden.cls.xml
===================================================================
diff -u -r29059 -r30089
--- vhTest/Fake/APPS/EC/Winkelkar/impl/WinkelkarService/MagMaatwerklijnGewijzigdWorden.cls.xml	(.../MagMaatwerklijnGewijzigdWorden.cls.xml)	(revision 29059)
+++ vhTest/Fake/APPS/EC/Winkelkar/impl/WinkelkarService/MagMaatwerklijnGewijzigdWorden.cls.xml	(.../MagMaatwerklijnGewijzigdWorden.cls.xml)	(revision 30089)
@@ -13,6 +13,12 @@
 <Implementation><![CDATA[	Quit ""
 ]]></Implementation>
 </Method>
+
+<Method name="Valideer">
+<FormalSpec>WinkelkarID:%String,LijnID:%String</FormalSpec>
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/WijzigMaatwerklijn/TestSmijtError.cls.xml
===================================================================
diff -u -r30080 -r30089
--- vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/WijzigMaatwerklijn/TestSmijtError.cls.xml	(.../TestSmijtError.cls.xml)	(revision 30080)
+++ vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/WijzigMaatwerklijn/TestSmijtError.cls.xml	(.../TestSmijtError.cls.xml)	(revision 30089)
@@ -9,13 +9,14 @@
 <Implementation><![CDATA[
 	#dim WinkelkarID As %String = "UT_WinkelkarID"
 	#dim MaatwerkLijnID As %String = "UT_MaatwerkLijnID"
-
+	#dim DummyException As TECH.Exceptions.GeneralErrorException = $$$DummyException
+	
 	Set MagMaatwerklijnGewijzigdWordenBepalerMock = ##class(vhTest.Mock.APPS.EC.Winkelkar.impl.WinkelkarService.MagMaatwerklijnGewijzigdWorden).%New()
-	do MagMaatwerklijnGewijzigdWordenBepalerMock.IndienMethodCall("MagMaatwerklijnGewijzigdWorden",WinkelkarID, MaatwerkLijnID).DanReturn($$$False)
+	do MagMaatwerklijnGewijzigdWordenBepalerMock.IndienMethodCall("Valideer",WinkelkarID, MaatwerkLijnID).DanException(DummyException)
 	Set WinkelkarService = ##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New(MagMaatwerklijnGewijzigdWordenBepalerMock)
 		
-	#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 = ##class(TECH.ListUtils).CreateListOfDataTypes(DummyException.GeefOmschrijving())
+	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)
 ]]></Implementation>
Index: vhTest/Fake/DOM/VKP/Maatwerk/BestelService.cls.xml
===================================================================
diff -u
--- vhTest/Fake/DOM/VKP/Maatwerk/BestelService.cls.xml	(revision 0)
+++ vhTest/Fake/DOM/VKP/Maatwerk/BestelService.cls.xml	(revision 30089)
@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.DOM.VKP.Maatwerk.BestelService">
+<Super>TECH.RegisteredObject,DOM.VKP.Maatwerk.BestelService</Super>
+
+<Method name="GeefBestelEenheid">
+<FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<ReturnType>TECH.Integer</ReturnType>
+<Implementation><![CDATA[	quit 1
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/MagMaatwerklijnGewijzigdWorden/MagMaatwerklijnGewijzigdWorden/Test.cls.xml
===================================================================
diff -u -r29059 -r30089
--- vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/MagMaatwerklijnGewijzigdWorden/MagMaatwerklijnGewijzigdWorden/Test.cls.xml	(.../Test.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/MagMaatwerklijnGewijzigdWorden/MagMaatwerklijnGewijzigdWorden/Test.cls.xml	(.../Test.cls.xml)	(revision 30089)
@@ -10,7 +10,6 @@
 
 <Method name="Test: MagGewijzigdWorden correct opgeroepen op de service">
 <Implementation><![CDATA[
-	
 	#dim DummyParentType As APPS.EC.Winkelkar.enu.ParentType= ##class(APPS.EC.Winkelkar.enu.ParentType).WebshopOfferte()
 	set Parent = ##class(APPS.EC.Winkelkar.Parent).%New($$$DummyInteger,DummyParentType)
 	
@@ -25,13 +24,13 @@
 		
 	set DocumentServiceMock = ##class(vhTest.Mock.APPS.VKP.DocumentService).%New()
 	do DocumentServiceMock.IndienMethodCall("GeefDocument",Parent.ID).DanReturn(Document)
-	do DocumentServiceMock.VerwachtMethodCall("MagGewijzigdWorden",Document, DummyGebruiker)
+	do DocumentServiceMock.VerwachtMethodCall("MagGewijzigdWorden",Document, DummyGebruiker).DanReturn($$$True).ExactAantalKeer(1)
 	
 	set DocumentServiceFactory = ##class(vhTest.Mock.APPS.VKP.DocumentServiceFactory).%New()
 	do DocumentServiceFactory.IndienMethodCall("GeefService",DummyParentType).DanReturn(DocumentServiceMock)
 	
 	set Impl = ##class(APPS.EC.Winkelkar.impl.WinkelkarService.MagMaatwerklijnGewijzigdWorden).%New(WinkelkarServiceStub, DocumentServiceFactory)
-	do Impl.MagMaatwerklijnGewijzigdWorden(..#DummyWinkelkarID , $$$DummyString)
+	do Impl.Valideer(..#DummyWinkelkarID , $$$DummyString)
 	
 	do DocumentServiceMock.Verifieer()
 ]]></Implementation>
Index: vhUnitTest/APPS/EC/impl/ConfiguratorService/WebshopKenmerkDomeinPostProcessor/VerwerkKenmerkMogelijkheden/Test.cls.xml
===================================================================
diff -u -r29059 -r30089
--- vhUnitTest/APPS/EC/impl/ConfiguratorService/WebshopKenmerkDomeinPostProcessor/VerwerkKenmerkMogelijkheden/Test.cls.xml	(.../Test.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/EC/impl/ConfiguratorService/WebshopKenmerkDomeinPostProcessor/VerwerkKenmerkMogelijkheden/Test.cls.xml	(.../Test.cls.xml)	(revision 30089)
@@ -5,18 +5,18 @@
 
 <Method name="TestLadeDiepe650BlijftInMogelijkeWaardenNaVerwerkKenmerkMogelijkheden">
 <Implementation><![CDATA[
+	#Dim WebshopKenmerkDomeinPostProcessor As APPS.EC.impl.ConfiguratorService.WebshopKenmerkDomeinPostProcessor = ##class(APPS.EC.impl.ConfiguratorService.WebshopKenmerkDomeinPostProcessor).%New()
+	#Dim KenmerkMogelijkheden As APPS.PM.Maatwerk.dto.KenmerkMogelijkheden = ##class(APPS.PM.Maatwerk.dto.KenmerkMogelijkheden).%New()
+	#Dim Waarden As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	#Dim KenmerkNaam As DOM.PM.enu.LBXKenmerkNaam = ##class(DOM.PM.enu.LBXKenmerkNaam).LadeDiepte()
 	
-	Set WebshopKenmerkDomeinPostProcessor = ##class(APPS.EC.impl.ConfiguratorService.WebshopKenmerkDomeinPostProcessor).%New()
-	Set KenmerkMogelijkheden = ##class(APPS.PM.Maatwerk.dto.KenmerkMogelijkheden).%New()
-	Set WaardenLijst = ##class(APPS.PM.Maatwerk.dto.KenmerkWaardenLijst).%New()
-	Do WaardenLijst.Waarden.Insert("650")
-	Do KenmerkMogelijkheden.MogelijkeWaarden.SetAt(WaardenLijst, "LadeDiepte")
+	Do Waarden.Insert(##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte650())
+	Do KenmerkMogelijkheden.ZetMogelijkeWaarden(KenmerkNaam, Waarden)
+	Do WebshopKenmerkDomeinPostProcessor.VerwerkKenmerkMogelijkheden(##class(APPS.PM.Maatwerk.dto.LBXKenmerken).%New(), KenmerkMogelijkheden, ##class(vhTest.Dummy.DOM.VKP.VanHoeckeKlant).%New(), ##class(DOM.common.VanHoeckePersonality).Instance())
 	
-	Do WebshopKenmerkDomeinPostProcessor.VerwerkKenmerkMogelijkheden(##class(APPS.PM.Maatwerk.dto.LBXKenmerken).%New(),KenmerkMogelijkheden, ##class(vhTest.Dummy.DOM.VKP.VanHoeckeKlant).%New(), ##class(DOM.common.VanHoeckePersonality).Instance())
-	
-	If $$$AssertTrue(KenmerkMogelijkheden.MogelijkeWaarden.IsDefined("LadeDiepte")) {
-		If $$$AssertTrue(KenmerkMogelijkheden.MogelijkeWaarden.GetAt("LadeDiepte").Waarden.Count()=1) {
-			Do $$$AssertEquals(KenmerkMogelijkheden.MogelijkeWaarden.GetAt("LadeDiepte").Waarden.GetAt(1),"650")
+	If ($$$AssertTrue(KenmerkMogelijkheden.MogelijkeWaarden.IsDefined(KenmerkNaam))) {
+		If ($$$AssertTrue(KenmerkMogelijkheden.MogelijkeWaarden.GetAt(KenmerkNaam).Waarden.Count() = 1)) {
+			Do $$$AssertEquals(KenmerkMogelijkheden.MogelijkeWaarden.GetAt(KenmerkNaam).Waarden.GetAt(1), ##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte650())
 		}
 	}
 ]]></Implementation>
Index: vhTest/Mock/APPS/EC/Winkelkar/impl/WinkelkarService/MagMaatwerklijnGewijzigdWorden.cls.xml
===================================================================
diff -u -r29633 -r30089
--- vhTest/Mock/APPS/EC/Winkelkar/impl/WinkelkarService/MagMaatwerklijnGewijzigdWorden.cls.xml	(.../MagMaatwerklijnGewijzigdWorden.cls.xml)	(revision 29633)
+++ vhTest/Mock/APPS/EC/Winkelkar/impl/WinkelkarService/MagMaatwerklijnGewijzigdWorden.cls.xml	(.../MagMaatwerklijnGewijzigdWorden.cls.xml)	(revision 30089)
@@ -9,10 +9,9 @@
 <Super>APPS.EC.Winkelkar.impl.WinkelkarService.MagMaatwerklijnGewijzigdWorden,Tools.Mock.MockClassBase</Super>
 <Inheritance>right</Inheritance>
 
-<Method name="MagMaatwerklijnGewijzigdWorden">
+<Method name="Valideer">
 <FormalSpec>WinkelkarID:%String,LijnID:%String</FormalSpec>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("MagMaatwerklijnGewijzigdWorden",WinkelkarID,LijnID)
+<Implementation><![CDATA[	do ..VerwerkMethodCall("Valideer",WinkelkarID,LijnID)
 ]]></Implementation>
 </Method>
 </Class>
Index: DOM/VKP/Maatwerk/impl/BestelService.cls.xml
===================================================================
diff -u -r30051 -r30089
--- DOM/VKP/Maatwerk/impl/BestelService.cls.xml	(.../BestelService.cls.xml)	(revision 30051)
+++ DOM/VKP/Maatwerk/impl/BestelService.cls.xml	(.../BestelService.cls.xml)	(revision 30089)
@@ -51,6 +51,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ValideerBestelEenheid">
+<FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Aantal:TECH.Integer</FormalSpec>
+<Implementation><![CDATA[	do:($$$Not((Aantal # ..GeefBestelEenheid(Kenmerken)) = 0)) ##class(TECH.Exceptions.InvalidInputException).Throw("Het opgegeven aantal '" _ Aantal _ "' is geen geldige bestelhoeveelheid.")
+]]></Implementation>
+</Method>
+
 <Method name="MaakDoosAfmetingenBepaler">
 <FormalSpec><![CDATA[Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,&LadeOnderdeel:%CacheString]]></FormalSpec>
 <Private>1</Private>
Index: vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/WijzigMaatwerklijn/Test.cls.xml
===================================================================
diff -u -r30029 -r30089
--- vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/WijzigMaatwerklijn/Test.cls.xml	(.../Test.cls.xml)	(revision 30029)
+++ vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/WijzigMaatwerklijn/Test.cls.xml	(.../Test.cls.xml)	(revision 30089)
@@ -1,8 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.APPS.EC.Winkelkar.WinkelkarService.WijzigMaatwerklijn.Test">
-<Description>
-do ##class(vhUnitTest.Manager).RunTest("/debug/Display=all","APPS.EC.Winkelkar.WinkelkarService.WijzigMaatwerklijn.Test")</Description>
 <ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.TestCase</Super>
@@ -21,12 +19,12 @@
 <Private>1</Private>
 </Property>
 
-<Property name="MagMaatwerklijnGewijzigdWordenBepalerMock">
+<Property name="MagMaatwerkLijnGewijzigdWordenBepalerMock">
 <Type>vhTest.Mock.APPS.EC.Winkelkar.impl.WinkelkarService.MagMaatwerklijnGewijzigdWorden</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="MaatwerklijnInputValidatorMock">
+<Property name="MaatwerkLijnInputValidatorMock">
 <Type>vhTest.Mock.APPS.EC.Winkelkar.impl.WinkelkarService.MaatwerklijnInputValidator</Type>
 <Private>1</Private>
 </Property>
@@ -38,6 +36,16 @@
 <Private>1</Private>
 </Property>
 
+<Property name="WinkelkarID">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LijnID">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
 <Parameter name="AantalProductenInLijn">
 <Type>%Integer</Type>
 <Default>2</Default>
@@ -56,38 +64,48 @@
 <Implementation><![CDATA[
 	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 ..MaatwerkLijnInputValidatorMock = ##class(vhTest.Mock.APPS.EC.Winkelkar.impl.WinkelkarService.MaatwerklijnInputValidator).%New()
+	set ..MagMaatwerkLijnGewijzigdWordenBepalerMock = ##class(vhTest.Mock.APPS.EC.Winkelkar.impl.WinkelkarService.MagMaatwerklijnGewijzigdWorden).%New()
+	set ..WinkelkarService = ##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New(..MagMaatwerkLijnGewijzigdWordenBepalerMock, WinkelkarPrijsUpdater, ..MaatwerkLijnInputValidatorMock)
 	set ..CommonAPI = ##class(vhUnitTest.APPS.EC.Winkelkar.WinkelkarService.WijzigMaatwerklijn.CommonAPIMock).MockInstance()
+	set ..TAORKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardLade()
+	set ..WinkelkarID = ..MaakWinkelkarEnGeefID()
+	set ..LijnID = ..VoegToeMaatwerkLijnEnGeefID(..WinkelkarID, ..TAORKenmerken)
+	
+	do ..MagMaatwerkLijnGewijzigdWordenBepalerMock.IndienMethodCall("Valideer", ..WinkelkarID, ..LijnID).DanDoeNiks()
+	do ..MaatwerkLijnInputValidatorMock.IndienMethodCall("Valideer", ..TAORKenmerken, ..#AantalProductenInLijn).DanDoeNiks()
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Bij MaatwerklijnGewijzigd wordt dit gelogd">
+<Method name="Test: MagMaatwerkLijnGewijzigdWordenBepaler wordt opgeroepen">
 <Implementation><![CDATA[
-	#dim WinkelkarID As %String = ..MaakWinkelkarEnGeefID()
-	#dim MaatwerklijnID As %String = ..VoegToeMaatwerkLijnEnGeefID(WinkelkarID, ..TAORKenmerken)
+	do ..MagMaatwerkLijnGewijzigdWordenBepalerMock.VerwachtMethodCall("Valideer", ..WinkelkarID, ..LijnID).ExactAantalKeer(1).DanDoeNiks()
+	do ..WinkelkarService.WijzigMaatwerkLijn(..WinkelkarID, ..LijnID, ..TAORKenmerken, ..#AantalProductenInLijn)
+	do ..MagMaatwerkLijnGewijzigdWordenBepalerMock.Verifieer()
+]]></Implementation>
+</Method>
 
-	do ..ZetVerwachtingen($$$True, WinkelkarID, MaatwerklijnID)
+<Method name="Test: MaatwerkLijnInputValidator wordt opgeroepen">
+<Implementation><![CDATA[
+	do ..MaatwerkLijnInputValidatorMock.VerwachtMethodCall("Valideer", ..TAORKenmerken, ..#AantalProductenInLijn).ExactAantalKeer(1).DanDoeNiks()
+	do ..WinkelkarService.WijzigMaatwerkLijn(..WinkelkarID, ..LijnID, ..TAORKenmerken, ..#AantalProductenInLijn)
+	do ..MaatwerkLijnInputValidatorMock.Verifieer()
+]]></Implementation>
+</Method>
 
-	#dim Lijn As APPS.EC.Winkelkar.dto.MaatwerkLijn = ..WinkelkarService.WijzigMaatwerkLijn(WinkelkarID, MaatwerklijnID, ..TAORKenmerken, ..#AantalProductenInLijn)
+<Method name="Test: WijzigMaatwerkLijn wordt gelogd">
+<Implementation><![CDATA[
+	do ..WinkelkarService.WijzigMaatwerkLijn(..WinkelkarID, ..LijnID, ..TAORKenmerken, ..#AantalProductenInLijn)
 	
-	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 ..VerifieerVerwachtingen()
 ]]></Implementation>
 </Method>
 
-<Method name="Test: MaatwerkLijn mag gewijzigd worden">
+<Method name="Test: WijzigMaatwerkLijn is gelukt">
 <Implementation><![CDATA[
 	#define NieuweCorpusBreedte "999"
 	#define NieuweHeeftTipon 1
@@ -96,15 +114,10 @@
 	set ..TAORKenmerken.LadeHoogte = $$$NieuweLadeHoogte
 	set ..TAORKenmerken.CorpusBreedte = $$$NieuweCorpusBreedte
 	set ..TAORKenmerken.HeeftTipon = $$$NieuweHeeftTipon
-	
-	#dim WinkelkarID As %String = ..MaakWinkelkarEnGeefID()
-	#dim MaatwerklijnID As %String = ..VoegToeMaatwerkLijnEnGeefID(WinkelkarID)
 
-	do ..ZetVerwachtingen($$$True, WinkelkarID, MaatwerklijnID)
-
-	#dim Lijn As APPS.EC.Winkelkar.dto.MaatwerkLijn = ..WinkelkarService.WijzigMaatwerkLijn(WinkelkarID, MaatwerklijnID, ..TAORKenmerken, ..#AantalProductenInLijn)
+	do ..WinkelkarService.WijzigMaatwerkLijn(..WinkelkarID, ..LijnID, ..TAORKenmerken, ..#AantalProductenInLijn)
 	
-	#dim WinkelkarDto As APPS.EC.Winkelkar.dto.Winkelkar = ..WinkelkarService.GeefWinkelkar(WinkelkarID)
+	#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())
@@ -117,92 +130,60 @@
 	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()
+	do $$$AssertEquals(..LijnID, WinkelkarDto.Lijnen.GetNext().Lijnen.GetNext().LijnID)
 ]]></Implementation>
 </Method>
 
-<Method name="Test: WijzigMaatwerklijn behoudt volgorde in groep">
+<Method name="Test: WijzigMaatwerkLijn behoudt volgorde in groep">
 <Implementation><![CDATA[
-	#dim WinkelkarID As %String = ..MaakWinkelkarEnGeefID()
-	do ..VoegToeMaatwerkLijnEnGeefID(WinkelkarID)
-	#dim MaatwerklijnID As %String = ..VoegToeMaatwerkLijnEnGeefID(WinkelkarID)
-	do ..VoegToeMaatwerkLijnEnGeefID(WinkelkarID)
+	#dim MaatwerkLijnID As %String = ..VoegToeMaatwerkLijnEnGeefID(..WinkelkarID)
+	do ..VoegToeMaatwerkLijnEnGeefID(..WinkelkarID)
 	
-	do ..ZetVerwachtingen($$$True, WinkelkarID, MaatwerklijnID)
+	do ..MagMaatwerkLijnGewijzigdWordenBepalerMock.IndienMethodCall("Valideer", ..WinkelkarID, MaatwerkLijnID).DanDoeNiks()
 	
-	#dim Lijn As APPS.EC.Winkelkar.dto.MaatwerkLijn = ..WinkelkarService.WijzigMaatwerkLijn(WinkelkarID, MaatwerklijnID, ..TAORKenmerken, ..#AantalProductenInLijn, "GroepNaam")
+	do ..WinkelkarService.WijzigMaatwerkLijn(..WinkelkarID, MaatwerkLijnID, ..TAORKenmerken, ..#AantalProductenInLijn, "GroepNaam")
 	
-	do ..VerifieerVerwachtingen()
+	#dim WinkelkarDto As APPS.EC.Winkelkar.dto.Winkelkar = ..WinkelkarService.GeefWinkelkar(..WinkelkarID)
 
-	#dim WinkelkarDto As APPS.EC.Winkelkar.dto.Winkelkar = ..WinkelkarService.GeefWinkelkar(WinkelkarID)
 	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:($$$Not($$$AssertTrue(OpnieuwGekregenLijn.%IsA("APPS.EC.Winkelkar.dto.MaatwerkLijn"))))
-	quit:($$$Not($$$AssertEquals(MaatwerklijnID, OpnieuwGekregenLijn.LijnID)))
+	quit:($$$Not($$$AssertEquals(MaatwerkLijnID, OpnieuwGekregenLijn.LijnID)))
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Wijzig onbestaande Maatwerklijn">
+<Method name="Test: WijzigMaatwerkLijn met onbestaande MaatwerkLijnID">
 <Implementation><![CDATA[
-	#dim WinkelkarID As %String = ..MaakWinkelkarEnGeefID()
-	#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"))
-	}
+	#dim MaatwerkLijnID As TECH.String = "Onbestaande_MaatwerkLijn"
 	
-	do ..VerifieerVerwachtingen()
-]]></Implementation>
-</Method>
-
-<Method name="Test: WijzigMaatwerklijn in onbestaande Winkelkar">
-<Implementation><![CDATA[
-	#dim WinkelkarID As TECH.String = ..MaakWinkelkarEnGeefID()
-	#dim MaatwerklijnID As TECH.String = 1
+	do ..MagMaatwerkLijnGewijzigdWordenBepalerMock.IndienMethodCall("Valideer", ..WinkelkarID, MaatwerkLijnID).DanDoeNiks()
 		
-	do ..ZetVerwachtingen($$$True, WinkelkarID, MaatwerklijnID)
-		
 	try {
-		#dim Lijn As APPS.EC.Winkelkar.dto.MaatwerkLijn = ..WinkelkarService.WijzigMaatwerkLijn(WinkelkarID, MaatwerklijnID, ..TAORKenmerken, ..#AantalProductenInLijn)	
+		#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 ..VerifieerVerwachtingen()
 ]]></Implementation>
 </Method>
 
-<Method name="Test: WijzigMaatwerklijn met verkeerd type lijn">
+<Method name="Test: WijzigMaatwerkLijn met verkeerd type lijn">
 <Implementation><![CDATA[
-	#dim WinkelkarID As %String = ..MaakWinkelkarEnGeefID()
-	#dim MaatwerklijnID As %String = ..VoegToeMaatwerkLijnEnGeefID(WinkelkarID)
-	#dim GroepLijnID As %String = ..WinkelkarService.GeefWinkelkar(WinkelkarID).Lijnen.GetNext().LijnID
+	#dim GroepLijnID As %String = ..WinkelkarService.GeefWinkelkar(..WinkelkarID).Lijnen.GetNext().LijnID
+	do ..MagMaatwerkLijnGewijzigdWordenBepalerMock.IndienMethodCall("Valideer", ..WinkelkarID, GroepLijnID).DanDoeNiks()
 
-	do ..ZetVerwachtingen($$$True, WinkelkarID, GroepLijnID)
-
 	try {
-		#dim Lijn As APPS.EC.Winkelkar.dto.MaatwerkLijn = ..WinkelkarService.WijzigMaatwerkLijn(WinkelkarID, GroepLijnID, ..TAORKenmerken, ..#AantalProductenInLijn)		
+		#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>
 
@@ -228,23 +209,6 @@
 <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[
-	do ..MaatwerklijnInputValidatorMock.VerwachtMethodCall("Valideer", ..TAORKenmerken, ..#AantalProductenInLijn).ExactAantalKeer(1).DanDoeNiks()
-	do ..MagMaatwerklijnGewijzigdWordenBepalerMock.VerwachtMethodCall("MagMaatwerklijnGewijzigdWorden", WinkelkarID, MaatwerklijnID).DanReturn(MagMaatwerklijnGewijzigdWorden)
-]]></Implementation>
-</Method>
-
-<Method name="VerifieerVerwachtingen">
-<Private>1</Private>
-<Implementation><![CDATA[
-	do ..MaatwerklijnInputValidatorMock.Verifieer()
-	do ..MagMaatwerklijnGewijzigdWordenBepalerMock.Verifieer()
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: APPS/VKP/Maatwerk/BestelService.cls.xml
===================================================================
diff -u -r30051 -r30089
--- APPS/VKP/Maatwerk/BestelService.cls.xml	(.../BestelService.cls.xml)	(revision 30051)
+++ APPS/VKP/Maatwerk/BestelService.cls.xml	(.../BestelService.cls.xml)	(revision 30089)
@@ -9,6 +9,11 @@
 <FormalSpec>Kenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken</FormalSpec>
 <ReturnType>TECH.Integer</ReturnType>
 </Method>
+
+<Method name="ValideerBestelEenheid">
+<Abstract>1</Abstract>
+<FormalSpec>Kenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Aantal:TECH.Integer</FormalSpec>
+</Method>
 </Class>
 
 
Index: vhTest/Mock/APPS/VKP/Maatwerk/BestelService.cls.xml
===================================================================
diff -u -r30051 -r30089
--- vhTest/Mock/APPS/VKP/Maatwerk/BestelService.cls.xml	(.../BestelService.cls.xml)	(revision 30051)
+++ vhTest/Mock/APPS/VKP/Maatwerk/BestelService.cls.xml	(.../BestelService.cls.xml)	(revision 30089)
@@ -15,6 +15,12 @@
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefBestelEenheid",Kenmerken)
 ]]></Implementation>
 </Method>
+
+<Method name="ValideerBestelEenheid">
+<FormalSpec>Kenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Aantal:TECH.Integer</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ValideerBestelEenheid",Kenmerken,Aantal)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/WijzigLijnAantal/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/WijzigLijnAantal/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/WijzigLijnAantal/Test.cls.xml	(revision 30089)
@@ -0,0 +1,38 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EC.Winkelkar.impl.WinkelkarService.WijzigLijnAantal.Test">
+<Super>vhUnitTest.APPS.EC.Winkelkar.impl.WinkelkarService.Base</Super>
+
+<Method name="Test : InvalidUserInput exception wordt geraised indien ongeldige besteleenheid">
+<Implementation><![CDATA[
+	set BestelService = ##class(vhTest.Mock.DOM.VKP.Maatwerk.BestelService).%New()
+	do BestelService.IndienMethodCall("ValideerBestelEenheid",$$$ElkeWaarde,$$$ElkeWaarde).DanException(##class(TECH.Exceptions.InvalidInputException).%New("ongeldige bestelhoeveelheid"))
+	Set ..WinkelkarService = ##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New(,,,BestelService)
+	#dim WinkelkarID As %String = ..MaakWinkelkarEnGeefID()
+	#dim MaatwerkLijnID As %String = ..VoegToeMaatwerkLijnEnGeefID(WinkelkarID)
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Het opgegeven aantal '1' is geen geldige bestelhoeveelheid.")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(..E.InvalidUserInputException,Substrings))
+
+	do ..WinkelkarService.WijzigLijnAantal(WinkelkarID,MaatwerkLijnID,1)
+]]></Implementation>
+</Method>
+
+<Method name="Test : Oorspronkelijke exception wordt geraised indien andere fout">
+<Implementation><![CDATA[
+	set BestelService = ##class(vhTest.Mock.DOM.VKP.Maatwerk.BestelService).%New()
+	do BestelService.IndienMethodCall("ValideerBestelEenheid",$$$ElkeWaarde,$$$ElkeWaarde).DanException(##class(TECH.Exceptions.GeneralErrorException).%New("Foutmelding"))
+	Set ..WinkelkarService = ##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New(,,,BestelService)
+	#dim WinkelkarID As %String = ..MaakWinkelkarEnGeefID()
+	#dim MaatwerkLijnID As %String = ..VoegToeMaatwerkLijnEnGeefID(WinkelkarID)
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Foutmelding")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(..E.GeneralErrorException,Substrings))
+
+	do ..WinkelkarService.WijzigLijnAantal(WinkelkarID,MaatwerkLijnID,1)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/TestHandel.cls.xml
===================================================================
diff -u -r30079 -r30089
--- vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/TestHandel.cls.xml	(.../TestHandel.cls.xml)	(revision 30079)
+++ vhUnitTest/APPS/EC/Winkelkar/WinkelkarService/TestHandel.cls.xml	(.../TestHandel.cls.xml)	(revision 30089)
@@ -144,13 +144,9 @@
 	#dim MaatwerkLijnID As %String = ..VoegToeMaatwerkLijnEnGeefID(WinkelkarID)
 	#dim LijnDtoInitieel As APPS.EC.Winkelkar.dto.Lijn = ..WinkelkarService.GeefLijn(WinkelkarID, MaatwerkLijnID)
 	
-	do ..MaatwerklijnInputValidatorMock.VerwachtMethodCall("Valideer", $$$ElkeWaarde, $$$NieuwAantal).ExactAantalKeer(1).DanDoeNiks()
-	
 	// Actie
 	Do ..WinkelkarService.WijzigLijnAantal(WinkelkarID, MaatwerkLijnID, $$$NieuwAantal)
 	
-	do ..MaatwerklijnInputValidatorMock.Verifieer()
-	
 	// Controle
 	#dim LijnDtoNaWijziging As APPS.EC.Winkelkar.dto.MaatwerkLijn = ..WinkelkarService.GeefLijn(WinkelkarID, MaatwerkLijnID)
 	Quit:('$$$AssertTrue($IsObject(LijnDtoNaWijziging)))
@@ -160,6 +156,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test : WijzigLijnAantal met aantal 0 --&gt; Exceptie">
+<Implementation><![CDATA[
+	#define NieuwAantal 0
+	
+	// Setup
+	Do ..UitmockenKlantDataBepaler()
+	#dim WinkelkarID As %String = ..MaakWinkelkarEnGeefID()
+	#dim MaatwerkLijnID As %String = ..VoegToeMaatwerkLijnEnGeefID(WinkelkarID)
+	#dim LijnDtoInitieel As APPS.EC.Winkelkar.dto.Lijn = ..WinkelkarService.GeefLijn(WinkelkarID, MaatwerkLijnID)
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Het aantal moet groter zijn dan 0.")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(..E.InvalidUserInputException,Substrings))
+	
+	// Actie
+	Do ..WinkelkarService.WijzigLijnAantal(WinkelkarID, MaatwerkLijnID, $$$NieuwAantal)
+]]></Implementation>
+</Method>
+
 <Method name="TestGeefWinkelkarInclBewerkteIngave">
 <Implementation><![CDATA[
 	Do ..UitmockenKlantDataBepaler()
Index: vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/Base.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/Base.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/Base.cls.xml	(revision 30089)
@@ -0,0 +1,68 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.EC.Winkelkar.impl.WinkelkarService.Base">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="AantalProductenInLijn">
+<Type>%Integer</Type>
+<Default>2</Default>
+</Parameter>
+
+<Property name="WinkelkarService">
+<Type>APPS.EC.Winkelkar.impl.WinkelkarService</Type>
+</Property>
+
+<Property name="KlantID">
+<Type>%String</Type>
+<InitialExpression>"K||7587"</InitialExpression>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	do ##super()
+	do ##class(TECH.Context.RuntimeContext).Instance().ZetTaal(##class(DOM.enu.Taal).Nederlands())
+	Set ..WinkelkarService = ##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New()
+]]></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(..WinkelkarService)
+		
+	#dim MailAPI As vhUnitTest.TECH.Mail.impl.MailAPIMock = ##class(vhUnitTest.TECH.Mail.impl.MailAPIMock).MockInstance()
+]]></Implementation>
+</Method>
+
+<Method name="MaakWinkelkarEnGeefID">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	set Winkelkar = ##class(DOM.EC.Winkelkar.InterneWinkelkar).%New("UnitTest")	
+	do Winkelkar.ZetPersonalityID(##class(DOM.common.enu.Personality).VanHoecke())
+	do Winkelkar.ZetKlantID(..KlantID)
+	do $$$AssertEquals($$$OK, Winkelkar.%Save())
+	quit Winkelkar.%Id()
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeMaatwerkLijnEnGeefID">
+<FormalSpec>WinkelkarID:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardBinnenlade()
+	#dim LijnID As %String = ..WinkelkarService.VoegToeMaatwerk(WinkelkarID, "GroepNaam", IngegevenKenmerken, ..#AantalProductenInLijn)
+	Quit LijnID
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/APPS/PM/Maatwerk/dto/IngegevenKenmerken.cls.xml
===================================================================
diff -u
--- vhTest/Fake/APPS/PM/Maatwerk/dto/IngegevenKenmerken.cls.xml	(revision 0)
+++ vhTest/Fake/APPS/PM/Maatwerk/dto/IngegevenKenmerken.cls.xml	(revision 30089)
@@ -0,0 +1,29 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.APPS.PM.Maatwerk.dto.IngegevenKenmerken">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="Kenmerk1">
+<Type>TECH.String</Type>
+<InitialExpression>"Waarde1"</InitialExpression>
+</Property>
+
+<Property name="Kenmerk2">
+<Type>TECH.String</Type>
+<InitialExpression>"Waarde2"</InitialExpression>
+</Property>
+
+<Property name="Kenmerk3">
+<Type>TECH.String</Type>
+<InitialExpression>"Waarde3"</InitialExpression>
+</Property>
+
+<Method name="Accept">
+<FormalSpec>Visitor:APPS.PM.Maatwerk.dto.IngegevenKenmerkenVisitor</FormalSpec>
+<Implementation><![CDATA[	do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.IllegalUsageException).%New("Geen 'Accept()' voor FakeKenmerken"))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/VKP/Maatwerk/impl/BestelService.cls.xml
===================================================================
diff -u -r30051 -r30089
--- APPS/VKP/Maatwerk/impl/BestelService.cls.xml	(.../BestelService.cls.xml)	(revision 30051)
+++ APPS/VKP/Maatwerk/impl/BestelService.cls.xml	(.../BestelService.cls.xml)	(revision 30089)
@@ -8,27 +8,35 @@
 <Private>1</Private>
 </Property>
 
+<Property name="IngegevenKenmerkenConverter">
+<Type>APPS.PM.Maatwerk.IngegevenKenmerkenConverter</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	set ..BestelService = ##class(DOM.VKP.Maatwerk.impl.BestelService).%New()
-	
+	set ..IngegevenKenmerkenConverter = ##class(APPS.PM.Maatwerk.impl.IngegevenKenmerkenConverter).%New()
 	quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="GeefBestelEenheid">
 <FormalSpec>Kenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken</FormalSpec>
 <ReturnType>TECH.Integer</ReturnType>
-<Implementation><![CDATA[
-	#dim GeconverteerdeKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = ##class(APPS.PM.Maatwerk.impl.IngegevenKenmerkenConverter).%New().NaarObject(Kenmerken)
-	
-	quit ..BestelService.GeefBestelEenheid(GeconverteerdeKenmerken)
+<Implementation><![CDATA[	quit ..BestelService.GeefBestelEenheid(..IngegevenKenmerkenConverter.NaarObject(Kenmerken))
 ]]></Implementation>
 </Method>
+
+<Method name="ValideerBestelEenheid">
+<FormalSpec>Kenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Aantal:TECH.Integer</FormalSpec>
+<Implementation><![CDATA[	do ..BestelService.ValideerBestelEenheid(..IngegevenKenmerkenConverter.NaarObject(Kenmerken),Aantal)
+]]></Implementation>
+</Method>
 </Class>