Index: BL/MB/UGLYPicking/OrderSelOptimizedSorter.cls.xml
===================================================================
diff -u
--- BL/MB/UGLYPicking/OrderSelOptimizedSorter.cls.xml	(revision 0)
+++ BL/MB/UGLYPicking/OrderSelOptimizedSorter.cls.xml	(revision 70446)
@@ -0,0 +1,98 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="BL.MB.UGLYPicking.OrderSelOptimizedSorter">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="HersorteerMbSortedMagList">
+<Description>
+Deze method wijzigt subnodes in %mbSortedMagList() 
+ ByRef %mbSortedMagList : niet als param doorgeven, want is een globale variabele. </Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Merge mdOptimizedSortData = %mbSortedMagList("aaaOptimizedSort")
+	Kill %mbSortedMagList("aaaOptimizedSort")   ; Opkuis data voor OptimizedSort in %-variabele 
+	
+	;Do WLIP^vhDBG(97,"array")
+	;Do WLIP^vhDBG(97,$$ArrayToText^vhLib("mdOptimizedSortData",.mdOptimizedSortData))
+	
+	// Loop over alle subnodes van mdOptimizedSortData 
+	Set DatePrio = ""
+	For { 
+		Set DatePrio = $Order(mdOptimizedSortData(DatePrio))  Quit:(DatePrio = "")
+		Set KlantNr = ""
+		For { 
+			Set KlantNr = $Order(mdOptimizedSortData(DatePrio, KlantNr))  Quit:(KlantNr = "")
+			
+			Set KlantNaam = $Get(mdOptimizedSortData(DatePrio, KlantNr),"?"_KlantNr_"?")
+			Set VroegsteDueoutTime = $Order(mdOptimizedSortData(DatePrio, KlantNr, ""))
+			Set TimeKlantGroupKey = VroegsteDueoutTime _ KlantNaam
+			
+			Set SortTime = ""
+			For { 
+				Set SortTime = $Order(mdOptimizedSortData(DatePrio, KlantNr, SortTime))  Quit:(SortTime = "")
+				Set SortedMagKey = ""
+				For { 
+					Set SortedMagKey = $Order(mdOptimizedSortData(DatePrio, KlantNr, SortTime, SortedMagKey))  Quit:(SortedMagKey = "")
+					Set OorspronkelijkeSortedMagKey = SortedMagKey
+					Set SecondPartOfSortKey = mdOptimizedSortData(DatePrio, KlantNr, SortTime, SortedMagKey)
+					Set NewSortKey = DatePrio _ TimeKlantGroupKey _ SecondPartOfSortKey
+					
+					// Subnode in %mbSortedMagList : verplaatsen van OorspronkelijkeSortedMagKey naar NewSortKey
+					Merge %mbSortedMagList(NewSortKey) = %mbSortedMagList(OorspronkelijkeSortedMagKey)
+					Kill %mbSortedMagList(OorspronkelijkeSortedMagKey)
+				}
+			}
+		}
+	}
+	
+	;Do WLIP^vhDBG(97,$$$CRLF_$$$CRLF_$$ArrayToText^vhLib("%mbSortedMagList",.%mbSortedMagList))
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeHersorteringData">
+<Description>
+Deze method vult voor iedere ConsNr (leveringsbon) een subnode in in %mbSortedMagList("aaaOptimizedSort") 
+ ByRef %mbSortedMagList : deze wordt niet als param doorgegeven, want is een globale variabele. 
+ De parameter SortedMagKey moet ingevuld zijn, anders is deze Hersortering zinloos. </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>SortDate:%String,SortTime:%String,Magazijn:%String,ConsNr:%String,KlantNr:%String,KlantNaam:%String,SortedMagKey:%String</FormalSpec>
+<Implementation><![CDATA[
+	Quit:(SortedMagKey = "")
+	
+	Set:(KlantNr = "") KlantNr = "?"
+	Set:(SortTime = "") SortTime = "00000"
+	
+	Set DatePrio = ..GeefDatePriority(+SortDate)
+	Set SecondPartOfSortKey = Magazijn _ ConsNr   ; Dit moet gelijk zijn aan het tweede deel van de SortedMagKey. Is dummy copy-paste :-P 
+	
+	Set %mbSortedMagList("aaaOptimizedSort", DatePrio, KlantNr, SortTime, SortedMagKey) = SecondPartOfSortKey
+	Set %mbSortedMagList("aaaOptimizedSort", DatePrio, KlantNr) = KlantNaam
+]]></Implementation>
+</Method>
+
+<Method name="GeefDatePriority">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>SortDate:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set DateNow = $Piece($H,",",1)
+	
+	Set PrioCode = ""
+	If (SortDate < DateNow) {
+		Set PrioCode = "A"
+	} 
+	ElseIf (SortDate = DateNow) {
+		Set PrioCode = "B"
+	} 
+	Else {
+		Set PrioCode = "C"
+	}
+	
+	Quit "Prio" _ PrioCode
+]]></Implementation>
+</Method>
+</Class>
+</Export>