Index: OBJTimpl/WMSOrder/ImporteerPicking.cls.xml =================================================================== diff -u -r67720 -r67722 --- OBJTimpl/WMSOrder/ImporteerPicking.cls.xml (.../ImporteerPicking.cls.xml) (revision 67720) +++ OBJTimpl/WMSOrder/ImporteerPicking.cls.xml (.../ImporteerPicking.cls.xml) (revision 67722) @@ -134,7 +134,6 @@ While PickLijnIterator.HasNext() { Set ..rsPicking=PickLijnIterator.Next() - Do ##class(Tools.Wlip).%New(207).String(..rsPicking.GetDataByName("LIJNNR")) Set AantalPerOrderLijn(..rsPicking.GetDataByName("LIJNNR")) = $Get(AantalPerOrderLijn(..rsPicking.GetDataByName("LIJNNR")),0) + 1 } @@ -145,7 +144,6 @@ While PickLijnIterator.HasNext() { Set ..rsPicking=PickLijnIterator.Next() - Do ##class(Tools.Wlip).%New(207).String(..rsPicking.GetDataByName("LIJNNR")) Set CountPerOrderLijn(..rsPicking.GetDataByName("LIJNNR")) = $Get(CountPerOrderLijn(..rsPicking.GetDataByName("LIJNNR")),0) + 1 #dim Full as %Boolean = (CountPerOrderLijn(..rsPicking.GetDataByName("LIJNNR")) = AantalPerOrderLijn(..rsPicking.GetDataByName("LIJNNR"))) Do ..VerwerkPicking(Full,CountPerOrderLijn(..rsPicking.GetDataByName("LIJNNR"))-1)