Index: DOM/VKP/Maatwerk/impl/BestelService.cls.xml
===================================================================
diff -u -r30089 -r30398
--- DOM/VKP/Maatwerk/impl/BestelService.cls.xml	(.../BestelService.cls.xml)	(revision 30089)
+++ DOM/VKP/Maatwerk/impl/BestelService.cls.xml	(.../BestelService.cls.xml)	(revision 30398)
@@ -33,17 +33,21 @@
 </Method>
 
 <Method name="GeefBestelEenheid">
-<FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Aantal:TECH.Integer</FormalSpec>
 <ReturnType>TECH.Integer</ReturnType>
 <Implementation><![CDATA[
 	#dim BestelEenheid As TECH.Integer = 1
 	
 	if (Kenmerken.GeefVariant() = ##class(DOM.PM.enu.Variant).Taorbox()) {
-		if ((Kenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).LosseComponentenInBulk()) && $$$Not(Kenmerken.ProductieWijze = "")) {
+		#dim VerpakkingType As DOM.PM.enu.TAORVerpakkingType.AutoComplete = ##class(DOM.PM.enu.TAORVerpakkingType.AutoComplete).%New()
+		
+		if ((Kenmerken.VerpakkingType = VerpakkingType.LosseComponentenInBulk) && $$$Not(Kenmerken.ProductieWijze = "")) {
 			#dim LadeOnderdeel As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel 
 			
 			set ..DoosAfmetingenBepaler = ..MaakDoosAfmetingenBepaler(Kenmerken, .LadeOnderdeel)
 			set BestelEenheid = ..DoosAfmetingenBepaler.GeefMaximaalAantalOnderdelen(LadeOnderdeel)
+		} elseif (Kenmerken.VerpakkingType = VerpakkingType.BulkPerOnderdeelGegroepeerd) {
+			set:(Aantal > 40) BestelEenheid = 10
 		}
 	}
 		
Index: vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/WijzigLijnAantal/Test.cls.xml
===================================================================
diff -u -r30089 -r30398
--- vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/WijzigLijnAantal/Test.cls.xml	(.../Test.cls.xml)	(revision 30089)
+++ vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/WijzigLijnAantal/Test.cls.xml	(.../Test.cls.xml)	(revision 30398)
@@ -3,33 +3,56 @@
 <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">
+<Property name="IngegevenKenmerken">
+<Type>APPS.PM.Maatwerk.dto.IngegevenKenmerken</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="BestelService">
+<Type>DOM.VKP.Maatwerk.BestelService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="WinkelkarID">
+<Type>TECH.String</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
 <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)
+	do ##super(aTestName)
+
+	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()
+]]></Implementation>
+</Method>
+
+<Method name="Test: InvalidUserInput exceptie wordt geraised indien ongeldige besteleenheid">
+<Implementation><![CDATA[
+	#dim MaatwerkLijnID As TECH.String = ..VoegToeMaatwerkLijnEnGeefID(..WinkelkarID, ..IngegevenKenmerken)
 	
+	do ..BestelService.IndienMethodCall("ValideerBestelEenheid", $$$ElkeWaarde, $$$ElkeWaarde).DanException(##class(TECH.Exceptions.InvalidInputException).%New("ongeldige bestelhoeveelheid"))
+
 	#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 ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(..E.InvalidUserInputException, Substrings))
 
-	do ..WinkelkarService.WijzigLijnAantal(WinkelkarID,MaatwerkLijnID,1)
+	do ..WinkelkarService.WijzigLijnAantal(..WinkelkarID, MaatwerkLijnID, 1)
 ]]></Implementation>
 </Method>
 
-<Method name="Test : Oorspronkelijke exception wordt geraised indien andere fout">
+<Method name="Test: Oorspronkelijke exceptie 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 MaatwerkLijnID As TECH.String = ..VoegToeMaatwerkLijnEnGeefID(..WinkelkarID, ..IngegevenKenmerken)
 	
+	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 ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(..E.GeneralErrorException, Substrings))
 
-	do ..WinkelkarService.WijzigLijnAantal(WinkelkarID,MaatwerkLijnID,1)
+	do ..WinkelkarService.WijzigLijnAantal(..WinkelkarID, MaatwerkLijnID, 1)
 ]]></Implementation>
 </Method>
 </Class>
Index: DOM/VKP/Maatwerk/BestelService.cls.xml
===================================================================
diff -u -r30089 -r30398
--- DOM/VKP/Maatwerk/BestelService.cls.xml	(.../BestelService.cls.xml)	(revision 30089)
+++ DOM/VKP/Maatwerk/BestelService.cls.xml	(.../BestelService.cls.xml)	(revision 30398)
@@ -6,7 +6,7 @@
 
 <Method name="GeefBestelEenheid">
 <Abstract>1</Abstract>
-<FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Aantal:TECH.Integer</FormalSpec>
 <ReturnType>TECH.Integer</ReturnType>
 </Method>
 
Index: vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/Base.cls.xml
===================================================================
diff -u -r30089 -r30398
--- vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/Base.cls.xml	(.../Base.cls.xml)	(revision 30089)
+++ vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/Base.cls.xml	(.../Base.cls.xml)	(revision 30398)
@@ -42,7 +42,7 @@
 
 <Method name="MaakWinkelkarEnGeefID">
 <Private>1</Private>
-<ReturnType>%String</ReturnType>
+<ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
 	set Winkelkar = ##class(DOM.EC.Winkelkar.InterneWinkelkar).%New("UnitTest")	
 	do Winkelkar.ZetPersonalityID(##class(DOM.common.enu.Personality).VanHoecke())
@@ -53,13 +53,12 @@
 </Method>
 
 <Method name="VoegToeMaatwerkLijnEnGeefID">
-<FormalSpec>WinkelkarID:%String</FormalSpec>
+<FormalSpec>WinkelkarID:%String,IngegevenKenmerken:APPS.PM.Maatwerk.dto.IngegevenKenmerken</FormalSpec>
 <Private>1</Private>
-<ReturnType>%String</ReturnType>
+<ReturnType>TECH.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
+	quit LijnID
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/WijzigLijnAantal/TAOR/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/WijzigLijnAantal/TAOR/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/EC/Winkelkar/impl/WinkelkarService/WijzigLijnAantal/TAOR/Test.cls.xml	(revision 30398)
@@ -0,0 +1,67 @@
+<?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>
+
+<Property name="IngegevenKenmerken">
+<Type>APPS.PM.Maatwerk.dto.TAORKenmerken</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	do ##super(aTestName)
+
+	set ..IngegevenKenmerken = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TAORKenmerken).StandaardBinnenladeVerpaktIn(..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[
+	#define Aantal 17
+
+	#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))
+
+	do ..WinkelkarService.WijzigLijnAantal(..WinkelkarID, MaatwerkLijnID, $$$Aantal)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Veelvoud van 10 is geldig aantal bij VerpakkingType BulkPerOnderdeelGegroepeerd ">
+<Implementation><![CDATA[
+	#define Aantal 30
+
+	#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
+
+	#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>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/DOM/VKP/Maatwerk/BestelService.cls.xml
===================================================================
diff -u -r30089 -r30398
--- vhTest/Mock/DOM/VKP/Maatwerk/BestelService.cls.xml	(.../BestelService.cls.xml)	(revision 30089)
+++ vhTest/Mock/DOM/VKP/Maatwerk/BestelService.cls.xml	(.../BestelService.cls.xml)	(revision 30398)
@@ -10,9 +10,9 @@
 <Inheritance>right</Inheritance>
 
 <Method name="GeefBestelEenheid">
-<FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Aantal:TECH.Integer</FormalSpec>
 <ReturnType>TECH.Integer</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefBestelEenheid",Kenmerken)
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefBestelEenheid",Kenmerken,Aantal)
 ]]></Implementation>
 </Method>