Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/common/LadeOnderdeelInfoBepaler/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/common/LadeOnderdeelInfoBepaler/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/common/LadeOnderdeelInfoBepaler/Test.cls.xml	(revision 34422)
@@ -0,0 +1,123 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.PPS.Activiteit.impl.TAOR.common.LadeOnderdeelInfoBepaler.Test">
+<Super>vhUnitTest.DOM.PM.Maatwerk.TAX.Base</Super>
+
+<Property name="EnumLadeOnderdeel">
+<Type>DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel.AutoComplete</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LadeOnderdeelInfoBepaler">
+<Type>APPS.Halux.PPS.Activiteit.impl.TAOR.common.LadeOnderdeelInfoBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+
+	Set ..LadeOnderdeelInfoBepaler = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.common.LadeOnderdeelInfoBepaler).%New()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Front">
+<Implementation><![CDATA[
+	#dim Front As DOM.PM.Maatwerk.LadeInfo.Front = ##class(vhTest.Dummy.DOM.PM.Maatwerk.LadeInfo.impl.TAX.Front).%New()
+	
+	Do $$$AssertEquals(..LadeOnderdeelInfoBepaler.Bepaal(Front, ""), "FRO")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Rug">
+<Implementation><![CDATA[
+	#dim Rug As DOM.PM.Maatwerk.LadeInfo.Rug = ##class(vhTest.Dummy.DOM.PM.Maatwerk.LadeInfo.impl.TAX.Rug).%New()
+	
+	Do $$$AssertEquals(..LadeOnderdeelInfoBepaler.Bepaal(Rug, ""), "RUG")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Bodem met KoppelingType Drevel">
+<Implementation><![CDATA[
+	#dim BodemStub As vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Bodem = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Bodem).%New()
+	
+	Do BodemStub.IndienMethodCall("GeefRol").DanReturn(..EnumLadeOnderdeel.Bodem)
+	Do BodemStub.IndienMethodCall("GeefFrontKoppelingType").DanReturn(..Enum.KoppelingType.Drevel)
+	
+	Do $$$AssertEquals(..LadeOnderdeelInfoBepaler.Bepaal(BodemStub, ""), "BOD(DRE)")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Bodem met KoppelingType Schroef voor gemonteerde lades">
+<Implementation><![CDATA[
+	Do ..AssertBodemInfo(..Enum.KoppelingType.Schroef, ..Enum.VerpakkingType.V1, $$$True, "BOD(SCH:BO+MO)")
+	Do ..AssertBodemInfo(..Enum.KoppelingType.Schroef, ..Enum.VerpakkingType.Probox, $$$True, "BOD(SCH:BO+MO)")
+	
+	Do ..AssertBodemInfo(..Enum.KoppelingType.Schroef, ..Enum.VerpakkingType.V1, $$$False, "BOD(SCH:BO)")
+	Do ..AssertBodemInfo(..Enum.KoppelingType.Schroef, ..Enum.VerpakkingType.Probox, $$$False, "BOD(SCH:BO)")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Bodem met KoppelingType Schroef voor ongemonteerde lades">
+<Implementation><![CDATA[
+	Do ..AssertBodemInfo(..Enum.KoppelingType.Schroef, ..Enum.VerpakkingType.FlatpackV1, $$$True, "BOD(SCH:BO)")
+	Do ..AssertBodemInfo(..Enum.KoppelingType.Schroef, ..Enum.VerpakkingType.BulkPerOnderdeelGegroepeerd, $$$True, "BOD(SCH:BO)")
+	Do ..AssertBodemInfo(..Enum.KoppelingType.Schroef, ..Enum.VerpakkingType.LosseComponentenInBulk, $$$True, "BOD(SCH:BO)")
+	
+	Do ..AssertBodemInfo(..Enum.KoppelingType.Schroef, ..Enum.VerpakkingType.FlatpackV1, $$$False, "BOD(SCH:BO)")
+	Do ..AssertBodemInfo(..Enum.KoppelingType.Schroef, ..Enum.VerpakkingType.BulkPerOnderdeelGegroepeerd, $$$False, "BOD(SCH:BO)")
+	Do ..AssertBodemInfo(..Enum.KoppelingType.Schroef, ..Enum.VerpakkingType.LosseComponentenInBulk, $$$False, "BOD(SCH:BO)")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Zijkant">
+<Implementation><![CDATA[
+	Do ..AssertZijkantInfo(##class(DOM.PM.Maatwerk.Lade.enu.ZijkantRol).Links(), ..Enum.Concept.Baliko, "ZIJ-L")
+	Do ..AssertZijkantInfo(##class(DOM.PM.Maatwerk.Lade.enu.ZijkantRol).Rechts(), ..Enum.Concept.Baliko, "ZIJ-R")
+	
+	Do ..AssertZijkantInfo(##class(DOM.PM.Maatwerk.Lade.enu.ZijkantRol).Links(), ..Enum.Concept.Valinge, "ZIJ-L")
+	Do ..AssertZijkantInfo(##class(DOM.PM.Maatwerk.Lade.enu.ZijkantRol).Rechts(), ..Enum.Concept.Valinge, "ZIJ-R")
+	
+	Do ..AssertZijkantInfo(##class(DOM.PM.Maatwerk.Lade.enu.ZijkantRol).Links(), ..Enum.Concept.ValingeBaliko, "CO-ZIJ-L")
+	Do ..AssertZijkantInfo(##class(DOM.PM.Maatwerk.Lade.enu.ZijkantRol).Rechts(), ..Enum.Concept.ValingeBaliko, "CO-ZIJ-R")
+]]></Implementation>
+</Method>
+
+<Method name="AssertBodemInfo">
+<FormalSpec>KoppelingType:DOM.PM.enu.TAORKoppelingType,VerpakkingType:DOM.PM.enu.TAORVerpakkingType,HeeftKoppeling:%Boolean,VerwachteWaarde:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim HalffabItemsBoomStub As vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ##class(vhTest.Mock.DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New()
+	#dim ProductStub As vhTest.Mock.DOM.PM.TAORProduct.TAORLade = ##class(vhTest.Mock.DOM.PM.TAORProduct.TAORLade).%New()
+	#dim BodemStub As vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Bodem = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Bodem).%New()
+	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLadeVerpaktIn(VerpakkingType)
+	
+	Do HalffabItemsBoomStub.IndienMethodCall("BevatRol", ..Enum.Rol.Koppeling).DanReturn(HeeftKoppeling)
+		
+	Do ProductStub.IndienMethodCall("GeefHalffabItemsBoom", "").DanReturn(HalffabItemsBoomStub)
+	Do ProductStub.IndienMethodCall("GeefIngegevenKenmerken").DanReturn(TAORKenmerken)
+	
+	Do BodemStub.IndienMethodCall("GeefRol").DanReturn(..EnumLadeOnderdeel.Bodem)
+	Do BodemStub.IndienMethodCall("GeefFrontKoppelingType").DanReturn(KoppelingType)	
+
+	Do $$$AssertEquals(..LadeOnderdeelInfoBepaler.Bepaal(BodemStub, ProductStub), VerwachteWaarde)
+]]></Implementation>
+</Method>
+
+<Method name="AssertZijkantInfo">
+<FormalSpec>ZijkantRol:DOM.PM.Maatwerk.Lade.enu.ZijkantRol,Concept:DOM.PM.enu.TAORConcept,VerwachteWaarde:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim ZijkantStub As vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Zijkant = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Zijkant).%New()
+	
+	Do ZijkantStub.IndienMethodCall("GeefRol").DanReturn(..EnumLadeOnderdeel.Zijkant)
+	Do ZijkantStub.IndienMethodCall("GeefConcept").DanReturn(Concept)
+	Do ZijkantStub.IndienMethodCall("GeefZijkantRol").DanReturn(ZijkantRol)
+	
+	Do $$$AssertEquals(..LadeOnderdeelInfoBepaler.Bepaal(ZijkantStub, ""), VerwachteWaarde)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>