Index: APPS/Halux/Planning/impl/BatchStarter.cls.xml
===================================================================
diff -u -r59486 -r66703
--- APPS/Halux/Planning/impl/BatchStarter.cls.xml	(.../BatchStarter.cls.xml)	(revision 59486)
+++ APPS/Halux/Planning/impl/BatchStarter.cls.xml	(.../BatchStarter.cls.xml)	(revision 66703)
@@ -28,8 +28,13 @@
 <Private>1</Private>
 </Property>
 
+<Property name="MatService">
+<Type>APPS.Halux.PPS.MatService</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>BatchBewaarder:APPS.Halux.Planning.BatchBewaarder,BatchSequentieService:APPS.Halux.common.impl.SequentieService,BatchSequentieVerwijderaar:APPS.Halux.Planning.impl.BatchSequentieVerwijderaar,Logger:vhLib.Logger,DnaCodeService:APPS.Halux.AAP.DnaCodeService</FormalSpec>
+<FormalSpec>BatchBewaarder:APPS.Halux.Planning.BatchBewaarder,BatchSequentieService:APPS.Halux.common.impl.SequentieService,BatchSequentieVerwijderaar:APPS.Halux.Planning.impl.BatchSequentieVerwijderaar,Logger:vhLib.Logger,DnaCodeService:APPS.Halux.AAP.DnaCodeService,MatService:APPS.Halux.PPS.MatService</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -40,6 +45,7 @@
 	Set ..BatchSequentieVerwijderaar = $$$Inject(BatchSequentieVerwijderaar,##class(APPS.Halux.Planning.impl.BatchSequentieVerwijderaar).%New()) 
 	Set ..Logger = $$$Inject(Logger, ##class(vhLib.Logger).%New())
 	Set ..DnaCodeService =  $$$Inject(DnaCodeService,##class(APPS.Halux.PPS.Activiteit.impl.TBX.KlantEtiketIoCContainer).Instance().Resolve("DnaCodeService"))
+	Set ..MatService = $$$Inject(MatService, ##class(APPS.Halux.PPS.MatService).%New())
 
 	Quit $$$OK
 ]]></Implementation>
@@ -60,18 +66,18 @@
 <FormalSpec>Batch:APPS.Halux.common.Batch</FormalSpec>
 <Implementation><![CDATA[
 	Quit:$$$Not(..ControleerBatchStatus(Batch))
-	
+
 	Try {
 		Do ..Logger.Info("StartBatch", "Starten van batch ("_Batch.GeefID()_") is begonnen.")
 		Do Batch.ZetStatus(##class(APPS.Halux.common.enu.BatchStatus).BezigMetStarten())
 		Do ..BatchBewaarder.BewaarBatch(Batch)
 		Do ..DnaCodeService.BewaarDnaCodes(..DnaCodeService.MaakDnaCodesVoorBatch(Batch))
 		Do ..BatchSequentieService.GenereerSequentie(Batch)
+		Do ..MatService.BewaarMattenInfo(Batch)
 		Do Batch.ZetStatus(##class(APPS.Halux.common.enu.BatchStatus).Gestart())
 		Do ..BatchBewaarder.BewaarBatch(Batch)
 		Do ##class(APPS.Halux.common.event.BatchEventRaiser).RaiseBatchGeslotenEvent(Batch.GeefID())
-	}
-	Catch {
+	} Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 		Do Batch.ZetStatus(##class(APPS.Halux.common.enu.BatchStatus).StartenGefaald())
 		Do ..BatchBewaarder.BewaarBatch(Batch)