Index: BL/PPS/TBX/DocsV1.cls.xml
===================================================================
diff -u -r51780 -r54263
--- BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 51780)
+++ BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 54263)
@@ -24,6 +24,10 @@
 <Default>Halux_Productie</Default>
 </Parameter>
 
+<Parameter name="LabelPrinterTax">
+<Default>Halux_Productie_Keller</Default>
+</Parameter>
+
 <Parameter name="LabelTemplate">
 <Type>%String</Type>
 <Default>TBX Zaag Productie 5x10</Default>
@@ -1784,7 +1788,12 @@
 	#dim Klant As DOM.VKP.VanHoeckeKlant = ..ToeleveringService.GeefKlant(TOENr)
 	
 	Set pxLabel=##class(BL.PPS.TBX.sub.pxCommissie).%New()
-	Set pxLabel.Device = ..#LabelPrinter
+	
+	If (##class(DOM.common.impl.ProjectSettingsAPI).%New().IsActiefAnderePrinterVoorTaxBatchesBijHalux() && ..IsToeleveringMetProductTypeTax(TOENr)) {
+		Set pxLabel.Device = ..#LabelPrinterTax
+	} Else {
+		Set pxLabel.Device = ..#LabelPrinter
+	}
 	Set pxLabel.Layout =..#LabelExtraCommissie
 	Set pxLabel.Logo = ..LogoBepaler.GeefLogo(Klant)
     Set pxLabel.KlantNaam = Klant.GeefNaam()
@@ -1911,6 +1920,29 @@
 	Quit IsPalletOfProcomVerpakking
 ]]></Implementation>
 </Method>
+
+<Method name="IsToeleveringMetProductTypeTax">
+<FormalSpec>ToeleveringID:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim ProductTypeLijst As %ListOfDataTypes = ..ToeleveringService.GeefProductTypes(ToeleveringID)
+	#dim Exception As TECH.Exceptions.Exception
+	#dim Omschrijving As %String
+	
+	If (ProductTypeLijst.Count() = 0) {
+		Set Omschrijving = "Het ProductType van Toelevering '"_ToeleveringID_"' kon niet bepaald worden om de juiste etiketprinter te definiëren. Er werd een lege ProductTypes-lijst doorgegeven door de ToeleveringService."
+		Set Exception = ##class(TECH.Exceptions.GeneralErrorException).%New(Omschrijving)
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)
+	} ElseIf (ProductTypeLijst.Count() > 1) {
+		Set Omschrijving = "Het ProductType van Toelevering '"_ToeleveringID_"' kon niet bepaald worden om de juiste etiketprinter te definiëren. Er zitten meerdere ProductTypes in de Toelevering."
+		Set Exception = ##class(TECH.Exceptions.GeneralErrorException).%New(Omschrijving)
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
+	
+	Quit (ProductTypeLijst.GetAt(1) = ##class(DOM.PM.enu.ProductType).TAORbox())
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/BL/PPS/TBX/DocsV1/EtikettenCommissieOne/Test.cls.xml
===================================================================
diff -u -r40843 -r54263
--- vhUnitTest/BL/PPS/TBX/DocsV1/EtikettenCommissieOne/Test.cls.xml	(.../Test.cls.xml)	(revision 40843)
+++ vhUnitTest/BL/PPS/TBX/DocsV1/EtikettenCommissieOne/Test.cls.xml	(.../Test.cls.xml)	(revision 54263)
@@ -20,17 +20,52 @@
 	#dim ToeleveringAPI As vhTest.Mock.DOM.AKP.ToeleveringAPI = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).MockInstance()
 	do ToeleveringAPI.IndienMethodCall("GeefToelevering",$$$DummyInteger).DanReturn(ToeleveringStub)
 	
+	Set ProductTypes = ##class(%ListOfDataTypes).%New()
+	Do ProductTypes.Insert(##class(DOM.PM.enu.ProductType).Legrabox())
+	
 	#dim ToeleveringService As vhTest.Mock.DOM.AKP.ToeleveringService = ##class(vhTest.Mock.DOM.AKP.ToeleveringService).%New()
 	do ToeleveringService.IndienMethodCall("GeefKlant",$$$DummyInteger).DanReturn(Klant)
+	Do ToeleveringService.IndienMethodCall("GeefProductTypes", $$$DummyInteger).DanReturn(ProductTypes)
 	
 	Set DocsV1 = ##class(BL.PPS.TBX.DocsV1).%New(,,,ToeleveringService,LogoBepalerMock)
 	#dim Etiket As BL.PPS.TBX.sub.pxCommissie = DocsV1.EtikettenCommissieOne($$$DummyInteger,1,"")
 
 	Do $$$AssertEquals(Etiket.Logo,"DummyLogo")
+	Do $$$AssertEquals(Etiket.Device,"Halux_Productie")
 
 	Do LogoBepalerMock.Verifieer()
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Voor Tax moet printer Halux_Productie_Keller gebruikt worden">
+<Implementation><![CDATA[
+	Set Klant = ##class(vhTest.Dummy.DOM.VKP.VanHoeckeKlant).%New()
+	
+	Set LogoBepalerMock = ##class(vhTest.Mock.BL.PPS.common.impl.OnderdelendoosLogoBepaler).%New()
+	Do LogoBepalerMock.VerwachtMethodCall("GeefLogo",Klant).DanReturn("DummyLogo")
+
+	set ToeleveringStub = ##class(vhTest.Mock.DOM.AKP.Toelevering).%New()
+	do ToeleveringStub.IndienMethodCall("GeefOrderID").DanReturn($$$DummyInteger)
+	
+	#dim ToeleveringAPI As vhTest.Mock.DOM.AKP.ToeleveringAPI = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).MockInstance()
+	do ToeleveringAPI.IndienMethodCall("GeefToelevering",$$$DummyInteger).DanReturn(ToeleveringStub)
+	
+	Set ProductTypes = ##class(%ListOfDataTypes).%New()
+	Do ProductTypes.Insert(##class(DOM.PM.enu.ProductType).TAORbox())
+	
+	#dim ToeleveringService As vhTest.Mock.DOM.AKP.ToeleveringService = ##class(vhTest.Mock.DOM.AKP.ToeleveringService).%New()
+	do ToeleveringService.IndienMethodCall("GeefKlant",$$$DummyInteger).DanReturn(Klant)
+	Do ToeleveringService.IndienMethodCall("GeefProductTypes", $$$DummyInteger).DanReturn(ProductTypes)
+	
+	Set DocsV1 = ##class(BL.PPS.TBX.DocsV1).%New(,,,ToeleveringService,LogoBepalerMock)
+	#dim Etiket As BL.PPS.TBX.sub.pxCommissie = DocsV1.EtikettenCommissieOne($$$DummyInteger,1,"")
+
+	Do $$$AssertEquals(Etiket.Logo,"DummyLogo")
+	Do $$$AssertEquals(Etiket.Device,"Halux_Productie_Keller")
+
+	Do LogoBepalerMock.Verifieer()
+]]></Implementation>
+</Method>
 </Class>