Index: DOM/PM/Maatwerk/Calc/HF/impl/HalffabRepository.cls.xml
===================================================================
diff -u -r57792 -r62962
--- DOM/PM/Maatwerk/Calc/HF/impl/HalffabRepository.cls.xml	(.../HalffabRepository.cls.xml)	(revision 57792)
+++ DOM/PM/Maatwerk/Calc/HF/impl/HalffabRepository.cls.xml	(.../HalffabRepository.cls.xml)	(revision 62962)
@@ -26,6 +26,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefHalffabVoorProductID">
+<FormalSpec>ProductID:%String</FormalSpec>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.HalffabSpec</ReturnType>
+<Implementation><![CDATA[
+	#dim Query As %String = "SELECT ID FROM DOM_PM_Maatwerk_Calc_HF.Halffab WHERE ProductID = ? "
+	#dim Params As %List = $ListBuild(ProductID)
+	
+	#dim ResultSet As TECH.ResultSet = ..QueryUitvoerder.VoerUit(Query, Params)
+	Quit ..GeefHalffab(ResultSet)
+]]></Implementation>
+</Method>
+
 <Method name="GeefSpecificatie">
 <FormalSpec>SpecificatieInput:DOM.PM.Maatwerk.Calc.HF.HalffabRepositoryInput</FormalSpec>
 <ReturnType>DOM.PM.Maatwerk.Calc.HF.HalffabSpec</ReturnType>
@@ -79,6 +91,28 @@
 	Quit HalffabSpec
 ]]></Implementation>
 </Method>
+
+<Method name="GeefHalffab">
+<FormalSpec>ResultSet:%ResultSet,ProductID:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.HalffabSpec</ReturnType>
+<Implementation><![CDATA[
+	#dim Halffab As DOM.PM.Maatwerk.Calc.HF.Halffab = ""
+
+	If (ResultSet.Next())
+	{
+		Set HalffabID = ResultSet.Data("ID")
+		
+		Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.Halffab).%OpenId(HalffabID)
+	}/*
+	Else
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(DOM.PM.Maatwerk.Calc.HF.impl.FrameworkException).%New("Geen Halffab objecten gevonden voor ProductID "_ProductID))
+	}
+	*/
+	Quit Halffab
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: WSimpl/PM/Maatwerk/MaatwerkService/DotNet/GeefMaatwerkDetails.cls.xml
===================================================================
diff -u -r62917 -r62962
--- WSimpl/PM/Maatwerk/MaatwerkService/DotNet/GeefMaatwerkDetails.cls.xml	(.../GeefMaatwerkDetails.cls.xml)	(revision 62917)
+++ WSimpl/PM/Maatwerk/MaatwerkService/DotNet/GeefMaatwerkDetails.cls.xml	(.../GeefMaatwerkDetails.cls.xml)	(revision 62962)
@@ -8,19 +8,22 @@
 <ReturnType>APPS.PM.Maatwerk.dto.DotNet.MaatwerkDetailsParsedFromJson</ReturnType>
 <Implementation><![CDATA[
 	#dim MaatwerkDetails As APPS.PM.Maatwerk.dto.MaatwerkDetails = ""
+	Set Logger = ##class(vhLib.Logger).%New("BOMBOL DotNet")
 	
 	Try {
 		#dim KenmerkenString As %String
 		#dim input As WSimpl.PM.Maatwerk.MaatwerkService.DotNet.GeefMaatwerkDetails.ProductRestRequest = ##class(WSimpl.PM.Maatwerk.MaatwerkService.DotNet.GeefMaatwerkDetails.ProductRestRequest).%New()
+		Set IngegevenKenmerken.VersieNr = 0
 		
 		Set input.Aantal = Aantal
 		Set input.IngegevenKenmerken = IngegevenKenmerken
-		Set input.KlantID = KlantID
+		Set input.KlantID = $P(KlantID,"||",2)
 		Set input.ProductData = ProductData
-		
+
 		Set KenmerkenString = ..ObjectToJson(input)
 		#dim JSONStream = ##class(%Stream.GlobalBinary).%New()
 		Do JSONStream.Write(KenmerkenString)
+		Do Logger.Info("BOMBOL DotNet request", JSONStream)
 		
 	 	Set HttpRequest = ##class(%Net.HttpRequest).%New()
 	 	Set HttpRequest.Server = ..GeefDotNetServerNaam()
@@ -33,12 +36,13 @@
     	
 	    #dim StatusCode As %Status = HttpRequest.Get("/api/Maatwerk",0)	    
 	    #dim bombol As %Stream.GlobalBinary = HttpRequest.HttpResponse.Data
+	    Do Logger.Info("BOMBOL DotNet response", bombol)
 	    
 		;Set MaatwerkDetails = ..Parse(bombol)
 		Set MaatwerkDetails = ..ParseNEW(bombol)
 	} Catch {
 		#dim Exceptie As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
-		#dim Logger = ##class(vhLib.Logger).%New("BOMBOL via DotNet niet gelukt").ErrorMail("BOMBOL via DotNet niet gelukt. HttpResponse Statuscode: "_HttpRequest.HttpResponse.StatusCode)
+		Do Logger.ErrorMail("BOMBOL via DotNet niet gelukt. HttpResponse Statuscode: "_HttpRequest.HttpResponse.StatusCode)
 		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
 	}
 	
Index: WSimpl/PM/Maatwerk/MaatwerkService/DotNet/KostItemFromJsonNaarDomConverter.cls.xml
===================================================================
diff -u -r62932 -r62962
--- WSimpl/PM/Maatwerk/MaatwerkService/DotNet/KostItemFromJsonNaarDomConverter.cls.xml	(.../KostItemFromJsonNaarDomConverter.cls.xml)	(revision 62932)
+++ WSimpl/PM/Maatwerk/MaatwerkService/DotNet/KostItemFromJsonNaarDomConverter.cls.xml	(.../KostItemFromJsonNaarDomConverter.cls.xml)	(revision 62962)
@@ -48,7 +48,6 @@
 <ReturnType>DOM.PM.Maatwerk.Calc.Kost.KostItem</ReturnType>
 <Implementation><![CDATA[
 	#dim Classname As %String = ..ClassnameFromJsonNaarDomConverter.GeefCacheClassnameVoorKostItem(KostItemParsedFromJson)
-	
 	#dim KI As APPS.PM.Maatwerk.dto.DotNet.KostItemParsedFromJson = KostItemParsedFromJson
 	
 	If Classname = "DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem" {
@@ -61,27 +60,29 @@
 		}
 	}
 	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 = ##class(DOM.PM.Maatwerk.Calc.Kost.ActiviteitKostItem).%New(KI.Naam, +(KI.Kost), KI.Details, +(KI.Tijd), KI.KostenPlaatsId, +(KI.Aantal), KI.ActiviteitCode)
 	}
 	ElseIf Classname = "DOM.PM.Maatwerk.Calc.Kost.StandaardHalffabKostItem" {
-		Set KostItem = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardHalffabKostItem).%New(KI.Naam, KI.Kost, KI.Details)
+		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?
+		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)
+		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
+	ElseIf Classname = "DOM.PM.Maatwerk.Calc.Kost.ProcentueelKostItem" {	
+		Do ##class(TECH.ExceptionHandler).Throw("ProcentueelKostItem is nog niet geïmplementeerd voor MVX")															
+		//Set KostItem = ##class(DOM.PM.Maatwerk.Calc.Kost.ProcentueelKostItem).%New(KI.Naam, +(KI.Kost), KI.Details, KI.Percentage, "") //KostItemOmPercentageOpTeRekenen //Procenten ingeven!!!!
 	}
-	ElseIf Classname = "DOM.PM.Maatwerk.Calc.Kost.KostenPlaatsKostItem" {
-		Set KostItem = ##class(DOM.PM.Maatwerk.Calc.Kost.KostenPlaatsKostItem).%New(KI.Naam, KI.Kost, KI.Details, KI.Tijd, KI.KostenPlaatsId, KI.Aantal) 
+	ElseIf Classname = "DOM.PM.Maatwerk.Calc.Kost.KostenplaatsKostItem" {
+		Set KostItem = ##class(DOM.PM.Maatwerk.Calc.Kost.KostenPlaatsKostItem).%New(KI.Naam, +(KI.Kost), KI.Details, +(KI.Tijd), KI.KostenPlaatsId, +(KI.Aantal) )
 	}
 	Else {
 		Do ##class(TECH.Exceptions.UnimplementedException).Throw("Geen implentatie voor kostitem klasse '"_Classname_"'")
 	}
+	
 	Quit KostItem
 ]]></Implementation>
 </Method>
Index: WSimpl/PM/Maatwerk/MaatwerkService/DotNet/HalffabrikatenFromJsonNaarDomConverter.cls.xml
===================================================================
diff -u -r62928 -r62962
--- WSimpl/PM/Maatwerk/MaatwerkService/DotNet/HalffabrikatenFromJsonNaarDomConverter.cls.xml	(.../HalffabrikatenFromJsonNaarDomConverter.cls.xml)	(revision 62928)
+++ WSimpl/PM/Maatwerk/MaatwerkService/DotNet/HalffabrikatenFromJsonNaarDomConverter.cls.xml	(.../HalffabrikatenFromJsonNaarDomConverter.cls.xml)	(revision 62962)
@@ -31,7 +31,7 @@
 <Implementation><![CDATA[
 	Set ..HalffabItemsBoom = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New()
 	Set ..HalffabItemsBoom.Wortel = ..GeefHalffabItem(Halffabrikaten)
-
+	
 	Quit ..HalffabItemsBoom
 ]]></Implementation>
 </Method>
@@ -50,9 +50,8 @@
 <ReturnType>DOM.PM.Maatwerk.Calc.HF.IHalffabItem</ReturnType>
 <Implementation><![CDATA[
 	#dim Classname As %String = ..ClassnameFromJsonNaarDomConverter.GeefCacheClassnameVoorHalffabItem(HalffabItemParsedFromJson)
-	
 	#dim HF As APPS.PM.Maatwerk.dto.DotNet.HalffabItemParsedFromJson = HalffabItemParsedFromJson
-					
+	
 	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)
@@ -61,21 +60,65 @@
 			#dim SubHalffabItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = ..GeefHalffabItem(SubHalffabItemParsedFromJson)
 			Do HalffabItem.VoegToe(SubHalffabItem)
 		}
+		If ($$$Not(HF.Rol = ##class(DOM.PM.enu.Variant).Merivobox())) {
+			Do ..HalffabItemsBoom.AddHalffabItem(HalffabItem)
+		}
 	}
 	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)
 		
-		Do ..HalffabItemsBoom.AddHalffabItem(HalffabItem)   ; BELANGRIJK! 
+		Set HalffabItem.Aantal 							= +(HalffabItemParsedFromJson.Aantal)
+		//BuilderBepaaltOpnemenInEindproduct 
+		Set HalffabItem.Gewicht 						= +(HalffabItemParsedFromJson.Gewicht)
+		//GewichtPerStuk wordt al ingevuld door ?
+		//IsMeeTeRekenenInPrijs wordt al ingevuld door InitialExpression
+		//IsMeeTeRekenenVoorVoorraad wordt al ingevuld door InitialExpression
+		//MagazijnZoneID ?
+		Do HalffabItem.ZetOmschrijvingVoorDocs(HalffabItemParsedFromJson.OmschrijvingVoorDocs)
+		Do HalffabItem.ZetOmschrijvingVoorPicking(HalffabItemParsedFromJson.OmschrijvingVoorPicking)
+		Set HalffabItem.OpmerkingVoorProductieDocument 	= HalffabItemParsedFromJson.OpmerkingVoorProductieDocument		
+		Set HalffabItem.OpnemenInEindproduct 			= HalffabItemParsedFromJson.OpnemenInEindproduct
+		//ProductieRoute?
+		If ($$$Not(HF.Rol = "Links") && $$$Not(HF.Rol = "Rechts")) {		//Wat met LiRe???
+			Do ..HalffabItemsBoom.AddHalffabItem(HalffabItem)
+		}
 	}
 	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! 
+		Set HalffabItem.Aantal 							= +(HalffabItemParsedFromJson.Aantal)
+		Set HalffabItem.AantalOverrideVoorBouwstenen 	= HalffabItemParsedFromJson.AantalOverrideVoorBouwstenen //niet casten naar int als dit veld nog niet gebruikt wordt! Anders faalt PRBS 
+		Set HalffabItem.AfmetingAangerekendPerStuk		= +(HalffabItemParsedFromJson.AfmetingAangerekendPerStuk)
+		Set HalffabItem.AfmetingMetBewerkingVerlies 	= +(HalffabItemParsedFromJson.AfmetingMetBewerkingVerlies)
+		Set HalffabItem.AfmetingTeBekomen 				= +(HalffabItemParsedFromJson.AfmetingTeBekomen)
+		Set HalffabItem.Gewicht 						= +(HalffabItemParsedFromJson.Gewicht)
+		//BuilderBepaaltOpnemenInEindproduct 
+		//GewichtPerStuk wordt al ingevuld door ?
+		//IsMeeTeRekenenInPrijs wordt al ingevuld door InitialExpression
+		//IsMeeTeRekenenVoorVoorraad wordt al ingevuld door InitialExpression
+		//MagazijnZoneID ?
+		Do HalffabItem.ZetOmschrijvingVoorDocs(HalffabItemParsedFromJson.OmschrijvingVoorDocs)
+		Do HalffabItem.ZetOmschrijvingVoorPicking(HalffabItemParsedFromJson.OmschrijvingVoorPicking)
+		Set HalffabItem.OpmerkingVoorProductieDocument 	= HalffabItemParsedFromJson.OpmerkingVoorProductieDocument
+		Set HalffabItem.OpnemenInEindproduct 			= HalffabItemParsedFromJson.OpnemenInEindproduct
+		Set HalffabItem.TeBekomenAantal 				= +(HalffabItemParsedFromJson.TeBekomenAantal)
+		
+		#dim WaardenIterator As TECH.Iterator = ##class(TECH.EnumerationUtils).ValueListIteratorVanEnumeratie("DOM.PM.enu.BewerkingDimensie")
+		#dim BewerkingDimensie As %String
+		while (WaardenIterator.HasNext())
+		{
+			Set BewerkingDimensie = WaardenIterator.Next()
+			If $$$Not(HalffabItemParsedFromJson.BewerkingDimensies.GetAt(BewerkingDimensie) = $$$NULLOREF) {
+				Do HalffabItem.ZetBewerkteDimensie(BewerkingDimensie,+(HalffabItemParsedFromJson.BewerkingDimensies.GetAt(BewerkingDimensie)))
+			}
+		}
+		
+		Do ..HalffabItemsBoom.AddHalffabItem(HalffabItem) 
 	}
 	Else {
-		Do ##class(TECH.Exceptions.UnimplementedException).Throw("Geen implentatie voor halffabitem klasse '"_Classname_"'")
+		Do ##class(TECH.Exceptions.UnimplementedException).Throw("Geen implementatie voor halffabitem klasse '"_Classname_"'")		//InbegrepenHalffab is nog niet geimplementeerd
 	}
 	
 	Quit HalffabItem
@@ -87,9 +130,14 @@
 <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 = ##class(DOM.PM.Maatwerk.Calc.HF.Halffab).%New(HalffabItemParsedFromJson.ProductData.Id)
-	
+	If $$$HasLength(HalffabItemParsedFromJson.ProductData.Id) {
+		#dim Halffab As DOM.PM.Maatwerk.Calc.HF.Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.HalffabRepository).%New().GeefHalffabVoorProductID(HalffabItemParsedFromJson.ProductData.Id)
+		If $$$Not($IsObject(Halffab)) {
+			Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.Halffab).%New(HalffabItemParsedFromJson.ProductData.Id)
+		}
+	} Else {
+		#dim Logger = ##class(vhLib.Logger).%New("JsonNaarDomConverter .NET").ErrorMail("Er is geen productId meegegeven voor rol: "_HalffabItemParsedFromJson.Rol)
+	}
 	Quit Halffab
 ]]></Implementation>
 </Method>
Index: DOM/PM/impl/DataM/DataMProductCreator.cls.xml
===================================================================
diff -u -r62928 -r62962
--- DOM/PM/impl/DataM/DataMProductCreator.cls.xml	(.../DataMProductCreator.cls.xml)	(revision 62928)
+++ DOM/PM/impl/DataM/DataMProductCreator.cls.xml	(.../DataMProductCreator.cls.xml)	(revision 62962)
@@ -86,7 +86,9 @@
 	
 	If $$$Not(ProductSpecificatie.GeefVariant() = ##class(DOM.PM.enu.Variant).Merivobox()) {
 		Set HalffabItemsBoomOnherwerktBepaler = ##class(DOM.PM.impl.HalffabItemsBoomOnherwerktBepaler).%New()
-		set ..HalffabItemsBoomOnHerwerkt = HalffabItemsBoomOnherwerktBepaler.InitieerHalffabItemsBoomOnherwerkt(..ProductSpecificatie.GeefIngegevenKenmerken())
+		Set ..HalffabItemsBoomOnHerwerkt = HalffabItemsBoomOnherwerktBepaler.InitieerHalffabItemsBoomOnherwerkt(..ProductSpecificatie.GeefIngegevenKenmerken())
+	} Else {
+		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()