Index: AX/Uitgaand/PM/ProductAfbeeldingen/impl/ProductAfbeeldingenGenerator.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/PM/ProductAfbeeldingen/impl/ProductAfbeeldingenGenerator.cls.xml	(revision 0)
+++ AX/Uitgaand/PM/ProductAfbeeldingen/impl/ProductAfbeeldingenGenerator.cls.xml	(revision 44385)
@@ -0,0 +1,46 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.PM.ProductAfbeeldingen.impl.ProductAfbeeldingenGenerator">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="BestandGenerator">
+<Type>APPS.common.Rapport.impl.BestandGenerator</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="GenerateAll">
+<Implementation><![CDATA[
+	Try {
+		Do StartTimer^vhLib
+		#dim ProductAfbeeldingenIterator As TECH.Iterator = ##class(AX.Uitgaand.PM.ProductAfbeeldingen.impl.ProductAfbeeldingenIterator).%New()
+		do ..Generate(ProductAfbeeldingenIterator)
+		Write !,"Csv voor migratie ProductAfbeeldingen is klaar. Aantal minuten: " 
+		write $$TimeFromStart^vhLib()/60
+	} Catch {
+		Write ##class(TECH.ExceptionHandler).Catch().ToString()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Generate">
+<FormalSpec>ProductAfbeeldingenIterator:TECH.Iterator</FormalSpec>
+<Implementation><![CDATA[
+	#dim AXProductAfbeeldingenData As APPS.common.Rapport.dto.BestandRapportDataObjectIteratorBased	
+	Set AXProductAfbeeldingenData = ##class(APPS.common.Rapport.dto.BestandRapportDataObjectIteratorBased).%New()
+	Do AXProductAfbeeldingenData.VoegToeVeld("AX.Uitgaand.PM.ProductAfbeeldingen.ProductAfbeeldingen", "ProductNummer")
+	Do AXProductAfbeeldingenData.VoegToeVeld("AX.Uitgaand.PM.ProductAfbeeldingen.ProductAfbeeldingen", "Locatie")
+	Do AXProductAfbeeldingenData.VoegToeVeld("AX.Uitgaand.PM.ProductAfbeeldingen.ProductAfbeeldingen", "Type")
+
+	Set AXProductAfbeeldingenData.ScheidingsTeken = ";"	
+	Set AXProductAfbeeldingenData.Iterator = ProductAfbeeldingenIterator
+	Set AXProductAfbeeldingenData.BestandVolledigeNaam = ##class(TECH.Files).AppendFile(##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_DIXF"),"ProductAfbeeldingen.csv")
+	
+	#dim BestandGenerator As APPS.common.Rapport.impl.BestandGenerator
+	Set BestandGenerator = ##class(APPS.common.Rapport.impl.BestandGenerator).%New()
+	Do BestandGenerator.MaakBestand(AXProductAfbeeldingenData)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>