Index: AXimpl/Controle/Order/OrderLijnControleGenerator.cls.xml
===================================================================
diff -u -r43066 -r43070
--- AXimpl/Controle/Order/OrderLijnControleGenerator.cls.xml	(.../OrderLijnControleGenerator.cls.xml)	(revision 43066)
+++ AXimpl/Controle/Order/OrderLijnControleGenerator.cls.xml	(.../OrderLijnControleGenerator.cls.xml)	(revision 43070)
@@ -3,21 +3,51 @@
 <Class name="AXimpl.Controle.Order.OrderLijnControleGenerator">
 <Super>TECH.RegisteredObject</Super>
 
+<Property name="AdminOrderLijnIterator">
+<Type>AXimpl.Controle.Order.Admin.AdminOrderLijnIterator</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="AxOrderLijnIterator">
+<Type>AXimpl.Controle.Order.Ax.AxOrderLijnIterator</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="BestandGenerator">
 <Type>APPS.common.Rapport.impl.BestandGenerator</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="OrderLijnData">
+<Type>APPS.common.Rapport.dto.BestandRapportDataObjectIteratorBased</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..BestandGenerator = ##class(APPS.common.Rapport.impl.BestandGenerator).%New()
+	Set ..AdminOrderLijnIterator = ##class(AXimpl.Controle.Order.Admin.AdminOrderLijnIterator).%New()
+	Set ..AxOrderLijnIterator = ##class(AXimpl.Controle.Order.Ax.AxOrderLijnIterator).%New()
+	Set ..OrderLijnData = ##class(APPS.common.Rapport.dto.BestandRapportDataObjectIteratorBased).%New()
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="GenerateAll">
 <FormalSpec>Omgeving:%String</FormalSpec>
 <Implementation><![CDATA[
 	#dim OrderLijnIterator As TECH.Iterator
 	If (Omgeving = "Admin"){
-		Set OrderLijnIterator = ##class(AXimpl.Controle.Order.Admin.AdminOrderLijnIterator).%New()
+		Set OrderLijnIterator = ..AdminOrderLijnIterator
 	} ElseIf (Omgeving = "AX"){
-		Set OrderLijnIterator = ##class(AXimpl.Controle.Order.Ax.AxOrderLijnIterator).%New()
+		Set OrderLijnIterator = ..AxOrderLijnIterator
 	} Else {
-		Write !,"Geef als parameter ofwel 'Admin', ofwel 'AX' mee!"
+		Write !,"Geef als parameter Admin of AX mee!"
 	}
 	
 	Do StartTimer^vhLib
@@ -35,22 +65,18 @@
 <FormalSpec>OrderLijnIterator:TECH.Iterator,Omgeving:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim OrderLijnData As APPS.common.Rapport.dto.BestandRapportDataObjectIteratorBased	
-	Set OrderLijnData = ##class(APPS.common.Rapport.dto.BestandRapportDataObjectIteratorBased).%New()
-	Do OrderLijnData.VoegToeVeld("AXimpl.Controle.Order.OrderLijn", "Klant")
-	Do OrderLijnData.VoegToeVeld("AXimpl.Controle.Order.OrderLijn", "LeverDatum")
-	Do OrderLijnData.VoegToeVeld("AXimpl.Controle.Order.OrderLijn", "Product")
-	Do OrderLijnData.VoegToeVeld("AXimpl.Controle.Order.OrderLijn", "VerkochtAantal")
-	Do OrderLijnData.VoegToeVeld("AXimpl.Controle.Order.OrderLijn", "VerkoopOrderId")
-	Do OrderLijnData.VoegToeVeld("AXimpl.Controle.Order.OrderLijn", "VerkoopOrderLijnId")
+	Do ..OrderLijnData.VoegToeVeld("AXimpl.Controle.Order.OrderLijn", "Klant")
+	Do ..OrderLijnData.VoegToeVeld("AXimpl.Controle.Order.OrderLijn", "LeverDatum")
+	Do ..OrderLijnData.VoegToeVeld("AXimpl.Controle.Order.OrderLijn", "Product")
+	Do ..OrderLijnData.VoegToeVeld("AXimpl.Controle.Order.OrderLijn", "VerkochtAantal")
+	Do ..OrderLijnData.VoegToeVeld("AXimpl.Controle.Order.OrderLijn", "VerkoopOrderId")
+	Do ..OrderLijnData.VoegToeVeld("AXimpl.Controle.Order.OrderLijn", "VerkoopOrderLijnId")
 
-	Set OrderLijnData.ScheidingsTeken = ";"	
-	Set OrderLijnData.Iterator = OrderLijnIterator
-	Set OrderLijnData.BestandVolledigeNaam = ##class(TECH.Files).AppendFile(##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_DIXF"),"VHIP 906 - "_Omgeving_" - OrderLijnen ter controle.csv")
+	Set ..OrderLijnData.ScheidingsTeken = ";"	
+	Set ..OrderLijnData.Iterator = OrderLijnIterator
+	Set ..OrderLijnData.BestandVolledigeNaam = ##class(TECH.Files).AppendFile(##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_DIXF"),"VHIP 906 - "_Omgeving_" - OrderLijnen ter controle.csv")
 	
-	#dim BestandGenerator As APPS.common.Rapport.impl.BestandGenerator
-	Set BestandGenerator = ##class(APPS.common.Rapport.impl.BestandGenerator).%New()
-	Do BestandGenerator.MaakBestand(OrderLijnData)
+	Do ..BestandGenerator.MaakBestand(..OrderLijnData)
 ]]></Implementation>
 </Method>
 </Class>