Index: DOM/PM/Product/impl/TAORMaatwerkProductCreator.cls.xml
===================================================================
diff -u -r30265 -r30268
--- DOM/PM/Product/impl/TAORMaatwerkProductCreator.cls.xml	(.../TAORMaatwerkProductCreator.cls.xml)	(revision 30265)
+++ DOM/PM/Product/impl/TAORMaatwerkProductCreator.cls.xml	(.../TAORMaatwerkProductCreator.cls.xml)	(revision 30268)
@@ -1,14 +1,47 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="DOM.PM.Product.impl.TAORMaatwerkProductCreator">
-<Super>TECH.RegisteredObject</Super>
+<Super>DOM.PM.Maatwerk.TAX.impl.Base</Super>
 
+<Property name="KorttekstBepaler">
+<Type>DOM.PM.Maatwerk.TAX.impl.KorttekstBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>KorttekstBepaler:DOM.PM.Maatwerk.TAX.impl.KorttekstBepaler</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..KorttekstBepaler = ##class(DOM.PM.Maatwerk.TAX.impl.KorttekstBepaler).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="Creeer">
 <FormalSpec>ProductSpecificatie:DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie,BerekeningsSpecificatie:DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,KostItem:DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem</FormalSpec>
 <Implementation><![CDATA[
-	Set ProductCreator = ##class(DOM.PM.impl.DataM.DataMTAORLadeCreator).%New(ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem)
-	#dim ProductID As %String = ProductCreator.GeefPRNr()
-	Set BouwsteenCreator = ##class(DOM.PM.impl.DataM.DataMBouwsteenCreator).%New(ProductID, ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem)
+	#dim ProductID As %String = ""
+	
+	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ProductSpecificatie.GeefIngegevenKenmerken()
+	
+	if IngegevenKenmerken.VerpakkingType = ..Enum.VerpakkingType.LosseComponentenInBulk {
+		#dim Korttekst As TECH.String = ..KorttekstBepaler.BepaalKorttekst("",IngegevenKenmerken,HalffabItemsBoom)
+		set ProductID = $get(^DOM.PM.Maatwerk.TAOR.LosseComponentD(Korttekst))
+	}
+
+	if '$length(ProductID) {
+		Set ProductCreator = ##class(DOM.PM.impl.DataM.DataMTAORLadeCreator).%New(ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem)
+		Set ProductID = ProductCreator.GeefPRNr()
+		Set BouwsteenCreator = ##class(DOM.PM.impl.DataM.DataMBouwsteenCreator).%New(ProductID, ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem)
+	}
+	
+	if IngegevenKenmerken.VerpakkingType = ..Enum.VerpakkingType.LosseComponentenInBulk {
+		set ^DOM.PM.Maatwerk.TAOR.LosseComponentD(Korttekst) = ProductID
+	}
+
 	Quit ProductID
 ]]></Implementation>
 </Method>