Index: UI/MB/UGLYPicking/dlgOrderList.cls.xml
===================================================================
diff -u -r8070 -r18833
--- UI/MB/UGLYPicking/dlgOrderList.cls.xml	(.../dlgOrderList.cls.xml)	(revision 8070)
+++ UI/MB/UGLYPicking/dlgOrderList.cls.xml	(.../dlgOrderList.cls.xml)	(revision 18833)
@@ -307,8 +307,8 @@
  . Quit:(CheckMagazijn && (Magazijn'=..FilterMagazijn))
  . Set DottedConsNr=$$CEL^vhFMT(0,"ConsNr","N","L",8,0,"")
  . Set VzwSpecial=RS.Get("VerzendWijze")   ; Added by WimV on 03/03/2009
- . Set VzwSpecial=$S(VzwSpecial?1(1"AFH"):"AFH", VzwSpecial?1(1"EX",1"EXU"):"EX", VzwSpecial?1(1"SNT"):"SNT", VzwSpecial?1(1"TPO",1"TPU"):"TP", 1:"")
- . Do ..lbOrders.Items.Add($LB(DottedConsNr,Magazijn,RS.Get("TijdSmall"),RS.Get("AantalLijnen"),ConsNr,($$IsLocked^vhLib("^UGLYOrderPick("_ConsNr_")")||##class(APPS.MAG.UglyPickingService).%New().IsBonInGebruik(ConsNr)),RS.Get("KlantNaam"),(RS.Get("VerzendWijze")?1(1"AF",1"AFH")),(..GetShortDueOut(RS.Get("Tijd"))=0),VzwSpecial))
+ . Set VzwSpecial=$S(VzwSpecial?1(1"AF".E):"AFH", VzwSpecial?1(1"EX",1"EXU"):"EX", VzwSpecial?1(1"SNT"):"SNT", VzwSpecial?1(1"TPO",1"TPU"):"TP", 1:"")
+ . Do ..lbOrders.Items.Add($LB(DottedConsNr,Magazijn,RS.Get("TijdSmall"),RS.Get("AantalLijnen"),ConsNr,($$IsLocked^vhLib("^UGLYOrderPick("_ConsNr_")")||##class(APPS.MAG.UglyPickingService).%New().IsBonInGebruik(ConsNr)),RS.Get("KlantNaam"),(RS.Get("VerzendWijze")?1(1"AF".E,1"AFH")),(..GetShortDueOut(RS.Get("Tijd"))=0),VzwSpecial))
  . Set OrderCnt=OrderCnt+1
 
  Do ..lbOrders.Items.EndUpdate()
Index: UI/MB/UGLYPicking/dlgOrderSel.cls.xml
===================================================================
diff -u -r8070 -r18833
--- UI/MB/UGLYPicking/dlgOrderSel.cls.xml	(.../dlgOrderSel.cls.xml)	(revision 8070)
+++ UI/MB/UGLYPicking/dlgOrderSel.cls.xml	(.../dlgOrderSel.cls.xml)	(revision 18833)
@@ -857,7 +857,7 @@
  . Else  Do
  ..  Set ..aMagazijnenForOrder(ConsNr)=$LB(Magazijn)
  . Set:(..GetShortDueOut(RS.Get("Tijd"))=0)&&(..aOrder(Magazijn,$$$moUrgentie)<2) ..aOrder(Magazijn,$$$moUrgentie)=$S(RS.Get("KlantNr")=$$$KlantKeller:2,1:1) ; bij Keller wordt DRINGEND -> SUPERSPOED ;
- . Set:(RS.Get("VerzendWijze")?1(1"AFH",1"AF")) ..aOrder(Magazijn,$$$moAfhaling)=1
+ . Set:(RS.Get("VerzendWijze")?1(1"AFH",1"AF".E)) ..aOrder(Magazijn,$$$moAfhaling)=1
  . If ..aOrder(Magazijn,$$$moConsNr)=0 Do  Quit    ;EERSTE MAAL GEGEVENS INVULLEN (we moeten minima zoeken)
  ..  Set ..aOrder(Magazijn,$$$moOldestDueOut)=$$HToNum^vhLib(RS.Get("Tijd"))
  ..  Set ..aOrder(Magazijn,$$$moOldestBOPicking)=$$HToNum^vhLib(RS.Get("BeginPicking"))