Index: APPS/PM/Maatwerk/impl/VhConfig/Converter/HalffabItemsBoom.cls.xml
===================================================================
diff -u -r72865 -r72869
--- APPS/PM/Maatwerk/impl/VhConfig/Converter/HalffabItemsBoom.cls.xml	(.../HalffabItemsBoom.cls.xml)	(revision 72865)
+++ APPS/PM/Maatwerk/impl/VhConfig/Converter/HalffabItemsBoom.cls.xml	(.../HalffabItemsBoom.cls.xml)	(revision 72869)
@@ -56,8 +56,6 @@
 		Do ..VoegToeHalffabrikaat(Rol, Halffabrikaat)
 	}
 	
-	//Do ..VoegToeVerwijderdeHalffabItems()
-	
 	Quit ..HalffabItemsBoom
 ]]></Implementation>
 </Method>
@@ -130,7 +128,7 @@
 <Private>1</Private>
 <ReturnType>DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem</ReturnType>
 <Implementation><![CDATA[
-	#dim Halffab As DOM.PM.Maatwerk.Calc.HF.Halffab = ..GeefHalffab(Halffabrikaat)
+	#dim Halffab As DOM.PM.Maatwerk.Calc.HF.Halffab = ..GeefHalffab(Halffabrikaat, Rol)
 	Set HalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New(..HalffabContext, ..GeefRolnaamVoorCache(Rol), Halffab)
 	
 	Set HalffabItem.Aantal 							= +(Halffabrikaat.Aantal)
@@ -151,7 +149,7 @@
 <Private>1</Private>
 <ReturnType>DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem</ReturnType>
 <Implementation><![CDATA[
-	#dim Halffab As DOM.PM.Maatwerk.Calc.HF.Halffab = ..GeefHalffab(Halffabrikaat)
+	#dim Halffab As DOM.PM.Maatwerk.Calc.HF.Halffab = ..GeefHalffab(Halffabrikaat, Rol)
 	Set HalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem).%New(..HalffabContext, ..GeefRolnaamVoorCache(Rol), Halffab)
 	
 	Set HalffabItem.Aantal 							= +(Halffabrikaat.Aantal)
@@ -184,7 +182,7 @@
 <Private>1</Private>
 <ReturnType>DOM.PM.Maatwerk.Calc.HF.InbegrepenHalffabItem</ReturnType>
 <Implementation><![CDATA[
-	#dim Halffab As DOM.PM.Maatwerk.Calc.HF.Halffab = ..GeefHalffab(Halffabrikaat)
+	#dim Halffab As DOM.PM.Maatwerk.Calc.HF.Halffab = ..GeefHalffab(Halffabrikaat, Rol)
 	Set HalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.InbegrepenHalffabItem).%New(..HalffabContext, ..GeefRolnaamVoorCache(Rol), Halffab)
 	
 	Set HalffabItem.Aantal 							= +(Halffabrikaat.Aantal) //TO DO PVR: Moet aantal op 0?? Encoway stuurt niet 0 mee		
@@ -206,13 +204,24 @@
 </Method>
 
 <Method name="GeefHalffab">
-<FormalSpec>Halffabrikaat:APPS.PM.Maatwerk.dto.VhConfig.Halffabrikaat</FormalSpec>
+<FormalSpec>Halffabrikaat:APPS.PM.Maatwerk.dto.VhConfig.Halffabrikaat,Rol:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>DOM.PM.Maatwerk.Calc.HF.Halffab</ReturnType>
 <Implementation><![CDATA[
 	#dim ProductID As %Integer = ..GeefIdentNummerVanHalffab(Halffabrikaat.ProductId)
-	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.Halffab).%New(ProductID)
+	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.Halffab.Generiek).%New(ProductID)
 	
+	Set Halffab.PpsKenmerken = $Select($$$HasLength(Halffabrikaat.PpsKenmerken): Halffabrikaat.PpsKenmerken, 1:##class(%ArrayOfDataTypes).%New())
+	
+	Set Halffab.LadeDiepte = Halffabrikaat.Kenmerken.GetAt("LadeDiepte")
+	Set Halffab.LadeHoogte = Halffabrikaat.Kenmerken.GetAt("LadeHoogte")
+	Set Halffab.LadeKleur = Halffabrikaat.Kenmerken.GetAt("LadeKleur")
+	Set Halffab.RugWandMateriaal = Halffabrikaat.Kenmerken.GetAt("RugwandMateriaal")
+	Set Halffab.VoorwandType = Halffabrikaat.Kenmerken.GetAt("VoorwandType")
+	
+	Set:(Rol = "RugHout") Halffab.RugWandMateriaal = "Hout"
+	Set:(Rol = "RugStaal") Halffab.RugWandMateriaal = "Staal"
+	
 	Quit Halffab
 ]]></Implementation>
 </Method>