Index: CHUI/Prod/ProductLabel.cls.xml
===================================================================
diff -u -r60041 -r60215
--- CHUI/Prod/ProductLabel.cls.xml	(.../ProductLabel.cls.xml)	(revision 60041)
+++ CHUI/Prod/ProductLabel.cls.xml	(.../ProductLabel.cls.xml)	(revision 60215)
@@ -104,7 +104,7 @@
 <Description>
 d ##class(CHUI.Prod.ProductLabel).PrintVHMaatwerk(483079,"XSDS",1)</Description>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>PRNr,KlantNaam,TOENr,ORDNr,Aantal,Device</FormalSpec>
+<FormalSpec>PRNr,KlantNaam,TOENr,ORDNr,Aantal,Device,DnaCode</FormalSpec>
 <Implementation><![CDATA[
 	Set bl=..Instantiate()
 	Do bl.Init(PRNr)
@@ -134,7 +134,11 @@
 			Set bl.pxLabel.Logo = ""
 			Set bl.pxLabel.KlantNaam=""
 		}
-		Set bl.pxLabel.DnaCode = ##class(APPS.Halux.AAP.DnaCodeService).%New().GeefVolgendeAfTeDrukkenDnaCode(TOENr,PRNr,"")
+		if $$$HasLength(DnaCode) {
+			Set bl.pxLabel.DnaCode = DnaCode
+		} Else {
+			Set bl.pxLabel.DnaCode = ##class(APPS.Halux.AAP.DnaCodeService).%New().GeefVolgendeAfTeDrukkenDnaCode(TOENr,PRNr,"")
+		}
 		Do LabelPrinter.Add(bl.pxLabel)
 	}
 	Do ##class(Tools.Wlip).%New(127).String("printing")
Index: HADETIK.mac.rou
===================================================================
diff -u -r60008 -r60215
--- HADETIK.mac.rou	(.../HADETIK.mac.rou)	(revision 60008)
+++ HADETIK.mac.rou	(.../HADETIK.mac.rou)	(revision 60215)
@@ -429,7 +429,7 @@
 	 Do:ObjTyp="O" FETCHO(ObjRef,ObjLNr,PRNr,$G(Aantal),.C)
  
 	 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)
+	 . Do ##class(CHUI.Prod.ProductLabel).PrintVHMaatwerkMetDnaCodes(PRNr,$G(C("KLNMBIG")),$G(C("TOENR")),$G(C("ORDNR")),Aantal,$G(C("ORDNR")))