Index: HADETIK.mac.rou
===================================================================
diff -u -r60627 -r61124
--- HADETIK.mac.rou	(.../HADETIK.mac.rou)	(revision 60627)
+++ HADETIK.mac.rou	(.../HADETIK.mac.rou)	(revision 61124)
@@ -426,11 +426,6 @@
  
 	 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
@@ -443,7 +438,10 @@
  	 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 -r60917 -r61124
--- APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/Printer.cls.xml	(.../Printer.cls.xml)	(revision 60917)
+++ APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/Printer.cls.xml	(.../Printer.cls.xml)	(revision 61124)
@@ -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 = ..GeefDnaCode(Toelevering.GeefID(), Lijn.GeefProductID())
+				#dim DnaCode As %String = ""
 				Do PRINT^HADETIK("|PRN|\\FOP\ICT","T",Toelevering.GeefID(),Lijn.GeefLijnVolgNr(),Lijn.GeefProductID(),..GeefLijnAantal(Lijn),VoorkeurPrinter,DnaCode)
 			}
 		}