Index: AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelDixfGenerator.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelDixfGenerator.cls.xml	(revision 0)
+++ AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelDixfGenerator.cls.xml	(revision 41873)
@@ -0,0 +1,67 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfGenerator">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="BestandGenerator">
+<Type>APPS.common.Rapport.impl.BestandGenerator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Vestiging">
+<Type>AX.common.enu.InterneFirmaInitialen</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="GenerateAll">
+<FormalSpec>Vestiging:AX.common.enu.InterneFirmaInitialen</FormalSpec>
+<Implementation><![CDATA[
+	Do StartTimer^vhLib
+	Set ..Vestiging = Vestiging
+	Try {
+		#dim HoofdingIterator As TECH.Iterator = ##class(AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelIterator).%New(,Vestiging)
+		do ..Generate(HoofdingIterator)
+		Write !,"Klaar. Aantal minuten voor alle Regels: " 
+		write $$TimeFromStart^vhLib()/60 // /25*1800 // Indien filter opstaat van 25 regels, aanpassen
+	} Catch {
+		Write ##class(TECH.ExceptionHandler).Catch().ToString()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Generate">
+<FormalSpec>HoofdingIterator:TECH.Iterator</FormalSpec>
+<Implementation><![CDATA[
+	#dim AXRegelData As APPS.common.Rapport.dto.BestandRapportDataObjectIteratorBased	
+	Set AXRegelData = ##class(APPS.common.Rapport.dto.BestandRapportDataObjectIteratorBased).%New()
+	Do AXRegelData.VoegToeVeld("AXdixf.AankoopOrderRegel.AankoopOrderRegel", "ConfirmedDlv")
+	Do AXRegelData.VoegToeVeld("AXdixf.AankoopOrderRegel.AankoopOrderRegel", "CurrencyCode")
+	Do AXRegelData.VoegToeVeld("AXdixf.AankoopOrderRegel.AankoopOrderRegel", "DeliveryDate")
+	Do AXRegelData.VoegToeVeld("AXdixf.AankoopOrderRegel.AankoopOrderRegel", "ExternalItemId")
+	Do AXRegelData.VoegToeVeld("AXdixf.AankoopOrderRegel.AankoopOrderRegel", "ItemId")
+	Do AXRegelData.VoegToeVeld("AXdixf.AankoopOrderRegel.AankoopOrderRegel", "LineAmount")
+	Do AXRegelData.VoegToeVeld("AXdixf.AankoopOrderRegel.AankoopOrderRegel", "LinePercent")
+	Do AXRegelData.VoegToeVeld("AXdixf.AankoopOrderRegel.AankoopOrderRegel", "OverDeliveryPct")
+	Do AXRegelData.VoegToeVeld("AXdixf.AankoopOrderRegel.AankoopOrderRegel", "PriceUnit")
+	Do AXRegelData.VoegToeVeld("AXdixf.AankoopOrderRegel.AankoopOrderRegel", "PurchPrice")
+	Do AXRegelData.VoegToeVeld("AXdixf.AankoopOrderRegel.AankoopOrderRegel", "PurchQty")
+	Do AXRegelData.VoegToeVeld("AXdixf.AankoopOrderRegel.AankoopOrderRegel", "PurchUnit")
+	Do AXRegelData.VoegToeVeld("AXdixf.AankoopOrderRegel.AankoopOrderRegel", "TaxItemGroup")
+	Do AXRegelData.VoegToeVeld("AXdixf.AankoopOrderRegel.AankoopOrderRegel", "UnderDeliveryPct")
+	Do AXRegelData.VoegToeVeld("AXdixf.AankoopOrderRegel.AankoopOrderRegel", "PurchId")
+	Do AXRegelData.VoegToeVeld("AXdixf.AankoopOrderRegel.AankoopOrderRegel", "LineNumber")
+
+	
+	Set AXRegelData.ScheidingsTeken = ";"	
+	Set AXRegelData.Iterator = HoofdingIterator
+	Set AXRegelData.BestandVolledigeNaam = ##class(TECH.Files).AppendFile(##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_DIXF"),"1401AankoopOrderRegel"_..Vestiging_".csv")
+	
+	#dim BestandGenerator As APPS.common.Rapport.impl.BestandGenerator
+	Set BestandGenerator = ##class(APPS.common.Rapport.impl.BestandGenerator).%New()
+	Do BestandGenerator.MaakBestand(AXRegelData)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>