Index: AX/Uitgaand/PM/BijkomendArtikel/impl/BijkomendArtikelDixfConverter.cls.xml
===================================================================
diff -u -r46522 -r46547
--- AX/Uitgaand/PM/BijkomendArtikel/impl/BijkomendArtikelDixfConverter.cls.xml	(.../BijkomendArtikelDixfConverter.cls.xml)	(revision 46522)
+++ AX/Uitgaand/PM/BijkomendArtikel/impl/BijkomendArtikelDixfConverter.cls.xml	(.../BijkomendArtikelDixfConverter.cls.xml)	(revision 46547)
@@ -3,39 +3,47 @@
 <Class name="AX.Uitgaand.PM.BijkomendArtikel.impl.BijkomendArtikelDixfConverter">
 <Super>TECH.RegisteredObject</Super>
 
+<Property name="QueryAPI">
+<Type>TECH.Query.QueryAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="DataDefinitieService">
 <Type>BL.Prod.Kenmerk.DataDefinitieService</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>DataDefinitieService:BL.Prod.Kenmerk.DataDefinitieService</FormalSpec>
+<FormalSpec>QueryAPI:TECH.Query.QueryAPI="",DataDefinitieService:BL.Prod.Kenmerk.DataDefinitieService</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
+	Set ..QueryAPI = $$$Implementation(QueryAPI,##class(TECH.Context).Instance().GeefQueryAPI())
 	Set ..DataDefinitieService = $$$Inject(DataDefinitieService,##class(BL.Prod.Kenmerk.DataDefinitieService).%New())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="Convert">
-<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product,Record:%Integer</FormalSpec>
+<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
 <ReturnType>AXdixf.BijkomendArtikel.BijkomendArtikel</ReturnType>
 <Implementation><![CDATA[
+	#dim Sleutel As %String = $$ListToPieces^vhLib(..DataDefinitieService.GeefDefinitie("OEI",Product.Basis.ProductNr,"Sleutel"),",")
+	
 	Set AxProduct = ##class(AXdixf.BijkomendArtikel.BijkomendArtikel).%New()
 	Set AxProduct.AccountCode = "Alle"
-	Set AxProduct.AccountRelation = ""
+	Set AxProduct.AccountRelation = Sleutel
 	Set AxProduct.ADUSuggestItem = "Ja"
 	Set AxProduct.FromDate = "01-12-2017"
 	Set AxProduct.InventDimId = "AllBlank"
 	Set AxProduct.ItemCode = "Alle"
-	Set AxProduct.ItemRelation = ""
-	Set AxProduct.MinimumQty = ""
+	Set AxProduct.ItemRelation = Product.Basis.IdentNummer
+	Set AxProduct.MinimumQty = Product.Prijs.MinimumBestelhoeveelheid
 	Set AxProduct.Module = "Klant"
 	Set AxProduct.SuppItemFree = "Nee"
-	Set AxProduct.SuppItemId = ""
+	Set AxProduct.SuppItemId = ..BepaalIdentNummerTegenhangerProductVolgensSleutel(Product,Sleutel)
 	Set AxProduct.SuppItemInventDimId = "AllBlank"
 	Set AxProduct.SuppItemOnlyOnce = "Nee"
 	Set AxProduct.SuppItemOptional = "Ja"
@@ -45,6 +53,23 @@
 	Quit AxProduct
 ]]></Implementation>
 </Method>
+
+<Method name="BepaalIdentNummerTegenhangerProductVolgensSleutel">
+<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product,Sleutel:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim ProductNr As %String = Product.Basis.ProductNr
+	#dim SqlStatement as %String
+	Set SqlStatement = "SELECT PRNr FROM Prod_Kenmerk.DataDefinitie WHERE KenmerkGroep = 'OEI' AND KenmerkNaam = 'Sleutel' AND Waarden ['"_Sleutel_"'"
+	#dim ResultSet As TECH.ResultSet = ..QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement))
+	#dim PRNrLijstString As %String = ##class(TECH.ListUtils).ListToPieces(ResultSet.GeefLijstVanIDs("PRNr"),",")
+	#dim ProductNrTegenhanger As %String = $$$If($Piece(PRNrLijstString,",",1)=ProductNr,$Piece(PRNrLijstString,",",2),$Piece(PRNrLijstString,",",1))
+	Set TegenhangendProduct = ##class(AX.Uitgaand.PM.Product.impl.Product).%New(ProductNrTegenhanger)
+	
+	Quit TegenhangendProduct.Basis.IdentNummer
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: AX/Uitgaand/PM/BijkomendArtikel/impl/BijkomendArtikelIterator.cls.xml
===================================================================
diff -u -r46522 -r46547
--- AX/Uitgaand/PM/BijkomendArtikel/impl/BijkomendArtikelIterator.cls.xml	(.../BijkomendArtikelIterator.cls.xml)	(revision 46522)
+++ AX/Uitgaand/PM/BijkomendArtikel/impl/BijkomendArtikelIterator.cls.xml	(.../BijkomendArtikelIterator.cls.xml)	(revision 46547)
@@ -3,12 +3,6 @@
 <Class name="AX.Uitgaand.PM.BijkomendArtikel.impl.BijkomendArtikelIterator">
 <Super>TECH.RegisteredObject,TECH.Iterator</Super>
 
-<Property name="Record">
-<Type>%Integer</Type>
-<InitialExpression>1</InitialExpression>
-<Private>1</Private>
-</Property>
-
 <Property name="MigratieProductVolgensAxEntiteitRepository">
 <Type>AX.Uitgaand.PM.impl.MigratieProductVolgensAxEntiteitRepository</Type>
 <Private>1</Private>
@@ -57,7 +51,12 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	#Dim SqlStatement as %String
-	Set SqlStatement = "SELECT PRNr FROM Prod_Kenmerk.DataDefinitie WHERE KenmerkGroep LIKE 'OEI' AND KenmerkNaam LIKE 'Sleutel'"
+	Set SqlStatement = "SELECT PRNr FROM Prod_Kenmerk.DataDefinitie WHERE KenmerkGroep = 'OEI' AND KenmerkNaam = 'Sleutel'"
+	/*
+	// Filter voor beperkt resultaat:
+	_" AND PRNr IN (1931,1935,1939,3459,3460,3507)"
+	*/
+	
 	Set ..ResultSet = ..QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement))
 ]]></Implementation>
 </Method>
@@ -72,7 +71,7 @@
 <ReturnType>AXdixf.BijkomendArtikel.BijkomendArtikel</ReturnType>
 <Implementation><![CDATA[
 	set Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New(..DynIterator.Next().GetData(1))
-	#dim ConvertedProduct As AXdixf.BijkomendArtikel.BijkomendArtikel = ..Converter.Convert(Product, ..Record)
+	#dim ConvertedProduct As AXdixf.BijkomendArtikel.BijkomendArtikel = ..Converter.Convert(Product)
 	
 	#dim ProductNr As %String = Product.Basis.ProductNr
 	#dim AxEntiteit As %String = "BijkomendArtikel"