Index: APPS/Halux/PPS/MatService.cls.xml
===================================================================
diff -u -r66764 -r68902
--- APPS/Halux/PPS/MatService.cls.xml	(.../MatService.cls.xml)	(revision 66764)
+++ APPS/Halux/PPS/MatService.cls.xml	(.../MatService.cls.xml)	(revision 68902)
@@ -13,15 +13,21 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>MatInfoRepository:DOM.Halux.PPS.MatInfoRepository="",MatUitvoeringInfoBepaler:APPS.Halux.PPS.MatService.MatUitvoeringInfoBepaler=""</FormalSpec>
+<FormalSpec>MatInfoRepository:DOM.Halux.PPS.MatInfoRepository="",MatUitvoeringInfoBepaler:APPS.Halux.PPS.MatService.MatUitvoeringInfoBepaler="",Logger:vhLib.Logger=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..MatInfoRepository = $$$Inject(MatInfoRepository, ##class(DOM.Halux.PPS.MatInfoRepository).%New())
 	Set ..MatUitvoeringInfoBepaler = $$$Inject(MatUitvoeringInfoBepaler,##class(APPS.Halux.PPS.MatService.MatUitvoeringInfoBepaler).%New())
+	Set ..Logger = $$$Inject(Logger, ##class(vhLib.Logger).%New("MatService"))
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -30,12 +36,17 @@
 <Method name="BewaarMattenInfo">
 <FormalSpec>Batch:APPS.Halux.common.Batch</FormalSpec>
 <Implementation><![CDATA[
-	#dim Categorie As APPS.Halux.common.enu.Categorie = Batch.GeefCategorie()
-	#dim MatInfoLijst As %ListOfDataTypes = ..GeefMatInfoIterator(Batch.GeefID(), Categorie)
-	
-	Set MatInfoIterator = ##class(TECH.ListIterator).%New(MatInfoLijst)
-	While MatInfoIterator.HasNext() {
-		Do ..BewaarMatInfo(MatInfoIterator.Next())
+	Try {
+		#dim Categorie As APPS.Halux.common.enu.Categorie = Batch.GeefCategorie()
+		#dim MatInfoLijst As %ListOfDataTypes = ..GeefMatInfoIterator(Batch.GeefID(), Categorie)
+		
+		Set MatInfoIterator = ##class(TECH.ListIterator).%New(MatInfoLijst)
+		While MatInfoIterator.HasNext() {
+			Do ..BewaarMatInfo(MatInfoIterator.Next())
+		}	
+	} Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Do ..Logger(Exception)
 	}
 ]]></Implementation>
 </Method>