Index: DOM/PM/Maatwerk/Calc/HF/impl/LBX/Builder/HalffabItemVoorV1Maker.cls.xml
===================================================================
diff -u -r57137 -r57178
--- DOM/PM/Maatwerk/Calc/HF/impl/LBX/Builder/HalffabItemVoorV1Maker.cls.xml	(.../HalffabItemVoorV1Maker.cls.xml)	(revision 57137)
+++ DOM/PM/Maatwerk/Calc/HF/impl/LBX/Builder/HalffabItemVoorV1Maker.cls.xml	(.../HalffabItemVoorV1Maker.cls.xml)	(revision 57178)
@@ -3,28 +3,71 @@
 <Class name="DOM.PM.Maatwerk.Calc.HF.impl.LBX.Builder.HalffabItemVoorV1Maker">
 <Super>TECH.RegisteredObject</Super>
 
+<Property name="Context">
+<Type>DOM.PM.Maatwerk.Calc.HF.HalffabContext</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Rol">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="RolVoorProductieDocs">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="HalffabItemViaHalffabSelectie">
+<Type>DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Aantal">
+<Type>TECH.Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ResultaatHalffabItem">
+<Type>DOM.PM.Maatwerk.Calc.HF.IHalffabItem</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="GeefHalffabItemUitV1Ladezijkant">
 <FormalSpec>Context:DOM.PM.Maatwerk.Calc.HF.HalffabContext,Rol:%String,RolVoorProductieDocs:%String,HalffabItemViaHalffabSelectie:DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem="",Aantal:TECH.Integer=2</FormalSpec>
 <ReturnType>DOM.PM.Maatwerk.Calc.HF.IHalffabItem</ReturnType>
 <Implementation><![CDATA[
-	#dim ResultaatHalffabItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem
-	#dim Ladezijkant As DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem = ..GeefLadeZijkantLinks(Context)
+	Set ..Context = Context
+	Set ..Rol = Rol
+	Set ..RolVoorProductieDocs = RolVoorProductieDocs
+	Set ..HalffabItemViaHalffabSelectie = HalffabItemViaHalffabSelectie
+	Set ..Aantal = Aantal
+	Set ..ResultaatHalffabItem = ""
 	
+	#dim Ladezijkant As DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem  = ..GeefLadeZijkantLinks(Context)
+	
 	If (..ZijnAfdekkappenInbegrepen(Ladezijkant)) {
-		Set ResultaatHalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.InbegrepenHalffabItem).%New(Context, Rol)
-		Set ResultaatHalffabItem.HalffabItem = Ladezijkant
-		Set ResultaatHalffabItem.Aantal = Aantal
-		If (HalffabItemViaHalffabSelectie '= "") {
-			Do ResultaatHalffabItem.ZetOmschrijvingVoorDocs(HalffabItemViaHalffabSelectie.GeefOmschrijvingVoorDocs() _ " (uit V1 ladezijkant)")
-			Do ResultaatHalffabItem.ZetOmschrijvingVoorPicking(HalffabItemViaHalffabSelectie.GeefOmschrijvingVoorPicking() _ " (uit V1 ladezijkant)")
-		} Else {
-			Do ResultaatHalffabItem.ZetOmschrijvingVoorDocs(RolVoorProductieDocs _ " uit V1 ladezijkant halen")
-			Do ResultaatHalffabItem.ZetOmschrijvingVoorPicking(ResultaatHalffabItem.GeefOmschrijvingVoorDocs())
-		}
+		Set ..ResultaatHalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.InbegrepenHalffabItem).%New(..Context, ..Rol)
+		Set ..ResultaatHalffabItem.HalffabItem = Ladezijkant
+		Set ..ResultaatHalffabItem.Aantal = ..Aantal
+
+		Do ..ZetHalffabItemDetails()
+	}
+		
+	Quit ..ResultaatHalffabItem
+]]></Implementation>
+</Method>
+
+<Method name="ZetHalffabItemDetails">
+<Private>1</Private>
+<Implementation><![CDATA[
+	If (..HalffabItemViaHalffabSelectie '= "") {
+		Do ..ResultaatHalffabItem.ZetOmschrijvingVoorDocs(..HalffabItemViaHalffabSelectie.GeefOmschrijvingVoorDocs() _ " (uit V1 ladezijkant)")
+		Do ..ResultaatHalffabItem.ZetOmschrijvingVoorPicking(..HalffabItemViaHalffabSelectie.GeefOmschrijvingVoorPicking() _ " (uit V1 ladezijkant)")
 	} Else {
-		Set ResultaatHalffabItem = ""
+		Do ..ResultaatHalffabItem.ZetOmschrijvingVoorDocs(..RolVoorProductieDocs _ " uit V1 ladezijkant halen")
+		Do ..ResultaatHalffabItem.ZetOmschrijvingVoorPicking(..ResultaatHalffabItem.GeefOmschrijvingVoorDocs())
 	}
-	Quit ResultaatHalffabItem
 ]]></Implementation>
 </Method>