Index: HADETIK.mac.rou
===================================================================
diff -u -r60217 -r61131
--- HADETIK.mac.rou	(.../HADETIK.mac.rou)	(revision 60217)
+++ HADETIK.mac.rou	(.../HADETIK.mac.rou)	(revision 61131)
@@ -410,10 +410,6 @@
  If $$HeeftMaatwerkEtiketNodig(PRNr){
 	#dim Etiket As APPS.common.Print.AbstractLabel
  
-	 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
-	 }
 	#dim AantalEtiketten As %Integer = $G(C("AANTAL"),Aantal)
  	
 	If ObjTyp="T" {
@@ -431,13 +427,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
 	 Quit:ProdGrp="+" ; Keller - geen etiket nodig // Niet meer van toepassing.
@@ -449,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