Index: APPS/EC/Winkelkar/impl/WinkelkarService/MaatwerklijnInputValidator.cls.xml
===================================================================
diff -u -r55738 -r55739
--- APPS/EC/Winkelkar/impl/WinkelkarService/MaatwerklijnInputValidator.cls.xml	(.../MaatwerklijnInputValidator.cls.xml)	(revision 55738)
+++ APPS/EC/Winkelkar/impl/WinkelkarService/MaatwerklijnInputValidator.cls.xml	(.../MaatwerklijnInputValidator.cls.xml)	(revision 55739)
@@ -9,23 +9,23 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>BestelService:APPS.VKP.Maatwerk.BestelService</FormalSpec>
+<FormalSpec>BestelService:APPS.VKP.Maatwerk.BestelService=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	set ..BestelService = $$$Implementation(BestelService, ##class(APPS.VKP.Maatwerk.impl.BestelService).%New())
+	Set ..BestelService = $$$Inject(BestelService, ##class(APPS.VKP.Maatwerk.impl.BestelService).%New())
 	
-	quit $$$OK
+	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="Valideer">
 <FormalSpec>Kenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken,Aantal:%Integer</FormalSpec>
 <Implementation><![CDATA[
-	do ..ValideerKenmerken(Kenmerken)
-	do ..ValideerAantal(Kenmerken, Aantal)
+	Do ..ValideerKenmerken(Kenmerken)
+	Do ..ValideerAantal(Kenmerken, Aantal)
 ]]></Implementation>
 </Method>
 
@@ -35,14 +35,14 @@
 <Implementation><![CDATA[
 	#dim IsGeldig As %Boolean = $$$True
 	
-	try {
-		do ..ValideerAantal(Kenmerken, Aantal)
-	} catch {
+	Try {
+		Do ..ValideerAantal(Kenmerken, Aantal)
+	} Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch(..E.InvalidUserInputException)
-		set IsGeldig = $$$False
+		Set IsGeldig = $$$False
 	}	
 	
-	quit IsGeldig
+	Quit IsGeldig
 ]]></Implementation>
 </Method>
 
@@ -52,35 +52,35 @@
 <Implementation><![CDATA[
 	#dim IsGeldig As %Boolean = $$$True
 	
-	try {
-		do ..ValideerKenmerken(Kenmerken)
-	} catch {
+	Try {
+		Do ..ValideerKenmerken(Kenmerken)
+	} Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch(..E.InvalidInputException)
-		set IsGeldig = $$$False
+		Set IsGeldig = $$$False
 	}	
 	
-	quit IsGeldig
+	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) ##class(TECH.Exceptions.InvalidUserInputException).Throw("Het aantal moet groter zijn dan 0.")
+	Do:(Aantal <= 0) ##class(TECH.Exceptions.InvalidUserInputException).Throw("Het aantal moet groter zijn dan 0.")
 	
-	do ..BestelService.ValideerBestelEenheid(Kenmerken, Aantal)
+	Do ..BestelService.ValideerBestelEenheid(Kenmerken, Aantal)
 ]]></Implementation>
 </Method>
 
 <Method name="ValideerKenmerken">
 <FormalSpec>Kenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	if ($$$Not(Kenmerken.IsVolledig())) {		
+	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)	
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)	
 	}
 ]]></Implementation>
 </Method>
Index: vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/WijzigLijnAantal/Test.cls.xml
===================================================================
diff -u -r52487 -r55739
--- vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/WijzigLijnAantal/Test.cls.xml	(.../Test.cls.xml)	(revision 52487)
+++ vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/WijzigLijnAantal/Test.cls.xml	(.../Test.cls.xml)	(revision 55739)
@@ -43,17 +43,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: InvalidUserInput exceptie wordt geraised indien ongeldige besteleenheid">
-<Implementation><![CDATA[
-	#dim MaatwerkLijnID As TECH.String = ..VoegToeMaatwerkLijnEnGeefID(..WinkelkarID, ..IngegevenKenmerken)
-	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Het opgegeven aantal '1' is geen geldige bestelhoeveelheid.")
-
-	do ..BestelService.IndienMethodCall("ValideerBestelEenheid", $$$ElkeWaarde, $$$ElkeWaarde).DanException(##class(TECH.Exceptions.InvalidInputException).%New("ongeldige bestelhoeveelheid"))	
-	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(..E.InvalidUserInputException, Substrings))
-	do ..WinkelkarService.WijzigLijnAantal(..WinkelkarID, MaatwerkLijnID, 1)
-]]></Implementation>
-</Method>
-
 <Method name="Test: Oorspronkelijke exceptie wordt geraised indien andere fout">
 <Implementation><![CDATA[
 	#dim MaatwerkLijnID As TECH.String = ..VoegToeMaatwerkLijnEnGeefID(..WinkelkarID, ..IngegevenKenmerken)
Index: vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/MaatwerklijnInputValidator/Valideer/Test.cls.xml
===================================================================
diff -u -r30029 -r55739
--- vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/MaatwerklijnInputValidator/Valideer/Test.cls.xml	(.../Test.cls.xml)	(revision 30029)
+++ vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/MaatwerklijnInputValidator/Valideer/Test.cls.xml	(.../Test.cls.xml)	(revision 55739)
@@ -13,26 +13,32 @@
 <Private>1</Private>
 </Property>
 
+<Property name="BestelServiceStub">
+<Type>APPS.VKP.Maatwerk.BestelService</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()
+	Do ##super()
 	
-	set ..MaatwerklijnInputValidator = ##class(APPS.EC.Winkelkar.impl.WinkelkarService.MaatwerklijnInputValidator).%New()
+	Set ..BestelServiceStub = ##class(vhTest.Mock.APPS.VKP.Maatwerk.BestelService).%New()
+	Set ..MaatwerklijnInputValidator = ##class(APPS.EC.Winkelkar.impl.WinkelkarService.MaatwerklijnInputValidator).%New(..BestelServiceStub)
 ]]></Implementation>
 </Method>
 
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
-	do ##super(aTestName)
+	Do ##super(aTestName)
 	
-	set ..MailAPI = ##class(vhUnitTest.TECH.Mail.impl.MailAPIMock).MockInstance()
-	set ..TAORKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardLade()
+	Set ..MailAPI = ##class(vhUnitTest.TECH.Mail.impl.MailAPIMock).MockInstance()
+	Set ..TAORKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardLade()
 ]]></Implementation>
 </Method>
 
@@ -41,15 +47,23 @@
 	#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 ..ZetVerwachteExceptie(VerwachteExceptie)
+	Do ..MaatwerklijnInputValidator.Valideer(..TAORKenmerken, 0)
 	
-	do $$$AssertFalse(..MaatwerklijnInputValidator.IsGeldigAantal(..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))
+<Method name="Test: Bij aantal &gt; 0 bij LosseComponenten wordt ValideerBestelEenheid van BestelService opgeroepen">
+<Implementation><![CDATA[
+	Set ..TAORKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardLadeVerpaktIn(##class(DOM.PM.enu.TAORVerpakkingType).LosseComponentenInBulk())
+	#dim Aantal As %Integer = 12
+	
+	Do ..BestelServiceStub.VerwachtMethodCall("ValideerBestelEenheid", ..TAORKenmerken, Aantal).ExactAantalKeer(1).DanDoeNiks()
+	
+	Do ..MaatwerklijnInputValidator.IsGeldigAantal(..TAORKenmerken, Aantal)
+	
+	Do ..BestelServiceStub.Verifieer()
 ]]></Implementation>
 </Method>
 
@@ -58,42 +72,19 @@
 	#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 = ""
+	Set ..TAORKenmerken.BodemKleur = ""
 	
-	do ..ZetVerwachteExceptie(VerwachteExceptie)
-	do ..MaatwerklijnInputValidator.Valideer(..TAORKenmerken, 10)
+	Do ..ZetVerwachteExceptie(VerwachteExceptie)
+	Do ..MaatwerklijnInputValidator.Valideer(..TAORKenmerken, 10)
 	
-	do $$$AssertEquals(..MailAPI.GeefAantalVerzondenMails(), 1)
+	Do $$$AssertEquals(..MailAPI.GeefAantalVerzondenMails(), 1)
 ]]></Implementation>
 </Method>
 
 <Method name="Test: volledige kenmerken worden toegelaten">
-<Implementation><![CDATA[	do $$$AssertTrue(..MaatwerklijnInputValidator.IsGeldigeKenmerken(..TAORKenmerken))
+<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>