Index: DOM/PM/impl/DataM/DataMProductCreator.cls.xml
===================================================================
diff -u -r62175 -r62928
--- DOM/PM/impl/DataM/DataMProductCreator.cls.xml	(.../DataMProductCreator.cls.xml)	(revision 62175)
+++ DOM/PM/impl/DataM/DataMProductCreator.cls.xml	(.../DataMProductCreator.cls.xml)	(revision 62928)
@@ -83,10 +83,11 @@
 	Set ..KostItem = KostItem
 	Set ..PRNr = $$$If($IsObject(ProductData), ProductData.PRNr, "")
 	Set ..DossierNummer = $$$If($IsObject(ProductData), ProductData.DossierNummer, "")
-
-	Set HalffabItemsBoomOnherwerktBepaler = ##class(DOM.PM.impl.HalffabItemsBoomOnherwerktBepaler).%New()
-	set ..HalffabItemsBoomOnHerwerkt = HalffabItemsBoomOnherwerktBepaler.InitieerHalffabItemsBoomOnherwerkt(..ProductSpecificatie.GeefIngegevenKenmerken())
 	
+	If $$$Not(ProductSpecificatie.GeefVariant() = ##class(DOM.PM.enu.Variant).Merivobox()) {
+		Set HalffabItemsBoomOnherwerktBepaler = ##class(DOM.PM.impl.HalffabItemsBoomOnherwerktBepaler).%New()
+		set ..HalffabItemsBoomOnHerwerkt = HalffabItemsBoomOnherwerktBepaler.InitieerHalffabItemsBoomOnherwerkt(..ProductSpecificatie.GeefIngegevenKenmerken())
+	}
 	// Bepaal het generisch PRNr, dit nummer wordt gebruikt om uit KPR een template op te halen
 	#dim GenerischPRNr As %String = ..GeefGenerischPRNr()
 	
Index: WSimpl/PM/Maatwerk/MaatwerkService/DotNet/KostItemFromJsonNaarDomConverter.cls.xml
===================================================================
diff -u -r62912 -r62928
--- WSimpl/PM/Maatwerk/MaatwerkService/DotNet/KostItemFromJsonNaarDomConverter.cls.xml	(.../KostItemFromJsonNaarDomConverter.cls.xml)	(revision 62912)
+++ WSimpl/PM/Maatwerk/MaatwerkService/DotNet/KostItemFromJsonNaarDomConverter.cls.xml	(.../KostItemFromJsonNaarDomConverter.cls.xml)	(revision 62928)
@@ -62,12 +62,20 @@
 	}
 	ElseIf Classname = "DOM.PM.Maatwerk.Calc.Kost.ActiviteitKostItem" {
 		Set KostItem = ##class(DOM.PM.Maatwerk.Calc.Kost.ActiviteitKostItem).%New(KI.Naam, KI.Kost, KI.Details, KI.Tijd, KI.KostenPlaatsID, KI.Aantal, KI.ActiviteitCode)
-		;Set KostItem.EventueelAanTeVullenProperties
-		;Do KostItem.EventueelUitTeVoerenMethods()
 	}
-	ElseIf Classname = "DOM.PM.Maatwerk.Calc.Kost. ...KostItem" {
-		/*  ... aan te vullen */ 
+	ElseIf Classname = "DOM.PM.Maatwerk.Calc.Kost.StandaardHalffabKostItem" {
+		Set KostItem = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardHalffabKostItem).%New(KI.Naam, KI.Kost, KI.Details)
 	}
+	ElseIf Classname = "DOM.PM.Maatwerk.Calc.Kost.BewerktHalffabKostItem" {
+		Set KostItem = ##class(DOM.PM.Maatwerk.Calc.Kost.BewerktHalffabKostItem).%New(KI.Naam, KI.Kost, KI.Details, "")	//halffabitem toevoegen aan constructor?
+	}
+	
+	ElseIf Classname = "DOM.PM.Maatwerk.Calc.Kost.ExtraKostItem" {
+		Set KostItem = ##class(DOM.PM.Maatwerk.Calc.Kost.ExtraKostItem).%New(KI.Naam, KI.Kost, KI.Details, KI.Aantal)
+	}
+	ElseIf Classname = "DOM.PM.Maatwerk.Calc.Kost.ProcentueelKostItem" {																//Procenten ingeven!!!!
+		Set KostItem = ##class(DOM.PM.Maatwerk.Calc.Kost.ProcentueelKostItem).%New(KI.Naam, KI.Kost, KI.Details, KI.Percentage, "") //KostItemOmPercentageOpTeRekenen
+	}
 	Else {
 		Do ##class(TECH.Exceptions.UnimplementedException).Throw("Geen implentatie voor kostitem klasse '"_Classname_"'")
 	}
Index: DOM/PM/Maatwerk/Calc/HF/ConcreetHalffabItem.cls.xml
===================================================================
diff -u -r36241 -r62928
--- DOM/PM/Maatwerk/Calc/HF/ConcreetHalffabItem.cls.xml	(.../ConcreetHalffabItem.cls.xml)	(revision 36241)
+++ DOM/PM/Maatwerk/Calc/HF/ConcreetHalffabItem.cls.xml	(.../ConcreetHalffabItem.cls.xml)	(revision 62928)
@@ -119,13 +119,21 @@
 			Set ..OmschrijvingVoorDocs = ..Rol
 		}
 		
-		Set ..GewichtPerStuk = ..Context.GeefGewichtInGram(Value.GeefProductID())
+		Set ..GewichtPerStuk = ..GeefGewichtInGram(Value.GeefProductID())
 	}
 	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
+<Method name="GeefGewichtInGram">
+<FormalSpec>ProductID:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(ProductID).GeefGewichtInGram()
+]]></Implementation>
+</Method>
+
 <Method name="ValideerHalffab">
 <FormalSpec>Halffab:DOM.PM.Maatwerk.Calc.HF.Halffab</FormalSpec>
 <Private>1</Private>
Index: WSimpl/PM/Maatwerk/MaatwerkService/DotNet/HalffabrikatenFromJsonNaarDomConverter.cls.xml
===================================================================
diff -u -r62912 -r62928
--- WSimpl/PM/Maatwerk/MaatwerkService/DotNet/HalffabrikatenFromJsonNaarDomConverter.cls.xml	(.../HalffabrikatenFromJsonNaarDomConverter.cls.xml)	(revision 62912)
+++ WSimpl/PM/Maatwerk/MaatwerkService/DotNet/HalffabrikatenFromJsonNaarDomConverter.cls.xml	(.../HalffabrikatenFromJsonNaarDomConverter.cls.xml)	(revision 62928)
@@ -52,8 +52,8 @@
 	#dim Classname As %String = ..ClassnameFromJsonNaarDomConverter.GeefCacheClassnameVoorHalffabItem(HalffabItemParsedFromJson)
 	
 	#dim HF As APPS.PM.Maatwerk.dto.DotNet.HalffabItemParsedFromJson = HalffabItemParsedFromJson
-	
-	If Classname = "DOM.PM.Maatwerk.Calc.HF.SamengesteldKostItem" {
+					
+	If Classname = "DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem" {
 		Set HalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem).%New("",HF.Rol)
 		Set HalffabItemIterator = ##class(TECH.ListIterator).%New(HalffabItemParsedFromJson.HalffabItems)
 		While (HalffabItemIterator.HasNext()) {
@@ -65,18 +65,19 @@
 	ElseIf Classname = "DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem" {
 		#dim Halffab As DOM.PM.Maatwerk.Calc.HF.Halffab = ..GeefHalffab(HalffabItemParsedFromJson)
 		Set HalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New("", HF.Rol, Halffab)
-		;Set HalffabItem.EventueelAanTeVullenProperties
-		;Do HalffabItem.EventueelUitTeVoerenMethods()
 		
 		Do ..HalffabItemsBoom.AddHalffabItem(HalffabItem)   ; BELANGRIJK! 
 	}
-	ElseIf Classname = "DOM.PM.Maatwerk.Calc.HF. ...HalffabItem" {
-		/*  ... aan te vullen */ 
+	ElseIf Classname = "DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem" {
+		#dim HalffabBewerkt As DOM.PM.Maatwerk.Calc.HF.Halffab = ..GeefHalffab(HalffabItemParsedFromJson)
+		Set HalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem).%New("", HF.Rol, HalffabBewerkt)
+		
 		Do ..HalffabItemsBoom.AddHalffabItem(HalffabItem)   ; BELANGRIJK! 
 	}
 	Else {
 		Do ##class(TECH.Exceptions.UnimplementedException).Throw("Geen implentatie voor halffabitem klasse '"_Classname_"'")
 	}
+	
 	Quit HalffabItem
 ]]></Implementation>
 </Method>
@@ -86,7 +87,9 @@
 <Private>1</Private>
 <ReturnType>DOM.PM.Maatwerk.Calc.HF.Halffab</ReturnType>
 <Implementation><![CDATA[
-	#dim Halffab As DOM.PM.Maatwerk.Calc.HF.Halffab = ""   ; Lookup maken (SQL) om Halffab op te halen : WHERE (ProductID =  HalffabItemParsedFromJson.ProductData.Id) 
+	//#dim Halffab As DOM.PM.Maatwerk.Calc.HF.Halffab = ""   ; Lookup maken (SQL) om Halffab op te halen : WHERE (ProductID =  HalffabItemParsedFromJson.ProductData.Id) 
+	#dim Halffab As DOM.PM.Maatwerk.Calc.HF.Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.Halffab).%New(HalffabItemParsedFromJson.ProductData.Id)
+	
 	Quit Halffab
 ]]></Implementation>
 </Method>
Index: WSimpl/PM/Maatwerk/MaatwerkService/DotNet/ClassnameFromJsonNaarDomConverter.cls.xml
===================================================================
diff -u -r62912 -r62928
--- WSimpl/PM/Maatwerk/MaatwerkService/DotNet/ClassnameFromJsonNaarDomConverter.cls.xml	(.../ClassnameFromJsonNaarDomConverter.cls.xml)	(revision 62912)
+++ WSimpl/PM/Maatwerk/MaatwerkService/DotNet/ClassnameFromJsonNaarDomConverter.cls.xml	(.../ClassnameFromJsonNaarDomConverter.cls.xml)	(revision 62928)
@@ -26,9 +26,8 @@
 <Implementation><![CDATA[
 	#dim CacheClassname As %String = ""
 	#dim KlasseNaamInfo As %String = HalffabItemParsedFromJson.KlasseNaamInfo
+	Set CacheClassname = $Piece($Piece(KlasseNaamInfo,",",1),".",8)
 	
-	Set CacheClassname = ""   ; bvb. "SamengesteldHalffabItem" 
-	
 	Set CacheClassname = ##class(TECH.StringUtils).Append(..PackageVoorDomLaag_".HF", CacheClassname, ".")
 	Quit CacheClassname
 ]]></Implementation>
@@ -39,10 +38,9 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim CacheClassname As %String = ""
-	#dim KlasseNaamInfo As %String = KostItemParsedFromJson.KlasseNaamInfo
+	#dim KlasseNaamInfo As %String = KostItemParsedFromJson.KlasseNaamInfo 
+	Set CacheClassname = $Piece($Piece(KlasseNaamInfo,",",1),".",8)
 	
-	Set CacheClassname = ""   ; bvb. "SamengesteldKostItem" 
-	
 	Set CacheClassname = ##class(TECH.StringUtils).Append(..PackageVoorDomLaag_".Kost", CacheClassname, ".")
 	Quit CacheClassname
 ]]></Implementation>