Index: APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r58728 -r58946
--- APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 58728)
+++ APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 58946)
@@ -172,6 +172,21 @@
 	Quit DnaCode
 ]]></Implementation>
 </Method>
+
+<Method name="GeefVolgendeAfTeDrukkenDnaCode">
+<FormalSpec>ToeleveringID:%String,ProductID:%String,SequentieNummer:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim DnaCodeIterator As TECH.Iterator
+	Set DnaCodeIterator = ..DnaCodeRepository.ZoekViaToeleveringId(ToeleveringID)
+	#dim DnaCode As DOM.Halux.AAP.DnaCode
+	If DnaCodeIterator.HasNext() {
+		Set DnaCode = DnaCodeIterator.Next()
+		Set DnaCode.SequentieNummer = SequentieNummer
+		Do ..DnaCodeRepository.Bewaar(DnaCode)
+	}
+	Quit DnaCode
+]]></Implementation>
+</Method>
 </Class>