Index: WSimpl/Halux/PPS/MatService.cls.xml
===================================================================
diff -u -r66525 -r66526
--- WSimpl/Halux/PPS/MatService.cls.xml	(.../MatService.cls.xml)	(revision 66525)
+++ WSimpl/Halux/PPS/MatService.cls.xml	(.../MatService.cls.xml)	(revision 66526)
@@ -31,7 +31,6 @@
 <FormalSpec>GeefAfmetingenRequest:WS.Halux.PPS.MatService.GeefAfmetingenRequest</FormalSpec>
 <ReturnType>WS.Halux.PPS.MatService.GeefAfmetingenResponse</ReturnType>
 <Implementation><![CDATA[
-	
 	Set Response = ##class(WS.Halux.PPS.MatService.GeefAfmetingenResponse).%New()
 	Try {
 		#dim BatchId As %Integer = GeefAfmetingenRequest.BatchId
@@ -50,10 +49,11 @@
 		}
 	} 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()
 	}
-	
+		
 	Quit Response
 ]]></Implementation>
 </Method>
@@ -91,17 +91,70 @@
 <Implementation><![CDATA[
 	Set WerklijstItemsUitvoerder = ##class(APPS.Halux.PPS.Activiteit.impl.WerklijstItemsUitvoerder).%New()
 	Set ActieUitvoerder = ##class(APPS.Halux.PPS.impl.AansturingActieVoorActiviteit).%New()
+	#dim Batch As APPS.Halux.common.Batch = ##class(APPS.Halux.common.impl.BatchService).%New().GeefBatch(BatchId)
+	#dim Categorie As APPS.Halux.common.enu.Categorie = Batch.GeefCategorie()
 	
-	Set ActieUitvoerder.ActiviteitGroepID = "34" 	//LBX productiegroepID
-	Set ActieUitvoerder.ActiviteitID = "100" 		//LBX klantetiketten aansturingsactieID
+	#dim ActiviteitGroepNaam As %String = ..ActiviteitGroepFactory(Categorie).Naam
+	#dim ActiviteitGroepId = ..GeefGroepActiviteitId(Categorie, ActiviteitGroepNaam)
 	
+	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)
 ]]></Implementation>
 </Method>
 
+<Method name="ActiviteitGroepFactory">
+<FormalSpec>Categorie:APPS.Halux.common.enu.Categorie</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.Halux.PPS.Activiteit.ActiviteitGroep</ReturnType>
+<Implementation><![CDATA[
+	// Nog uitbreiden en verplaatsen naar aparte klasse
+	If (Categorie = ##class(APPS.Halux.common.enu.Categorie).Legrabox()) {
+		Quit ##class(APPS.Halux.PPS.Activiteit.impl.LBX.Groep.LBXVoormontage).%New()
+	} ElseIf (Categorie = ##class(APPS.Halux.common.enu.Categorie).Legrabox()) {
+		Quit ##class(APPS.Halux.PPS.Activiteit.impl.MVX.Groep.MVXVoormontage).%New()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefGroepActiviteitId">
+<FormalSpec>Categorie:APPS.Halux.common.enu.Categorie,ActiviteitGroepNaam:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	Set ActiviteitGroepRepository = ##class(APPS.Halux.PPS.Activiteit.ActiviteitGroepRepository).%New()
+	#dim GroepActiviteitIterator As TECH.Iterator = ActiviteitGroepRepository.ZoekViaCategorieEnNaam(Categorie, ActiviteitGroepNaam)
+
+	If ($$$Not(GroepActiviteitIterator.HasNext())) {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Geen activiteit voor ActiviteitCode " _ ActiviteitGroepNaam_", Categorie:"_Categorie))
+	}
+	
+	#dim GroepActiviteit As APPS.Halux.PPS.Activiteit.ActiviteitGroep = GroepActiviteitIterator.Next()
+
+	If (GroepActiviteitIterator.HasNext()) {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("ActiviteitGroep " _ ActiviteitGroepNaam _ " niet eenduidig. Categorie:"_Categorie))
+	}	
+		
+	Quit GroepActiviteit.GeefID()
+]]></Implementation>
+</Method>
+
+<Method name="GeefActiviteitId">
+<FormalSpec>Categorie:APPS.Halux.common.enu.Categorie,GroepActiviteitId:%Integer,ActiviteitCode:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ActivititeitRepository = ##class(APPS.Halux.PPS.Activiteit.impl.ActiviteitRepository).%New()
+	Quit ActivititeitRepository.GeefActiviteitIDVoorCode(ActiviteitCode, GroepActiviteitId, Categorie)
+]]></Implementation>
+</Method>
+
 <Method name="IsMat">
 <FormalSpec>UitvoeringInfo:APPS.Halux.PPS.dto.UitvoeringInfo</FormalSpec>
 <Private>1</Private>
Index: APPS/Halux/PPS/Activiteit/ActiviteitGroepRepository.cls.xml
===================================================================
diff -u -r37536 -r66526
--- APPS/Halux/PPS/Activiteit/ActiviteitGroepRepository.cls.xml	(.../ActiviteitGroepRepository.cls.xml)	(revision 37536)
+++ APPS/Halux/PPS/Activiteit/ActiviteitGroepRepository.cls.xml	(.../ActiviteitGroepRepository.cls.xml)	(revision 66526)
@@ -7,6 +7,13 @@
 <Type>%String</Type>
 <Default>APPS.Halux.PPS.Activiteit.ActiviteitGroep</Default>
 </Parameter>
+
+<Method name="ZoekViaCategorieEnNaam">
+<FormalSpec>Categorie:%String,Naam:%String</FormalSpec>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ..ZoekViaFilter("Categorie = ? AND Naam = ?", $LB(Categorie, Naam))
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/Halux/PPS/Activiteit/impl/ActiviteitRepository.cls.xml
===================================================================
diff -u -r29059 -r66526
--- APPS/Halux/PPS/Activiteit/impl/ActiviteitRepository.cls.xml	(.../ActiviteitRepository.cls.xml)	(revision 29059)
+++ APPS/Halux/PPS/Activiteit/impl/ActiviteitRepository.cls.xml	(.../ActiviteitRepository.cls.xml)	(revision 66526)
@@ -9,13 +9,34 @@
 <Implementation><![CDATA[
 	#dim ActiviteitCodes As %String = ""
 	Set ActiviteitCodes = "'" _ ##class(TECH.ListUtils).ListToPieces(ActiviteitCodeList, "','" ) _ "'"
-	#dim Query As %String = "SELECT ID  FROM APPS_Halux_PPS_Activiteit.Activiteit As Act  WHERE (Code in ("_ActiviteitCodes_")) AND (ActiviteitGroepID = ?)"
+	#dim Query As %String = "SELECT ID FROM APPS_Halux_PPS_Activiteit.Activiteit As Act WHERE (Code in ("_ActiviteitCodes_")) AND (ActiviteitGroepID = ?)"
 	#dim ResultSet As TECH.ResultSet = ##class(TECH.Context).Instance().GeefQueryAPI().GetDynamicResultSet(Query,$LB(ActivititeitGroepID))
 	#dim ActiviteitIDs As %ListOfDataTypes = ResultSet.GeefLijstVanIDs()
 	Do ResultSet.Close()
 	Quit ActiviteitIDs
 ]]></Implementation>
 </Method>
+
+<Method name="GeefActiviteitIDVoorCode">
+<FormalSpec>ActiviteitCode:%String,ActivititeitGroepID:%String,Categorie:%String</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim Query As %String = "SELECT ID FROM APPS_Halux_PPS_Activiteit.Activiteit As Act WHERE Code = ? AND ActiviteitGroepID = ?"
+	#dim ResultSet As TECH.ResultSet = ##class(TECH.Context).Instance().GeefQueryAPI().GetDynamicResultSet(Query, $LB(ActiviteitCode, ActivititeitGroepID))
+	#dim ActiviteitIDs As %ListOfDataTypes = ResultSet.GeefLijstVanIDs()
+	Do ResultSet.Close()
+	
+	#dim AantalActiviteiten = ActiviteitIDs.Count()
+	If (AantalActiviteiten > 1) {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("ActiviteitCode " _ ActiviteitCode _ " niet eenduidig. Categorie:"_Categorie))
+	}
+	If (AantalActiviteiten = 0) {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Geen activiteit voor ActiviteitCode " _ ActiviteitCode_", Categorie:"_Categorie))
+	}
+	
+	Quit ActiviteitIDs.GetNext()
+]]></Implementation>
+</Method>
 </Class>