Index: APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/EtiketPrinter.cls.xml
===================================================================
diff -u -r63222 -r63610
--- APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/EtiketPrinter.cls.xml	(.../EtiketPrinter.cls.xml)	(revision 63222)
+++ APPS/Halux/PPS/impl/AansturingActie/common/KlantEtiket/EtiketPrinter.cls.xml	(.../EtiketPrinter.cls.xml)	(revision 63610)
@@ -46,7 +46,7 @@
 
 	
 	Do ..VoegToeEtiketten()
-	Do ..blLabelPrinter.Print2Bartender(Batch)
+	Do ..blLabelPrinter.Print2Bartender()
 ]]></Implementation>
 </Method>
 
Index: BL/Sys/LabelPrinter.cls.xml
===================================================================
diff -u -r63244 -r63610
--- BL/Sys/LabelPrinter.cls.xml	(.../LabelPrinter.cls.xml)	(revision 63244)
+++ BL/Sys/LabelPrinter.cls.xml	(.../LabelPrinter.cls.xml)	(revision 63610)
@@ -314,7 +314,6 @@
 <Method name="Print2Bartender">
 <Description>
 afdrukken van de gedefineerde etiketten per device en layout</Description>
-<FormalSpec>Batch:APPS.Halux.common.impl.BatchImpl=""</FormalSpec>
 <Implementation><![CDATA[
    
 	#dim BartDevice As %String = $O(..Data(""))
@@ -323,7 +322,7 @@
 		#dim BartLayout As %String = $O(..Data(BartDevice,""))
 		While BartLayout '= "" 
 		{
-			Do ..Print2BartenderOnDeviceWithLayout(BartDevice,BartLayout,Batch)
+			Do ..Print2BartenderOnDeviceWithLayout(BartDevice,BartLayout)
 			Set BartLayout = $O(..Data(BartDevice,BartLayout))
 		}
 		Set BartDevice = $O(..Data(BartDevice))
@@ -332,12 +331,12 @@
 </Method>
 
 <Method name="Print2BartenderOnDeviceWithLayout">
-<FormalSpec>BartDevice:%String,BartLayout:%String,Batch:APPS.Halux.common.impl.BatchImpl=""</FormalSpec>
+<FormalSpec>BartDevice:%String,BartLayout:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim File As %String = ""
 	Try {
-		Set File = ..CreateFile(BartDevice,##class(BL.Sys.LabelPrinter.TemplateVervangerVoorDnacode).%New().VervangLayoutVoorDnacodeProductielijn(BartLayout, Batch))
+		Set File = ..CreateFile(BartDevice,BartLayout)
 		Do ..WriteFile(File,BartDevice,BartLayout)
 	} Catch E{
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
@@ -441,7 +440,7 @@
 		Set TrayString = " /Tray=""Bypass Tray"""
 	}
 	
-	Use File	
+	Use File
 	Write "%BTW% /AF="""_..#BartenderLayoutPath_BartLayout_".btw"" /PRN="""_BartDevice_""""_TrayString_" /R=3 /P  /D=<Trigger File Name> /CLOSE",$C(13,10)
 	Write "%END%",$C(13,10)
 
Index: BL/Sys/LabelPrinter/TemplateVervangerVoorDnacode.cls.xml
===================================================================
diff -u -r63222 -r63610
--- BL/Sys/LabelPrinter/TemplateVervangerVoorDnacode.cls.xml	(.../TemplateVervangerVoorDnacode.cls.xml)	(revision 63222)
+++ BL/Sys/LabelPrinter/TemplateVervangerVoorDnacode.cls.xml	(.../TemplateVervangerVoorDnacode.cls.xml)	(revision 63610)
@@ -7,10 +7,19 @@
 <FormalSpec>BartLayout:%String,Batch:APPS.Halux.common.impl.BatchImpl</FormalSpec>
 <Implementation><![CDATA[
 	#dim Resultaat As %String = BartLayout
-	//Set:($isObject(Batch) && (Batch.Lijn = ##class(APPS.Halux.common.enu.ProductieLijn).Een())) Resultaat = Resultaat_"_DNA"
-	//Set:($isObject(Batch) && (Batch.Lijn = ##class(APPS.Halux.common.enu.ProductieLijn).Twee())) Resultaat = Resultaat_"_DNA"
-	//Set:($isObject(Batch) && (Batch.Lijn = ##class(APPS.Halux.common.enu.ProductieLijn).Drie())) Resultaat = Resultaat_"_DNA"
-	//Set:($isObject(Batch) && (Batch.Lijn = ##class(APPS.Halux.common.enu.ProductieLijn).Vier())) Resultaat = Resultaat_"_DNA"
+	If $isObject(Batch) {
+		Do ##class(Tools.Wlip).%New(127).String("lijn = "_Batch.Lijn)
+	} Else {
+		Set Batch = $Get(%BatchVoorDnaCode)
+		Do ##class(Tools.Wlip).%New(127).String($Get(%BatchIdVoorDnaCode))
+		Do:$isObject(Batch) ##class(Tools.Wlip).%New(127).String("lijn2 = "_Batch.Lijn)
+	}
+	If ((BartLayout = "MaatwerkProduct 5x10") || (BartLayout = "MaatwerkProduct 8x11") || (BartLayout = "MaatwerkProductBAR 8x11") || (BartLayout = "MaatwerkProductInVHoss2D 5x10") || (BartLayout = "MaatwerkProductInVHoss2D LBX 5x10")) {
+		//Set:($isObject(Batch) && (Batch.Lijn = ##class(APPS.Halux.common.enu.ProductieLijn).Een())) Resultaat = Resultaat_"_DNA"
+		//Set:($isObject(Batch) && (Batch.Lijn = ##class(APPS.Halux.common.enu.ProductieLijn).Twee())) Resultaat = Resultaat_"_DNA"
+		Set:($isObject(Batch) && (Batch.Lijn = ##class(APPS.Halux.common.enu.ProductieLijn).Drie())) Resultaat = Resultaat_"_DNA"
+		Set:($isObject(Batch) && (Batch.Lijn = ##class(APPS.Halux.common.enu.ProductieLijn).Vier())) Resultaat = Resultaat_"_DNA"
+	}
 	Quit Resultaat
 ]]></Implementation>
 </Method>