Index: vhDeploy/Deploy20230719xToevoegenPrintersEenBarcodeEtiket.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20230719xToevoegenPrintersEenBarcodeEtiket.cls.xml	(revision 0)
+++ vhDeploy/Deploy20230719xToevoegenPrintersEenBarcodeEtiket.cls.xml	(revision 71290)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20230719xToevoegenPrintersEenBarcodeEtiket">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Toevoegen Printers Een Barcode Etiket</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set ^RES("LABELPRINTER","PI","1BARCODEETIKET","D","HAL2") = "2`MAG_HAL2_PICKING"
+	Set ^RES("LABELPRINTER","PI","1BARCODEETIKET","D","HAL7") = "3`MAG_HAL6_PICKING"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/MAG/LabelPrintService.cls.xml
===================================================================
diff -u -r67572 -r71290
--- APPS/MAG/LabelPrintService.cls.xml	(.../LabelPrintService.cls.xml)	(revision 67572)
+++ APPS/MAG/LabelPrintService.cls.xml	(.../LabelPrintService.cls.xml)	(revision 71290)
@@ -50,15 +50,15 @@
 </Method>
 
 <Method name="PrintEen1BarcodeEtiket">
-<FormalSpec>Tekst:%String</FormalSpec>
+<FormalSpec>Tekst:%String,PrinterLocatie:%String</FormalSpec>
 <Implementation><![CDATA[
-	#dim Etiketten As %ListOfObjects = ..GeefEen1BarcodeEtiket(Tekst)
+	#dim Etiketten As %ListOfObjects = ..GeefEen1BarcodeEtiket(Tekst, PrinterLocatie)
 	Do ..LabelPrinter.PrintEtiketten(Etiketten)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefEen1BarcodeEtiket">
-<FormalSpec>Tekst:%String</FormalSpec>
+<FormalSpec>Tekst:%String,PrinterLocatie:%String</FormalSpec>
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
 	Set Etiketten = ##class(%ListOfObjects).%New()
@@ -68,7 +68,7 @@
 		Set Etiket = ##class(BL.Etiket.EenBarcodeEtiket).%New()
 		Set Etiket.Tekst = ##class(TECH.StringUtils).VervangNietPrintbareKaraktersDoorSpatie(DeTekst)
 		if $l(##class(TECH.StringUtils).TrimWhitespaces( Etiket.Tekst)) {
-			Set Etiket.Device = ##class(BL.Sys.LabelPrinter).DefaultDevice("1BARCODEETIKET")	
+			Set Etiket.Device = ##class(BL.Sys.LabelPrinter).DefaultDevice("1BARCODEETIKET", PrinterLocatie)	
 			Do Etiketten.Insert(Etiket)
 		}
 	}