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>
 
 
Index: vhUnitTest/AX/Uitgaand/BKH/OpenstaandeVerkoopFactuur/impl/TransactionRepository/Test.cls.xml
===================================================================
diff -u -r34739 -r34743
--- vhUnitTest/AX/Uitgaand/BKH/OpenstaandeVerkoopFactuur/impl/TransactionRepository/Test.cls.xml	(.../Test.cls.xml)	(revision 34739)
+++ vhUnitTest/AX/Uitgaand/BKH/OpenstaandeVerkoopFactuur/impl/TransactionRepository/Test.cls.xml	(.../Test.cls.xml)	(revision 34743)
@@ -31,6 +31,36 @@
 	do ##class(AX.Uitgaand.BKH.OpenstaandeVerkoopFactuur.data.TransactionsLocal).%DeleteExtent()
 ]]></Implementation>
 </Method>
+
+<Method name="Test: ZoekViaTransactionId">
+<Implementation><![CDATA[
+	do ##class(AX.Uitgaand.BKH.OpenstaandeVerkoopFactuur.data.TransactionsLocal).%DeleteExtent()
+	
+	do ##class(vhTest.Utils.AX.Uitgaand.BKH.OpenstaandeVerkoopFactuur.data.TransactionLocal).Maak(3,1)
+	do ##class(vhTest.Utils.AX.Uitgaand.BKH.OpenstaandeVerkoopFactuur.data.TransactionLocal).Maak(5,2)
+	
+	set Repo = ##class(AX.Uitgaand.BKH.OpenstaandeVerkoopFactuur.impl.TransactionRepository).%New()
+	
+	#dim List1 As %ListOfObjects = Repo.ZoekViaTransactionID(1)
+	
+	if $$$AssertEquals(List1.Count(),3) {
+		do $$$AssertEquals(List1.GetAt(1).RECID,"100000001")	
+		do $$$AssertEquals(List1.GetAt(2).RECID,"100000002")	
+		do $$$AssertEquals(List1.GetAt(3).RECID,"100000003")	
+	}
+	
+	#dim List2 As %ListOfObjects = Repo.ZoekViaTransactionID(2)
+	if $$$AssertEquals(List2.Count(),5) {
+		do $$$AssertEquals(List2.GetAt(1).RECID,"200000001")	
+		do $$$AssertEquals(List2.GetAt(2).RECID,"200000002")	
+		do $$$AssertEquals(List2.GetAt(3).RECID,"200000003")
+		do $$$AssertEquals(List2.GetAt(4).RECID,"200000004")	
+		do $$$AssertEquals(List2.GetAt(5).RECID,"200000005")		
+	}
+
+	do ##class(AX.Uitgaand.BKH.OpenstaandeVerkoopFactuur.data.TransactionsLocal).%DeleteExtent()
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTest/Utils/AX/Uitgaand/BKH/OpenstaandeVerkoopFactuur/data/TransactionLocal.cls.xml
===================================================================
diff -u -r34739 -r34743
--- vhTest/Utils/AX/Uitgaand/BKH/OpenstaandeVerkoopFactuur/data/TransactionLocal.cls.xml	(.../TransactionLocal.cls.xml)	(revision 34739)
+++ vhTest/Utils/AX/Uitgaand/BKH/OpenstaandeVerkoopFactuur/data/TransactionLocal.cls.xml	(.../TransactionLocal.cls.xml)	(revision 34743)
@@ -5,7 +5,7 @@
 
 <Method name="Maak">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>Aantal:%Integer=1</FormalSpec>
+<FormalSpec>Aantal:%Integer=1,TransactionId:%String=1</FormalSpec>
 <Implementation><![CDATA[
 	#dim Counter As %Integer
 	for Counter = 1 : 1 : Aantal {
@@ -15,15 +15,15 @@
 		set TransactionsLocal.AMOUNTCUR = "5683.3000000000000000"
 		set TransactionsLocal.CREATEDDATETIME = "2016-04-26 12:32:49"
 		set TransactionsLocal.CUSTACCOUNT = "000000001"
-		set TransactionsLocal.DATAAREAID = "prbe"
+		set TransactionsLocal.DATAAREAID = "VHBE"
 		set TransactionsLocal.INVOICEAMOUNTCUR = "5683.3000000000000000"
 		set TransactionsLocal.INVOICEID = ""
 		set TransactionsLocal.MODIFIEDDATETIME = "2016-04-26 13:18:54"
-		set TransactionsLocal.PARTITION = "5637144"_##class(TECH.StringUtils).AlignRight(Aantal,0,3)
-		set TransactionsLocal.RECID = "1"_##class(TECH.StringUtils).AlignRight(Aantal,0,8)
-		set TransactionsLocal.RECVERSION = "15446"_##class(TECH.StringUtils).AlignRight(Aantal,0,3)
-		set TransactionsLocal.TRANSACTIONID = "16"
-		set TransactionsLocal.VOUCHER = "F"_##class(TECH.StringUtils).AlignRight(Aantal,0,6)
+		set TransactionsLocal.PARTITION = "5637144"_##class(TECH.StringUtils).AlignRight(Counter,0,3)
+		set TransactionsLocal.RECID = TransactionId _ ##class(TECH.StringUtils).AlignRight(Counter,0,8)
+		set TransactionsLocal.RECVERSION = "15446"_TransactionId_##class(TECH.StringUtils).AlignRight(Counter,0,3)
+		set TransactionsLocal.TRANSACTIONID = TransactionId
+		set TransactionsLocal.VOUCHER = "F"_TransactionId_##class(TECH.StringUtils).AlignRight(Counter,0,6)
 		do TransactionsLocal.Save()	
 	}
 ]]></Implementation>