Index: WSimpl/PM/Maatwerk/MaatwerkService/DotNet/HalffabrikatenFromJsonNaarDomConverter.cls.xml
===================================================================
diff -u -r67488 -r67490
--- WSimpl/PM/Maatwerk/MaatwerkService/DotNet/HalffabrikatenFromJsonNaarDomConverter.cls.xml	(.../HalffabrikatenFromJsonNaarDomConverter.cls.xml)	(revision 67488)
+++ WSimpl/PM/Maatwerk/MaatwerkService/DotNet/HalffabrikatenFromJsonNaarDomConverter.cls.xml	(.../HalffabrikatenFromJsonNaarDomConverter.cls.xml)	(revision 67490)
@@ -162,11 +162,13 @@
 		
 		If ($$$Not(HalffabItemParsedFromJson.RolNaamParent = "") && $$$Not(HalffabItemParsedFromJson.RolNaamParent = "Links")) {
 			#dim ParentHalffabItem As DOM.PM.Maatwerk.Calc.HF.Halffab = ..HalffabItemsBoom.GeefHalffabItem(HalffabItemParsedFromJson.RolNaamParent)
-
-			If (HalffabInbegrepen.%Extends("DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem")) {
+			
+			If (ParentHalffabItem.%Extends("DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem")) {
 				Set HalffabItem.HalffabItem = ParentHalffabItem
-			} Else {
+			} ElseIf (ParentHalffabItem.%Extends("DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem")) {
 				Set HalffabItem.HalffabItem = ParentHalffabItem.HalffabItems.GetAt(1)	
+			} Else {
+				Do ##class(TECH.Exceptions.UnimplementedException).Throw("Geen implementatie voor een InbegrepenHalffabitem dat niet afleidt van het Concreet- of SamengesteldHalffabItem")
 			}
 		}
 		
@@ -216,7 +218,12 @@
 	}
 	
 	If (..IsRolOpTeNemenInHalffabItemsLookup(HF.Rol) || (Classname = "DOM.PM.Maatwerk.Calc.HF.MaatwerkProductHalffabItem")) {
-		Do:($IsObject(HalffabItem)) ..HalffabItemsBoom.AddHalffabItem(HalffabItem)
+		If (HF.Rol = "BoxCoverVoor") {
+			If ($IsObject(HalffabItem)) {
+				Do ##class(Tools.Wlip).%New(26).String("Rol: "_ HF.Rol _ " Wordt toegevoegd")
+			}	
+		}
+		Do:($IsObject(HalffabItem)) ..HalffabItemsBoom.AddHalffabItem(HalffabItem)	
 		
 	}