Index: vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/WijzigLijnAantal/Test.cls.xml
===================================================================
diff -u -r30400 -r30406
--- vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/WijzigLijnAantal/Test.cls.xml	(.../Test.cls.xml)	(revision 30400)
+++ vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/WijzigLijnAantal/Test.cls.xml	(.../Test.cls.xml)	(revision 30406)
@@ -9,7 +9,7 @@
 </Property>
 
 <Property name="BestelService">
-<Type>DOM.VKP.Maatwerk.BestelService</Type>
+<Type>vhTest.Mock.DOM.VKP.Maatwerk.BestelService</Type>
 <Private>1</Private>
 </Property>
 
@@ -26,31 +26,51 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: InvalidUserInput exceptie wordt geraised indien ongeldige besteleenheid">
+<Method name="Test: BestelService wordt opgeroepen">
 <Implementation><![CDATA[
+	#define Aantal 8
+
 	#dim MaatwerkLijnID As TECH.String = ..VoegToeMaatwerkLijnEnGeefID(..WinkelkarID, ..IngegevenKenmerken)
-	
-	do ..BestelService.IndienMethodCall("ValideerBestelEenheid", $$$ElkeWaarde, $$$ElkeWaarde).DanException(##class(TECH.Exceptions.InvalidInputException).%New("ongeldige bestelhoeveelheid"))
 
+	do ..BestelService.VerwachtMethodCall("ValideerBestelEenheid", $$$ElkeWaarde, $$$Aantal).DanDoeNiks()
+	do ..WinkelkarService.WijzigLijnAantal(..WinkelkarID, MaatwerkLijnID, $$$Aantal)
+	do ..BestelService.Verifieer()
+]]></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 ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(..E.InvalidUserInputException, Substrings))
 
+	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)
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Foutmelding")
 	
 	do ..BestelService.IndienMethodCall("ValideerBestelEenheid", $$$ElkeWaarde, $$$ElkeWaarde).DanException(##class(TECH.Exceptions.GeneralErrorException).%New("Foutmelding"))
-
-	#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>
+
+<Method name="Test: Exceptie wordt geraised indien aantal is 0">
+<Implementation><![CDATA[
+	#define Aantal 0
+	
+	#dim MaatwerkLijnID As TECH.String = ..VoegToeMaatwerkLijnEnGeefID(..WinkelkarID, ..IngegevenKenmerken)
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Het aantal moet groter zijn dan 0")
+	
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(..E.InvalidUserInputException, Substrings))
+	do ..WinkelkarService.WijzigLijnAantal(..WinkelkarID, MaatwerkLijnID, $$$Aantal)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/DOM/VKP/Maatwerk/impl/BestelService/ValideerBestelEenheid/LBX/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/VKP/Maatwerk/impl/BestelService/ValideerBestelEenheid/LBX/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/VKP/Maatwerk/impl/BestelService/ValideerBestelEenheid/LBX/Test.cls.xml	(revision 30406)
@@ -0,0 +1,31 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.VKP.Maatwerk.impl.BestelService.ValideerBestelEenheid.LBX.Test">
+<Super>vhUnitTest.DOM.VKP.Maatwerk.impl.BestelService.ValideerBestelEenheid.TestBase,DOM.PM.Maatwerk.TAX.impl.Base</Super>
+
+<Property name="IngegevenKenmerken">
+<Type>DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	do ##super(aTestName)
+	
+	set ..IngegevenKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).CLade()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Besteleenheid aantal is 1">
+<Implementation><![CDATA[
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("geen geldige bestelhoeveelheid")
+
+	do ..BestelService.ValideerBestelEenheid(..IngegevenKenmerken, 39)
+	do $$$AssertFalse(..IsExceptieVerwacht())
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/VKP/Maatwerk/impl/BestelService.cls.xml
===================================================================
diff -u -r30400 -r30406
--- DOM/VKP/Maatwerk/impl/BestelService.cls.xml	(.../BestelService.cls.xml)	(revision 30400)
+++ DOM/VKP/Maatwerk/impl/BestelService.cls.xml	(.../BestelService.cls.xml)	(revision 30406)
@@ -57,7 +57,7 @@
 
 <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><![CDATA[	do:($$$Not(Aantal # ..GeefBestelEenheid(Kenmerken, Aantal) = 0)) ##class(TECH.Exceptions.InvalidInputException).Throw("Het opgegeven aantal '" _ Aantal _ "' is geen geldige bestelhoeveelheid.")
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/DOM/VKP/Maatwerk/impl/BestelService/ValideerBestelEenheid/TestBase.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/VKP/Maatwerk/impl/BestelService/ValideerBestelEenheid/TestBase.cls.xml	(revision 0)
+++ vhUnitTest/DOM/VKP/Maatwerk/impl/BestelService/ValideerBestelEenheid/TestBase.cls.xml	(revision 30406)
@@ -0,0 +1,27 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.VKP.Maatwerk.impl.BestelService.ValideerBestelEenheid.TestBase">
+<Abstract>1</Abstract>
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="BestelService">
+<Type>DOM.VKP.Maatwerk.BestelService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="IngegevenKenmerken">
+<Type>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	do ##super()
+	
+	set ..BestelService = ##class(DOM.VKP.Maatwerk.impl.BestelService).%New()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/DOM/VKP/Maatwerk/impl/BestelService/ValideerBestelEenheid/TAX/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/VKP/Maatwerk/impl/BestelService/ValideerBestelEenheid/TAX/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/VKP/Maatwerk/impl/BestelService/ValideerBestelEenheid/TAX/Test.cls.xml	(revision 30406)
@@ -0,0 +1,45 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.VKP.Maatwerk.impl.BestelService.ValideerBestelEenheid.TAX.Test">
+<Super>vhUnitTest.DOM.VKP.Maatwerk.impl.BestelService.ValideerBestelEenheid.TestBase,DOM.PM.Maatwerk.TAX.impl.Base</Super>
+
+<Property name="IngegevenKenmerken">
+<Type>DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	do ##super(aTestName)
+	
+	set ..IngegevenKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLadeVerpaktIn(..Enum.VerpakkingType.BulkPerOnderdeelGegroepeerd)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Exceptie wordt geraised indien aantal bij VerpakkingType BulkPerOnderdeelGegroepeerd kleiner is dan 40 en geen veelvoud van 10">
+<Implementation><![CDATA[
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("geen geldige bestelhoeveelheid")
+	
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(..E.InvalidInputException, Substrings))
+	do ..BestelService.ValideerBestelEenheid(..IngegevenKenmerken, 39)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Veelvoud van 10 is een geldig aantal bij VerpakkingType BulkPerOnderdeelGegroepeerd ">
+<Implementation><![CDATA[
+	do ..BestelService.ValideerBestelEenheid(..IngegevenKenmerken, 40)
+	do $$$AssertFalse(..IsExceptieVerwacht())
+]]></Implementation>
+</Method>
+
+<Method name="Test: Aantal groter dan 40 is een geldig aantal bij VerpakkingType BulkPerOnderdeelGegroepeerd ">
+<Implementation><![CDATA[
+	do ..BestelService.ValideerBestelEenheid(..IngegevenKenmerken, 41)
+	do $$$AssertFalse(..IsExceptieVerwacht())
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>