Index: UI/MB/UGLYPicking/dlgOrderList.cls.xml
===================================================================
diff -u -r74614 -r74639
--- UI/MB/UGLYPicking/dlgOrderList.cls.xml	(.../dlgOrderList.cls.xml)	(revision 74614)
+++ UI/MB/UGLYPicking/dlgOrderList.cls.xml	(.../dlgOrderList.cls.xml)	(revision 74639)
@@ -320,7 +320,7 @@
  . Quit:(CheckVerzendwijze && ("DD1"=..FilterVerzendwijze) && '(IsDD1))
  . Quit:(CheckVerzendwijze && ("DI2 + OD"=..FilterVerzendwijze) && '(IsDI2EnOD))
  . Quit:(CheckVerzendwijze && ("EXPORT + URGENT"=..FilterVerzendwijze) && '(IsExportEnUrgent))
- . Quit:(CheckVerzendwijze && ("REST"=..FilterVerzendwijze) && '('IsDI1 && 'IsDD1 && 'IsDI2EnOD && 'IsExportEnUrgent))
+ . Quit:(CheckVerzendwijze && ("AFH + REST"=..FilterVerzendwijze) && '('IsDI1 && 'IsDD1 && 'IsDI2EnOD && 'IsExportEnUrgent))
  . Set DottedConsNr=$$CEL^vhFMT(0,"ConsNr","N","L",8,0,"")
  . Set VzwSpecial=Verzendwijze
  . ; volgende lijn wat aangepast, omdat vzw altijd getoond moet worden, behoud van bestaande omzettingen JoW, ICT-609
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))