Index: vhUnitTest/WSimpl/Halux/PPS/MatService/GeefAfmetingenViaBatchId/Test.cls.xml
===================================================================
diff -u -r66621 -r66710
--- vhUnitTest/WSimpl/Halux/PPS/MatService/GeefAfmetingenViaBatchId/Test.cls.xml	(.../Test.cls.xml)	(revision 66621)
+++ vhUnitTest/WSimpl/Halux/PPS/MatService/GeefAfmetingenViaBatchId/Test.cls.xml	(.../Test.cls.xml)	(revision 66710)
@@ -46,17 +46,17 @@
 	#dim BatchServiceMock As vhTest.Mock.APPS.Halux.common.BatchService = ..GeefBatchMock(BatchId, Categorie)
 	
 	Set LegeUitvoeringInfoIterator = ##class(TECH.ListIterator).%New(##class(%ArrayOfObjects).%New())
-	Set GeefMatAfmetingenHelperMock = ##class(vhTest.Mock.WSimpl.Halux.PPS.MatService.GeefAfmetingenHelper).%New()
-	Do GeefMatAfmetingenHelperMock.VerwachtMethodCall("GeefUitvoeringIterator", BatchId, Categorie).DanReturn(LegeUitvoeringInfoIterator)
+	Set MatInfoRepositoryMock = ##class(vhTest.Mock.DOM.Halux.PPS.MatInfoRepository).%New()
+	Do MatInfoRepositoryMock.VerwachtMethodCall("ZoekViaBatchId", BatchId).DanReturn(LegeUitvoeringInfoIterator)
 	
-	Set MatService = ##class(WSimpl.Halux.PPS.MatService).%New(BatchServiceMock, GeefMatAfmetingenHelperMock)
+	Set MatService = ##class(WSimpl.Halux.PPS.MatService).%New(BatchServiceMock, MatInfoRepositoryMock)
 	#dim Antwoord As WS.Halux.PPS.MatService.GeefAfmetingenResponse = MatService.GeefAfmetingenViaBatchId(Request)
 	
 	Do $$$AssertEquals(Antwoord.Header.Status,##class(TECH.enu.ExceptionCode).DataNotFound())
 	Do $$$AssertEquals(Antwoord.Header.Omschrijving,"Geen data gevonden voor Batch met id '"_BatchId_"'.")
 	
 	Do BatchServiceMock.Verifieer()
-	Do GeefMatAfmetingenHelperMock.Verifieer()
+	Do MatInfoRepositoryMock.Verifieer()
 ]]></Implementation>
 </Method>
 
@@ -71,16 +71,16 @@
 	#dim BatchServiceMock As vhTest.Mock.APPS.Halux.common.BatchService = ..GeefBatchMock(BatchId, Categorie)
 	
 	Set UitvoeringInfoLijst = ##class(%ListOfObjects).%New()
-	#dim MattenUitvoeringInfo1 As APPS.Halux.PPS.Activiteit.impl.common.dto.MattenUitvoeringInfo = ..MaakMattenUitvoeringObject(100000, "1A2B", 300000, 1, 273, "-", 1500, 422, "UTBeschrijving1", "UTKleur1", "UTMateriaal1", 1, $$$False)
-	#dim MattenUitvoeringInfo2 As APPS.Halux.PPS.Activiteit.impl.common.dto.MattenUitvoeringInfo = ..MaakMattenUitvoeringObject(100001, "3C4D", 300001, 2, 423, "-", 1500, 548, "UTBeschrijving2", "UTKleur2", "UTMateriaal2", 2, $$$False)
-	Do UitvoeringInfoLijst.Insert(MattenUitvoeringInfo1)
-	Do UitvoeringInfoLijst.Insert(MattenUitvoeringInfo2)
+	#dim MatInfo1 As DOM.Halux.PPS.MatInfo = ..MaakMatInfoObject(100000, "1A2B", 300000, 1, 273, "-", 1500, 422, "UTBeschrijving1", "UTKleur1", "UTMateriaal1", 1, $$$False)
+	#dim MatInfo2 As DOM.Halux.PPS.MatInfo = ..MaakMatInfoObject(100001, "3C4D", 300001, 2, 423, "-", 1500, 548, "UTBeschrijving2", "UTKleur2", "UTMateriaal2", 2, $$$False)
+	Do UitvoeringInfoLijst.Insert(MatInfo1)
+	Do UitvoeringInfoLijst.Insert(MatInfo2)
 	
-	#dim UitvoeringLijstIterator As TECH.ListIterator = ..MaakUitvoeringIterator(UitvoeringInfoLijst)
-	Set GeefMatAfmetingenHelperMock = ##class(vhTest.Mock.WSimpl.Halux.PPS.MatService.GeefAfmetingenHelper).%New()
-	Do GeefMatAfmetingenHelperMock.VerwachtMethodCall("GeefUitvoeringIterator", BatchId, Categorie).DanReturn(UitvoeringLijstIterator)
+	Set UitvoeringLijstIterator = ##class(TECH.ListIterator).%New(UitvoeringInfoLijst)
+	Set MatInfoRepositoryMock = ##class(vhTest.Mock.DOM.Halux.PPS.MatInfoRepository).%New()
+	Do MatInfoRepositoryMock.VerwachtMethodCall("ZoekViaBatchId", BatchId).DanReturn(UitvoeringLijstIterator)
 	
-	Set MatService = ##class(WSimpl.Halux.PPS.MatService).%New(BatchServiceMock, GeefMatAfmetingenHelperMock)
+	Set MatService = ##class(WSimpl.Halux.PPS.MatService).%New(BatchServiceMock, MatInfoRepositoryMock)
 	#dim Antwoord As WS.Halux.PPS.MatService.GeefAfmetingenResponse = MatService.GeefAfmetingenViaBatchId(Request)
 	
 	Do $$$AssertEquals(Antwoord.Header.Status, 200)
@@ -97,7 +97,7 @@
 	Do $$$AssertEquals(UitvoeringInfo2Antwoord.Kleur, "UTKleur2")
 	
 	Do BatchServiceMock.Verifieer()
-	Do GeefMatAfmetingenHelperMock.Verifieer()
+	Do MatInfoRepositoryMock.Verifieer()
 ]]></Implementation>
 </Method>
 
@@ -112,14 +112,14 @@
 	#dim BatchServiceMock As vhTest.Mock.APPS.Halux.common.BatchService = ..GeefBatchMock(BatchId, Categorie)
 	
 	Set UitvoeringInfoLijst = ##class(%ListOfObjects).%New()
-	#dim MattenUitvoeringInfo1 As APPS.Halux.PPS.Activiteit.impl.common.dto.MattenUitvoeringInfo = ..MaakMattenUitvoeringObject(100000, "1A2B", 300000, 1, 273, "-", 1500, "-", "UTBeschrijving1", "UTKleur1", "UTMateriaal1", 1, $$$False)
-	Do UitvoeringInfoLijst.Insert(MattenUitvoeringInfo1)
+	#dim MatInfo1 As DOM.Halux.PPS.MatInfo = ..MaakMatInfoObject(100000, "1A2B", 300000, 1, 273, "-", 1500, "-", "UTBeschrijving1", "UTKleur1", "UTMateriaal1", 1, $$$False)
+	Do UitvoeringInfoLijst.Insert(MatInfo1)
 	
-	#dim UitvoeringLijstIterator As TECH.ListIterator = ..MaakUitvoeringIterator(UitvoeringInfoLijst)
-	Set GeefMatAfmetingenHelperMock = ##class(vhTest.Mock.WSimpl.Halux.PPS.MatService.GeefAfmetingenHelper).%New()
-	Do GeefMatAfmetingenHelperMock.VerwachtMethodCall("GeefUitvoeringIterator", BatchId, Categorie).DanReturn(UitvoeringLijstIterator)
+	Set UitvoeringLijstIterator = ##class(TECH.ListIterator).%New(UitvoeringInfoLijst)
+	Set MatInfoRepositoryMock = ##class(vhTest.Mock.DOM.Halux.PPS.MatInfoRepository).%New()
+	Do MatInfoRepositoryMock.VerwachtMethodCall("ZoekViaBatchId", BatchId).DanReturn(UitvoeringLijstIterator)
 	
-	Set MatService = ##class(WSimpl.Halux.PPS.MatService).%New(BatchServiceMock, GeefMatAfmetingenHelperMock)
+	Set MatService = ##class(WSimpl.Halux.PPS.MatService).%New(BatchServiceMock, MatInfoRepositoryMock)
 	#dim Antwoord As WS.Halux.PPS.MatService.GeefAfmetingenResponse = MatService.GeefAfmetingenViaBatchId(Request)
 	
 	Do $$$AssertEquals(Antwoord.Header.Status, 200)
@@ -131,7 +131,7 @@
 	Do $$$AssertEquals(UitvoeringInfoAntwoord.IsVoorgesneden, $$$True)
 	
 	Do BatchServiceMock.Verifieer()
-	Do GeefMatAfmetingenHelperMock.Verifieer()
+	Do MatInfoRepositoryMock.Verifieer()
 ]]></Implementation>
 </Method>
 
@@ -146,14 +146,14 @@
 	#dim BatchServiceMock As vhTest.Mock.APPS.Halux.common.BatchService = ..GeefBatchMock(BatchId, Categorie)
 	
 	Set UitvoeringInfoLijst = ##class(%ListOfObjects).%New()
-	#dim MattenUitvoeringInfo1 As APPS.Halux.PPS.Activiteit.impl.common.dto.MattenUitvoeringInfo = ..MaakMattenUitvoeringObject(100000, "1A2B", 300000, 1, 273, "-", 1500, 500, "UTBeschrijving1", "UTKleur1", "UTMateriaal1", 1, $$$False)
-	Do UitvoeringInfoLijst.Insert(MattenUitvoeringInfo1)
+	#dim MatInfo1 As DOM.Halux.PPS.MatInfo = ..MaakMatInfoObject(100000, "1A2B", 300000, 1, 273, "-", 1500, 500, "UTBeschrijving1", "UTKleur1", "UTMateriaal1", 1, $$$False)
+	Do UitvoeringInfoLijst.Insert(MatInfo1)
 	
-	#dim UitvoeringLijstIterator As TECH.ListIterator = ..MaakUitvoeringIterator(UitvoeringInfoLijst)
-	Set GeefMatAfmetingenHelperMock = ##class(vhTest.Mock.WSimpl.Halux.PPS.MatService.GeefAfmetingenHelper).%New()
-	Do GeefMatAfmetingenHelperMock.VerwachtMethodCall("GeefUitvoeringIterator", BatchId, Categorie).DanReturn(UitvoeringLijstIterator)
+	Set UitvoeringLijstIterator = ##class(TECH.ListIterator).%New(UitvoeringInfoLijst)
+	Set MatInfoRepositoryMock = ##class(vhTest.Mock.DOM.Halux.PPS.MatInfoRepository).%New()
+	Do MatInfoRepositoryMock.VerwachtMethodCall("ZoekViaBatchId", BatchId).DanReturn(UitvoeringLijstIterator)
 	
-	Set MatService = ##class(WSimpl.Halux.PPS.MatService).%New(BatchServiceMock, GeefMatAfmetingenHelperMock)
+	Set MatService = ##class(WSimpl.Halux.PPS.MatService).%New(BatchServiceMock, MatInfoRepositoryMock)
 	#dim Antwoord As WS.Halux.PPS.MatService.GeefAfmetingenResponse = MatService.GeefAfmetingenViaBatchId(Request)
 	
 	Do $$$AssertEquals(Antwoord.Header.Status, 200)
@@ -165,7 +165,7 @@
 	Do $$$AssertEquals(UitvoeringInfoAntwoord.IsVoorgesneden, $$$False)
 	
 	Do BatchServiceMock.Verifieer()
-	Do GeefMatAfmetingenHelperMock.Verifieer()
+	Do MatInfoRepositoryMock.Verifieer()
 ]]></Implementation>
 </Method>
 
@@ -183,38 +183,16 @@
 ]]></Implementation>
 </Method>
 
-<Method name="MaakUitvoeringIterator">
-<FormalSpec>UitvoeringInfoLijst:%ListOfObjects</FormalSpec>
-<Private>1</Private>
-<ReturnType>TECH.ListIterator</ReturnType>
-<Implementation><![CDATA[
-	Set UitvoeringInfoLijstPerInformatieID = ##class(%ArrayOfObjects).%New()
-	Set UitvoeringInfoLijstIterator = ##class(TECH.ListIterator).%New(UitvoeringInfoLijst)
-	#dim Count As %Integer = 0
-	
-	While (UitvoeringInfoLijstIterator.HasNext()) {
-		#dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.common.dto.MattenUitvoeringInfo = UitvoeringInfoLijstIterator.Next()
-		Set Count = Count + 1
-
-		If $IsObject(UitvoeringInfo) {
-			Do ..VoegToeAanUitvoeringInfoLijstPerInformatieID(UitvoeringInfoLijstPerInformatieID, Count, UitvoeringInfo)
-		}
-	}
-	
-	Quit ##class(TECH.ListIterator).%New(UitvoeringInfoLijstPerInformatieID)
-]]></Implementation>
-</Method>
-
-<Method name="MaakMattenUitvoeringObject">
+<Method name="MaakMatInfoObject">
 <FormalSpec>ToeleveringId:%Integer,DossierCode:%String,ProductId:%Integer,Aantal:%Decimal,Diepte:%Decimal,BewerkingDiepte:%String,Breedte:%Decimal,BewerkingBreedte:%String,Beschrijving:%String,Kleur:%String,Materiaal:%String,SequentieNummer:%Integer,IsRework:%Boolean</FormalSpec>
 <Private>1</Private>
 <ReturnType>APPS.Halux.PPS.Activiteit.impl.common.dto.MattenUitvoeringInfo</ReturnType>
 <Implementation><![CDATA[
-	Set UitvoeringInfo = ##class(APPS.Halux.PPS.Activiteit.impl.common.dto.MattenUitvoeringInfo).%New()
+	Set UitvoeringInfo = ##class(DOM.Halux.PPS.MatInfo).%New()
 		
-	Set UitvoeringInfo.ToeleveringID = ToeleveringId
+	Set UitvoeringInfo.ToeleveringId = ToeleveringId
 	Set UitvoeringInfo.DossierCode = DossierCode
-	Set UitvoeringInfo.ProductID = ProductId
+	Set UitvoeringInfo.ProductId = ProductId
 	Set UitvoeringInfo.Aantal = Aantal	
 	Set UitvoeringInfo.Diepte = Diepte
 	Set UitvoeringInfo.BewerkingDiepte = BewerkingDiepte
@@ -228,22 +206,6 @@
 	Quit UitvoeringInfo
 ]]></Implementation>
 </Method>
-
-<Method name="VoegToeAanUitvoeringInfoLijstPerInformatieID">
-<FormalSpec>UitvoeringInfoLijstArray:%ArrayOfObjects,InformatieID:%String,UitvoeringInfo:APPS.Halux.PPS.dto.UitvoeringInfo</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	#dim Lijst As APPS.Halux.PPS.dto.UitvoeringInfoLijst 
-	
-	If $$$Not(UitvoeringInfoLijstArray.IsDefined(InformatieID)) {
-		Do UitvoeringInfoLijstArray.SetAt(##class(APPS.Halux.PPS.dto.UitvoeringInfoLijst).%New(),InformatieID)
-	} 	
-	Set Lijst = UitvoeringInfoLijstArray.GetAt(InformatieID)
-	Do Lijst.Insert(UitvoeringInfo)
-	
-	Quit
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: WSimpl/Halux/PPS/MatService.cls.xml
===================================================================
diff -u -r66637 -r66710
--- WSimpl/Halux/PPS/MatService.cls.xml	(.../MatService.cls.xml)	(revision 66637)
+++ WSimpl/Halux/PPS/MatService.cls.xml	(.../MatService.cls.xml)	(revision 66710)
@@ -8,20 +8,20 @@
 <Private>1</Private>
 </Property>
 
-<Property name="GeefMatAfmetingenHelper">
-<Type>WSimpl.Halux.PPS.MatService.GeefAfmetingenHelper</Type>
+<Property name="MatInfoRepository">
+<Type>DOM.Halux.PPS.MatInfoRepository</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>BatchService:APPS.Halux.common.impl.BatchService="",GeefMatAfmetingenHelper:WSimpl.Halux.PPS.MatService.GeefAfmetingenHelper</FormalSpec>
+<FormalSpec>BatchService:APPS.Halux.common.impl.BatchService="",MatInfoRepository:DOM.Halux.PPS.MatInfoRepository=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..BatchService = $$$Inject(BatchService, ##class(APPS.Halux.common.impl.BatchService).%New())
-	Set ..GeefMatAfmetingenHelper = $$$Inject(GeefMatAfmetingenHelper, ##class(WSimpl.Halux.PPS.MatService.GeefAfmetingenHelper).%New())
+	Set ..MatInfoRepository = $$$Inject(MatInfoRepository, ##class(DOM.Halux.PPS.MatInfoRepository).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -40,7 +40,7 @@
 			#dim Categorie As APPS.Halux.common.enu.Categorie = Batch.GeefCategorie()
 		
 			If (..IsCategorieOndersteund(Categorie)) {
-				#dim MatAfmetingenIterator As TECH.Iterator = ..GeefMatAfmetingenIterator(BatchId, Categorie)
+				#dim MatAfmetingenIterator As TECH.Iterator = ..MatInfoRepository.ZoekViaBatchId(BatchId)
 		
 				If MatAfmetingenIterator.HasNext() {
 					Set Response.Header.Status = "200"
@@ -80,7 +80,7 @@
 	
 	Try {
 		#dim ProductId As %Integer = ZetStatusGesnedenRequest.ProductId
-		
+				
 		If ($$$Not(ProductId = "")) {
 			
 		} Else {
@@ -89,6 +89,8 @@
 		}
 	} Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Set Response.Header.Status = Exception.GeefExceptionCode()
+		Set Response.Header.Omschrijving = Exception.GeefOmschrijving()
 	}
 	
 	Quit Response
@@ -110,62 +112,28 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefMatAfmetingenIterator">
-<FormalSpec>BatchId:%Integer,Categorie:APPS.Halux.common.enu.Categorie</FormalSpec>
-<Private>1</Private>
-<ReturnType>TECH.ListIterator</ReturnType>
-<Implementation><![CDATA[
-	#dim UitvoeringLijstIterator As TECH.ListIterator = ..GeefMatAfmetingenHelper.GeefUitvoeringIterator(BatchId, Categorie)
-	#dim MatAfmetingenLijst As %ListOfObjects = ##class(%ListOfObjects).%New()
-
-	While (UitvoeringLijstIterator.HasNext()) {
-		#dim UitvoeringInfoLijst As APPS.Halux.PPS.dto.UitvoeringInfoLijst = UitvoeringLijstIterator.Next()
-		
-		Set UitvoeringInfoLijstIterator = ##class(TECH.ListIterator).%New(UitvoeringInfoLijst)
-		While UitvoeringInfoLijstIterator.HasNext() {
-			#dim UitvoeringInfo As APPS.Halux.PPS.dto.UitvoeringInfo = UitvoeringInfoLijstIterator.Next()
-		
-			If ..IsMat(UitvoeringInfo) {
-				#dim MatUitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.common.dto.MattenUitvoeringInfo = UitvoeringInfo
-				Do MatAfmetingenLijst.Insert(MatUitvoeringInfo)
-			}
-		}
-	}
-	
-	Quit ##class(TECH.ListIterator).%New(MatAfmetingenLijst)
-]]></Implementation>
-</Method>
-
-<Method name="IsMat">
-<FormalSpec>UitvoeringInfo:APPS.Halux.PPS.dto.UitvoeringInfo</FormalSpec>
-<Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit ($IsObject(UitvoeringInfo) && (UitvoeringInfo.%ClassName(1)="APPS.Halux.PPS.Activiteit.impl.common.dto.MattenUitvoeringInfo"))
-]]></Implementation>
-</Method>
-
 <Method name="MatAfmetingenUitvoeringInfoNaarDto">
-<FormalSpec>MatUitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.MattenUitvoeringInfo</FormalSpec>
+<FormalSpec>MatInfo:DOM.Halux.PPS.MatInfo</FormalSpec>
 <Private>1</Private>
 <ReturnType>WSimpl.Halux.PPS.dto.MatAfmeting</ReturnType>
 <Implementation><![CDATA[
 	Set MatAfmetingenDto = ##class(WSimpl.Halux.PPS.dto.MatAfmeting).%New()
 
-	Set MatAfmetingenDto.Toelevering = MatUitvoeringInfo.ToeleveringID
-	Set MatAfmetingenDto.DossierCode = MatUitvoeringInfo.DossierCode
-	Set MatAfmetingenDto.ProductId = MatUitvoeringInfo.ProductID
-	Set MatAfmetingenDto.Aantal = MatUitvoeringInfo.Aantal
-	Set MatAfmetingenDto.Diepte = MatUitvoeringInfo.Diepte
-	Set MatAfmetingenDto.BewerkingDiepte = MatUitvoeringInfo.BewerkingDiepte
-	Set MatAfmetingenDto.Breedte = MatUitvoeringInfo.Breedte
-	Set MatAfmetingenDto.BewerkingBreedte = MatUitvoeringInfo.BewerkingBreedte
-	Set MatAfmetingenDto.Beschrijving = MatUitvoeringInfo.Beschrijving
-	Set MatAfmetingenDto.Kleur = MatUitvoeringInfo.Kleur
-	Set MatAfmetingenDto.Materiaal = MatUitvoeringInfo.Materiaal
-	Set MatAfmetingenDto.SequentieNummer = MatUitvoeringInfo.SequentieNummer
-	Set MatAfmetingenDto.IsRework = MatUitvoeringInfo.IsRework
+	Set MatAfmetingenDto.Toelevering = MatInfo.ToeleveringId
+	Set MatAfmetingenDto.DossierCode = MatInfo.DossierCode
+	Set MatAfmetingenDto.ProductId = MatInfo.ProductId
+	Set MatAfmetingenDto.Aantal = MatInfo.Aantal
+	Set MatAfmetingenDto.Diepte = MatInfo.Diepte
+	Set MatAfmetingenDto.BewerkingDiepte = MatInfo.BewerkingDiepte
+	Set MatAfmetingenDto.Breedte = MatInfo.Breedte
+	Set MatAfmetingenDto.BewerkingBreedte = MatInfo.BewerkingBreedte
+	Set MatAfmetingenDto.Beschrijving = MatInfo.Beschrijving
+	Set MatAfmetingenDto.Kleur = MatInfo.Kleur
+	Set MatAfmetingenDto.Materiaal = MatInfo.Materiaal
+	Set MatAfmetingenDto.SequentieNummer = MatInfo.SequentieNummer
+	Set MatAfmetingenDto.IsRework = MatInfo.IsRework
 	
-	If ((MatUitvoeringInfo.BewerkingDiepte = "-") && (MatUitvoeringInfo.BewerkingBreedte = "-")) {
+	If ((MatInfo.BewerkingDiepte = "-") && (MatInfo.BewerkingBreedte = "-")) {
 		 Set MatAfmetingenDto.IsVoorgesneden = $$$True
 	} Else { 
 		Set MatAfmetingenDto.IsVoorgesneden = $$$False