Index: BL/MB/UGLYPicking/OrderSel.cls.xml =================================================================== diff -u -r70447 -r70450 --- BL/MB/UGLYPicking/OrderSel.cls.xml (.../OrderSel.cls.xml) (revision 70447) +++ BL/MB/UGLYPicking/OrderSel.cls.xml (.../OrderSel.cls.xml) (revision 70450) @@ -106,11 +106,9 @@ .. Set SortDate = $Piece(DueOutTime,",",1) .. Set SortTime = $Extract("00000"_$Piece(DueOutTime,",",2),$Length("00000"_$Piece(DueOutTime,",",2))-4,$Length("00000"_$Piece(DueOutTime,",",2))) .. + .. Set SortedMagKey = SortDate_SortTime_Magazijn _ ConsNr .. If (Magazijn = "HALUX") Do - ... Set SortedMagKey = SortDate _ KlantNaam _ SortTime_Magazijn _ ConsNr ; Sinds 09/01/2023 maatwerk sortering op klantnaam (maar nog wel eerst op datum) --> dit geeft een probleem voor de dringende pickings waaronder "AFH" ... Do ##class(BL.MB.UGLYPicking.OrderSelOptimizedSorter).VoegToeHersorteringData(SortDate, SortTime, Magazijn, ConsNr, KlantNr, KlantNaam, SortedMagKey) ; ByRef %mbSortedMagList : deze wordt niet als param doorgegeven, want is een globale variabele. - .. Else Do - ... Set SortedMagKey = SortDate_SortTime_Magazijn _ ConsNr .. .. If $D(%mbSortedMagList(SortedMagKey)) Do ... Set $LI(%mbSortedMagList(SortedMagKey),4)=$LI(%mbSortedMagList(SortedMagKey),4)+1 //AantalLijnen voor Mag+1