Index: APPS/PM/Maatwerk/impl/VhConfig/Converter/HalffabItemsBoom.cls.xml
===================================================================
diff -u -r73541 -r73559
--- APPS/PM/Maatwerk/impl/VhConfig/Converter/HalffabItemsBoom.cls.xml	(.../HalffabItemsBoom.cls.xml)	(revision 73541)
+++ APPS/PM/Maatwerk/impl/VhConfig/Converter/HalffabItemsBoom.cls.xml	(.../HalffabItemsBoom.cls.xml)	(revision 73559)
@@ -49,13 +49,27 @@
 	Set ..HalffabContext = ##class(DOM.PM.Maatwerk.Calc.HF.DotNetHalffabContext).%New(..VhConfigHelper.GeefIngegevenKenmerken().GeefFamilie(), ..VhConfigHelper.GeefIngegevenKenmerken().GeefVariant())
 	Set ..HalffabItemsBoom = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New()
 	
+	#dim Halffabrikaat As APPS.PM.Maatwerk.dto.VhConfig.Halffabrikaat = ""
+	#dim Rol As %String = ""
 	While HalffabrikatenListIterator.HasNext()
 	{
-		#dim Halffabrikaat As APPS.PM.Maatwerk.dto.VhConfig.Halffabrikaat = HalffabrikatenListIterator.Next()
-		#dim Rol As %String = HalffabrikatenListIterator.Key()
-		Do ..VoegToeHalffabrikaat(Rol, Halffabrikaat)
+		Set Halffabrikaat = HalffabrikatenListIterator.Next()
+		If ($$$Not(Halffabrikaat.Type = "Inbegrepen")) {
+			Set Rol = HalffabrikatenListIterator.Key()
+			Do ..VoegToeHalffabrikaat(Rol, Halffabrikaat)
+		}		
 	}
 	
+	Do HalffabrikatenListIterator.Reset()
+	While HalffabrikatenListIterator.HasNext()
+	{
+		Set Halffabrikaat = HalffabrikatenListIterator.Next()
+		If (Halffabrikaat.Type = "Inbegrepen") {
+			Set Rol = HalffabrikatenListIterator.Key()
+			Do ..VoegToeHalffabrikaat(Rol, Halffabrikaat)
+		}		
+	}
+	
 	Quit ..HalffabItemsBoom
 ]]></Implementation>
 </Method>
@@ -84,9 +98,14 @@
 		} Else {
 			Set SGHalffabItem = ..HalffabItemsBoom.GeefHalffabItem(SGRol)
 		}
-		
+
 		If (..IsResultaatVanGekoppeldKenmerk(RolnaamVoorCache)) {
-			Set RolnaamVoorCache = $Piece(RolnaamVoorCache, ".", 1)
+			If (..IsGekoppeldeMat(RolnaamVoorCache)) {
+				Set RolnaamVoorCache = $Piece(RolnaamVoorCache, ".", 1)	
+			}
+			If (..IsGekoppeldeSST(RolnaamVoorCache)) {
+				Set RolnaamVoorCache = $Piece(RolnaamVoorCache, ".", 2)
+			}
 		} Else {
 			Set RolnaamVoorCache = $Piece(RolnaamVoorCache, ".", 2)
 		}
@@ -177,12 +196,16 @@
 <Private>1</Private>
 <ReturnType>DOM.PM.Maatwerk.Calc.HF.InbegrepenHalffabItem</ReturnType>
 <Implementation><![CDATA[
-	#dim Halffab As DOM.PM.Maatwerk.Calc.HF.Halffab = ..GeefHalffab(Halffabrikaat, RolnaamVoorEncoway)
-	Set HalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.InbegrepenHalffabItem).%New(..HalffabContext, RolnaamVoorCache, Halffab)
+	Set HalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.InbegrepenHalffabItem).%New(..HalffabContext, RolnaamVoorCache)
 	
+	#dim RolnaamParent As %String = Halffabrikaat.RolnaamParent
+	Set:(##class(TECH.StringUtils).Contains(RolnaamParent, ".")) RolnaamParent = ##class(TECH.StringUtils).Replace(RolnaamParent, ".", "->")
+	#dim ReferentieHalffabItem As DOM.PM.Maatwerk.Calc.HF.Halffab = ..HalffabItemsBoom.GeefHalffabItem(RolnaamParent)
+	
 	Set HalffabItem.Aantal 							= +(Halffabrikaat.Aantal) //TO DO PVR: Moet aantal op 0?? Encoway stuurt niet 0 mee		
 	Set HalffabItem.OpnemenInEindproduct 			= Halffabrikaat.OpnemenInEindproduct
 	Set HalffabItem.ProductieRoute 					= Halffabrikaat.ProductieRoute
+	Set HalffabItem.HalffabItem = ReferentieHalffabItem
 	Do HalffabItem.ZetOmschrijvingVoorDocs(Halffabrikaat.OmschrijvingVoorDocs)
 	Do HalffabItem.ZetOmschrijvingVoorPicking(Halffabrikaat.OmschrijvingVoorPicking)
 	
@@ -255,27 +278,46 @@
 <Implementation><![CDATA[
 	#dim IsGekoppeldKenmerk As %Boolean = $$$False
 	
-	//IsGekoppeldeMat
-	If (RolNaam = "Mat") {
+	If (..IsGekoppeldeMat(RolNaam)) {
 		Set IsGekoppeldKenmerk = $$$True
 	}
-	//IsGekoppeldeSST
+
+	If ..IsGekoppeldeSST(RolNaam) {
+		Set IsGekoppeldKenmerk = $$$True
+	}
 	
 	
 	Quit IsGekoppeldKenmerk
 ]]></Implementation>
 </Method>
 
+<Method name="IsGekoppeldeMat">
+<FormalSpec>RolNaam:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit RolNaam = "Mat"
+]]></Implementation>
+</Method>
+
+<Method name="IsGekoppeldeSST">
+<FormalSpec>RolNaam:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.StringUtils).StartsWith(RolNaam, "SST")
+]]></Implementation>
+</Method>
+
 <Method name="GeefRolnaamVanGekoppeldKenmerk">
 <FormalSpec>RolNaam:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim RolNaamGekoppeldKenmerk As %String = ""
-	
-	//GekoppeldeMat
-	If (RolNaam = "Mat") {
+		
+	If (..IsGekoppeldeMat()) {
 		Set RolNaamGekoppeldKenmerk = "MAT_Standaard_MatX"
+	} ElseIf (..IsGekoppeldeSST()) {
+		Set RolNaamGekoppeldKenmerk = "SpaceStep_SpaceStep"
 	} Else {
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New("Rolnaam voor gekoppeld kenmerk kan niet bepaald worden voor rol '" _ RolNaam _ "'"))	
 	}