Index: vhUnitTest/BL/PPS/common/impl/OnderdelenEtiketPrinterBase/EtikettenCommissieOne/TestLogo.cls.xml
===================================================================
diff -u -r40837 -r54262
--- vhUnitTest/BL/PPS/common/impl/OnderdelenEtiketPrinterBase/EtikettenCommissieOne/TestLogo.cls.xml	(.../TestLogo.cls.xml)	(revision 40837)
+++ vhUnitTest/BL/PPS/common/impl/OnderdelenEtiketPrinterBase/EtikettenCommissieOne/TestLogo.cls.xml	(.../TestLogo.cls.xml)	(revision 54262)
@@ -53,6 +53,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ToeleveringService">
+<Type>DOM.AKP.ToeleveringService</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
@@ -86,18 +91,40 @@
 
 	#dim StandaardVerzendwijze As %String = ""
 	Do ..OrderStub.IndienMethodCall("GeefVerzendingWijze").DanReturn(StandaardVerzendwijze)
+	
+	Set ProductTypes = ##class(%ListOfDataTypes).%New()
+	Do ProductTypes.Insert(##class(DOM.PM.enu.ProductType).Legrabox())
+	
+	Set ..ToeleveringService = ##class(vhTest.Mock.DOM.AKP.ToeleveringService).%New()
+	Do ..ToeleveringService.IndienMethodCall("GeefProductTypes", ..ToeleveringID).DanReturn(ProductTypes)
 ]]></Implementation>
 </Method>
 
 <Method name="Test: onderdelendoos logo wordt bepaald door logobepaler en gebruikt op etiket">
 <Implementation><![CDATA[
-	#dim OnderdelenEtiketPrinterBase As vhUnitTest.BL.PPS.common.impl.OnderdelenEtiketPrinterBase.SubClass = ##class(vhUnitTest.BL.PPS.common.impl.OnderdelenEtiketPrinterBase.SubClass).%New(..LogoBepalerMock)
+	#dim OnderdelenEtiketPrinterBase As vhUnitTest.BL.PPS.common.impl.OnderdelenEtiketPrinterBase.SubClass = ##class(vhUnitTest.BL.PPS.common.impl.OnderdelenEtiketPrinterBase.SubClass).%New(..LogoBepalerMock, ..ToeleveringService)
 	#dim pxCommissie As BL.PPS.TBX.sub.pxCommissie = OnderdelenEtiketPrinterBase.EtikettenCommissieOne(..ToeleveringID, $$$DummyInteger, $$$DummyString)
 	Do $$$AssertEquals(pxCommissie.Logo, "DummyLogo")
+	Do $$$AssertEquals(pxCommissie.Device,"Halux_Productie")
 	
 	Do ..LogoBepalerMock.Verifieer()
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Voor Tax moet printer Halux_Productie_Keller gebruikt worden">
+<Implementation><![CDATA[
+	Set ProductTypes = ##class(%ListOfDataTypes).%New()
+	Do ProductTypes.Insert(##class(DOM.PM.enu.ProductType).TAORbox())
+	Do ..ToeleveringService.IndienMethodCall("GeefProductTypes", ..ToeleveringID).DanReturn(ProductTypes)
+	
+	#dim OnderdelenEtiketPrinterBase As vhUnitTest.BL.PPS.common.impl.OnderdelenEtiketPrinterBase.SubClass = ##class(vhUnitTest.BL.PPS.common.impl.OnderdelenEtiketPrinterBase.SubClass).%New(..LogoBepalerMock, ..ToeleveringService)
+	#dim pxCommissie As BL.PPS.TBX.sub.pxCommissie = OnderdelenEtiketPrinterBase.EtikettenCommissieOne(..ToeleveringID, $$$DummyInteger, $$$DummyString)
+	
+	Do $$$AssertEquals(pxCommissie.Device,"Halux_Productie_Keller")
+	
+	Do ..LogoBepalerMock.Verifieer()
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: BL/PPS/common/impl/OnderdelenEtiketPrinterBase.cls.xml
===================================================================
diff -u -r40838 -r54262
--- BL/PPS/common/impl/OnderdelenEtiketPrinterBase.cls.xml	(.../OnderdelenEtiketPrinterBase.cls.xml)	(revision 40838)
+++ BL/PPS/common/impl/OnderdelenEtiketPrinterBase.cls.xml	(.../OnderdelenEtiketPrinterBase.cls.xml)	(revision 54262)
@@ -8,6 +8,10 @@
 <Default>Halux_Productie</Default>
 </Parameter>
 
+<Parameter name="LabelPrinterTax">
+<Default>Halux_Productie_Keller</Default>
+</Parameter>
+
 <Parameter name="LabelExtraCommissie">
 <Default>TBX Extra commissie 5x10</Default>
 </Parameter>
@@ -42,8 +46,13 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ToeleveringService">
+<Type>DOM.AKP.ToeleveringService</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>LogoBepaler:BL.PPS.common.impl.OnderdelendoosLogoBepaler</FormalSpec>
+<FormalSpec>LogoBepaler:BL.PPS.common.impl.OnderdelendoosLogoBepaler,ToeleveringService:DOM.AKP.ToeleveringService=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -54,6 +63,7 @@
 	Set ..OrderAPI = ##class(DOM.DomeinContext).Instance().GeefOrderAPI()
 	Set ..LegacyPartijAPI = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI()
 	Set ..VerkoopAPI = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI()
+	Set ..ToeleveringService = $$$Inject(ToeleveringService, ##class(DOM.AKP.impl.ToeleveringService).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -91,11 +101,15 @@
 	#dim Order As DOM.VKP.Order = ..OrderAPI.GeefOrder(OrderID)
 	#dim KlantID As DOM.VKP.VanHoeckeKlantID = Order.GeefKlantID()
 	#dim KlantNr As %String = ..LegacyPartijAPI.GeefKlantNummerVoorPartijID(KlantID)
-	
 	#dim Klant As DOM.VKP.VanHoeckeKlant = ..VerkoopAPI.GeefKlant(KlantID)
 	
 	Set pxLabel=##class(BL.PPS.TBX.sub.pxCommissie).%New()
-	Set pxLabel.Device = ..#LabelPrinter
+	
+	If (##class(DOM.common.impl.ProjectSettingsAPI).%New().IsActiefAnderePrinterVoorTaxBatchesBijHalux() && ..IsToeleveringMetProductTypeTax(ToeleveringID)) {
+		Set pxLabel.Device = ..#LabelPrinterTax
+	} Else {
+		Set pxLabel.Device = ..#LabelPrinter
+	}
 	Set pxLabel.Layout =..#LabelExtraCommissie
 	Set pxLabel.Logo = ..LogoBepaler.GeefLogo(Klant)
     Set pxLabel.KlantNaam = Klant.GeefNaam()
@@ -141,6 +155,29 @@
     Quit CommissieRef
 ]]></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>