Index: DOM/PM/Maatwerk/RVG/impl/BouwsteenCreatorLosseComponenten.cls.xml
===================================================================
diff -u -r69234 -r69245
--- DOM/PM/Maatwerk/RVG/impl/BouwsteenCreatorLosseComponenten.cls.xml	(.../BouwsteenCreatorLosseComponenten.cls.xml)	(revision 69234)
+++ DOM/PM/Maatwerk/RVG/impl/BouwsteenCreatorLosseComponenten.cls.xml	(.../BouwsteenCreatorLosseComponenten.cls.xml)	(revision 69245)
@@ -10,11 +10,89 @@
 	While (HalffabItemIt.HasNext())
 	{
 		#dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = HalffabItemIt.Next()
-		Set ..AantalKinderen = ..AantalKinderen + 1
-		;Set ^PRBS(..BSNode,..PRNr,"KIND."_##class(TECH.StringUtils).AlignRight(..AantalKinderen,"0",3)) = Product.GeefID()_"\"_Item.Aantal_"\K\\\\\\\\PROD"
+		Do HalffabItem.Accept(##this)
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="VerwerkStandaardHalffabItem">
+<FormalSpec>Item:DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ..MaakProductBouwsteen(Item)
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkInbegrepenHalffabItem">
+<FormalSpec>Item:DOM.PM.Maatwerk.Calc.HF.InbegrepenHalffabItem</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkMaatwerkProductHalffabItem">
+<FormalSpec>Item:DOM.PM.Maatwerk.Calc.HF.MaatwerkProductHalffabItem</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New("MaatwerkProductHalffabItem is nog niet geïmplementeerd in de RVG klasse BouwsteenCreatorLosseComponenten."))
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkSamengesteldHalffabItem">
+<FormalSpec>Item:DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	#dim Iterator As TECH.Iterator = Item.GeefHalffabItemsIterator()
+	While (Iterator.HasNext())
+	{
+		#dim HFItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = Iterator.Next()
+		If ('HFItem.%Extends("DOM.PM.Maatwerk.Calc.HF.InbegrepenHalffabItem"))
+		{ 
+			If (HFItem.%Extends("DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem"))
+			{
+				Do HFItem.Accept(##this)
+			}
+			ElseIf ('HFItem.%Extends("DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem"))
+			{
+				Do ..MaakProductBouwsteen(HFItem, 0)
+			}
+			Else
+			{
+				Do ..VerwerkBewerktHalffabItem(HFItem)
+			}
+		}
+	}
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkBewerktHalffabItem">
+<FormalSpec>Item:DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem,SamengesteldeRol:%String=""</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New("BewerktHalffabItem is nog niet geïmplementeerd in de RVG klasse BouwsteenCreatorLosseComponenten."))
+]]></Implementation>
+</Method>
+
+<Method name="MaakProductBouwsteen">
+<FormalSpec>HalffabItem:DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem,IsBewerkt:%Boolean=0</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Aantal As %Integer 
+	/*
+	If (IsBewerkt) {
+		Set Aantal = HalffabItem.GeefAantalVoorBouwstenen()
+	} Else {
+	*/
+	Set Aantal = HalffabItem.Aantal
+	;}
+	
+	#dim ProductId As %String = HalffabItem.GeefHalffab().GeefProductID()
+	Set ..AantalKinderen = ..AantalKinderen + 1
+	
+	Set ^PRBS(..BSNode,..PRNr,"KIND."_##class(TECH.StringUtils).AlignRight(..AantalKinderen,"0",3)) = ProductId _"\"_ Aantal _"\K\\\\\\\\PROD"
+]]></Implementation>
+</Method>
 </Class>