Index: AX/Uitgaand/PM/LijstPrijs/impl/LijstPrijsDixfGenerator.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/PM/LijstPrijs/impl/LijstPrijsDixfGenerator.cls.xml	(revision 0)
+++ AX/Uitgaand/PM/LijstPrijs/impl/LijstPrijsDixfGenerator.cls.xml	(revision 44150)
@@ -0,0 +1,53 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.PM.LijstPrijs.impl.LijstPrijsDixfGenerator">
+<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 LijstPrijsIterator As TECH.Iterator = ##class(AX.Uitgaand.PM.LijstPrijs.impl.LijstPrijsIterator).%New()
+		do ..Generate(LijstPrijsIterator)
+		Write !,"Csv voor migratie 0613 LijstPrijzen is klaar. Aantal minuten: " 
+		write $$TimeFromStart^vhLib()/60
+	} Catch {
+		Write ##class(TECH.ExceptionHandler).Catch().ToString()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Generate">
+<FormalSpec>LijstPrijsIterator:TECH.Iterator</FormalSpec>
+<Implementation><![CDATA[
+	#dim AXLijstPrijsData As APPS.common.Rapport.dto.BestandRapportDataObjectIteratorBased	
+	Set AXLijstPrijsData = ##class(APPS.common.Rapport.dto.BestandRapportDataObjectIteratorBased).%New()
+	Do AXLijstPrijsData.VoegToeVeld("AXdixf.KostEnLijstPrijs.KostEnLijstPrijs", "ActivationDate")
+	Do AXLijstPrijsData.VoegToeVeld("AXdixf.KostEnLijstPrijs.KostEnLijstPrijs", "CostingType")
+	Do AXLijstPrijsData.VoegToeVeld("AXdixf.KostEnLijstPrijs.KostEnLijstPrijs", "Price")
+	Do AXLijstPrijsData.VoegToeVeld("AXdixf.KostEnLijstPrijs.KostEnLijstPrijs", "PriceQty")
+	Do AXLijstPrijsData.VoegToeVeld("AXdixf.KostEnLijstPrijs.KostEnLijstPrijs", "PriceType")
+	Do AXLijstPrijsData.VoegToeVeld("AXdixf.KostEnLijstPrijs.KostEnLijstPrijs", "PriceUnit")
+	Do AXLijstPrijsData.VoegToeVeld("AXdixf.KostEnLijstPrijs.KostEnLijstPrijs", "UnitID")
+	Do AXLijstPrijsData.VoegToeVeld("AXdixf.KostEnLijstPrijs.KostEnLijstPrijs", "ItemId")
+	Do AXLijstPrijsData.VoegToeVeld("AXdixf.KostEnLijstPrijs.KostEnLijstPrijs", "InventDimId")
+	Do AXLijstPrijsData.VoegToeVeld("AXdixf.KostEnLijstPrijs.KostEnLijstPrijs", "VersionId")
+
+	Set AXLijstPrijsData.ScheidingsTeken = ";"	
+	Set AXLijstPrijsData.Iterator = LijstPrijsIterator
+	Set AXLijstPrijsData.BestandVolledigeNaam = ##class(TECH.Files).AppendFile(##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_DIXF"),"0613LijstPrijzen.csv")
+	
+	#dim BestandGenerator As APPS.common.Rapport.impl.BestandGenerator
+	Set BestandGenerator = ##class(APPS.common.Rapport.impl.BestandGenerator).%New()
+	Do BestandGenerator.MaakBestand(AXLijstPrijsData)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>