Index: APPS/PM/Maatwerk/impl/VhConfig/Converter/HalffabItemsBoom.cls.xml
===================================================================
diff -u -r73866 -r73920
--- APPS/PM/Maatwerk/impl/VhConfig/Converter/HalffabItemsBoom.cls.xml	(.../HalffabItemsBoom.cls.xml)	(revision 73866)
+++ APPS/PM/Maatwerk/impl/VhConfig/Converter/HalffabItemsBoom.cls.xml	(.../HalffabItemsBoom.cls.xml)	(revision 73920)
@@ -84,19 +84,24 @@
 <FormalSpec>RolnaamVoorEncoway:%String,Halffabrikaat:APPS.PM.Maatwerk.dto.VhConfig.Halffabrikaat</FormalSpec>
 <Implementation><![CDATA[
 	#dim SGHalffabItem As DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem
+	#dim SGSstHalffabItem As DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem
 	#dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem
 	#dim IsDeelVanSamengesteldHalffabItem As %Boolean = $$$False
+	#dim IsDeelVanSSTVerpakkingSamengesteldHalffabItem As %Boolean = $$$False
 	
 	#dim RolnaamVoorCache As %String = ..RolnaamProcessor.GeefRolnaamVoorCache(RolnaamVoorEncoway)
-	
 	If ((##class(TECH.StringUtils).Contains(RolnaamVoorCache, ".")) || ..RolnaamProcessor.IsResultaatVanGekoppeldKenmerk(RolnaamVoorCache)) {
 		#dim SGRol As %String = ""
 		If (..RolnaamProcessor.IsResultaatVanGekoppeldKenmerk(RolnaamVoorCache)) {
+			If ((..RolnaamProcessor.IsGekoppeldeSST(RolnaamVoorCache)) && (##class(TECH.StringUtils).Contains(RolnaamVoorCache, "SST.Verpakking"))) {
+				Set IsDeelVanSSTVerpakkingSamengesteldHalffabItem = $$$True
+			}
+			
 			Set SGRol = ..RolnaamProcessor.GeefRolnaamVanGekoppeldKenmerk(RolnaamVoorCache)
 		} Else {
 			Set SGRol = $Piece(RolnaamVoorCache, ".", 1)
 		}
-		
+
 		Set IsDeelVanSamengesteldHalffabItem = $$$True
 		
 		If $$$Not(..HalffabItemsBoom.BevatRol(SGRol)) {
@@ -105,13 +110,23 @@
 		} Else {
 			Set SGHalffabItem = ..HalffabItemsBoom.GeefHalffabItem(SGRol)
 		}
+		
+		If (IsDeelVanSSTVerpakkingSamengesteldHalffabItem) {
+			If ($$$Not($IsObject(SGHalffabItem.GeefHalffabItem("Verpakking")))) {
+				Set SGSstHalffabItem = ..GeefSamengesteldHalffabItem("Verpakking")
+				Do SGHalffabItem.VoegToe(SGSstHalffabItem)
+			} Else {
+				Set SGSstHalffabItem = SGHalffabItem.GeefHalffabItem("Verpakking")
+			}
+		}
 
 		If (..RolnaamProcessor.IsResultaatVanGekoppeldKenmerk(RolnaamVoorCache)) {
 			If (..RolnaamProcessor.IsGekoppeldeMat(RolnaamVoorCache)) {
 				Set RolnaamVoorCache = $Piece(RolnaamVoorCache, ".", 1)	
 			}
 			If (..RolnaamProcessor.IsGekoppeldeSST(RolnaamVoorCache)) {
-				Set RolnaamVoorCache = $Piece(RolnaamVoorCache, ".", 2)
+				If (IsDeelVanSSTVerpakkingSamengesteldHalffabItem) { Set RolnaamVoorCache = $Piece(RolnaamVoorCache, ".", 3) }
+				Else { Set RolnaamVoorCache = $Piece(RolnaamVoorCache, ".", 2) }
 			}
 		} Else {
 			Set RolnaamVoorCache = $Piece(RolnaamVoorCache, ".", 2)
@@ -130,9 +145,14 @@
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New("Halffabrikaat type '"_ Halffabrikaat.Type _"'	wordt niet ondersteund."))
 	}
 	
+
 	If (IsDeelVanSamengesteldHalffabItem) {
-		Do SGHalffabItem.VoegToe(HalffabItem)
-		Do ..HalffabItemsBoom.AddHalffabItem(SGHalffabItem)
+		If (IsDeelVanSSTVerpakkingSamengesteldHalffabItem) {
+			Do SGSstHalffabItem.VoegToe(HalffabItem)
+		} Else {
+			Do SGHalffabItem.VoegToe(HalffabItem)
+			Do ..HalffabItemsBoom.AddHalffabItem(SGHalffabItem)
+		}
 	} Else {
 		Do ..HalffabItemsBoom.AddHalffabItem(HalffabItem)
 	}