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