Index: BL/MB/UGLYPicking/OrderSel.cls.xml =================================================================== diff -u -r2415 -r49599 --- BL/MB/UGLYPicking/OrderSel.cls.xml (.../OrderSel.cls.xml) (revision 2415) +++ BL/MB/UGLYPicking/OrderSel.cls.xml (.../OrderSel.cls.xml) (revision 49599) @@ -68,6 +68,9 @@ New Magazijn,KlantNaam,KlantNr,AantalLijnen,DueOutTime,DueOutTimeSmall,InsertTime,BeginPicking Set (LijnKey,SubKey)="" Set HoofdingObj=##class(Flow.OrderWMS.Hoofding).%OpenId(ConsNr,0) + If '$IsObject(HoofdingObj) Do Quit + . $$$WriteToLog("Bij ophalen BuildSortedMagViaConsnr bestaat ConsNr niet meer "_ConsNr) + ;Do WL^vhDBG("Checking "_HoofdingObj.%Id()_"... StatusWMS: "_HoofdingObj.StatusWMS) If "W/P"'[HoofdingObj.StatusWMS Do HoofdingObj.%Close() Quit ;Do WL^vhDBG("Access granted [StatusWMS = W or P]") @@ -277,7 +280,7 @@ %Library.Query - + @@ -286,15 +289,15 @@ %Library.Query ConsNr:%String - + %Library.Query - +