Index: AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelDixfConverter.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelDixfConverter.cls.xml	(revision 0)
+++ AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelDixfConverter.cls.xml	(revision 41876)
@@ -0,0 +1,103 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="AankoopAPI">
+<Type>DOM.AKP.AankoopAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="DatumFormatter">
+<Type>TECH.Format.FormatAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Formatter">
+<Type>AX.common.impl.Formatter</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LevNrConverter">
+<Type>AX.Uitgaand.PM.impl.ConvertorLeveranciersnummerVanHoeckeNaarHalux</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="PartijApi">
+<Type>DOM.PARTIJ.PartijAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Utils">
+<Type>AXimpl.Utils</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="AxRegel">
+<Type>AXdixf.AankoopOrderRegel.AankoopOrderRegel</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>AankoopApi:DOM.AKP.AankoopAPI,Utils:AXimpl.Utils,LevNrConverter:AX.Uitgaand.PM.impl.ConvertorLeveranciersnummerVanHoeckeNaarHalux</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..DatumFormatter = ##class(TECH.Context).Instance().GeefFormatAPI()
+	Set ..PartijApi = ##class(DOM.DomeinContext).Instance().GeefPartijAPI()
+	Set ..Formatter = ##class(AX.common.impl.Formatter).%New()
+	Set ..LevNrConverter = $$$Inject(LevNrConverter,##class(AX.Uitgaand.PM.impl.ConvertorLeveranciersnummerVanHoeckeNaarHalux).%New())
+	Set ..Utils = $$$Inject(Utils,##class(AXimpl.Utils).%New())
+	Set ..AankoopAPI = $$$Inject(AankoopApi,##class(DOM.DomeinContext).Instance().GeefAankoopAPI())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Convert">
+<FormalSpec>Toelevering:DOM.AKP.Toelevering,Vestiging:AX.common.enu.InterneFirmaInitialen</FormalSpec>
+<ReturnType>AXdixf.AankoopOrderRegel.AankoopOrderRegel</ReturnType>
+<Implementation><![CDATA[
+	#Dim Leverancier As DOM.AKP.Leverancier = ..AankoopAPI.GeefLeverancier(Toelevering.GeefLeverancierID())
+	Set ..AxRegel = ##class(AXdixf.AankoopOrderRegel.AankoopOrderRegel).%New()
+	
+	Do ..ConvertGemeenschappelijk(Leverancier,Toelevering,Vestiging)
+	
+	If Vestiging = ##class(AX.common.enu.InterneFirmaInitialen).VanHoeckeNv() {
+		Do ..ConvertVanHoecke(Leverancier)
+	} Else {
+		If Vestiging = ##class(AX.common.enu.InterneFirmaInitialen).HaluxNv() {
+			Do ..ConvertHalux(Leverancier)
+		}
+		Else {
+			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.IllegalArgumentException).%New("Geef als parameter ofwel VanHoecke, ofwel Halux mee! Huidige parameter = '"_Vestiging_"' <"))
+		}
+	}
+	Quit ..AxRegel
+]]></Implementation>
+</Method>
+
+<Method name="ConvertGemeenschappelijk">
+<FormalSpec>Leverancier:DOM.AKP.Leverancier,Toelevering:DOM.AKP.Toelevering,Vestiging:AX.common.enu.InterneFirmaInitialen</FormalSpec>
+<Private>1</Private>
+<ReturnType>AXdixf.AankoopOrderRegel.AankoopOrderRegel</ReturnType>
+<Implementation><![CDATA[	//Set ..AxRegel. = ""
+]]></Implementation>
+</Method>
+
+<Method name="ConvertVanHoecke">
+<FormalSpec>Leverancier:DOM.AKP.Leverancier</FormalSpec>
+<Private>1</Private>
+<ReturnType>AXdixf.AankoopOrderRegel.AankoopOrderRegel</ReturnType>
+</Method>
+
+<Method name="ConvertHalux">
+<FormalSpec>Leverancier:DOM.AKP.Leverancier</FormalSpec>
+<Private>1</Private>
+<ReturnType>AXdixf.AankoopOrderRegel.AankoopOrderRegel</ReturnType>
+</Method>
+</Class>
+
+
+</Export>
Index: AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelIterator.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelIterator.cls.xml	(revision 0)
+++ AX/Uitgaand/PM/AankoopOrderRegel/impl/AankoopOrderRegelIterator.cls.xml	(revision 41876)
@@ -0,0 +1,78 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelIterator">
+<Super>TECH.RegisteredObject,TECH.Iterator</Super>
+
+<Property name="Vestiging">
+<Type>AX.common.enu.InterneFirmaInitialen</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="QueryAPI">
+<Type>TECH.Query.QueryAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ResultSet">
+<Type>TECH.ResultSet</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Converter">
+<Type>AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ToeleveringApi">
+<Type>DOM.AKP.ToeleveringAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>QueryAPI:TECH.Query.QueryAPI="",Vestiging:AX.common.enu.InterneFirmaInitialen,ToeleveringApi:DOM.AKP.ToeleveringAPI</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..ToeleveringApi = $$$Inject(ToeleveringApi,##class(DOM.DomeinContext).Instance().GeefToeleveringAPI())
+	Set ..Vestiging = Vestiging
+	Set ..QueryAPI = $$$Implementation(QueryAPI,##class(TECH.Context).Instance().GeefQueryAPI())
+	Do ..VoerUitQuery()
+	Set ..Converter = ##class(AX.Uitgaand.PM.AankoopOrderRegel.impl.AankoopOrderRegelDixfConverter).%New()
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VoerUitQuery">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#Dim SqlStatement as %String
+	Set SqlStatement = "SELECT * FROM Flow_Toelev.Regel"
+	// Indien nodig is hieronder een filter voorzien om het resultaat te beperken tot overzichtelijk, voor debugging:
+	/*_" WHERE ID IN ('5002||261154','5005||265590','5026||276749','5490||278804','5938||242802','6051||280399','6118||274544','6317||278043',"
+	_"'6332||201319','6347||261332','6415||278507','6494||256645','6628||274325','6813||276747','7012||275442','7112||268449','7178||271524',"
+	_"'7407||272363','7409||251880','7509||280028','7541||272115','7564||270368','7771||274511','7802||264788','8090||278685')"*/
+	Set ..ResultSet = ..QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement))
+]]></Implementation>
+</Method>
+
+<Method name="HasNext">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ( ..ResultSet.Next() > 0 )
+]]></Implementation>
+</Method>
+
+<Method name="Next">
+<ReturnType>AXdixf.AankoopOrderRegel.AankoopOrderRegel</ReturnType>
+<Implementation><![CDATA[
+	#dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringApi.GeefToelevering($piece(..ResultSet.GetData(1),"||",2))
+	#dim ConvertedRegel As AXdixf.AankoopOrderRegel.AankoopOrderRegel = ..Converter.Convert(Toelevering, ..Vestiging)
+	Quit ConvertedRegel
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>