Index: vhUnitTest/BL/PPS/common/impl/OnderdelenEtiketPrinterBase/EtikettenCommissieOne/TestPalletType.cls.xml
===================================================================
diff -u -r40837 -r54265
--- vhUnitTest/BL/PPS/common/impl/OnderdelenEtiketPrinterBase/EtikettenCommissieOne/TestPalletType.cls.xml	(.../TestPalletType.cls.xml)	(revision 40837)
+++ vhUnitTest/BL/PPS/common/impl/OnderdelenEtiketPrinterBase/EtikettenCommissieOne/TestPalletType.cls.xml	(.../TestPalletType.cls.xml)	(revision 54265)
@@ -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[
@@ -83,6 +88,12 @@
 	
 	Set ..VerkoopAPIStub = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).MockInstance()
 	Do ..VerkoopAPIStub.IndienMethodCall("GeefKlant",$$$ElkeWaarde).DanReturn(..DummyKlant)
+	
+	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>
 
@@ -91,7 +102,7 @@
 	#dim VerzendingWijzeDHL1Dag As %String = "E01"
 	Do ..OrderStub.IndienMethodCall("GeefVerzendingWijze").DanReturn(VerzendingWijzeDHL1Dag)
 	
-	#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.PalletType, "WWPALLET")
 ]]></Implementation>
@@ -102,7 +113,7 @@
 	#dim StandaardVerzendwijze As %String = ""
 	Do ..OrderStub.IndienMethodCall("GeefVerzendingWijze").DanReturn(StandaardVerzendwijze)
 	
-	#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.PalletType, "")
 ]]></Implementation>