Index: AX/Uitgaand/PM/BijkomendArtikel/impl/BijkomendArtikelDixfConverter.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/PM/BijkomendArtikel/impl/BijkomendArtikelDixfConverter.cls.xml	(revision 0)
+++ AX/Uitgaand/PM/BijkomendArtikel/impl/BijkomendArtikelDixfConverter.cls.xml	(revision 46522)
@@ -0,0 +1,51 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.PM.BijkomendArtikel.impl.BijkomendArtikelDixfConverter">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="DataDefinitieService">
+<Type>BL.Prod.Kenmerk.DataDefinitieService</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>DataDefinitieService:BL.Prod.Kenmerk.DataDefinitieService</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	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>
+<ReturnType>AXdixf.BijkomendArtikel.BijkomendArtikel</ReturnType>
+<Implementation><![CDATA[
+	Set AxProduct = ##class(AXdixf.BijkomendArtikel.BijkomendArtikel).%New()
+	Set AxProduct.AccountCode = "Alle"
+	Set AxProduct.AccountRelation = ""
+	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.Module = "Klant"
+	Set AxProduct.SuppItemFree = "Nee"
+	Set AxProduct.SuppItemId = ""
+	Set AxProduct.SuppItemInventDimId = "AllBlank"
+	Set AxProduct.SuppItemOnlyOnce = "Nee"
+	Set AxProduct.SuppItemOptional = "Ja"
+	Set AxProduct.SuppItemQty = "1"
+	Set AxProduct.UnitId = "STK"
+	
+	Quit AxProduct
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/PM/BijkomendArtikel/impl/BijkomendArtikelIterator.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/PM/BijkomendArtikel/impl/BijkomendArtikelIterator.cls.xml	(revision 0)
+++ AX/Uitgaand/PM/BijkomendArtikel/impl/BijkomendArtikelIterator.cls.xml	(revision 46522)
@@ -0,0 +1,93 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<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>
+</Property>
+
+<Property name="DynIterator">
+<Type>TECH.Iterator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="QueryAPI">
+<Type>TECH.Query.QueryAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ResultSet">
+<Type>TECH.ResultSet</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Converter">
+<Type>AX.Uitgaand.PM.BijkomendArtikel.impl.BijkomendArtikelDixfConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>QueryAPI:TECH.Query.QueryAPI="",MigratieProductVolgensAxEntiteitRepository:AX.Uitgaand.PM.impl.MigratieProductVolgensAxEntiteitRepository</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..MigratieProductVolgensAxEntiteitRepository = $$$Inject(MigratieProductVolgensAxEntiteitRepository,##class(AX.Uitgaand.PM.impl.MigratieProductVolgensAxEntiteitRepository).%New())
+	Do ..MigratieProductVolgensAxEntiteitRepository.VerwijderVolgensAxEntiteit("BijkomendArtikel", "VHBE")
+	Set ..QueryAPI = $$$Implementation(QueryAPI,##class(TECH.Context).Instance().GeefQueryAPI())
+	Do ..VoerUitQuery()
+	;Set Filter = ##class(AX.Uitgaand.PM.BijkomendArtikel.impl.BijkomendArtikelIteratorFilter).%New()
+	Set ResultSetIterator = ##class(TECH.ResultSetIterator).%New(..ResultSet)
+	Set ..DynIterator = ##class(TECH.DynamicIterator).%New(ResultSetIterator,,)
+	Set ..Converter = ##class(AX.Uitgaand.PM.BijkomendArtikel.impl.BijkomendArtikelDixfConverter).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VoerUitQuery">
+<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 ..ResultSet = ..QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement))
+]]></Implementation>
+</Method>
+
+<Method name="HasNext">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..DynIterator.HasNext()
+]]></Implementation>
+</Method>
+
+<Method name="Next">
+<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 ProductNr As %String = Product.Basis.ProductNr
+	#dim AxEntiteit As %String = "BijkomendArtikel"
+	#dim Vestiging As %String = "VHBE"
+	If $$$Not(..MigratieProductVolgensAxEntiteitRepository.BestaatVolgensProductFilter(ProductNr, AxEntiteit, Vestiging)) {
+		Set MigratieProductVolgensAxEntiteit = ##class(AX.Uitgaand.PM.impl.MigratieProductVolgensAxEntiteit).%New()
+		Set MigratieProductVolgensAxEntiteit.AxEntiteit = AxEntiteit
+		Set MigratieProductVolgensAxEntiteit.ProductNr = ProductNr
+		Set MigratieProductVolgensAxEntiteit.Vestiging = Vestiging
+		Do MigratieProductVolgensAxEntiteit.Save()
+	}	
+	Quit ConvertedProduct
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>