Index: APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r71621 -r71652
--- APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 71621)
+++ APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 71652)
@@ -256,7 +256,7 @@
 		#dim DnaCodeObject As DOM.Halux.AAP.DnaCode = DnaCodeLijst.GetAt(1)
 		Set DnaCode = DnaCodeObject.DnaCode
 	} Else {
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.DataCorruptException).%New("Er zijn '" _ DnaCodeLijst.Size _ "' DnaCodes gevonden in plaats van 1."))
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.DataCorruptException).%New("Er zijn '" _ DnaCodeLijst.Size _ "' DnaCodes gevonden in plaats van 1 voor BatchId '" _ BatchId _" en SequentieNummer '" _ Sequentienummer _ "'."))
 	}
 	
 	Quit DnaCode
Index: vhUnitTest/APPS/Halux/AAP/DnaCodeService/GeefDnaCodeVoorDubbeleAfdruk/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/AAP/DnaCodeService/GeefDnaCodeVoorDubbeleAfdruk/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/AAP/DnaCodeService/GeefDnaCodeVoorDubbeleAfdruk/Test.cls.xml	(revision 71652)
@@ -0,0 +1,89 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.AAP.DnaCodeService.GeefDnaCodeVoorDubbeleAfdruk.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="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	Set ..Batch = ##class(vhTest.Mock.APPS.Halux.common.Batch).%New(..LijnId)
+	Do ..Batch.IndienMethodCall("GeefID").DanReturn(..#BatchId)
+	Set ..SequentieService = ##class(vhTest.Mock.APPS.Halux.common.impl.SequentieService).%New()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Indien het aantal gevonden DnaCode objecten gelijk is aan 1, deze DnaCode teruggeven">
+<Implementation><![CDATA[
+	#dim DummyDnaCode As %String = "DummyDnaCode"
+	#dim BatchId As %String = "DummyBatchId"
+	#dim SequentieNummer As %Integer = 1
+	
+	Set DnaCode = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode.DnaCode = DummyDnaCode
+	#dim DnaCodeIterator As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode)
+	
+	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaBatchIdEnSequentienummer", BatchId, SequentieNummer).DanReturn(DnaCodeIterator)
+		
+	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock)
+	#dim Resultaat As %String = DnaCodeService.GeefDnaCodeVoorDubbeleAfdruk(BatchId, SequentieNummer)
+	
+	Do $$$AssertEquals(Resultaat, DummyDnaCode)
+	
+	Do DnaCodeRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Indien geen dnacode werd gevonden, error gooien">
+<Implementation><![CDATA[
+	#dim BatchId As %String = "DummyBatchId"
+	#dim SequentieNummer As %Integer = 1
+	
+	#dim DnaCodeIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(##class(%ListOfObjects).%New())
+	
+	Set DnaCodeRepositoryMock = ##class(vhTest.Mock.DOM.Halux.AAP.DnaCodeRepository).%New()
+	Do DnaCodeRepositoryMock.VerwachtMethodCall("ZoekViaBatchIdEnSequentienummer", BatchId, SequentieNummer).DanReturn(DnaCodeIterator)
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Er zijn '0' DnaCodes gevonden in plaats van 1 voor BatchId '" _ BatchId _" en SequentieNummer '" _ SequentieNummer _ "'.")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.DataCorruptException).%ClassName(1),Substrings))
+	
+	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock)
+	#dim Resultaat As %String = DnaCodeService.GeefDnaCodeVoorDubbeleAfdruk(BatchId, SequentieNummer)
+	
+	Do DnaCodeRepositoryMock.Verifieer()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>