Index: UI/MB/UGLYPicking/dlgOrderList.cls.xml
===================================================================
diff -u -r57981 -r58126
--- UI/MB/UGLYPicking/dlgOrderList.cls.xml	(.../dlgOrderList.cls.xml)	(revision 57981)
+++ UI/MB/UGLYPicking/dlgOrderList.cls.xml	(.../dlgOrderList.cls.xml)	(revision 58126)
@@ -306,7 +306,6 @@
  . Set Magazijn=RS.Get("Magazijn")
  . Quit:(CheckMagazijn && (Magazijn'=..FilterMagazijn))
  . Set DottedConsNr=$$CEL^vhFMT(0,"ConsNr","N","L",8,0,"")
- . Set VzwDisplay = RS.Get("VerzendWijze") 
  . Set VzwSpecial=RS.Get("VerzendWijze")   ; Added by WimV on 03/03/2009
  . ; volgende lijn wat aangepast, omdat vzw altijd getoond moet worden, behoud van bestaande omzettingen JoW, ICT-609
  . 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:VzwSpecial)
@@ -380,9 +379,9 @@
 
  ;KlantNaam+Aantal lijnen
  If $LI(Text,..#pAantalLijnen)=1 Do
- . Do ..lbOrders.Canvas.TextOut($LI(Rect,1)+10,$LI(Rect,2)+15,$e($LI(Text,..#pKlantNaam),1,22)_", "_$LI(Text,..#pAantalLijnen)_" lijn")
+ . Do ..lbOrders.Canvas.TextOut($LI(Rect,1)+10,$LI(Rect,2)+15,$Extract($LI(Text,..#pKlantNaam),1,22)_", "_$LI(Text,..#pAantalLijnen)_" lijn")
  Else  Do
- . Do ..lbOrders.Canvas.TextOut($LI(Rect,1)+10,$LI(Rect,2)+15,$e($LI(Text,..#pKlantNaam),1,22)_", "_$LI(Text,..#pAantalLijnen)_" lijnen")
+ . Do ..lbOrders.Canvas.TextOut($LI(Rect,1)+10,$LI(Rect,2)+15,$Extract($LI(Text,..#pKlantNaam),1,22)_", "_$LI(Text,..#pAantalLijnen)_" lijnen")
 
  ;End of user code
  s Args=$lb(Control,Index,Rect,State)