Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001/LosseComponentenZRF/VerpakkingOnderdeelInput.cls.xml
===================================================================
diff -u
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001/LosseComponentenZRF/VerpakkingOnderdeelInput.cls.xml	(revision 0)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001/LosseComponentenZRF/VerpakkingOnderdeelInput.cls.xml	(revision 55691)
@@ -0,0 +1,34 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.VerpakkingOnderdeelInput">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="Naam">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="ProductID">
+<Type>DOM.common.ProductID</Type>
+</Property>
+
+<Property name="Aantal">
+<Type>%Integer</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Naam:TECH.String="",ProductID:DOM.common.ProductID,Aantal:%Integer=1</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..Naam = Naam
+	Set ..ProductID = ProductID
+	Set ..Aantal = Aantal
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001/LosseComponentenZRF/DoosBepaler.cls.xml
===================================================================
diff -u
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001/LosseComponentenZRF/DoosBepaler.cls.xml	(revision 0)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001/LosseComponentenZRF/DoosBepaler.cls.xml	(revision 55691)
@@ -0,0 +1,60 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.DoosBepaler">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="GeefDoosProductId">
+<FormalSpec>LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim LengteVanComponent As %Decimal = ..GeefLengteVanComponent(LadeOnderdeel)
+	
+	Quit ..GeefDoosProductIdVolgensLengteVanComponent(LengteVanComponent)
+]]></Implementation>
+</Method>
+
+<Method name="GeefLengteVanComponent">
+<FormalSpec>LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Decimal</ReturnType>
+<Implementation><![CDATA[
+	#dim LengteVanComponent As %Decimal = 0
+	
+	If ((LadeOnderdeel.GeefRol() = ##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Front()) || 
+		(LadeOnderdeel.GeefRol() = ##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Rug())) {
+		Set LengteVanComponent = LadeOnderdeel.GeefBreedteInMM()
+	} ElseIf (LadeOnderdeel.GeefRol() = ##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Zijkant()) {
+		Set LengteVanComponent = LadeOnderdeel.GeefLengteInMM()
+	}
+	
+	Quit LengteVanComponent
+]]></Implementation>
+</Method>
+
+<Method name="GeefDoosProductIdVolgensLengteVanComponent">
+<FormalSpec>LengteVanComponent:%Decimal</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#define VPKDOOS390TAXBLKB    2134172
+	#define VPKDOOS590TAXBLKB    1865973
+	#define VPKDOOS760TAXBLKB    1865974
+	#define VPKDOOS1180TAXBLKB   1865975
+	
+	#dim DoosProductId As %String = ""
+	
+	If (LengteVanComponent     <=  375) { Set DoosProductId = $$$VPKDOOS390TAXBLKB  } 
+	ElseIf (LengteVanComponent <=  575) { Set DoosProductId = $$$VPKDOOS590TAXBLKB  } 
+	ElseIf (LengteVanComponent <=  745) { Set DoosProductId = $$$VPKDOOS760TAXBLKB  } 
+	ElseIf (LengteVanComponent <= 1165) { Set DoosProductId = $$$VPKDOOS1180TAXBLKB } 
+	Else {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Componentlengtes van meer dan 1165 mm zijn niet voorzien. Lengte van huidige component: '"_LengteVanComponent_"'"))
+	}
+	
+	Quit DoosProductId
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001/LosseComponentenZRF/DoosConfiguratieBepalerRug.cls.xml
===================================================================
diff -u
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001/LosseComponentenZRF/DoosConfiguratieBepalerRug.cls.xml	(revision 0)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001/LosseComponentenZRF/DoosConfiguratieBepalerRug.cls.xml	(revision 55691)
@@ -0,0 +1,38 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.DoosConfiguratieBepalerRug">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="VoegToeBuildersVoorRug">
+<FormalSpec>LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken,Hoeveelheid:TECH.Integer</FormalSpec>
+<Implementation><![CDATA[
+	;#dim BuilderInput As DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdInput = ..GeefBuilderInput(LadeOnderdeel, Benaming)
+
+	;Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerd).%New(..HalffabItemBuilder, BuilderInput))
+	
+	Quit
+]]></Implementation>
+</Method>
+
+<Method name="GeefBuilderInput">
+<FormalSpec>LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel,Benaming:DOM.PM.Verpakking.enu.BenamingVerpakkingsOnderdeel,Orientatie:TECH.enu.Orientation=""</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdInput</ReturnType>
+<Implementation><![CDATA[
+	/*
+	#dim BuilderInput As DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdInput = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001BulkPerOnderdeelGegroepeerdInput).%New(LadeOnderdeel, ..Hoeveelheid)
+	
+	#dim DoosBerekenaarInput As DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponenten.DoosBerekenaarInput = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponenten.DoosBerekenaarInput).%New(LadeOnderdeel, ..Hoeveelheid, Benaming)
+	
+	Do:$$$Not(Orientatie = "") ..DoosBerekenaar.ZetVlakOrientatie(Orientatie)
+	Do BuilderInput.ZetVerpakkingen(..DoosBerekenaar.GeefVerpakkingen(DoosBerekenaarInput))
+	
+	Quit BuilderInput
+	*/
+	Quit
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001/LosseComponentenZRF/DoosBepaler/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001/LosseComponentenZRF/DoosBepaler/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001/LosseComponentenZRF/DoosBepaler/Test.cls.xml	(revision 55691)
@@ -0,0 +1,148 @@
+<?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.DoosBepaler.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="VPKDOOS390TAXBLKB">
+<Type>%String</Type>
+<Default>2134172</Default>
+</Parameter>
+
+<Parameter name="VPKDOOS590TAXBLKB">
+<Type>%String</Type>
+<Default>1865973</Default>
+</Parameter>
+
+<Parameter name="VPKDOOS760TAXBLKB">
+<Type>%String</Type>
+<Default>1865974</Default>
+</Parameter>
+
+<Parameter name="VPKDOOS1180TAXBLKB">
+<Type>%String</Type>
+<Default>1865975</Default>
+</Parameter>
+
+<Method name="Test: Doos is VPKDOOS390TAXBLKB - langste component">
+<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())
+	Do FrontLadeOnderdeelStub.IndienMethodCall("GeefBreedteInMM").DanReturn(375)
+	
+	#dim DoosBepaler As DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.DoosBepaler = ..GeefDoosBepaler()
+	
+	#dim DoosProductId As %String = DoosBepaler.GeefDoosProductId(FrontLadeOnderdeelStub)
+	
+	Do $$$AssertEquals(DoosProductId, ..#VPKDOOS390TAXBLKB)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Doos is VPKDOOS590TAXBLKB - kortste component">
+<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())
+	Do FrontLadeOnderdeelStub.IndienMethodCall("GeefBreedteInMM").DanReturn(376)
+	
+	#dim DoosBepaler As DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.DoosBepaler = ..GeefDoosBepaler()
+	
+	#dim DoosProductId As %String = DoosBepaler.GeefDoosProductId(FrontLadeOnderdeelStub)
+	
+	Do $$$AssertEquals(DoosProductId, ..#VPKDOOS590TAXBLKB)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Doos is VPKDOOS590TAXBLKB - langste component">
+<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())
+	Do FrontLadeOnderdeelStub.IndienMethodCall("GeefBreedteInMM").DanReturn(575)
+	
+	#dim DoosBepaler As DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.DoosBepaler = ..GeefDoosBepaler()
+	
+	#dim DoosProductId As %String = DoosBepaler.GeefDoosProductId(FrontLadeOnderdeelStub)
+	
+	Do $$$AssertEquals(DoosProductId, ..#VPKDOOS590TAXBLKB)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Doos is VPKDOOS760TAXBLKB - kortste component">
+<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())
+	Do FrontLadeOnderdeelStub.IndienMethodCall("GeefBreedteInMM").DanReturn(576)
+	
+	#dim DoosBepaler As DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.DoosBepaler = ..GeefDoosBepaler()
+	
+	#dim DoosProductId As %String = DoosBepaler.GeefDoosProductId(FrontLadeOnderdeelStub)
+	
+	Do $$$AssertEquals(DoosProductId, ..#VPKDOOS760TAXBLKB)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Doos is VPKDOOS760TAXBLKB - langste component">
+<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())
+	Do FrontLadeOnderdeelStub.IndienMethodCall("GeefBreedteInMM").DanReturn(745)
+	
+	#dim DoosBepaler As DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.DoosBepaler = ..GeefDoosBepaler()
+	
+	#dim DoosProductId As %String = DoosBepaler.GeefDoosProductId(FrontLadeOnderdeelStub)
+	
+	Do $$$AssertEquals(DoosProductId, ..#VPKDOOS760TAXBLKB)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Doos is VPKDOOS1180TAXBLKB - kortste component">
+<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())
+	Do FrontLadeOnderdeelStub.IndienMethodCall("GeefBreedteInMM").DanReturn(746)
+	
+	#dim DoosBepaler As DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.DoosBepaler = ..GeefDoosBepaler()
+	
+	#dim DoosProductId As %String = DoosBepaler.GeefDoosProductId(FrontLadeOnderdeelStub)
+	
+	Do $$$AssertEquals(DoosProductId, ..#VPKDOOS1180TAXBLKB)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Doos is VPKDOOS1180TAXBLKB - langste component">
+<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())
+	Do FrontLadeOnderdeelStub.IndienMethodCall("GeefBreedteInMM").DanReturn(1165)
+	
+	#dim DoosBepaler As DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.DoosBepaler = ..GeefDoosBepaler()
+	
+	#dim DoosProductId As %String = DoosBepaler.GeefDoosProductId(FrontLadeOnderdeelStub)
+	
+	Do $$$AssertEquals(DoosProductId, ..#VPKDOOS1180TAXBLKB)
+]]></Implementation>
+</Method>
+
+<Method name="Test: Component langer dan 1165 geeft exception">
+<Implementation><![CDATA[
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Componentlengtes van meer dan 1165 mm zijn niet voorzien. Lengte van huidige component: ")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(..E.InvalidInputException,Substrings))
+	
+	#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())
+	Do FrontLadeOnderdeelStub.IndienMethodCall("GeefBreedteInMM").DanReturn(1166)
+	
+	#dim DoosBepaler As DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.DoosBepaler = ..GeefDoosBepaler()
+	
+	#dim DoosProductId As %String = DoosBepaler.GeefDoosProductId(FrontLadeOnderdeelStub)
+]]></Implementation>
+</Method>
+
+<Method name="GeefDoosBepaler">
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.DoosBepaler</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.DoosBepaler).%New()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001/LosseComponentenZRF/VerpakkingOnderdeelBuilder.cls.xml
===================================================================
diff -u
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001/LosseComponentenZRF/VerpakkingOnderdeelBuilder.cls.xml	(revision 0)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001/LosseComponentenZRF/VerpakkingOnderdeelBuilder.cls.xml	(revision 55691)
@@ -0,0 +1,52 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.VerpakkingOnderdeelBuilder">
+<Super>DOM.PM.Maatwerk.Calc.HF.IHalffabItemBuilder</Super>
+
+<Property name="Input">
+<Type>DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.VerpakkingOnderdeelInput</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>SamengesteldHalffabItemBuilder:DOM.PM.Maatwerk.Calc.HF.ISamengesteldHalffabItemBuilder,Input:DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.LosseComponentenZRF.VerpakkingOnderdeelInput</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Input = Input
+	Set ..Rol = Input.Naam
+	Quit ##super(SamengesteldHalffabItemBuilder)
+]]></Implementation>
+</Method>
+
+<Method name="GeefHalffabListToItemProcessor">
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.IHalffabListToItemProcessor</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.PM.Maatwerk.Calc.HF.impl.Processor.HFItemProcessorExactEen).%New()
+]]></Implementation>
+</Method>
+
+<Method name="BerekenHalffabLijst">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Context:DOM.PM.Maatwerk.Calc.HF.HalffabContext</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<ReturnTypeParams>ELEMENTTYPE="DOM.PM.Maatwerk.Calc.HF.Halffab"</ReturnTypeParams>
+<Implementation><![CDATA[
+	Set Lijst = ##class(%ListOfObjects).%New()
+	Do Lijst.Insert(##class(DOM.PM.Maatwerk.Calc.HF.Halffab).%New(..Input.ProductID))
+	Quit Lijst
+]]></Implementation>
+</Method>
+
+<Method name="PostProcessHalffabItem">
+<FormalSpec><![CDATA[&HalffabItem:DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Context:DOM.PM.Maatwerk.Calc.HF.HalffabContext,&HalffabList:%ListOfObjects]]></FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(HalffabItem, IngegevenKenmerken, Context, .HalffabList)
+	Do HalffabItem.ZetOmschrijvingVoorDocs(..GeefRol()_" (VTL)")
+	Set HalffabItem.Aantal = ..Input.Aantal
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>