Index: DOM/PM/Product/impl/TAORMaatwerkProductCreator.cls.xml
===================================================================
diff -u -r30268 -r30336
--- DOM/PM/Product/impl/TAORMaatwerkProductCreator.cls.xml	(.../TAORMaatwerkProductCreator.cls.xml)	(revision 30268)
+++ DOM/PM/Product/impl/TAORMaatwerkProductCreator.cls.xml	(.../TAORMaatwerkProductCreator.cls.xml)	(revision 30336)
@@ -8,6 +8,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="QueryAPI">
+<Type>TECH.Query.QueryAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>KorttekstBepaler:DOM.PM.Maatwerk.TAX.impl.KorttekstBepaler</FormalSpec>
 <Private>1</Private>
@@ -28,23 +33,35 @@
 	#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))
+		set ProductID = ..ZoekProductIdViaKortTekst(..KorttekstBepaler.BepaalKorttekst("",IngegevenKenmerken,HalffabItemsBoom))
 	}
-
+	
 	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>
+
+<Method name="ZoekProductIdViaKortTekst">
+<FormalSpec>Korttekst:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..QueryAPI.GeefIDVanEnigeOptioneleRecord("SELECT ProductID AS ID FROM Prod.KorttekstZoekIndex WHERE KortTekst = ?",$listbuild($$UPTRIMAN^vhRtn1(Korttekst)))
+]]></Implementation>
+</Method>
+
+<Method name="QueryAPIGet">
+<Private>1</Private>
+<ReturnType>TECH.Query.QueryAPI</ReturnType>
+<Implementation><![CDATA[
+	set r%QueryAPI = $$$LazyLoad(r%QueryAPI,##class(TECH.Context).Instance().GeefQueryAPI())
+	quit r%QueryAPI
+]]></Implementation>
+</Method>
 </Class>