Index: APPS/PM/Maatwerk/impl/VhConfig/Converter/HalffabItemsBoom.cls.xml
===================================================================
diff -u -r72889 -r73005
--- APPS/PM/Maatwerk/impl/VhConfig/Converter/HalffabItemsBoom.cls.xml	(.../HalffabItemsBoom.cls.xml)	(revision 72889)
+++ APPS/PM/Maatwerk/impl/VhConfig/Converter/HalffabItemsBoom.cls.xml	(.../HalffabItemsBoom.cls.xml)	(revision 73005)
@@ -33,7 +33,8 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..VhConfig = VhConfig
-	Set ..VhConfigHelper = ##class(APPS.PM.Maatwerk.impl.VhConfigHelper).%New(..VhConfig)
+	Set ..VhConfigHelper = ##class(APPS.PM.Maatwerk.impl.VhConfigHelper).%New()
+	Do ..VhConfigHelper.ZetVhConfig(..VhConfig)
 	Set ..ProductAPI = $$$Inject(ProductAPI, ##class(DOM.PM.impl.ProductAPI).%New())
 	
 	Quit $$$OK
@@ -47,7 +48,6 @@
 	
 	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()
-	//Set ..HalffabItemsBoom.Wortel = ..GeefHalffabItem(Halffabrikaten)
 	
 	While HalffabrikatenListIterator.HasNext()
 	{
@@ -65,7 +65,7 @@
 <Implementation><![CDATA[
 	#dim SGHalffabItem As DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem
 	#dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem
-	#dim IsDeelVanSamenGesteldHalffabItem As %Boolean = $$$False
+	#dim IsDeelVanSamengesteldHalffabItem As %Boolean = $$$False
 	
 	If ((##class(TECH.StringUtils).Contains(Rol, ".")) || ..IsResultaatVanGekoppeldKenmerk(Rol)) {
 		#dim SGRol As %String = ""
@@ -75,7 +75,7 @@
 			Set SGRol = $Piece(Rol, ".", 1)
 		}
 		
-		Set IsDeelVanSamenGesteldHalffabItem = $$$True
+		Set IsDeelVanSamengesteldHalffabItem = $$$True
 		
 		If $$$Not(..HalffabItemsBoom.BevatRol(SGRol)) {
 			Set SGHalffabItem = ..GeefSamengesteldHalffabItem(SGRol)
@@ -101,7 +101,7 @@
 		Set HalffabItem = ..GeefMaatwerkHalffabItem(Rol, Halffabrikaat)
 	}
 	
-	If (IsDeelVanSamenGesteldHalffabItem) {
+	If (IsDeelVanSamengesteldHalffabItem) {
 		Do SGHalffabItem.VoegToe(HalffabItem)
 		Do ..HalffabItemsBoom.AddHalffabItem(SGHalffabItem)
 	} Else {
@@ -131,14 +131,11 @@
 	#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)
-	//Set HalffabItem.OpmerkingVoorProductieDocument 	= HalffabItemParsedFromJson.OpmerkingVoorProductieDocument		
+	Set HalffabItem.Aantal 							= +(Halffabrikaat.Aantal)		
 	Set HalffabItem.OpnemenInEindproduct 			= Halffabrikaat.OpnemenInEindproduct
 	Set HalffabItem.ProductieRoute 					= Halffabrikaat.ProductieRoute
 	Do HalffabItem.ZetOmschrijvingVoorDocs(Halffabrikaat.OmschrijvingVoorDocs)
 	Do HalffabItem.ZetOmschrijvingVoorPicking(Halffabrikaat.OmschrijvingVoorPicking)
-	//Do HalffabItem.ZetIsMeeTeRekenenInPrijs(HalffabItemParsedFromJson.IsMeeTeRekenenInPrijs)
-	//Do HalffabItem.ZetIsMeeTeRekenenVoorVoorraad(HalffabItemParsedFromJson.IsMeeTeRekenenVoorVoorraad)
 		
 	Quit HalffabItem
 ]]></Implementation>
@@ -153,17 +150,13 @@
 	Set HalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem).%New(..HalffabContext, ..GeefRolnaamVoorCache(Rol), Halffab)
 	
 	Set HalffabItem.Aantal 							= +(Halffabrikaat.Aantal)
-	//Set HalffabItem.OpmerkingVoorProductieDocument 	= HalffabItemParsedFromJson.OpmerkingVoorProductieDocument
-	//Set HalffabItem.AantalOverrideVoorBouwstenen 	= HalffabItemParsedFromJson.AantalOverrideVoorBouwstenen //niet casten naar int als dit veld nog niet gebruikt wordt! Anders faalt PRBS 
 	Set HalffabItem.AfmetingAangerekendPerStuk		= +(Halffabrikaat.AfmetingAangerekendPerStuk)
 	Set HalffabItem.AfmetingMetBewerkingVerlies 	= +(Halffabrikaat.AfmetingMetBewerkingVerlies)
 	Set HalffabItem.AfmetingTeBekomen 				= +(Halffabrikaat.AfmetingTeBekomen)	
 	Set HalffabItem.OpnemenInEindproduct 			= Halffabrikaat.OpnemenInEindproduct
 	Set HalffabItem.ProductieRoute 					= Halffabrikaat.ProductieRoute
 	Do HalffabItem.ZetOmschrijvingVoorDocs(Halffabrikaat.OmschrijvingVoorDocs)
 	Do HalffabItem.ZetOmschrijvingVoorPicking(Halffabrikaat.OmschrijvingVoorPicking)
-	//Do HalffabItem.ZetIsMeeTeRekenenInPrijs(HalffabItemParsedFromJson.IsMeeTeRekenenInPrijs)
-	//Do HalffabItem.ZetIsMeeTeRekenenVoorVoorraad(HalffabItemParsedFromJson.IsMeeTeRekenenVoorVoorraad)
 	
 	#dim BewerkingDimensiesIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Halffabrikaat.BewerkingDimensies)
 	While (BewerkingDimensiesIterator.HasNext()) {
@@ -289,30 +282,6 @@
 	Quit RolNaamGekoppeldKenmerk
 ]]></Implementation>
 </Method>
-
-<UDLText name="T">
-<Content><![CDATA[
-/*
-Method VoegToeVerwijderdeHalffabItems() [ Private ]
-{
-	//Niet van belang gezien dit enkel relevant was voor de langteksten
-	Set VerwijderdeHalffabItems = ##class(%ArrayOfObjects).%New()
-	
-	/*
-	If (..VhConfig.MaatwerkDetails.VerwijderdeHalffabItems) {
-	
-		#dim VerwijderdHalffabItem As DOM.PM.Maatwerk.Calc.HF.VerwijderdHalffabItem
-		
-		Set VerwijderdHalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.VerwijderdHalffabItem).%New()
-	
-		Set VerwijderdHalffabItem.Aantal = VerwijderdHalffabItemParsedFromJson.Aantal
-		Set VerwijderdHalffabItem.ProductId = VerwijderdHalffabItemParsedFromJson.ProductId
-	}
-	Set ..HalffabItemsBoom.VerwijderdeHalffabItems = VerwijderdeHalffabItems
-}
-*/
-]]></Content>
-</UDLText>
 </Class>