Index: AXimpl/Controle/Order/Ax/AxOrderLijnConverter.cls.xml
===================================================================
diff -u
--- AXimpl/Controle/Order/Ax/AxOrderLijnConverter.cls.xml	(revision 0)
+++ AXimpl/Controle/Order/Ax/AxOrderLijnConverter.cls.xml	(revision 43052)
@@ -0,0 +1,25 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXimpl.Controle.Order.Ax.AxOrderLijnConverter">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="Convert">
+<FormalSpec>ResultSet:TECH.ResultSet</FormalSpec>
+<ReturnType>AXimpl.Controle.Order.OrderLijn</ReturnType>
+<Implementation><![CDATA[
+	Set ConvertedAxOrderLijn = ##class(AXimpl.Controle.Order.OrderLijn).%New()
+	
+	Set ConvertedAxOrderLijn.Klant = ResultSet.GetData(2)
+	Set ConvertedAxOrderLijn.LeverDatum = ResultSet.GetData(5)
+	Set ConvertedAxOrderLijn.Product = ResultSet.GetData(4)
+	Set ConvertedAxOrderLijn.VerkochtAantal = $$$ExcelNum(ResultSet.GetData(6))
+	Set ConvertedAxOrderLijn.VerkoopOrderId = ResultSet.GetData(1)
+	Set ConvertedAxOrderLijn.VerkoopOrderLijnId = ResultSet.GetData(3)
+	
+	Quit ConvertedAxOrderLijn
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AXimpl/Controle/Order/Ax/AxOrderControleGenerator.cls.xml
===================================================================
diff -u
--- AXimpl/Controle/Order/Ax/AxOrderControleGenerator.cls.xml	(revision 0)
+++ AXimpl/Controle/Order/Ax/AxOrderControleGenerator.cls.xml	(revision 43052)
@@ -0,0 +1,49 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXimpl.Controle.Order.Ax.AxOrderControleGenerator">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="BestandGenerator">
+<Type>APPS.common.Rapport.impl.BestandGenerator</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="GenerateAll">
+<Implementation><![CDATA[
+	Do StartTimer^vhLib
+	Try {
+		#dim AxOrderLijnIterator As TECH.Iterator = ##class(AXimpl.Controle.Order.Ax.AxOrderLijnIterator).%New()
+		do ..Generate(AxOrderLijnIterator)
+		Write !,"Csv van Ax voor OrderControle is klaar. Aantal minuten: " 
+		write $$TimeFromStart^vhLib()/60
+	} Catch {
+		Write ##class(TECH.ExceptionHandler).Catch().ToString()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Generate">
+<FormalSpec>AxOrderLijnIterator:TECH.Iterator</FormalSpec>
+<Implementation><![CDATA[
+	#dim AxOrderData As APPS.common.Rapport.dto.BestandRapportDataObjectIteratorBased	
+	Set AxOrderData = ##class(APPS.common.Rapport.dto.BestandRapportDataObjectIteratorBased).%New()
+	Do AxOrderData.VoegToeVeld("AXimpl.Controle.Order.OrderLijn", "Klant")
+	Do AxOrderData.VoegToeVeld("AXimpl.Controle.Order.OrderLijn", "LeverDatum")
+	Do AxOrderData.VoegToeVeld("AXimpl.Controle.Order.OrderLijn", "Product")
+	Do AxOrderData.VoegToeVeld("AXimpl.Controle.Order.OrderLijn", "VerkochtAantal")
+	Do AxOrderData.VoegToeVeld("AXimpl.Controle.Order.OrderLijn", "VerkoopOrderId")
+	Do AxOrderData.VoegToeVeld("AXimpl.Controle.Order.OrderLijn", "VerkoopOrderLijnId")
+
+	Set AxOrderData.ScheidingsTeken = ";"	
+	Set AxOrderData.Iterator = AxOrderLijnIterator
+	Set AxOrderData.BestandVolledigeNaam = ##class(TECH.Files).AppendFile(##class(TECH.Config.ConfigMgr).Instance().GeefString("AX_DIXF"),"VHIP906 AxOrders ter controle.csv")
+	
+	#dim BestandGenerator As APPS.common.Rapport.impl.BestandGenerator
+	Set BestandGenerator = ##class(APPS.common.Rapport.impl.BestandGenerator).%New()
+	Do BestandGenerator.MaakBestand(AxOrderData)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: AXimpl/Controle/Order/Ax/AxOrderLijnIterator.cls.xml
===================================================================
diff -u
--- AXimpl/Controle/Order/Ax/AxOrderLijnIterator.cls.xml	(revision 0)
+++ AXimpl/Controle/Order/Ax/AxOrderLijnIterator.cls.xml	(revision 43052)
@@ -0,0 +1,70 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AXimpl.Controle.Order.Ax.AxOrderLijnIterator">
+<Super>TECH.RegisteredObject,TECH.Iterator</Super>
+
+<Property name="Converter">
+<Type>AXimpl.Controle.Order.Ax.AxOrderLijnConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ResultSet">
+<Type>TECH.ResultSet</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="SqlQueryConnection">
+<Type>AXimpl.SqlQueryConnection</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>SqlQueryConnection:AXimpl.SqlQueryConnection</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..SqlQueryConnection = $$$Implementation(SqlQueryConnection,##class(AXimpl.SqlQueryConnection).%New())
+	Do ..VoerUitQuery()
+	Set ..Converter = ##class(AXimpl.Controle.Order.Ax.AxOrderLijnConverter).%New()
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VoerUitQuery">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#Dim SqlStatement as %String
+	
+	Set SqlStatement = "select salesLine.SalesId,salesLine.CustAccount,salesline.inventtransid,salesline.itemid,salesline.CONFIRMEDDLV,salesline.QtyOrdered "
+	_"from SALESLINE join inventdim on inventdim.INVENTDIMID = salesline.INVENTDIMID and inventdim.DATAAREAID = SALESLINE.DATAAREAID and inventdim.PARTITION = salesline.PARTITION "
+	_"join SALESTABLE on SALESTABLE.SALESID = salesline.SALESID and SALESTABLE.DATAAREAID = salesline.DATAAREAID and salestable.PARTITION = salesline.PARTITION "
+	_"left outer join LOGISTICSPOSTALADDRESS on LOGISTICSPOSTALADDRESS.RECID = salesline.DELIVERYPOSTALADDRESS and LOGISTICSPOSTALADDRESS.PARTITION = salesline.PARTITION "
+	_"join INVENTTRANSORIGIN on INVENTTRANSORIGIN.INVENTTRANSID = salesline.INVENTTRANSID and INVENTTRANSORIGIN.DATAAREAID = salesline.DATAAREAID and INVENTTRANSORIGIN.PARTITION = salesline.PARTITION "
+	_"where salestable.SALESSTATUS = 1  -- Backorder and salestable.DOCUMENTSTATUS >= 1  --- minstens Bevestigd and salesline.SALESQTY >= 0  --- geen retour-lijnen (terugnames) "
+	_"and salesLine.DATAAREAID = 'VHBE' and salesline.PARTITION = '5637144576'"
+	
+	Set ..ResultSet = ..SqlQueryConnection.GetResultSet(SqlStatement)
+]]></Implementation>
+</Method>
+
+<Method name="HasNext">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (..ResultSet.Next() > 0)
+]]></Implementation>
+</Method>
+
+<Method name="Next">
+<ReturnType>AXimpl.Controle.Order.OrderLijn</ReturnType>
+<Implementation><![CDATA[
+	#dim ConvertedAxProductOrderLijn As AXimpl.Controle.Order.OrderLijn = ..Converter.Convert(..ResultSet)
+	
+	Quit ConvertedAxProductOrderLijn
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>