Index: APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r71652 -r71890
--- APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 71652)
+++ APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 71890)
@@ -262,6 +262,29 @@
 	Quit DnaCode
 ]]></Implementation>
 </Method>
+
+<Method name="GeefDnaCodeViaToeleveringIdEnSequentieNummerEnProductNummerEnRecent">
+<FormalSpec>ToeleveringId:%String,SequentieNummer:%String,ProductNummer:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim DnaCode As %String = ""
+	#dim DnaCodeIterator As TECH.Iterator =  ..DnaCodeRepository.ZoekViaToeleveringIdEnSequentieNummerEnProductNummerEnRecent(ToeleveringId, SequentieNummer, ProductNummer)
+	#dim DnaCodeLijst As %ListOfDataTypes = ##class(TECH.ListUtils).IteratorToList(DnaCodeIterator)
+	
+	If (DnaCodeLijst.Size = 1) {
+		#dim DnaCodeObject As DOM.Halux.AAP.DnaCode = DnaCodeLijst.GetAt(1)
+		Set DnaCode = DnaCodeObject.DnaCode
+	} ElseIf (DnaCodeLijst.Size = 0) {
+		Set Exception = ##class(TECH.Exceptions.DataNotFoundException).%New("Geen Dnacode gevonden voor toelevering '" _ ToeleveringId _ "', product '" _ ProductNummer _ "' en sequentienummer '" _ SequentieNummer _ "'.")
+		do ##class(TECH.ExceptionHandler).Throw(Exception)
+	} ElseIf (DnaCodeLijst.Size > 1) {
+		Set Exception = ##class(TECH.Exceptions.DataCorruptException).%New("Meerdere dnacodes gevonden voor toelevering '" _ ToeleveringId _ "', product '" _ ProductNummer _ "' en sequentienummer '" _ SequentieNummer _ "'.")
+		do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
+	
+	Quit DnaCode
+]]></Implementation>
+</Method>
 </Class>