Index: AX/Uitgaand/BKH/OpenstaandeVerkoopFactuur/impl/TransactionRepository.cls.xml
===================================================================
diff -u -r34739 -r34743
--- AX/Uitgaand/BKH/OpenstaandeVerkoopFactuur/impl/TransactionRepository.cls.xml	(.../TransactionRepository.cls.xml)	(revision 34739)
+++ AX/Uitgaand/BKH/OpenstaandeVerkoopFactuur/impl/TransactionRepository.cls.xml	(.../TransactionRepository.cls.xml)	(revision 34743)
@@ -12,6 +12,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="QueryAPI">
+<Type>TECH.Query.QueryAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
@@ -20,6 +25,7 @@
 <Implementation><![CDATA[
 	set ..ClassMethodExecuter = ##class(TECH.Executer.impl.ClassMethod).%New()
 	set ..ClassName = "AX.Uitgaand.BKH.OpenstaandeVerkoopFactuur.data.Transactions"_##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_BKH_OpenstaandeVerkoopFactuur_Transaction_Storage")
+	set ..QueryAPI = ##class(TECH.Context).Instance().GeefQueryAPI()
 	quit $$$OK
 ]]></Implementation>
 </Method>
@@ -35,6 +41,24 @@
 <Implementation><![CDATA[	quit ..ClassMethodExecuter.Function(..ClassName,"%OpenId",Id)
 ]]></Implementation>
 </Method>
+
+<Method name="ZoekViaTransactionID">
+<FormalSpec>Id:%String</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	set List = ##class(%ListOfObjects).%New()
+	
+	#dim SqlTableName As %String = ##class(TECH.CompiledClassUtils).GetSQLTableName(..ClassName)
+	set Query = ##class(TECH.DynamicQuery).%New("SELECT RecId FROM "_SqlTableName_" WHERE TransactionId = ?",$listbuild(Id))
+
+	#dim ResultSet As TECH.ResultSet = ..QueryAPI.GetResultSet(Query)
+	while ResultSet.Next() {
+		do List.Insert(..GeefViaID(ResultSet.GetData(1)))	
+	}
+
+	quit List
+]]></Implementation>
+</Method>
 </Class>