Index: AX/Uitgaand/BKH/OpenstaandeVerkoopFactuur/impl/TransactionRepository.cls.xml
===================================================================
diff -u -r34776 -r34780
--- AX/Uitgaand/BKH/OpenstaandeVerkoopFactuur/impl/TransactionRepository.cls.xml	(.../TransactionRepository.cls.xml)	(revision 34776)
+++ AX/Uitgaand/BKH/OpenstaandeVerkoopFactuur/impl/TransactionRepository.cls.xml	(.../TransactionRepository.cls.xml)	(revision 34780)
@@ -17,6 +17,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="FirmaBepaler">
+<Type>AX.common.impl.FirmaBepaler</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
@@ -26,6 +31,7 @@
 	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()
+	set ..FirmaBepaler = ##class(AX.common.impl.FirmaBepaler).%New()
 	quit $$$OK
 ]]></Implementation>
 </Method>
@@ -50,7 +56,8 @@
 	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))
+	
+	set Query = ##class(TECH.DynamicQuery).%New("SELECT RecId FROM "_SqlTableName_" WHERE TransactionId = ? AND %SQLUpper(DataAreaID) = %SQLUpper(?)",$listbuild(Id,..FirmaBepaler.GeefInitialen()))
 
 	#dim ResultSet As TECH.ResultSet = ..QueryAPI.GetResultSet(Query)
 	while ResultSet.Next() {