Index: HADETIK.mac.rou
===================================================================
diff -u -r61124 -r61126
--- HADETIK.mac.rou	(.../HADETIK.mac.rou)	(revision 61124)
+++ HADETIK.mac.rou	(.../HADETIK.mac.rou)	(revision 61126)
@@ -426,6 +426,11 @@
  
 	 If $E($$$PRGet($$$KortTekst),1,3)="Z37" Do  Quit ; Glazen boxside op maat
 	 . Do ##class(CHUI.Prod.ProductLabel).PrintVHMaatwerkMetDnaCodes(PRNr,$G(C("KLNMBIG")),$G(C("TOENR")),$G(C("ORDNR")),Aantal,"",$G(C("DNACODE")))
+   
+	 If DnaCode="" && ObjTyp = "T" && ##class(DOM.common.impl.ProjectSettingsAPI).%New().IsActiefDnaCodeOpEtiket(){
+		Set DnaCode = ##class(APPS.Halux.AAP.DnaCodeService).%New().GeefVolgendeAfTeDrukkenDnaCode(ObjRef,PRNr,"") 
+		Set Aantal = 1
+	 }
  
 	 Set ProdGrp=##class(BL.PPS.TBX.LeanBatch).%New().ProdGrp(PRNr,$G(C("KLNR")))
 	 Quit:ProdGrp?1(1"A",1"B") ; VHoss - wordt afgedrukt NA de optimalisatie
@@ -438,10 +443,7 @@
  	 Set C("LOGO")=$G(^IPCom("CS","LOGO4682",0))
 	 Set:$D(^IPCom("CS","LOGO"_C("KLNR"))) C("LOGO")=$G(^IPCom("CS","LOGO"_C("KLNR"),0))
 	 Set:($G(C("KLNR"))=$$$KlantDKGDeKeukenfabriek) C("LOGO")=""
-	 
 	 For Loop=1:1:$G(C("AANTAL"),Aantal) Do
-	 . If (DnaCode="") && (ObjTyp = "T") && ##class(DOM.common.impl.ProjectSettingsAPI).%New().IsActiefDnaCodeOpEtiket() Do
-	 . . Set C("DNACODE")=##class(APPS.Halux.AAP.DnaCodeService).%New().GeefVolgendeAfTeDrukkenDnaCode(ObjRef,PRNr,"")
 	 . If $G(C("HASCHARGE")) Do CHARGEID(.C) ; aanpassen ChargeID per product
 	 . Merge %Print2File($G(C("LABELSIZE"),"10x10"),C("LABELTYP"),%Print2File)=C ; onthouden vn de definities
 	 . Set %Print2File=%Print2File+1
Index: APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/Printer.cls.xml
===================================================================
diff -u -r61124 -r61126
--- APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/Printer.cls.xml	(.../Printer.cls.xml)	(revision 61124)
+++ APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/Printer.cls.xml	(.../Printer.cls.xml)	(revision 61126)
@@ -53,7 +53,7 @@
 			Set itLijnen = Toelevering.GeefTypeToeleveringLijnIterator(##class(DOM.AKP.enu.ToeleveringLijnType).Product())
 			While itLijnen.HasNext() {
 				#dim Lijn As DOM.AKP.ProductToeleveringLijn = itLijnen.Next()
-				#dim DnaCode As %String = ""
+				#dim DnaCode As %String = ..GeefDnaCode(Toelevering.GeefID(), Lijn.GeefProductID())
 				Do PRINT^HADETIK("|PRN|\\FOP\ICT","T",Toelevering.GeefID(),Lijn.GeefLijnVolgNr(),Lijn.GeefProductID(),..GeefLijnAantal(Lijn),VoorkeurPrinter,DnaCode)
 			}
 		}