Index: UI/MB/UGLYPicking/dlgOrderList.cls.xml
===================================================================
diff -u -r18833 -r57981
--- UI/MB/UGLYPicking/dlgOrderList.cls.xml	(.../dlgOrderList.cls.xml)	(revision 18833)
+++ UI/MB/UGLYPicking/dlgOrderList.cls.xml	(.../dlgOrderList.cls.xml)	(revision 57981)
@@ -306,8 +306,10 @@
  . 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
- . 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:"")
+ . ; 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)
  . 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
 
@@ -365,7 +367,7 @@
  Do:(..FilterMagazijn'="") ..lbOrders.Canvas.TextOut($LI(Rect,1)+70,$LI(Rect,2)+2,$LI(Text,..#pVerzendWijze))
 
  ;DUE-OUT
- Do ..lbOrders.Canvas.TextOut($LI(Rect,1)+160,$LI(Rect,2)+2,$LI(Text,..#pTijd))
+ Do ..lbOrders.Canvas.TextOut($LI(Rect,1)+140,$LI(Rect,2)+2,$LI(Text,..#pTijd))
 
  If $LI(Text,..#pIsUrgent) Do
  . New OldColor
@@ -378,9 +380,9 @@
 
  ;KlantNaam+Aantal lijnen
  If $LI(Text,..#pAantalLijnen)=1 Do
- . Do ..lbOrders.Canvas.TextOut($LI(Rect,1)+10,$LI(Rect,2)+15,$LI(Text,..#pKlantNaam)_", "_$LI(Text,..#pAantalLijnen)_" lijn")
+ . Do ..lbOrders.Canvas.TextOut($LI(Rect,1)+10,$LI(Rect,2)+15,$e($LI(Text,..#pKlantNaam),1,22)_", "_$LI(Text,..#pAantalLijnen)_" lijn")
  Else  Do
- . Do ..lbOrders.Canvas.TextOut($LI(Rect,1)+10,$LI(Rect,2)+15,$LI(Text,..#pKlantNaam)_", "_$LI(Text,..#pAantalLijnen)_" lijnen")
+ . Do ..lbOrders.Canvas.TextOut($LI(Rect,1)+10,$LI(Rect,2)+15,$e($LI(Text,..#pKlantNaam),1,22)_", "_$LI(Text,..#pAantalLijnen)_" lijnen")
 
  ;End of user code
  s Args=$lb(Control,Index,Rect,State)