Index: APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r66826 -r71621
--- APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 66826)
+++ APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 71621)
@@ -243,6 +243,25 @@
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="GeefDnaCodeVoorDubbeleAfdruk">
+<FormalSpec>BatchId:%String,Sequentienummer:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim DnaCode As %String = ""
+	#dim DnaCodeIterator As TECH.Iterator = ..DnaCodeRepository.ZoekViaBatchIdEnSequentienummer(BatchId, Sequentienummer)
+	#dim DnaCodeLijst As %ListOfObjects = ##class(TECH.ListUtils).IteratorToList(DnaCodeIterator)
+		
+	If (DnaCodeLijst.Size = 1) {
+		#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."))
+	}
+	
+	Quit DnaCode
+]]></Implementation>
+</Method>
 </Class>