Index: APPS/Halux/AAP/DnaCodeService.cls.xml
===================================================================
diff -u -r61681 -r61682
--- APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 61681)
+++ APPS/Halux/AAP/DnaCodeService.cls.xml	(.../DnaCodeService.cls.xml)	(revision 61682)
@@ -233,7 +233,7 @@
 	#dim DnaCode As DOM.Halux.AAP.DnaCode = ""
 	While DnaCodeIterator.HasNext() {
 		Set DnaCode = DnaCodeIterator.Next()
-		If ((DnaCode.AfdrukTijdstip = "") && (DnaCode.ProductNummer = ProductID)) {
+		If ..MagDnaCodeBijgewerktWorden(DnaCode, ProductID, Herafdruk) {
 			Do ##class(Tools.Wlip).%New(127).String("seq nummer = "_SequentieNummer)
 			Do ##class(Tools.Wlip).%New(127).Stack()
 			Set DnaCode.SequentieNummer = SequentieNummer
@@ -252,6 +252,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="MagDnaCodeBijgewerktWorden">
+<FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode,ProductID:%String,Herafdruk:%Boolean</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Resultaat As %Boolean = (DnaCode.ProductNummer = ProductID)
+	If Resultaat {
+		Set Resultaat = ((DnaCode.AfdrukTijdstip = "") || Herafdruk)
+	} 
+	Quit Resultaat
+]]></Implementation>
+</Method>
+
 <Method name="VulInSequentieId">
 <FormalSpec>SequentieId:%String,BatchId:%String,ToeleveringId:%String,ToeleveringlijnId:%String</FormalSpec>
 <Implementation><![CDATA[