Index: vhUnitTest/WSimpl/Halux/PPS/MatService/GeefAfmetingenViaBatchId/Test.cls.xml
===================================================================
diff -u -r66618 -r66620
--- vhUnitTest/WSimpl/Halux/PPS/MatService/GeefAfmetingenViaBatchId/Test.cls.xml	(.../Test.cls.xml)	(revision 66618)
+++ vhUnitTest/WSimpl/Halux/PPS/MatService/GeefAfmetingenViaBatchId/Test.cls.xml	(.../Test.cls.xml)	(revision 66620)
@@ -67,6 +67,113 @@
 	Do GeefMatAfmetingenHelperMock.Verifieer()
 ]]></Implementation>
 </Method>
+
+<Method name="Test: standaardgedrag =&gt; data gevonden">
+<Implementation><![CDATA[
+	#dim BatchId As %Integer = 123456
+	#dim Categorie As APPS.Halux.common.enu.Categorie = ##class(APPS.Halux.common.enu.Categorie).Legrabox()
+	
+	Set Request = ##class(WS.Halux.PPS.MatService.GeefAfmetingenRequest).%New()
+	Set Request.BatchId = BatchId
+	
+	Set LbxBatchStub = ##class(vhTest.Mock.APPS.Halux.common.Batch).%New()
+	Do LbxBatchStub.IndienMethodCall("GeefCategorie").DanReturn(Categorie)
+	
+	Set BatchServiceMock = ##class(vhTest.Mock.APPS.Halux.common.BatchService).%New()
+	Do BatchServiceMock.VerwachtMethodCall("GeefBatch", BatchId).DanReturn(LbxBatchStub)
+	
+	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 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 MatService = ##class(WSimpl.Halux.PPS.MatService).%New(BatchServiceMock, GeefMatAfmetingenHelperMock)
+	#dim Antwoord As WS.Halux.PPS.MatService.GeefAfmetingenResponse = MatService.GeefAfmetingenViaBatchId(Request)
+	
+	Do $$$AssertEquals(Antwoord.Header.Status, 200)
+	Do $$$AssertEquals(Antwoord.BatchId, BatchId)
+	Do $$$AssertEquals(Antwoord.Categorie, Categorie)
+	Do $$$AssertEquals(Antwoord.MatAfmetingen.Count(), 2)
+	
+	#dim UitvoeringInfo1Antwoord As WSimpl.Halux.PPS.dto.MatAfmeting = Antwoord.MatAfmetingen.GetAt(1)
+	Do $$$AssertEquals(UitvoeringInfo1Antwoord.Toelevering, 100000)
+	Do $$$AssertEquals(UitvoeringInfo1Antwoord.Kleur, "UTKleur1")
+	
+	#dim UitvoeringInfo2Antwoord As WSimpl.Halux.PPS.dto.MatAfmeting = Antwoord.MatAfmetingen.GetAt(2)
+	Do $$$AssertEquals(UitvoeringInfo2Antwoord.Toelevering, 100001)
+	Do $$$AssertEquals(UitvoeringInfo2Antwoord.Kleur, "UTKleur2")
+	
+	Do BatchServiceMock.Verifieer()
+	Do GeefMatAfmetingenHelperMock.Verifieer()
+]]></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">
+<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.ToeleveringID = ToeleveringId
+	Set UitvoeringInfo.DossierCode = DossierCode
+	Set UitvoeringInfo.ProductID = ProductId
+	Set UitvoeringInfo.Aantal = Aantal	
+	Set UitvoeringInfo.Diepte = Diepte
+	Set UitvoeringInfo.BewerkingDiepte = BewerkingDiepte
+	Set UitvoeringInfo.Breedte = Breedte
+	Set UitvoeringInfo.BewerkingBreedte = BewerkingBreedte
+	Set UitvoeringInfo.Kleur = Kleur
+	Set UitvoeringInfo.Materiaal = Materiaal
+	Set UitvoeringInfo.SequentieNummer = SequentieNummer
+	Set UitvoeringInfo.IsRework = IsRework
+
+	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>