Index: vhUnitTest/APPS/Halux/AAP/DnaCodeService/ZoekViaToeleveringIdEnSequentieNummerEnProductNummerEnRecent/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/AAP/DnaCodeService/ZoekViaToeleveringIdEnSequentieNummerEnProductNummerEnRecent/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/AAP/DnaCodeService/ZoekViaToeleveringIdEnSequentieNummerEnProductNummerEnRecent/Test.cls.xml	(revision 71891)
@@ -0,0 +1,118 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.AAP.DnaCodeService.ZoekViaToeleveringIdEnSequentieNummerEnProductNummerEnRecent.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="BatchId">
+<Type>%Integer</Type>
+<Default>1234</Default>
+</Parameter>
+
+<Property name="ProductTypeApiStub">
+<Type>DOM.PM.impl.ProductTypeAPIimpl</Type>
+</Property>
+
+<Property name="DnaCodeGeneratorStub">
+<Type>APPS.Halux.AAP.DnaCodeGenerator</Type>
+</Property>
+
+<Property name="LijnId">
+<Type>APPS.Halux.common.enu.ProductieLijn</Type>
+</Property>
+
+<Property name="Batch">
+<Type>APPS.Halux.common.Batch</Type>
+</Property>
+
+<Property name="ProductApiStub">
+<Type>DOM.PM.ProductAPI</Type>
+</Property>
+
+<Property name="SequentieService">
+<Type>APPS.Halux.common.impl.SequentieService</Type>
+</Property>
+
+<Method name="Test: Indien er 1 dnacode wordt gevonden, deze teruggeven">
+<Implementation><![CDATA[
+	#dim DummyDnaCode As %String = "DummyDnaCode1"
+	#dim ToeleveringId As %String = "100000"
+	#dim SequentieNummer As %Integer = 1
+	#dim ProductNummer As %String = "200000"
+	
+	#dim DnaCodeIterator As TECH.ItemIterator = ..GeefDnaCodeIterator(DummyDnaCode, 1)	
+	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaToeleveringIdEnSequentieNummerEnProductNummerEnRecent", ToeleveringId, SequentieNummer, ProductNummer).DanReturn(DnaCodeIterator)
+	
+	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock)
+	#dim Resultaat = DnaCodeService.GeefDnaCodeViaToeleveringIdEnSequentieNummerEnProductNummerEnRecent(ToeleveringId, SequentieNummer, ProductNummer)
+	
+	Do $$$AssertEquals(Resultaat, DummyDnaCode)
+	
+	Do DnaCodeRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Meerdere dnacodes gevonden geeft een error">
+<Implementation><![CDATA[
+	
+	#dim DummyDnaCode As %String = "DummyDnaCode1"
+	#dim ToeleveringId As %String = "100000"
+	#dim SequentieNummer As %Integer = 1
+	#dim ProductNummer As %String = "200000"
+	
+	#dim DnaCodeIterator As TECH.ItemIterator = ..GeefDnaCodeIterator(DummyDnaCode, 2)	
+	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaToeleveringIdEnSequentieNummerEnProductNummerEnRecent", ToeleveringId, SequentieNummer, ProductNummer).DanReturn(DnaCodeIterator)
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Meerdere dnacodes gevonden voor toelevering '100000', product '200000' en sequentienummer '1'.")
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.DataCorruptException",Substrings))
+	
+	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock)
+	#dim Resultaat = DnaCodeService.GeefDnaCodeViaToeleveringIdEnSequentieNummerEnProductNummerEnRecent(ToeleveringId, SequentieNummer, ProductNummer)
+		
+	Do DnaCodeRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Geen dnacodes gevonden geeft een error">
+<Implementation><![CDATA[
+	#dim ToeleveringId As %String = "100000"
+	#dim SequentieNummer As %Integer = 1
+	#dim ProductNummer As %String = "200000"
+
+	Set DnaCodeIterator = ##class(TECH.ListIterator).%New(##class(%ListOfObjects).%New())
+	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaToeleveringIdEnSequentieNummerEnProductNummerEnRecent", ToeleveringId, SequentieNummer, ProductNummer).DanReturn(DnaCodeIterator)
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Geen Dnacode gevonden voor toelevering '100000', product '200000' en sequentienummer '1'.")
+	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.DataNotFoundException", Substrings))
+	
+	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock)
+	#dim Resultaat = DnaCodeService.GeefDnaCodeViaToeleveringIdEnSequentieNummerEnProductNummerEnRecent(ToeleveringId, SequentieNummer, ProductNummer)
+
+	Do DnaCodeRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="GeefDnaCodeIterator">
+<FormalSpec>Dnacode:%String,Aantal:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	Set LijstDnaCodes = ##class(%ListOfObjects).%New()
+	#dim Index As %Integer
+	
+	For Index = 1:1:Aantal {
+		Set DnaCode = ##class(DOM.Halux.AAP.DnaCode).%New()
+		Set DnaCode.DnaCode = Dnacode
+		
+		Do LijstDnaCodes.Insert(DnaCode)
+	}
+	
+	Quit ##class(TECH.ListIterator).%New(LijstDnaCodes)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>