Index: APPS/MAG/UGLYPicking/impl/UglyPickingService.cls.xml
===================================================================
diff -u -r1658 -r1662
--- APPS/MAG/UGLYPicking/impl/UglyPickingService.cls.xml	(.../UglyPickingService.cls.xml)	(revision 1658)
+++ APPS/MAG/UGLYPicking/impl/UglyPickingService.cls.xml	(.../UglyPickingService.cls.xml)	(revision 1662)
@@ -154,6 +154,8 @@
 	Set Delimiter = $Extract(MagazijnNamen,1,1)
 	Set MagazijnNamen = $Extract(MagazijnNamen,2,$Length(MagazijnNamen))
 	
+	Set MagazijnStatusComparator = ##class(APPS.MAG.UGLYPicking.impl.MagazijnStatusComparator).%New()
+	
 	Set MagazijnNaamIterator = ##class(TECH.PiecesIterator).%New(MagazijnNamen,Delimiter)
 	While (MagazijnNaamIterator.HasNext())
 	{
@@ -173,20 +175,28 @@
 			Set OrderHoofding = ##class(Flow.OrderWMS.Hoofding).%OpenId(BonNr,0)
 			Set DueOutTime = ##class(TECH.DateTime).HorologToTimeStamp(OrderHoofding.DueOutTime)
 			
+			Set Status = ""
 			If (##class(TECH.DateTime).CurrentTimeStamp() ] DueOutTime)
 			{
 				If (OrderHoofding.Klant.Nummer = ##class(DOM.DomeinContext).Instance().GeefKlantAPI().GeefKlantKeller().GeefNummer())
 				{
 					Set Status = ##class(APPS.MAG.UGLYPicking.enu.MagazijnStatus).Superspoed()
 				}
-				ElseIf (Status '=  ##class(APPS.MAG.UGLYPicking.enu.MagazijnStatus).Superspoed()) // Enkel status invullen met dringend als deze nog niet op superspoed stond
+				Else
 				{
 					Set Status = ##class(APPS.MAG.UGLYPicking.enu.MagazijnStatus).Dringend()
 				}
 			}
+			ElseIf ($Extract(OrderHoofding.VerzendWijze,1,2) = "AF")
+			{
+				Set Status = ##class(APPS.MAG.UGLYPicking.enu.MagazijnStatus).Afhaling()
+			}
 		}
 		
-		Set Magazijn.Status = Status
+		If (MagazijnStatusComparator.IsKleinerDan(Status,Magazijn.Status))
+		{
+			Set Magazijn.Status = Status
+		}
 		
 		Do Magazijnen.Insert(Magazijn)
 	}
@@ -377,8 +387,7 @@
 		Do ProductLijnenPerPallet.GetAt(ProductLijn.PalletID).Insert(ProductLijn)
 	}
 	
-	// Nog eens voor alle palletten controleren of de volledige pallet kan gepicked worden.
-	
+	// Nog eens voor alle palletten controleren of de volledige pallet kan gepicked worden.	
 	Set ProductLijnPerPalletIterator = ##class(TECH.ListIterator).%New(ProductLijnenPerPallet)
 	While (ProductLijnPerPalletIterator.HasNext())
 	{