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) Index: Flow/OrderWMS/Hoofding.cls.xml =================================================================== diff -u -r1074 -r57981 --- Flow/OrderWMS/Hoofding.cls.xml (.../Hoofding.cls.xml) (revision 1074) +++ Flow/OrderWMS/Hoofding.cls.xml (.../Hoofding.cls.xml) (revision 57981) @@ -372,11 +372,31 @@ literal (19*3600)) Set Tijd=$P($H,",",2) ; indien ongeldige tijd, soms is de tijd 0 of zelfs negatief - PV 29/11/2010 + If (Tijd<3000)||(Tijd>(22*3600)) Set Tijd=$P($H,",",2) ; indien ongeldige tijd, soms is de tijd 0 of zelfs negatief - PV 29/11/2010 Quit $ZT(Tijd,2) ]]> + +cache +0 +%Library.String +document +literal +(22*3600)) Set Tijd=$P($H,",",2) ; indien ongeldige tijd, soms is de tijd 0 of zelfs negatief - PV 29/11/2010 + Quit $ZT($Select(Tijd<0 : 0 , Tijd > 86399:86399, 1:Tijd),2) + } +]]> + + Dev:%Library.String,Magazijn:%Library.String cache Index: BL/MB/UGLYPicking/OrderSel.cls.xml =================================================================== diff -u -r49599 -r57981 --- BL/MB/UGLYPicking/OrderSel.cls.xml (.../OrderSel.cls.xml) (revision 49599) +++ BL/MB/UGLYPicking/OrderSel.cls.xml (.../OrderSel.cls.xml) (revision 57981) @@ -64,7 +64,7 @@ ;Zorg voor een kill van '%mbSortedMagList', want deze method zal de array invullen New HoofdingObj,LijnObj,SubObj - New LijnKey,SubKey,SortedMagKey + New LijnKey,SubKey,SortedMagKey,SortTime, SortDate New Magazijn,KlantNaam,KlantNr,AantalLijnen,DueOutTime,DueOutTimeSmall,InsertTime,BeginPicking Set (LijnKey,SubKey)="" Set HoofdingObj=##class(Flow.OrderWMS.Hoofding).%OpenId(ConsNr,0) @@ -75,7 +75,11 @@ If "W/P"'[HoofdingObj.StatusWMS Do HoofdingObj.%Close() Quit ;Do WL^vhDBG("Access granted [StatusWMS = W or P]") Set DueOutTime=HoofdingObj.DueOutTime //DueOutTime FORMAAT: $H - Set DueOutTimeSmall=HoofdingObj.GetDueOutSmall() //DueOutTimeSmall FMT: 14:20 + Set DueOutTimeSmall=HoofdingObj.GetDueOutSmallOrderLijst() //DueOutTimeSmall FMT: 14:20 of woord NU indien in het verleden + if ($Piece($H,",",1) < $Piece(DueOutTime,",",1)){ + ;indien morgen of nog verder in de toekomst, DD/MM ervoor zetten JoW, ICT-609 + Set DueOutTimeSmall = $p($ZDT(DueOutTime,4),"/",1,2) _ " " _DueOutTimeSmall + } Set BeginPicking=HoofdingObj.BeginOrderPicking If HoofdingObj.Klant Do //KLANT CHECK . Set KlantNaam=HoofdingObj.Klant.Naam @@ -96,7 +100,10 @@ .. Set Magazijn=##class(BL.MB.UGLYPicking.General).ControleVerwerkingSoftware(SubObj.VerwerkingSoftware) ;NewSchool line .. ;Do WL^vhDBG("-> Magazijn: "_Magazijn) .. Quit:(Magazijn="") //SLUIT INDIEN GEEN=('AUTO',...) MAGAZIJN - .. Set SortedMagKey=DueOutTime_Magazijn_ConsNr + .. ; Maken dat juist alfabetisch gesorteerd wordt met Horologs (seconden links aanvullen tot 5 pos) JoW, ICT-609 + .. Set SortDate = $Piece(DueOutTime,",",1) + .. Set SortTime = $Extract("00000"_$Piece(DueOutTime,",",2),$Length("00000"_$Piece(DueOutTime,",",2))-4,$Length("00000"_$Piece(DueOutTime,",",2))) + .. Set SortedMagKey=SortDate_SortTime_Magazijn_ConsNr .. If $D(%mbSortedMagList(SortedMagKey)) Do ... Set $LI(%mbSortedMagList(SortedMagKey),4)=$LI(%mbSortedMagList(SortedMagKey),4)+1 //AantalLijnen voor Mag+1 .. Else Do