Index: vhTest/Fake/APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r58946 -r58964
--- vhTest/Fake/APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 58946)
+++ vhTest/Fake/APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 58964)
@@ -20,7 +20,8 @@
 </Method>
 
 <Method name="GeefVolgendeAfTeDrukkenDnaCode">
-<Implementation><![CDATA[
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker/MaakWerklijstItems/Base.cls.xml
===================================================================
diff -u -r38805 -r58964
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker/MaakWerklijstItems/Base.cls.xml	(.../Base.cls.xml)	(revision 38805)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker/MaakWerklijstItems/Base.cls.xml	(.../Base.cls.xml)	(revision 58964)
@@ -71,6 +71,7 @@
 	Do ..ProductStub.IndienMethodCall("GeefEANCode").DanReturn("0012345678905")
 	
 	Do ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketIoCContainer).Instance().Register("HoutCertificaatService",##class(vhTest.Fake.DOM.PM.HoutCertificaatService).%New())
+	Do ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketIoCContainer).Instance().Register("DnaCodeService",##class(vhTest.Fake.APPS.Halux.AAP.DnaCodeService).%New())
 ]]></Implementation>
 </Method>
 
Index: vhUnitTest/APPS/Halux/AAP/DnaCodeService/GeefVolgendeAfTeDrukkenDnaCode/Test.cls.xml
===================================================================
diff -u -r58957 -r58964
--- vhUnitTest/APPS/Halux/AAP/DnaCodeService/GeefVolgendeAfTeDrukkenDnaCode/Test.cls.xml	(.../Test.cls.xml)	(revision 58957)
+++ vhUnitTest/APPS/Halux/AAP/DnaCodeService/GeefVolgendeAfTeDrukkenDnaCode/Test.cls.xml	(.../Test.cls.xml)	(revision 58964)
@@ -28,7 +28,9 @@
 <Implementation><![CDATA[
 	Do ##super()
 	Set ..DnaCode1 = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set ..DnaCode1.DnaCode = "LAAAAA0"
 	Set ..DnaCode2 = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set ..DnaCode2.DnaCode = "LAAAAB1"
 	Set ..TweeDnaCodesIterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(..DnaCode1, ..DnaCode2)
 	Set ..DnaCodeIterator1 = ##class(TECH.ListUtils).CreateIteratorOfObjects(..DnaCode1)
 ]]></Implementation>
@@ -46,9 +48,9 @@
 	
 	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock)
 	
-	#dim VolgendeDnaCode As DOM.Halux.AAP.DnaCode = DnaCodeService.GeefVolgendeAfTeDrukkenDnaCode(ToeleveringId,ProductNummer,SequentieNummer)
+	#dim VolgendeDnaCode As %String = DnaCodeService.GeefVolgendeAfTeDrukkenDnaCode(ToeleveringId,ProductNummer,SequentieNummer)
 	
-	Do $$$AssertEquals(VolgendeDnaCode.SequentieNummer,SequentieNummer)
+	Do $$$AssertEquals(VolgendeDnaCode,..DnaCode1.DnaCode)
 	
 	Do DnaCodeRepositoryMock.Verifieer()
 ]]></Implementation>
@@ -67,9 +69,9 @@
 	
 	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock)
 	
-	#dim VolgendeDnaCode As DOM.Halux.AAP.DnaCode = DnaCodeService.GeefVolgendeAfTeDrukkenDnaCode(ToeleveringId,ProductNummer,SequentieNummer)
+	#dim VolgendeDnaCode As %String = DnaCodeService.GeefVolgendeAfTeDrukkenDnaCode(ToeleveringId,ProductNummer,SequentieNummer)
 	
-	Do $$$AssertEquals(VolgendeDnaCode.SequentieNummer,SequentieNummer)
+	Do $$$AssertEquals(VolgendeDnaCode,..DnaCode1.DnaCode)
 	
 	Do DnaCodeRepositoryMock.Verifieer()
 ]]></Implementation>
@@ -88,9 +90,9 @@
 	
 	Set DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New(DnaCodeRepositoryMock)
 	
-	#dim VolgendeDnaCode As DOM.Halux.AAP.DnaCode = DnaCodeService.GeefVolgendeAfTeDrukkenDnaCode(ToeleveringId,ProductNummer,SequentieNummer)
+	#dim VolgendeDnaCode As %String = DnaCodeService.GeefVolgendeAfTeDrukkenDnaCode(ToeleveringId,ProductNummer,SequentieNummer)
 	
-	Do $$$AssertEquals(VolgendeDnaCode.SequentieNummer,SequentieNummer)
+	Do $$$AssertEquals(VolgendeDnaCode,..DnaCode2.DnaCode)
 	
 	Do DnaCodeRepositoryMock.Verifieer()
 ]]></Implementation>
Index: APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r58957 -r58964
--- APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 58957)
+++ APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 58964)
@@ -175,6 +175,7 @@
 
 <Method name="GeefVolgendeAfTeDrukkenDnaCode">
 <FormalSpec>ToeleveringID:%String,ProductID:%String,SequentieNummer:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim DnaCodeIterator As TECH.Iterator
 	Set DnaCodeIterator = ..DnaCodeRepository.ZoekViaToeleveringId(ToeleveringID)
@@ -192,7 +193,7 @@
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.DataNotFoundException).%New("Geen DnaCode zonder sequentienummer gevonden voor Toelevering '"_ToeleveringID_"' en product '"_ProductID_"'"))
 	}
 	
-	Quit DnaCode
+	Quit DnaCode.DnaCode
 ]]></Implementation>
 </Method>
 </Class>
Index: vhTest/Mock/APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r58946 -r58964
--- vhTest/Mock/APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 58946)
+++ vhTest/Mock/APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 58964)
@@ -30,6 +30,7 @@
 
 <Method name="GeefVolgendeAfTeDrukkenDnaCode">
 <FormalSpec>ToeleveringID:%String,ProductID:%String,SequentieNummer:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("GeefVolgendeAfTeDrukkenDnaCode",ToeleveringID,ProductID,SequentieNummer)
 ]]></Implementation>
 </Method>
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/KlantEtiketDataProductAanvuller.cls.xml
===================================================================
diff -u -r58950 -r58964
--- APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/KlantEtiketDataProductAanvuller.cls.xml	(.../KlantEtiketDataProductAanvuller.cls.xml)	(revision 58950)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/KlantEtiketDataProductAanvuller.cls.xml	(.../KlantEtiketDataProductAanvuller.cls.xml)	(revision 58964)
@@ -79,7 +79,7 @@
 	set ..BarcodeService = ##class(APPS.algemeen.BarcodeService).%New()
 	Set ..LosseComponentNaarProductieWijzeConverter = ##class(DOM.PM.Maatwerk.TAX.impl.LosseComponentNaarProductieWijzeConverter).%New()
 	Set ..IngegevenKenmerkenTypeAPI = ##class(APPS.ApplicatieContext).Instance().GeefIngegevenKenmerkenTypeAPI()
-	Set ..DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New()
+	Set ..DnaCodeService = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketIoCContainer).Instance().Resolve("DnaCodeService")
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -116,7 +116,7 @@
 	Set UitvoeringInfo.KlantEtiketData.DossierTitel = ..Vertaler.GeefVertaling("Dossier")
 	Set UitvoeringInfo.KlantEtiketData.Dossier = UitvoeringInfo.ToeleveringID
 	
-	//Set UitvoeringInfo.KlantEtiketData.DnaCode = ..DnaCodeService.GeefVolgendeAfTeDrukkenDnaCode(UitvoeringInfo.ToeleveringID, UitvoeringInfo.ProductID)
+	Set UitvoeringInfo.KlantEtiketData.DnaCode = ..DnaCodeService.GeefVolgendeAfTeDrukkenDnaCode(UitvoeringInfo.ToeleveringID, UitvoeringInfo.ProductID, UitvoeringInfo.SequentieNummer)
 ]]></Implementation>
 </Method>