Index: AXimpl/Controle/Order/OrderLijnControleGenerator.cls.xml
===================================================================
diff -u -r43064 -r43066
--- AXimpl/Controle/Order/OrderLijnControleGenerator.cls.xml	(.../OrderLijnControleGenerator.cls.xml)	(revision 43064)
+++ AXimpl/Controle/Order/OrderLijnControleGenerator.cls.xml	(.../OrderLijnControleGenerator.cls.xml)	(revision 43066)
@@ -9,12 +9,21 @@
 </Property>
 
 <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()
+	} ElseIf (Omgeving = "AX"){
+		Set OrderLijnIterator = ##class(AXimpl.Controle.Order.Ax.AxOrderLijnIterator).%New()
+	} Else {
+		Write !,"Geef als parameter ofwel 'Admin', ofwel 'AX' mee!"
+	}
+	
 	Do StartTimer^vhLib
 	Try {
-		#dim AdminOrderLijnIterator As TECH.Iterator = ##class(AXimpl.Controle.Order.Admin.AdminOrderLijnIterator).%New()
-		do ..Generate(AdminOrderLijnIterator)
-		Write !,"Csv van Admin voor OrderControle is klaar. Aantal minuten: " 
+		do ..Generate(OrderLijnIterator, Omgeving)
+		Write !,"Csv van "_Omgeving_" voor OrderLijnControle is klaar. Aantal minuten: " 
 		write $$TimeFromStart^vhLib()/60
 	} Catch {
 		Write ##class(TECH.ExceptionHandler).Catch().ToString()
@@ -23,24 +32,25 @@
 </Method>
 
 <Method name="Generate">
-<FormalSpec>AdminOrderLijnIterator:TECH.Iterator</FormalSpec>
+<FormalSpec>OrderLijnIterator:TECH.Iterator,Omgeving:%String</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
-	#dim AdminOrderData As APPS.common.Rapport.dto.BestandRapportDataObjectIteratorBased	
-	Set AdminOrderData = ##class(APPS.common.Rapport.dto.BestandRapportDataObjectIteratorBased).%New()
-	Do AdminOrderData.VoegToeVeld("AXimpl.Controle.Order.OrderLijn", "Klant")
-	Do AdminOrderData.VoegToeVeld("AXimpl.Controle.Order.OrderLijn", "LeverDatum")
-	Do AdminOrderData.VoegToeVeld("AXimpl.Controle.Order.OrderLijn", "Product")
-	Do AdminOrderData.VoegToeVeld("AXimpl.Controle.Order.OrderLijn", "VerkochtAantal")
-	Do AdminOrderData.VoegToeVeld("AXimpl.Controle.Order.OrderLijn", "VerkoopOrderId")
-	Do AdminOrderData.VoegToeVeld("AXimpl.Controle.Order.OrderLijn", "VerkoopOrderLijnId")
+	#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")
 
-	Set AdminOrderData.ScheidingsTeken = ";"	
-	Set AdminOrderData.Iterator = AdminOrderLijnIterator
-	Set AdminOrderData.BestandVolledigeNaam = ##class(TECH.Files).AppendFile(##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_DIXF"),"VHIP906 AdminOrders 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(AdminOrderData)
+	Do BestandGenerator.MaakBestand(OrderLijnData)
 ]]></Implementation>
 </Method>
 </Class>