Index: DOM/VKP/impl/DataM/DataMOrder/OrderlijnenSorteerder/Orderlijn.cls.xml
===================================================================
diff -u
--- DOM/VKP/impl/DataM/DataMOrder/OrderlijnenSorteerder/Orderlijn.cls.xml	(revision 0)
+++ DOM/VKP/impl/DataM/DataMOrder/OrderlijnenSorteerder/Orderlijn.cls.xml	(revision 47143)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.VKP.impl.DataM.DataMOrder.OrderlijnenSorteerder.Orderlijn">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="OrigineelLijnVolgNr">
+<Type>%String</Type>
+</Property>
+
+<Property name="NieuwLijnVolgNr">
+<Type>%String</Type>
+</Property>
+
+<Property name="Orderlijn">
+<Type>DOM.VKP.impl.DataM.DataMOrderlijn</Type>
+</Property>
+</Class>
+
+
+</Export>
Index: DOM/VKP/impl/DataM/DataMOrder/OrderlijnenSorteerder.cls.xml
===================================================================
diff -u
--- DOM/VKP/impl/DataM/DataMOrder/OrderlijnenSorteerder.cls.xml	(revision 0)
+++ DOM/VKP/impl/DataM/DataMOrder/OrderlijnenSorteerder.cls.xml	(revision 47143)
@@ -0,0 +1,104 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.VKP.impl.DataM.DataMOrder.OrderlijnenSorteerder">
+<Super>TECH.RegisteredObject</Super>
+
+<Parameter name="EersteOrderlijnId">
+<Type>%Integer</Type>
+<Default>0</Default>
+</Parameter>
+
+<Property name="OrderLijnenLijst">
+<Type>%ListOfObjects</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="NieuwOrderlijnVolgNr">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>initvalue:%CacheString</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..OrderLijnenLijst = ##class(%ListOfObjects).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Sorteer">
+<FormalSpec>Order:DOM.VKP.impl.DataM.DataMOrder</FormalSpec>
+<Implementation><![CDATA[
+	Do ..OrderLijnenLijst.Clear()
+	Do ..MaakOrderLijnenLijst(Order)
+	Do ..ValidateOrderLijnenLijst(Order)
+]]></Implementation>
+</Method>
+
+<Method name="ValidateOrderLijnenLijst">
+<FormalSpec>Order:DOM.VKP.impl.DataM.DataMOrder</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If $$$Not(Order.OrderLijnen.Count() = ..OrderLijnenLijst.Count()) {
+		#dim Message As %String = "Tijdens het sorteren van de orderlijst is er een verschil opgetreden in het aantal orderlijnen." _$$$CRLF
+		Set Message = Message _"Aantal op het Order : " _Order.OrderLijnen.Count() _" en aantal na sortering " _..OrderLijnenLijst.Count() _$$$CRLF
+		Set Message = Message _"Voor OrderID " _Order.GeefID()
+		Do ##class(TECH.Exceptions.GeneralErrorException).Throw(Message)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="MaakOrderLijnenLijst">
+<FormalSpec>Order:DOM.VKP.impl.DataM.DataMOrder</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ..NieuwOrderlijnVolgNr = ..#EersteOrderlijnId	
+	
+	Do ..VoegToeOrderTekstlijnen(##class(TECH.ListIterator).%New(Order.GeefTextlijnenVoorAfdrukDocumentType()))
+	
+	#dim OrderLijnIterator As TECH.ListIterator = Order.GeefOrderLijnIterator()
+	While OrderLijnIterator.HasNext() {
+		
+		#dim Orderlijn As DOM.VKP.impl.DataM.DataMOrderlijn = OrderLijnIterator.Next()
+		
+		If $$$Not(Orderlijn.%Extends("DOM.VKP.impl.DataM.DataMTekstOrderlijn")) {
+			Do ..OrderLijnenLijst.InsertAt(..MaakNieuweLijn(Orderlijn), ..NieuwOrderlijnVolgNr)
+		}
+		
+		If Orderlijn.%Extends("DOM.VKP.impl.DataM.DataMProductOrderlijn") {
+			Do ..VoegToeOrderTekstlijnen(##class(TECH.ListIterator).%New(Orderlijn.GeefTextlijnenVoorAfdrukDocumentType()))
+		} 
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeOrderTekstlijnen">
+<FormalSpec>OrderTekstLijnIterator:%ListOfObjects</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	While OrderTekstLijnIterator.HasNext() {
+		Do ..OrderLijnenLijst.InsertAt(..MaakNieuweLijn(OrderTekstLijnIterator.Next()), ..NieuwOrderlijnVolgNr)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="MaakNieuweLijn">
+<FormalSpec>Orderlijn:DOM.VKP.impl.DataM.DataMOrderlijn</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.VKP.impl.DataM.DataMOrder.OrderlijnenSorteerder.Orderlijn</ReturnType>
+<Implementation><![CDATA[
+	Set ..NieuwOrderlijnVolgNr = ..NieuwOrderlijnVolgNr + 1
+	Set Lijn = ##class(DOM.VKP.impl.DataM.DataMOrder.OrderlijnenSorteerder.Orderlijn).%New()
+	Set Lijn.Orderlijn = Orderlijn
+	Set Lijn.NieuwLijnVolgNr = 100 + ..NieuwOrderlijnVolgNr
+	Quit Lijn
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>