Index: WSimpl/Halux/PPS/MatService.cls.xml =================================================================== diff -u -r66526 -r66531 --- WSimpl/Halux/PPS/MatService.cls.xml (.../MatService.cls.xml) (revision 66526) +++ WSimpl/Halux/PPS/MatService.cls.xml (.../MatService.cls.xml) (revision 66531) @@ -49,7 +49,6 @@ } } Catch { #dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch() - Do ##class(Tools.Wlip).%New(26).String("In Catch") Set Response.Header.Status = Exception.GeefExceptionCode() Set Response.Header.Omschrijving = Exception.GeefOmschrijving() } @@ -99,13 +98,13 @@ Set GekoppeldeIKMattenActiviteitCode = ##class(APPS.Halux.PPS.Activiteit.impl.GekoppeldeIK.Matten).%New().#Code #dim ActiviteitId = ..GeefActiviteitId(Categorie, ActiviteitGroepId, GekoppeldeIKMattenActiviteitCode) - + Set ActieUitvoerder.ActiviteitGroepID = ActiviteitGroepId Set ActieUitvoerder.ActiviteitID = ActiviteitId #dim WerklijstItemIDLijst As %ListOfDataTypes = ActieUitvoerder.GeefWerklijstItemIDLijst(BatchId, $$$False) #dim UitvoeringInfoLijstPerInformatieID As %ArrayOfObjects = WerklijstItemsUitvoerder.GeefUitvoeringInfoLijstPerInformatieID(WerklijstItemIDLijst) - + Quit ##class(TECH.ListIterator).%New(UitvoeringInfoLijstPerInformatieID) ]]> @@ -116,11 +115,17 @@ APPS.Halux.PPS.Activiteit.ActiviteitGroep