Index: DOM/VKP/Maatwerk/impl/BestelService.cls.xml
===================================================================
diff -u -r30398 -r30400
--- DOM/VKP/Maatwerk/impl/BestelService.cls.xml	(.../BestelService.cls.xml)	(revision 30398)
+++ DOM/VKP/Maatwerk/impl/BestelService.cls.xml	(.../BestelService.cls.xml)	(revision 30400)
@@ -47,7 +47,7 @@
 			set ..DoosAfmetingenBepaler = ..MaakDoosAfmetingenBepaler(Kenmerken, .LadeOnderdeel)
 			set BestelEenheid = ..DoosAfmetingenBepaler.GeefMaximaalAantalOnderdelen(LadeOnderdeel)
 		} elseif (Kenmerken.VerpakkingType = VerpakkingType.BulkPerOnderdeelGegroepeerd) {
-			set:(Aantal > 40) BestelEenheid = 10
+			set:(Aantal <= 40) BestelEenheid = 10
 		}
 	}
 		
Index: vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/Base.cls.xml
===================================================================
diff -u -r30398 -r30400
--- vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/Base.cls.xml	(.../Base.cls.xml)	(revision 30398)
+++ vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/Base.cls.xml	(.../Base.cls.xml)	(revision 30400)
@@ -17,38 +17,47 @@
 <InitialExpression>"K||7587"</InitialExpression>
 </Property>
 
+<Property name="WinkelkarID">
+<Type>TECH.String</Type>
+<Private>1</Private>
+</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()
+	
+	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)
-		
+	do ##super(aTestName)
+	
 	#dim MailAPI As vhUnitTest.TECH.Mail.impl.MailAPIMock = ##class(vhUnitTest.TECH.Mail.impl.MailAPIMock).MockInstance()
+	#dim ECommerceAPIMock As APPS.EC.ECommerceAPI = ##class(vhTest.Mock.APPS.EC.ECommerceAPI).MockInstance()	
+	#dim WebshopSessionServiceFake As 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(..WinkelkarService)
 ]]></Implementation>
 </Method>
 
-<Method name="MaakWinkelkarEnGeefID">
+<Method name="MaakWinkelkar">
 <Private>1</Private>
-<ReturnType>TECH.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(..KlantID)
+	
 	do $$$AssertEquals($$$OK, Winkelkar.%Save())
-	quit Winkelkar.%Id()
+	
+	set ..WinkelkarID = Winkelkar.%Id()
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/WijzigLijnAantal/TAOR/Test.cls.xml
===================================================================
diff -u -r30398 -r30400
--- vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/WijzigLijnAantal/TAOR/Test.cls.xml	(.../Test.cls.xml)	(revision 30398)
+++ vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/WijzigLijnAantal/TAOR/Test.cls.xml	(.../Test.cls.xml)	(revision 30400)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="vhUnitTest.APPS.EC.Winkelkar.impl.WinkelkarService.WijzigLijnAantal.TAOR.Test">
-<Super>vhUnitTest.APPS.EC.Winkelkar.impl.WinkelkarService.WijzigLijnAantal.Test,vhUnitTest.DOM.PM.Maatwerk.TAX.Base</Super>
+<Super>vhUnitTest.APPS.EC.Winkelkar.impl.WinkelkarService.Base,DOM.PM.Maatwerk.TAX.impl.Base</Super>
 
 <Property name="IngegevenKenmerken">
 <Type>APPS.PM.Maatwerk.dto.TAORKenmerken</Type>
@@ -13,18 +13,18 @@
 <Implementation><![CDATA[
 	do ##super(aTestName)
 
-	set ..IngegevenKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardBinnenladeVerpaktIn(..Enum.VerpakkingType.BulkPerOnderdeelGegroepeerd)
+	set ..IngegevenKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardBinnenlade()
+	set ..WinkelkarService = ##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New()
+	
+	do ..MaakWinkelkar()
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Exceptie wordt geraised indien aantal bij VerpakkingType BulkPerOnderdeelGegroepeerd kleiner is dan 40 en geen veelvoud van 10">
 <Implementation><![CDATA[
-	#define Aantal 17
+	#define Aantal 39
 
 	#dim MaatwerkLijnID As TECH.String = ..VoegToeMaatwerkLijnEnGeefID(..WinkelkarID, ..IngegevenKenmerken)
-
-	do ..BestelService.IndienMethodCall("ValideerBestelEenheid", $$$ElkeWaarde, $$$Aantal).DanException(##class(TECH.Exceptions.InvalidInputException).%New("geen geldige bestelhoeveelheid"))
-
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("geen geldige bestelhoeveelheid")
 	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(..E.InvalidUserInputException, Substrings))
 
@@ -34,30 +34,24 @@
 
 <Method name="Test: Veelvoud van 10 is geldig aantal bij VerpakkingType BulkPerOnderdeelGegroepeerd ">
 <Implementation><![CDATA[
-	#define Aantal 30
+	#define Aantal 40
 
 	#dim MaatwerkLijnID As TECH.String = ..VoegToeMaatwerkLijnEnGeefID(..WinkelkarID, ..IngegevenKenmerken)
-
-	do ..BestelService.IndienMethodCall("ValideerBestelEenheid", $$$ElkeWaarde, $$$Aantal)
 	do ..WinkelkarService.WijzigLijnAantal(..WinkelkarID, MaatwerkLijnID, $$$Aantal)
 	
 	#dim MaatwerkLijn As APPS.EC.Winkelkar.dto.MaatwerkLijn = ..WinkelkarService.GeefLijn(..WinkelkarID, MaatwerkLijnID)
-	
 	do $$$AssertEquals(MaatwerkLijn.Aantal, $$$Aantal)
 ]]></Implementation>
 </Method>
 
 <Method name="Test: Aantal groter dan 40 is geldig aantal bij VerpakkingType BulkPerOnderdeelGegroepeerd ">
 <Implementation><![CDATA[
-	#define Aantal 43
+	#define Aantal 41
 
 	#dim MaatwerkLijnID As TECH.String = ..VoegToeMaatwerkLijnEnGeefID(..WinkelkarID, ..IngegevenKenmerken)
-
-	do ..BestelService.IndienMethodCall("ValideerBestelEenheid", $$$ElkeWaarde, $$$Aantal)
 	do ..WinkelkarService.WijzigLijnAantal(..WinkelkarID, MaatwerkLijnID, $$$Aantal)
 	
 	#dim MaatwerkLijn As APPS.EC.Winkelkar.dto.MaatwerkLijn = ..WinkelkarService.GeefLijn(..WinkelkarID, MaatwerkLijnID)
-	
 	do $$$AssertEquals(MaatwerkLijn.Aantal, $$$Aantal)
 ]]></Implementation>
 </Method>
Index: vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/WijzigLijnAantal/Test.cls.xml
===================================================================
diff -u -r30398 -r30400
--- vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/WijzigLijnAantal/Test.cls.xml	(.../Test.cls.xml)	(revision 30398)
+++ vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/WijzigLijnAantal/Test.cls.xml	(.../Test.cls.xml)	(revision 30400)
@@ -13,11 +13,6 @@
 <Private>1</Private>
 </Property>
 
-<Property name="WinkelkarID">
-<Type>TECH.String</Type>
-<Private>1</Private>
-</Property>
-
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
@@ -26,7 +21,8 @@
 	set ..IngegevenKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardBinnenlade()
 	set ..BestelService = ##class(vhTest.Mock.DOM.VKP.Maatwerk.BestelService).%New()
 	set ..WinkelkarService = ##class(APPS.EC.Winkelkar.impl.WinkelkarService).%New(,,, ..BestelService)
-	set ..WinkelkarID = ..MaakWinkelkarEnGeefID()
+	
+	do ..MaakWinkelkar()
 ]]></Implementation>
 </Method>