Index: vhUnitTest/DOM/VKP/Maatwerk/impl/BestelService/BestelEenheidBulkPerOnderdeelGegroepeerdBepaler/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/VKP/Maatwerk/impl/BestelService/BestelEenheidBulkPerOnderdeelGegroepeerdBepaler/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/VKP/Maatwerk/impl/BestelService/BestelEenheidBulkPerOnderdeelGegroepeerdBepaler/Test.cls.xml	(revision 55564)
@@ -0,0 +1,98 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidBulkPerOnderdeelGegroepeerdBepaler.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Property name="BestelEenheidBulkPerOnderdeelGegroepeerdBepaler">
+<Type>DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidBulkPerOnderdeelGegroepeerdBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="IngegevenKenmerken">
+<Type>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	
+	Set ..BestelEenheidBulkPerOnderdeelGegroepeerdBepaler = ##class(DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidBulkPerOnderdeelGegroepeerdBepaler).%New()
+	Set ..IngegevenKenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).%New()
+]]></Implementation>
+</Method>
+
+<Method name="Test: BestelEenheidBulkPerOnderdeelGegroepeerd is default 0 als LadeHoogte leeg is">
+<Implementation><![CDATA[
+	Set ..IngegevenKenmerken.LadeHoogte = ""
+	
+	#dim BestelEenheid As TECH.Integer = ..BestelEenheidBulkPerOnderdeelGegroepeerdBepaler.GeefBestelEenheidBulkPerOnderdeelGegroepeerd(..IngegevenKenmerken)
+	
+	Do $$$AssertEquals(BestelEenheid, 0)
+]]></Implementation>
+</Method>
+
+<Method name="Test: BestelEenheidBulkPerOnderdeelGegroepeerd is default 0 als LadeHoogte onbekend is">
+<Implementation><![CDATA[
+	Set ..IngegevenKenmerken.LadeHoogte = "Onbekende LadeHoogte"
+	
+	#dim BestelEenheid As TECH.Integer = ..BestelEenheidBulkPerOnderdeelGegroepeerdBepaler.GeefBestelEenheidBulkPerOnderdeelGegroepeerd(..IngegevenKenmerken)
+	
+	Do $$$AssertEquals(BestelEenheid, 0)
+]]></Implementation>
+</Method>
+
+<Method name="Test: BestelEenheidBulkPerOnderdeelGegroepeerd is 24 voor LadeHoogte N">
+<Implementation><![CDATA[
+	Set ..IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).N()
+	
+	#dim BestelEenheid As TECH.Integer = ..BestelEenheidBulkPerOnderdeelGegroepeerdBepaler.GeefBestelEenheidBulkPerOnderdeelGegroepeerd(..IngegevenKenmerken)
+	
+	Do $$$AssertEquals(BestelEenheid, 24)
+]]></Implementation>
+</Method>
+
+<Method name="Test: BestelEenheidBulkPerOnderdeelGegroepeerd is 16 voor LadeHoogte M">
+<Implementation><![CDATA[
+	Set ..IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).M()
+	
+	#dim BestelEenheid As TECH.Integer = ..BestelEenheidBulkPerOnderdeelGegroepeerdBepaler.GeefBestelEenheidBulkPerOnderdeelGegroepeerd(..IngegevenKenmerken)
+	
+	Do $$$AssertEquals(BestelEenheid, 16)
+]]></Implementation>
+</Method>
+
+<Method name="Test: BestelEenheidBulkPerOnderdeelGegroepeerd is 8 voor LadeHoogte K">
+<Implementation><![CDATA[
+	Set ..IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).K()
+	
+	#dim BestelEenheid As TECH.Integer = ..BestelEenheidBulkPerOnderdeelGegroepeerdBepaler.GeefBestelEenheidBulkPerOnderdeelGegroepeerd(..IngegevenKenmerken)
+	
+	Do $$$AssertEquals(BestelEenheid, 8)
+]]></Implementation>
+</Method>
+
+<Method name="Test: BestelEenheidBulkPerOnderdeelGegroepeerd is 8 voor LadeHoogte C">
+<Implementation><![CDATA[
+	Set ..IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).C()
+	
+	#dim BestelEenheid As TECH.Integer = ..BestelEenheidBulkPerOnderdeelGegroepeerdBepaler.GeefBestelEenheidBulkPerOnderdeelGegroepeerd(..IngegevenKenmerken)
+	
+	Do $$$AssertEquals(BestelEenheid, 8)
+]]></Implementation>
+</Method>
+
+<Method name="Test: BestelEenheidBulkPerOnderdeelGegroepeerd is 8 voor LadeHoogte F">
+<Implementation><![CDATA[
+	Set ..IngegevenKenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).F()
+	
+	#dim BestelEenheid As TECH.Integer = ..BestelEenheidBulkPerOnderdeelGegroepeerdBepaler.GeefBestelEenheidBulkPerOnderdeelGegroepeerd(..IngegevenKenmerken)
+	
+	Do $$$AssertEquals(BestelEenheid, 8)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/VKP/Maatwerk/impl/BestelService/BestelEenheidBulkPerOnderdeelGegroepeerdBepaler.cls.xml
===================================================================
diff -u
--- DOM/VKP/Maatwerk/impl/BestelService/BestelEenheidBulkPerOnderdeelGegroepeerdBepaler.cls.xml	(revision 0)
+++ DOM/VKP/Maatwerk/impl/BestelService/BestelEenheidBulkPerOnderdeelGegroepeerdBepaler.cls.xml	(revision 55564)
@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.VKP.Maatwerk.impl.BestelService.BestelEenheidBulkPerOnderdeelGegroepeerdBepaler">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="GeefBestelEenheidBulkPerOnderdeelGegroepeerd">
+<FormalSpec>Kenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<ReturnType>TECH.Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim BestelEenheid As TECH.Integer = 0
+	
+	If (Kenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).N()) {
+		Set BestelEenheid = 24
+	} ElseIf (Kenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).M()) {
+		Set BestelEenheid = 16
+	} ElseIf ((Kenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).K()) || 
+		(Kenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).C()) || 
+		(Kenmerken.LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).F())) {
+		Set BestelEenheid = 8
+	} 
+	
+	Quit BestelEenheid
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>