Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001/LosseComponentenZRF/SpacerBepaler.cls.xml
===================================================================
diff -u -r55761 -r55778
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001/LosseComponentenZRF/SpacerBepaler.cls.xml	(.../SpacerBepaler.cls.xml)	(revision 55761)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001/LosseComponentenZRF/SpacerBepaler.cls.xml	(.../SpacerBepaler.cls.xml)	(revision 55778)
@@ -10,7 +10,7 @@
 	#define VPKPIRAMIDE13MMTAXBLKB   1865981
 	#define VPKPIRAMIDE09MMTAXBLKB   1865982
 	
-	#dim SpacerProductId As %String = ""
+	#dim SpacerProductId As %String
 	
 	If ((LadeOnderdeel.GeefRol() = ##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Rug()) || 
 		(LadeOnderdeel.GeefRol() = ##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Zijkant())) {
Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001/LosseComponentenZRF/SpacerBepaler/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001/LosseComponentenZRF/SpacerBepaler/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001/LosseComponentenZRF/SpacerBepaler/Test.cls.xml	(revision 55778)
@@ -0,0 +1,129 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.SpacerBepaler.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Voor een rug moet de Spacer met ProductId 1865981 gebruikt worden">
+<Implementation><![CDATA[
+	#dim RugLadeOnderdeelStub As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Rug).%New()
+	Do RugLadeOnderdeelStub.IndienMethodCall("GeefRol").DanReturn(##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Rug())
+	
+	#dim SpacerBepaler As DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.SpacerBepaler = ..GeefSpacerBepaler()
+	
+	#dim SpacerProductId As %String = SpacerBepaler.GeefSpacerProductId(RugLadeOnderdeelStub)
+	
+	Do $$$AssertEquals(SpacerProductId, "1865981")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor een Zijkant moet de Spacer met ProductId 1865981 gebruikt worden">
+<Implementation><![CDATA[
+	#dim ZijkantLadeOnderdeelStub As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Zijkant).%New()
+	Do ZijkantLadeOnderdeelStub.IndienMethodCall("GeefRol").DanReturn(##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Zijkant())
+	
+	#dim SpacerBepaler As DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.SpacerBepaler = ..GeefSpacerBepaler()
+	
+	#dim SpacerProductId As %String = SpacerBepaler.GeefSpacerProductId(ZijkantLadeOnderdeelStub)
+	
+	Do $$$AssertEquals(SpacerProductId, "1865981")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor een Front moet de Spacer met ProductId 1865982 gebruikt worden">
+<Implementation><![CDATA[
+	#dim FrontLadeOnderdeelStub As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Front).%New()
+	Do FrontLadeOnderdeelStub.IndienMethodCall("GeefRol").DanReturn(##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Front())
+	
+	#dim SpacerBepaler As DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.SpacerBepaler = ..GeefSpacerBepaler()
+	
+	#dim SpacerProductId As %String = SpacerBepaler.GeefSpacerProductId(FrontLadeOnderdeelStub)
+	
+	Do $$$AssertEquals(SpacerProductId, "1865982")
+]]></Implementation>
+</Method>
+
+<Method name="Test: SpacerProductId: Voor een LadeOnderdeel dat geen Zijkant, Rug of Front is =&gt; Exceptie">
+<Implementation><![CDATA[
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Geen SpacerProductId gevonden voor LadeOnderdeel:")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(..E.InvalidInputException,Substrings))
+	
+	#dim BodemLadeOnderdeelStub As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Bodem).%New()
+	Do BodemLadeOnderdeelStub.IndienMethodCall("GeefRol").DanReturn(##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Bodem())
+	
+	#dim SpacerBepaler As DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.SpacerBepaler = ..GeefSpacerBepaler()
+	
+	#dim SpacerProductId As %String = SpacerBepaler.GeefSpacerProductId(BodemLadeOnderdeelStub)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor een Front is het aantal SpacersPerDoos =&gt; BestelEenheid / 10 * 3">
+<Implementation><![CDATA[
+	#dim BestelEenheid As %Integer = 20
+	
+	#dim FrontLadeOnderdeelStub As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Front).%New()
+	Do FrontLadeOnderdeelStub.IndienMethodCall("GeefRol").DanReturn(##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Front())
+	
+	#dim SpacerBepaler As DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.SpacerBepaler = ..GeefSpacerBepaler()
+	
+	#dim SpacersPerDoos As %String = SpacerBepaler.GeefAantalSpacersPerDoos(FrontLadeOnderdeelStub, BestelEenheid)
+	
+	Do $$$AssertEquals(SpacersPerDoos, 6)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor een Zijkant is het aantal SpacersPerDoos =&gt; BestelEenheid / 8 * 3">
+<Implementation><![CDATA[
+	#dim BestelEenheid As %Integer = 24
+	
+	#dim ZijkantLadeOnderdeelStub As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Zijkant).%New()
+	Do ZijkantLadeOnderdeelStub.IndienMethodCall("GeefRol").DanReturn(##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Zijkant())
+	
+	#dim SpacerBepaler As DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.SpacerBepaler = ..GeefSpacerBepaler()
+	
+	#dim SpacersPerDoos As %String = SpacerBepaler.GeefAantalSpacersPerDoos(ZijkantLadeOnderdeelStub, BestelEenheid)
+	
+	Do $$$AssertEquals(SpacersPerDoos, 9)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Voor een Rug is het aantal SpacersPerDoos =&gt; BestelEenheid / 8 * 3">
+<Implementation><![CDATA[
+	#dim BestelEenheid As %Integer = 24
+	
+	#dim RugLadeOnderdeelStub As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Rug).%New()
+	Do RugLadeOnderdeelStub.IndienMethodCall("GeefRol").DanReturn(##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Rug())
+	
+	#dim SpacerBepaler As DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.SpacerBepaler = ..GeefSpacerBepaler()
+	
+	#dim SpacersPerDoos As %String = SpacerBepaler.GeefAantalSpacersPerDoos(RugLadeOnderdeelStub, BestelEenheid)
+	
+	Do $$$AssertEquals(SpacersPerDoos, 9)
+]]></Implementation>
+</Method>
+
+<Method name="Test: AantalSpacersPerDoos: Voor een LadeOnderdeel dat geen Zijkant, Rug of Front is =&gt; Exceptie">
+<Implementation><![CDATA[
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("AantalSpacers kon niet berekend worden voor LadeOnderdeel:")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(..E.InvalidInputException,Substrings))
+	
+	#dim BestelEenheid As %Integer = 24
+	
+	#dim BodemLadeOnderdeelStub As DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Bodem).%New()
+	Do BodemLadeOnderdeelStub.IndienMethodCall("GeefRol").DanReturn(##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Bodem())
+	
+	#dim SpacerBepaler As DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.SpacerBepaler = ..GeefSpacerBepaler()
+	
+	#dim SpacersPerDoos As %String = SpacerBepaler.GeefAantalSpacersPerDoos(BodemLadeOnderdeelStub, BestelEenheid)
+]]></Implementation>
+</Method>
+
+<Method name="GeefSpacerBepaler">
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.SpacerBepaler</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.SpacerBepaler).%New()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>