Index: AX/Uitgaand/PM/ProductAfbeeldingen/impl/ProductAfbeeldingenConverter.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/PM/ProductAfbeeldingen/impl/ProductAfbeeldingenConverter.cls.xml	(revision 0)
+++ AX/Uitgaand/PM/ProductAfbeeldingen/impl/ProductAfbeeldingenConverter.cls.xml	(revision 44397)
@@ -0,0 +1,50 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.PM.ProductAfbeeldingen.impl.ProductAfbeeldingenConverter">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="blImage">
+<Type>BL.Prod.ImageLink</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..blImage = ##class(BL.Prod.ImageLink).Instantiate()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Convert">
+<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
+<ReturnType>AX.Uitgaand.PM.ProductAfbeeldingen.ProductAfbeeldingen</ReturnType>
+<Implementation><![CDATA[
+	Set AxProduct = ##class(AX.Uitgaand.PM.ProductAfbeeldingen.ProductAfbeeldingen).%New()
+	
+	Set AxProduct.ProductNummer = Product.Basis.IdentNummer
+	Set AxProduct.Locatie = ..GeefLocatie(Product) 
+	Set AxProduct.Type = ""
+	
+	Quit AxProduct
+]]></Implementation>
+</Method>
+
+<Method name="GeefLocatie">
+<FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim ToepassingVoorAxMigratie As %String = ##class(APPS.common.enu.Toepassing).Wms()
+	#dim Locatie As %String = ..blImage.GetProductImageURL(Product.Basis.ProductNr,ToepassingVoorAxMigratie)
+	//Do:Locatie="" ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.DataNotFoundException).%New("Geen locatie gevonden voor product met productnummer '"_Product.Basis.ProductNr_"'"))
+	Quit Locatie
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/PM/ProductAfbeeldingen/impl/ProductAfbeeldingenIterator.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/PM/ProductAfbeeldingen/impl/ProductAfbeeldingenIterator.cls.xml	(revision 0)
+++ AX/Uitgaand/PM/ProductAfbeeldingen/impl/ProductAfbeeldingenIterator.cls.xml	(revision 44397)
@@ -0,0 +1,76 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.PM.ProductAfbeeldingen.impl.ProductAfbeeldingenIterator">
+<Super>TECH.RegisteredObject,TECH.Iterator</Super>
+
+<Property name="Converter">
+<Type>AX.Uitgaand.PM.ProductAfbeeldingen.impl.ProductAfbeeldingenConverter</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>
+
+<Method name="%OnNew">
+<FormalSpec>QueryAPI:TECH.Query.QueryAPI=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..QueryAPI = $$$Implementation(QueryAPI,##class(TECH.Context).Instance().GeefQueryAPI())
+	Do ..VoerUitQuery()
+	Set Filter = ##class(AX.Uitgaand.PM.ProductAfbeeldingen.impl.ProductAfbeeldingenIteratorFilter).%New()
+	Set ResultSetIterator = ##class(TECH.ResultSetIterator).%New(..ResultSet)
+	Set ..DynIterator = ##class(TECH.DynamicIterator).%New(ResultSetIterator,,Filter)
+	Set ..Converter = ##class(AX.Uitgaand.PM.ProductAfbeeldingen.impl.ProductAfbeeldingenConverter).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VoerUitQuery">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#Dim SqlStatement as %String
+	Set SqlStatement = "SELECT ID FROM Prod.Product WHERE isnull(Gentype,'')='' and KortTekst not like 'GEN%' AND KortTekst NOT LIKE 'IO%' AND (NonAktief IS null OR NonAktief = '2')"
+	/*
+	// Filter voor beperkt resultaat:
+	_" and ID in (1175,1988,2865,161441,161442,254245,254258,268026,353741,353743,353744,383880,665626,668615,682391,"
+	_"709825,830257,830507,878186,878220,906194,924268,1038806,1039173,1039208,1067709,1067714,1124771,1155640,1168369,1168689,"
+	_"1168696,1169509,1194443,1247980,1259381,1359867,1425095,1425096,1432225,1572233)"
+	*/
+	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>AX.Uitgaand.PM.ProductAfbeeldingen.ProductAfbeeldingen</ReturnType>
+<Implementation><![CDATA[
+	Set AfbeeldingenProduct = ##class(AX.Uitgaand.PM.Product.impl.Product).%New(..DynIterator.Next().GetData(1))
+	#dim ConvertedAfbeeldingenProduct As AX.Uitgaand.PM.ProductAfbeeldingen.ProductAfbeeldingen = ..Converter.Convert(AfbeeldingenProduct)	
+	
+	Quit ConvertedAfbeeldingenProduct
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/PM/ProductAfbeeldingen/impl/ProductAfbeeldingenIteratorFilter.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/PM/ProductAfbeeldingen/impl/ProductAfbeeldingenIteratorFilter.cls.xml	(revision 0)
+++ AX/Uitgaand/PM/ProductAfbeeldingen/impl/ProductAfbeeldingenIteratorFilter.cls.xml	(revision 44397)
@@ -0,0 +1,34 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.PM.ProductAfbeeldingen.impl.ProductAfbeeldingenIteratorFilter">
+<Super>TECH.RegisteredObject,TECH.Filter</Super>
+
+<Property name="SoprIteratorFilter">
+<Type>AX.Uitgaand.PM.impl.SoprIteratorFilter</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..SoprIteratorFilter = ##class(AX.Uitgaand.PM.impl.SoprIteratorFilter).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="IsValid">
+<FormalSpec>Item:TECH.ResultSet</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim Product As AX.Uitgaand.PM.Product.impl.Product = ##class(AX.Uitgaand.PM.Product.impl.Product).%New(Item.GetData(1))
+	
+	Quit ..SoprIteratorFilter.IsValid(Product)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>