Index: UI/MB/UGLYPicking/dlgOrderListDeliverySelection.cls.xml
===================================================================
diff -u -r74614 -r74639
--- UI/MB/UGLYPicking/dlgOrderListDeliverySelection.cls.xml	(.../dlgOrderListDeliverySelection.cls.xml)	(revision 74614)
+++ UI/MB/UGLYPicking/dlgOrderListDeliverySelection.cls.xml	(.../dlgOrderListDeliverySelection.cls.xml)	(revision 74639)
@@ -77,7 +77,7 @@
 
 <Property name="lbVerzendwijzes">
 <Type>%Library.List</Type>
-<InitialExpression>$LB("DD1","DI1","DI2 + OD","EXPORT + URGENT","REST")</InitialExpression>
+<InitialExpression>$LB("DD1","DI1","DI2 + OD","EXPORT + URGENT","AFH + REST")</InitialExpression>
 </Property>
 
 <Property name="lblExtraInfo">
@@ -823,7 +823,7 @@
  . Set:(##class(TECH.StringUtils).Equals(Verzendwijze,"DD1")) Verzendwijze = "DD1"
  . Set:(##class(TECH.StringUtils).Equals(Verzendwijze,"DI1")) Verzendwijze = "DI1"
  . If '##class(TECH.ListUtils).Contains(##class(TECH.ListUtils).ListbuildToList(..lbVerzendwijzes), Verzendwijze) Do
- ..  Set Verzendwijze="REST"
+ ..  Set Verzendwijze="AFH + REST"
  . Set ..aOrder(Verzendwijze,$$$moAantal)=(..aOrder(Verzendwijze,$$$moAantal)+1)
  . Set:(..GetShortDueOut(RS.Get("Tijd"))=0)&&(..aOrder(Verzendwijze,$$$moUrgentie)<2) ..aOrder(Verzendwijze,$$$moUrgentie)=$S(RS.Get("KlantNr")=$$$KlantKeller:2,1:1) ; bij Keller wordt DRINGEND -> SUPERSPOED ;
  /*. Quit:((ViaConsNr'="") && (ViaConsNr'=ConsNr))