Index: DOM/PM/Maatwerk/Calc/Common/VhConfig/Converter/HalffabItemsBoom.cls.xml
===================================================================
diff -u
--- DOM/PM/Maatwerk/Calc/Common/VhConfig/Converter/HalffabItemsBoom.cls.xml	(revision 0)
+++ DOM/PM/Maatwerk/Calc/Common/VhConfig/Converter/HalffabItemsBoom.cls.xml	(revision 72638)
@@ -0,0 +1,258 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.PM.Maatwerk.Calc.Common.VhConfig.Converter.HalffabItemsBoom">
+<Super>DOM.PM.Maatwerk.LBX.impl.Base</Super>
+
+<Property name="HalffabItemsBoom">
+<Type>DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="HalffabContext">
+<Type>DOM.PM.Maatwerk.Calc.HF.DotNetHalffabContext</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductAPI">
+<Type>DOM.PM.impl.ProductAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="VhConfig">
+<Type>DOM.PM.Maatwerk.Calc.Common.VhConfig</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="VhConfigHelper">
+<Type>DOM.PM.Maatwerk.Calc.Common.VhConfigHelper</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>VhConfig:DOM.PM.Maatwerk.Calc.Common.VhConfig,ProductAPI:DOM.PM.impl.ProductAPI=""</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..VhConfig = VhConfig
+	Set ..VhConfigHelper = ##class(DOM.PM.Maatwerk.Calc.Common.VhConfigHelper).%New(..VhConfig)
+	Set ..ProductAPI = $$$Inject(ProductAPI, ##class(DOM.PM.impl.ProductAPI).%New())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefHalffabItemsBoom">
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</ReturnType>
+<Implementation><![CDATA[
+	#dim HalffabrikatenListIterator = ..VhConfigHelper.GeefHalffabrikatenListIterator()
+	
+	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()
+	{
+		#dim Halffabrikaat As DOM.PM.Maatwerk.Calc.Common.VhConfig.Halffabrikaat = HalffabrikatenListIterator.Next()
+		#dim Rol As %String = HalffabrikatenListIterator.Key()
+		
+		//Do ##class(Tools.Wlip).%New(110).String(Rol)
+		//Do ##class(Tools.Wlip).%New(110).ObjToText(Halffabrikaat)
+		
+		Do ..VoegToeHalffabrikaat(Rol, Halffabrikaat)
+	}
+	
+	//Do ..VoegToeVerwijderdeHalffabItems()
+	
+	Quit ..HalffabItemsBoom
+]]></Implementation>
+</Method>
+
+<Method name="InitieerHalffabItemsBoom">
+<Implementation><![CDATA[	//HoofdItem is de LBX rol
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeHalffabrikaat">
+<FormalSpec>Rol:%String,Halffabrikaat:DOM.PM.Maatwerk.Calc.Common.VhConfig.Halffabrikaat</FormalSpec>
+<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
+	
+	If (##class(TECH.StringUtils).Contains(Rol, ".")) {
+		#dim SGRol As %String = $Piece(Rol, ".", 1)
+		Set IsDeelVanSamenGesteldHalffabItem = $$$True
+		
+		If $$$Not(..HalffabItemsBoom.BevatRol(SGRol)) {
+			Set SGHalffabItem = ..GeefSamengesteldHalffabItem(SGRol)
+			Do ..HalffabItemsBoom.AddHalffabItem(SGHalffabItem)
+		} Else {
+			Set SGHalffabItem = ..HalffabItemsBoom.GeefHalffabItem(SGRol)
+		}
+		
+		Set Rol = $Piece(Rol, ".", 2)
+	} 
+	
+	If (Halffabrikaat.Type = "Standaard") {
+		Set HalffabItem = ..GeefStandaardHalffabItem(Rol, Halffabrikaat)
+	} ElseIf (Halffabrikaat.Type = "Bewerkt") {
+		Set HalffabItem = ..GeefBewerktHalffabItem(Rol, Halffabrikaat)
+	} ElseIf (Halffabrikaat.Type = "Inbegrepen") {
+		Set HalffabItem = ..GeefIngebrepenHalffabItem(Rol, Halffabrikaat)
+	} ElseIf (Halffabrikaat.Type = "Maatwerk") {
+		Set HalffabItem = ..GeefMaatwerkHalffabItem(Rol, Halffabrikaat)
+	}
+	Do ##class(Tools.Wlip).%New(110).ObjToText(HalffabItem)
+	If (IsDeelVanSamenGesteldHalffabItem) {
+		Do SGHalffabItem.VoegToe(HalffabItem)
+		Do ..HalffabItemsBoom.AddHalffabItem(SGHalffabItem)
+	} Else {
+		Do ..HalffabItemsBoom.AddHalffabItem(HalffabItem)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefSamengesteldHalffabItem">
+<FormalSpec>Rol:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem</ReturnType>
+<Implementation><![CDATA[
+	#dim ParentRol As %String = $Piece(Rol, ".", 1)
+	#dim SubRol As %String = $Piece(Rol, ".", 2)
+	Set HalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem).%New(..HalffabContext, Rol)
+	
+	Quit HalffabItem
+]]></Implementation>
+</Method>
+
+<Method name="GeefStandaardHalffabItem">
+<FormalSpec>Rol:%String,Halffabrikaat:DOM.PM.Maatwerk.Calc.Common.VhConfig.Halffabrikaat</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem</ReturnType>
+<Implementation><![CDATA[
+	#dim Halffab As DOM.PM.Maatwerk.Calc.HF.Halffab = ..GeefHalffab(Halffabrikaat)
+	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.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>
+</Method>
+
+<Method name="GeefBewerktHalffabItem">
+<FormalSpec>Rol:%String,Halffabrikaat:DOM.PM.Maatwerk.Calc.Common.VhConfig.Halffabrikaat</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem</ReturnType>
+<Implementation><![CDATA[
+	#dim Halffab As DOM.PM.Maatwerk.Calc.HF.Halffab = ..GeefHalffab(Halffabrikaat)
+	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()) {
+		#dim Afmeting As %Decimal = BewerkingDimensiesIterator.Next()
+		#dim BewerkingDimensie As %String = BewerkingDimensiesIterator.Key()
+		
+		Do HalffabItem.ZetBewerkteDimensie(BewerkingDimensie,+(Afmeting))
+	}
+	
+	Quit HalffabItem
+]]></Implementation>
+</Method>
+
+<Method name="GeefIngebrepenHalffabItem">
+<FormalSpec>Rol:%String,Halffabrikaat:DOM.PM.Maatwerk.Calc.Common.VhConfig.Halffabrikaat</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.InbegrepenHalffabItem</ReturnType>
+<Implementation><![CDATA[	Do ##class(TECH.ExceptionHandler).Throw("InbegrepenHFItem is nog niet geïmplementeerd.")
+]]></Implementation>
+</Method>
+
+<Method name="GeefMaatwerkHalffabItem">
+<FormalSpec>Rol:%String,Halffabrikaat:DOM.PM.Maatwerk.Calc.Common.VhConfig.Halffabrikaat</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.MaatwerkProductHalffabItem</ReturnType>
+<Implementation><![CDATA[	Do ##class(TECH.ExceptionHandler).Throw("MaatwerkHFItem is nog niet geïmplementeerd.")
+]]></Implementation>
+</Method>
+
+<Method name="GeefHalffab">
+<FormalSpec>Halffabrikaat:DOM.PM.Maatwerk.Calc.Common.VhConfig.Halffabrikaat</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.Halffab</ReturnType>
+<Implementation><![CDATA[
+	#dim ProductID As %Integer = ..GeefIdentNummerVanHalffab(Halffabrikaat.ProductId)
+	Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.Halffab).%New(ProductID)
+	
+	Quit Halffab
+]]></Implementation>
+</Method>
+
+<Method name="GeefRolnaamVoorCache">
+<FormalSpec>DotnetRolnaam:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim RolnaamVoorCache As %String = DotnetRolnaam
+	/*
+	Set:((DotnetRolnaam = "Geleider") && (..DotNetHalffabContext.GeefVariant() = ##class(DOM.PM.enu.Variant).Taorbox())) RolnaamVoorCache = "Glijder"
+	Set:((DotnetRolnaam = "RugwandHouder") && (..DotNetHalffabContext.GeefVariant() = ##class(DOM.PM.enu.Variant).Taorbox())) RolnaamVoorCache = "RugWandHouder"
+	Set:((DotnetRolnaam = "RugwandHouderSchroef") && (..DotNetHalffabContext.GeefVariant() = ##class(DOM.PM.enu.Variant).Taorbox())) RolnaamVoorCache = "RugWandHouderSchroef"
+	*/
+	Quit RolnaamVoorCache
+]]></Implementation>
+</Method>
+
+<Method name="GeefIdentNummerVanHalffab">
+<FormalSpec>IdentNummer:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..ProductAPI.GeefProductIdVoorIdentNummer(IdentNummer)
+]]></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>
+
+
+</Export>
Index: DOM/PM/Maatwerk/Calc/Common/VhConfigHelper.cls.xml
===================================================================
diff -u -r72614 -r72638
--- DOM/PM/Maatwerk/Calc/Common/VhConfigHelper.cls.xml	(.../VhConfigHelper.cls.xml)	(revision 72614)
+++ DOM/PM/Maatwerk/Calc/Common/VhConfigHelper.cls.xml	(.../VhConfigHelper.cls.xml)	(revision 72638)
@@ -26,10 +26,19 @@
 <Method name="GeefHalffabItemsBoom">
 <FormalSpec>Rol:%String</FormalSpec>
 <ReturnType>DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</ReturnType>
-<Implementation><![CDATA[	//As DOM.PM.Maatwerk.Calc.Common.VhConfig.MaatwerkDetails
+<Implementation><![CDATA[
+	Set Converter = ##class(DOM.PM.Maatwerk.Calc.Common.VhConfig.Converter.HalffabItemsBoom).%New(..VhConfig)
+	
+	Quit Converter.GeefHalffabItemsBoom()
 ]]></Implementation>
 </Method>
 
+<Method name="GeefHalffabrikatenListIterator">
+<ReturnType>TECH.ListIterator</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.ListIterator).%New(..VhConfig.MaatwerkDetails.Halffabrikaten)
+]]></Implementation>
+</Method>
+
 <Method name="GeefVerwijderdeHalffabItems">
 <ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[	Quit ..VhConfig.MaatwerkDetails.VerwijderdeHalffabItems