Index: vhUnitTest/APPS/Halux/AAP/DnaCodeService/GeefVolgendeAfTeDrukkenDnaCode/Test.cls.xml
===================================================================
diff -u -r58946 -r58949
--- vhUnitTest/APPS/Halux/AAP/DnaCodeService/GeefVolgendeAfTeDrukkenDnaCode/Test.cls.xml	(.../Test.cls.xml)	(revision 58946)
+++ vhUnitTest/APPS/Halux/AAP/DnaCodeService/GeefVolgendeAfTeDrukkenDnaCode/Test.cls.xml	(.../Test.cls.xml)	(revision 58949)
@@ -3,7 +3,7 @@
 <Class name="vhUnitTest.APPS.Halux.AAP.DnaCodeService.GeefVolgendeAfTeDrukkenDnaCode.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test: 1 DnaCode in Toelevering">
+<Method name="Test: 1 DnaCode (zonder sequentienummer) in Toelevering">
 <Implementation><![CDATA[
 	#dim ToeleveringId As %String = "222222"
 	#dim ProductNummer As %String = "1234567"
@@ -25,6 +25,24 @@
 	Do DnaCodeRepositoryMock.Verifieer()
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Geen relevantie DnaCodes te vinden -&gt; exception">
+<Implementation><![CDATA[
+	#dim ToeleveringId As %String = "222222"
+	#dim ProductNummer As %String = "1234567"
+	#dim SequentieNummer As %String = "1"
+	
+	Set DnaCodeRepositoryStub = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
+	Do DnaCodeRepositoryStub.IndienMethodCall("ZoekViaToeleveringId",ToeleveringId).DanReturn(..EmptyIterator())
+	
+	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryStub)
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Geen DnaCode zonder sequentienummer gevonden voor Toelevering '"_ToeleveringId_"' en product '"_ProductNummer_"'")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.DataNotFoundException", Substrings))
+	
+	#dim VolgendeDnaCode As DOM.Halux.AAP.DnaCode = DnaCodeService.GeefVolgendeAfTeDrukkenDnaCode(ToeleveringId,ProductNummer,SequentieNummer)
+]]></Implementation>
+</Method>
 </Class>