Index: HADETIK.mac.rou
===================================================================
diff -u -r59227 -r59275
--- HADETIK.mac.rou	(.../HADETIK.mac.rou)	(revision 59227)
+++ HADETIK.mac.rou	(.../HADETIK.mac.rou)	(revision 59275)
@@ -401,7 +401,7 @@
 	#dim IsLegrabox As %Boolean = ProductTypeAPI.IsLegraboxProduct(ProductID)
 	Quit (IsTandembox || IsLegrabox || IsTAORbox)
  
-PRINT(Dev,ObjTyp,ObjRef,ObjLNr,PRNr,Aantal,VoorkeurPrinter) 
+PRINT(Dev,ObjTyp,ObjRef,ObjLNr,PRNr,Aantal,VoorkeurPrinter, DnaCode) 
  New C,GenTyp,ProdGrp,Etiket,AantalEtiketten
  Set VoorkeurPrinter = $G(VoorkeurPrinter)
  If '$data(%request) Set FP=2001 Write @F,@F1,!?2,"Printing ..."	
@@ -410,13 +410,14 @@
 	#dim AantalEtiketten As %Integer = $G(C("AANTAL"),Aantal)
  	
 	If ObjTyp="T" {
-		Set Etiket = ##class(APPS.Halux.Docs.EtiketBuilder).%New().MaakMaatwerkProductViaToelevering(ObjRef,ObjLNr,AantalEtiketten,VoorkeurPrinter)
+		Set Etiket = ##class(APPS.Halux.Docs.EtiketBuilder).%New().MaakMaatwerkProductViaToelevering(ObjRef,ObjLNr,AantalEtiketten,VoorkeurPrinter,DnaCode)
 	}ElseIf ObjTyp = "O"{
-		Set Etiket = ##class(APPS.Halux.Docs.EtiketBuilder).%New().MaakMaatwerkProductViaOrder(ObjRef,ObjLNr,AantalEtiketten,VoorkeurPrinter)
+		Set Etiket = ##class(APPS.Halux.Docs.EtiketBuilder).%New().MaakMaatwerkProductViaOrder(ObjRef,ObjLNr,AantalEtiketten,VoorkeurPrinter,DnaCode)
 	}
 	Do PrintEtiketten.Insert(Etiket)
  }Else{ 
 	 Set C("TAAL")="N"
+	 Set C("DNACODE")=DnaCode
 	 Do:ObjTyp="T" FETCHT(ObjRef,ObjLNr,PRNr,$G(Aantal),.C)
 	 Do:ObjTyp="O" FETCHO(ObjRef,ObjLNr,PRNr,$G(Aantal),.C)
  
@@ -488,7 +489,7 @@
 	If ((BartenderPrinter["|") && ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("HADETIK_SelecteerPrinter")) {
 		Set BartenderPrinter = $Piece(Dev,"|",3)
 	}
-	
+	Do ##class(Tools.Wlip).%New(127).Stack()
 	Set BartenderPrinter=$TR(BartenderPrinter,"/","\")
 	Set BartenderLabelType=LabelType
 	Set:LabelType="ALG" BartenderLabelType="KlantGEN10x10"