Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/LBX/Afdekkappen/TestHFAfdekkapBinnenN.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/LBX/Afdekkappen/TestHFAfdekkapBinnenN.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/LBX/Afdekkappen/TestHFAfdekkapBinnenN.cls.xml	(revision 57189)
@@ -0,0 +1,96 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.PM.Maatwerk.Calc.HF.impl.LBX.Afdekkappen.TestHFAfdekkapBinnenN">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.DOM.PM.Maatwerk.Calc.HF.impl.LBX.Afdekkappen.Base</Super>
+
+<Property name="MaatwerkCalcAPI">
+<Type>vhTest.Mock.DOM.PM.MaatwerkCalcAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	Set ..MaatwerkCalcAPI = ##class(vhTest.Mock.DOM.PM.MaatwerkCalcAPI).MockInstance()
+]]></Implementation>
+</Method>
+
+<Method name="GeefAfdekkapBinnenBuilder">
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.impl.LBX.Builder.Generated.HFAfdekkapBinnenv000</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.PM.Maatwerk.Calc.HF.impl.LBX.Builder.HFAfdekkapBinnenv001).%New("")
+]]></Implementation>
+</Method>
+
+<Method name="TestAfdekkapEnLadeZijkantNietV1">
+<Implementation><![CDATA[
+	#dim Context As DOM.PM.Maatwerk.Calc.HF.HalffabContext = ..GeefContext()
+	Do Context.HalffabItemsBoom.AddHalffabItem(..GeefNietV1LadeZijkant(Context, ..MaatwerkCalcAPI))
+	
+	#dim Afdekkap As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = ..BerekenAfdekkap(Context, ..GeefIngegevenKenmerken())
+	Do $$$AssertTrue($IsObject(Afdekkap))
+	Do $$$AssertTrue(Afdekkap.%Extends(##class(DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%ClassName(1)))
+	#dim Halffab As DOM.PM.Maatwerk.Calc.HF.impl.LBX.Halffab.HalffabAfdekkapBuiten = Afdekkap.GeefHalffab()
+	Do $$$AssertTrue($IsObject(Halffab),"HalffabItem heeft een halffab")
+	Do $$$AssertEquals(Halffab.GeefProductID(),1000)
+	Do $$$AssertEquals(Afdekkap.GeefOmschrijvingVoorPicking(),"Afdekkap binnenkant, Zijdewit, N")
+]]></Implementation>
+</Method>
+
+<Method name="TestAfdekkapEnLadeZijkantV1">
+<Implementation><![CDATA[
+	#dim Context As DOM.PM.Maatwerk.Calc.HF.HalffabContext = ..GeefContext()
+	Do Context.HalffabItemsBoom.AddHalffabItem(..GeefV1LadeZijkant(Context, ..MaatwerkCalcAPI))
+	
+	#dim Afdekkap As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = ..BerekenAfdekkap(Context, ..GeefIngegevenKenmerken())
+	Do $$$AssertTrue($IsObject(Afdekkap))
+	Do $$$AssertTrue(Afdekkap.%Extends(##class(DOM.PM.Maatwerk.Calc.HF.InbegrepenHalffabItem).%ClassName(1)))
+	
+	#dim Halffab As DOM.PM.Maatwerk.Calc.HF.impl.LBX.Halffab.HalffabAfdekkapBuiten = Afdekkap.GeefHalffab()
+	Do $$$AssertTrue($IsObject(Halffab),"HalffabItem heeft een halffab")
+	Do $$$AssertEquals(Halffab.GeefProductID(),1004)
+	Do $$$AssertEquals(Afdekkap.GeefOmschrijvingVoorPicking(),"Afdekkap binnenkant, Zijdewit, N (uit V1 ladezijkant)")
+]]></Implementation>
+</Method>
+
+<Method name="VulHalffabTabel">
+<FormalSpec>HalffabTabel:vhUnitTest.DOM.PM.Maatwerk.HF.impl.InMemoryHalffabTabelUT</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.LBX.Halffab.HalffabAfdekkapBinnen).%New(1000)
+	Set Halffab.LadeKleur = ##class(DOM.PM.enu.LBXLadeKleur).Zijdewit()
+	Set Halffab.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).N()
+	Set Halffab.Klantbeperking = ""
+	Do HalffabTabel.VoegToeHalffab(Halffab)
+]]></Implementation>
+</Method>
+
+<Method name="BerekenAfdekkap">
+<FormalSpec>Context:DOM.PM.Maatwerk.Calc.HF.HalffabContext,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.IHalffabItem</ReturnType>
+<Implementation><![CDATA[
+	#dim HFBuilder As DOM.PM.Maatwerk.Calc.HF.impl.LBX.Builder.Generated.HFAfdekkapBinnenv001 = ..GeefAfdekkapBinnenBuilder()
+	Quit HFBuilder.Bereken(IngegevenKenmerken,Context)
+]]></Implementation>
+</Method>
+
+<Method name="GeefIngegevenKenmerken">
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim LBXKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).LegeKenmerken()
+	
+	Set LBXKenmerken.LadeKleur = ##class(DOM.PM.enu.LBXLadeKleur).Zijdewit()
+	Set LBXKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).N()
+	Set LBXKenmerken.ZijWandType = ##class(DOM.PM.enu.LBXZijWandType).Pure()
+	
+	Quit LBXKenmerken
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>