Index: Prod/GAData/Product.cls.xml
===================================================================
diff -u -r44344 -r66831
--- Prod/GAData/Product.cls.xml	(.../Product.cls.xml)	(revision 44344)
+++ Prod/GAData/Product.cls.xml	(.../Product.cls.xml)	(revision 66831)
@@ -645,6 +645,64 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GenereerDataDefinities">
+<Description>
+Bewaren van de Prod.Kenmerk.DataDefinities (i.e. BasisParameters) 
+Dit is tevens een onderdeel van KPRCreate() maar is hier afgezonderd : 
+  Wanneer de BOM/BOL berekening via .NET verloopt, dan is alleen dit deel nog nodig. En de globals ^KPR en ^PRBS worden via nieuwe MFW ingevuld. </Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Implementation><![CDATA[
+	#define NodePL   "PL"
+	
+	#dim ProductId As %String = ..ProductGetObjectId()
+	If (ProductId '? 4.7N) {
+		Do ##class(TECH.Exceptions.InvalidInputException).Throw("Fout bij GenereerDataDefinities: ongeldig ProductID '"_ProductId_"'.")
+	}
+	If $$$Not($$$NodeHasSubNodes(..LookUp($$$NodePL))) {
+		Do ##class(TECH.Exceptions.InvalidInputException).Throw("Fout bij GenereerDataDefinities: de property 'Lookup' moet eerst gebuild worden, via Do ..BuildLookUp($LB(""PL"") .")
+	}
+	
+	// Reeds bestaande DataDefinities eerst opkuisen 
+	If ##class(Prod.Kenmerk.DataDefinitie).Exists(ProductId, "TBX") {
+		Do ##class(Prod.Kenmerk.DataDefinitie).DeleteViaPRNr(ProductId, $LB("TBX") )
+	}
+	
+	// DataDefinities aanmaken vanuit de Input-parameters van GAData Product (via multi-dimensional property "LookUp" ) 
+	#dim InputWaarde As %String
+	#dim ProgLabel As %String = ""
+	For {
+		Set ProgLabel = $Order(..LookUp($$$NodePL,ProgLabel))
+		Quit:(ProgLabel = "")
+		
+		Set InputWaarde = ..LookUp($$$NodePL,ProgLabel)
+		Do ..BewaarDataDefinitie(ProductId, ProgLabel, InputWaarde)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="BewaarDataDefinitie">
+<FormalSpec>ProductID:%String,ProgLabel:%String,InputWaarde:%String</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<Implementation><![CDATA[
+	#dim sc As %Status = $$$OK
+	#dim KenmerkGroep As %String = ..MetaStruct.Code
+	
+	If (InputWaarde = "") { 
+		Set sc = ##class(Prod.Kenmerk.DataDefinitie).DeleteKM(KenmerkGroep, ProductID, ProgLabel)
+		Set sc = $$$OK   ; Indien Delete niet gelukt, dan is het alsnog O.K. om verder te gaan :-P 
+	}
+	Else {
+		Set sc = ##class(Prod.Kenmerk.DataDefinitie).WijzigOfMaak(KenmerkGroep, ProductID, ProgLabel, InputWaarde)
+		If $$$ISERR(sc) && (KenmerkGroep = "TBX") {   // Alleen voor TBX mag een error gethrowed worden (modified by WimV on 06/09/2011) 
+			#dim ErrorMsg As %String = "GenereerDataDefinities: Kenmerk "_ProgLabel_" met waarde "_$G(InputWaarde)_" failed to save; "_$$ParseStatus^vhLib(sc)
+			Do ##class(vhLib.Logger).%New("Maatwerk").Error("GenereerDataDefinities",ErrorMsg)
+			Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(sc,ErrorMsg)
+		}
+	}
+]]></Implementation>
+</Method>
+
 <Method name="BewaarIngegevenKenmerken">
 <Description>
 Bewaren van de nieuwe IngegevenKenmerken (via KenmerkConvertor) </Description>