Index: BL/MB/UGLYPicking/OrderSel.cls.xml =================================================================== diff -u -r57981 -r70311 --- BL/MB/UGLYPicking/OrderSel.cls.xml (.../OrderSel.cls.xml) (revision 57981) +++ BL/MB/UGLYPicking/OrderSel.cls.xml (.../OrderSel.cls.xml) (revision 70311) @@ -103,7 +103,12 @@ .. ; Maken dat juist alfabetisch gesorteerd wordt met Horologs (seconden links aanvullen tot 5 pos) JoW, ICT-609 .. 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 = $Select(DueOutTimeSmall="NU":"00000"_"000NU", 1:SortDate_SortTime) _ Magazijn _ KlantNaam_ConsNr ; sinds 09/01/2023 maatwerk sortering op klantnaam + .. 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 .. Else Do