Index: vhUnitTest/APPS/Halux/PPS/MatService/BewaarMattenInfo/Test.cls.xml
===================================================================
diff -u -r66722 -r66724
--- vhUnitTest/APPS/Halux/PPS/MatService/BewaarMattenInfo/Test.cls.xml	(.../Test.cls.xml)	(revision 66722)
+++ vhUnitTest/APPS/Halux/PPS/MatService/BewaarMattenInfo/Test.cls.xml	(.../Test.cls.xml)	(revision 66724)
@@ -12,7 +12,7 @@
 	Do LbxBatchStub.IndienMethodCall("GeefCategorie").DanReturn(Categorie)
 	Do LbxBatchStub.IndienMethodCall("GeefID").DanReturn(BatchId)
 	
-		Set MatInfoRepositoryMock = ##class(vhTest.Mock.DOM.Halux.PPS.MatInfoRepository).%New()
+	Set MatInfoRepositoryMock = ##class(vhTest.Mock.DOM.Halux.PPS.MatInfoRepository).%New()
 	Do MatInfoRepositoryMock.VerwachtMethodCall("Bewaar").ExactAantalKeer(0)
 	
 	Set LegeUitvoeringInfoIterator = ##class(TECH.ListIterator).%New(##class(%ArrayOfObjects).%New())
@@ -26,6 +26,92 @@
 	Do MatInfoRepositoryMock.Verifieer()
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Niet opgeslagen MatUitvoeringInfoLijst -&gt; Opslaan in database">
+<Implementation><![CDATA[
+	#dim BatchId As %Integer = 123456
+	#dim Categorie As APPS.Halux.common.enu.Categorie = ##class(APPS.Halux.common.enu.Categorie).Legrabox()
+	#dim ToeleveringId As %Integer = 100000
+	#dim DossierCode As %String = "UTDossierCode"
+	
+	Set LbxBatchStub = ##class(vhTest.Mock.APPS.Halux.common.Batch).%New()
+	Do LbxBatchStub.IndienMethodCall("GeefCategorie").DanReturn(Categorie)
+	Do LbxBatchStub.IndienMethodCall("GeefID").DanReturn(BatchId)
+	
+	Set LegeUitvoeringInfoIterator = ##class(TECH.ListIterator).%New(##class(%ArrayOfObjects).%New())
+	Set MatInfoRepositoryMock = ##class(vhTest.Mock.DOM.Halux.PPS.MatInfoRepository).%New()
+	Do MatInfoRepositoryMock.VerwachtMethodCall("ZoekViaProductIdEnDossierCode", ToeleveringId, DossierCode).DanReturn(LegeUitvoeringInfoIterator)
+	Do MatInfoRepositoryMock.VerwachtMethodCall("Bewaar", ..Matches.Extends("DOM.Halux.PPS.MatInfo")).ExactAantalKeer(2).DanDoeNiks()
+	
+	Set UitvoeringInfoLijst = ##class(%ListOfObjects).%New()
+	#dim MatInfo1 As DOM.Halux.PPS.MatInfo = ..MaakMattenUitvoeringObject(ToeleveringId, DossierCode)
+	#dim MatInfo2 As DOM.Halux.PPS.MatInfo = ..MaakMattenUitvoeringObject(ToeleveringId, DossierCode)
+	Do UitvoeringInfoLijst.Insert(MatInfo1)
+	Do UitvoeringInfoLijst.Insert(MatInfo2)
+	
+	#dim UitvoeringLijstIterator As TECH.ListIterator = ..MaakUitvoeringIterator(UitvoeringInfoLijst)
+	Set MatUitvoeringInfoBepalerMock = ##class(vhTest.Mock.APPS.Halux.PPS.MatService.MatUitvoeringInfoBepaler).%New()
+	Do MatUitvoeringInfoBepalerMock.VerwachtMethodCall("GeefMatUitvoeringIterator", BatchId, Categorie).DanReturn(UitvoeringLijstIterator)
+	
+	Set MatService = ##class(APPS.Halux.PPS.MatService).%New(MatInfoRepositoryMock, MatUitvoeringInfoBepalerMock)
+	Do MatService.BewaarMattenInfo(LbxBatchStub)
+	
+	Do MatUitvoeringInfoBepalerMock.Verifieer()
+	Do MatInfoRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="MaakMattenUitvoeringObject">
+<FormalSpec>ProductId:%Integer,DossierCode:%String</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.ProductID = ProductId
+	Set UitvoeringInfo.DossierCode = DossierCode
+
+	Quit UitvoeringInfo
+]]></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="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>