Index: APPS/Halux/Docs/EtiketBuilder.cls.xml
===================================================================
diff -u -r59483 -r59590
--- APPS/Halux/Docs/EtiketBuilder.cls.xml	(.../EtiketBuilder.cls.xml)	(revision 59483)
+++ APPS/Halux/Docs/EtiketBuilder.cls.xml	(.../EtiketBuilder.cls.xml)	(revision 59590)
@@ -127,7 +127,8 @@
 		Set Partij = ..PartijApi.GeefPartij(Toelevering.GeefEindPersonality().GeefKlantID())
 	}
 	
-	#dim Etiket As BL.Etiket.LadeKlantEtiketVHoss = ..MaatwerkProductEtiketBuilder.MaakMaatwerkProductInVHossEtiket(ProductID,Partij,Aantal)		
+	#dim DnaCode As %String = ..DnaCodeService.GeefVolgendeAfTeDrukkenDnaCode(ToeleveringID, ProductID)
+	#dim Etiket As BL.Etiket.LadeKlantEtiketVHoss = ..MaatwerkProductEtiketBuilder.MaakMaatwerkProductInVHossEtiket(ProductID,Partij,Aantal,DnaCode)		
 	Set Etiket = ..MaatwerkProductEtiketBuilder.VulInToeleveringInfo(Etiket,Toelevering,ToeleveringLijn,Partij)
 	Set Etiket.ProductieWeek = ..MaatwerkProductEtiketBuilder.FormateerProductieWeek(Toelevering.GeefDueOutTime())
 	
@@ -155,7 +156,8 @@
 	#dim ProductID As %String = ToeleveringLijn.GeefProductID()
 	#dim Partij As DOM.PARTIJ.Partij = ..PartijApi.GeefPartij(Toelevering.GeefKlantID())
 		
-	#dim Etiket As BL.Etiket.LadeKlantEtiketVHoss = ..MaatwerkProductEtiketBuilder.MaakMaatwerkProductInVHossEtiket(ProductID,Partij,1)		
+	#dim DnaCode As %String = ..DnaCodeService.GeefVolgendeAfTeDrukkenDnaCode(VHossItem.ToeleveringID, ProductID)
+	#dim Etiket As BL.Etiket.LadeKlantEtiketVHoss = ..MaatwerkProductEtiketBuilder.MaakMaatwerkProductInVHossEtiket(ProductID,Partij,1,DnaCode)		
 	Set Etiket = ..MaatwerkProductEtiketBuilder.VulInToeleveringInfo(Etiket,Toelevering,ToeleveringLijn,Partij)
 	Set Etiket.ProductieWeek = ..MaatwerkProductEtiketBuilder.FormateerProductieWeek(Toelevering.GeefDueOutTime())		
 	Set Etiket.VHossInfo = ..VHossService.GeefVHossInfo(VHossItem.VHOSSID,VHossItem.ZijVlakID,VHossItem.SlotID)