Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/TestAlpnach.cls.xml
===================================================================
diff -u -r32763 -r32764
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/TestAlpnach.cls.xml	(.../TestAlpnach.cls.xml)	(revision 32763)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/TestAlpnach.cls.xml	(.../TestAlpnach.cls.xml)	(revision 32764)
@@ -3,11 +3,28 @@
 <Class name="vhUnitTest.APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten.TestAlpnach">
 <Super>vhUnitTest.TestCase</Super>
 
-<Property name="p">
-<Type>APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten.PrintEtiketten</Type>
+<Property name="DummyUitvoeringInfoBewaarder">
+<Type>vhTest.Fake.APPS.Halux.PPS.Activiteit.impl.common.UitvoeringInfoBewaarder</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="FakeLabelPrinter">
+<Type>vhTest.Fake.BL.Sys.LabelPrinter</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	
+	Set ..DummyUitvoeringInfoBewaarder = ##class(vhTest.Fake.APPS.Halux.PPS.Activiteit.impl.common.UitvoeringInfoBewaarder).%New()
+	Set ..FakeLabelPrinter = ##class(vhTest.Fake.BL.Sys.LabelPrinter).%New(..GeefBestandLocatie())
+		
+	Do ##class(APPS.Halux.PPS.Activiteit.impl.UitvoeringIoCContainer).Instance().Register("UitvoeringInfoBewaarder", ..DummyUitvoeringInfoBewaarder)
+]]></Implementation>
+</Method>
+
 <Method name="OnAfterOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
@@ -27,7 +44,6 @@
 	Set KlantEtiketUitvoeringInfo1.WerklijstItemID = "2512022"
 	Set KlantEtiketUitvoeringInfo1.KlantEtiketData = ..MaakKlantEtiketData()
 
-
 	Set KlantEtiketUitvoeringInfo2.ProductID = "1141223"
 	Set KlantEtiketUitvoeringInfo2.SequentieNummer = 2
 	Set KlantEtiketUitvoeringInfo2.WerklijstItemID = "2512023"
@@ -36,19 +52,13 @@
 	Do Lijst.Insert(KlantEtiketUitvoeringInfo1)
 	Do Lijst.Insert(KlantEtiketUitvoeringInfo2)
 
-	Set DummyUitvoeringInfoBewaarder = ##class(vhTest.Fake.APPS.Halux.PPS.Activiteit.impl.common.UitvoeringInfoBewaarder).%New()
-	do ##class(APPS.Halux.PPS.Activiteit.impl.UitvoeringIoCContainer).Instance().Register("UitvoeringInfoBewaarder",DummyUitvoeringInfoBewaarder)
-	
-	#dim FakeLabelPrinter As vhTest.Fake.BL.Sys.LabelPrinter = ##class(vhTest.Fake.BL.Sys.LabelPrinter).%New(..GeefBestandLocatie())
-	
 	#dim AssemblageKarRepositoryStub As vhTest.Mock.APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository = ##class(vhTest.Mock.APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository).%New()
 	Do AssemblageKarRepositoryStub.IndienMethodCall("GeefKarVolgnummerViaSequentieNr", KlantEtiketUitvoeringInfo1.BatchID, $$$ElkeWaarde).DanReturn(1)
 	
-	#dim Verwerker As APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten).%New(FakeLabelPrinter, AssemblageKarRepositoryStub)
+	#dim Verwerker As APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten).%New(..FakeLabelPrinter, AssemblageKarRepositoryStub)
+	Do Verwerker.VerwerkUitvoeringInfoLijst(Lijst,##class(APPS.Halux.PPS.Activiteit.ActiviteitParameters).%New())
 	
-	do Verwerker.VerwerkUitvoeringInfoLijst(Lijst,##class(APPS.Halux.PPS.Activiteit.ActiviteitParameters).%New())
-	
-	do $$$AssertCorrectGemaakteBestanden(..GeefBestandLocatie())
+	Do $$$AssertCorrectGemaakteBestanden(..GeefBestandLocatie())
 ]]></Implementation>
 </Method>
 
@@ -73,19 +83,13 @@
 	Do Lijst.Insert(KlantEtiketUitvoeringInfo1)
 	Do Lijst.Insert(KlantEtiketUitvoeringInfo2)
 
-	Set DummyUitvoeringInfoBewaarder = ##class(vhTest.Fake.APPS.Halux.PPS.Activiteit.impl.common.UitvoeringInfoBewaarder).%New()
-	do ##class(APPS.Halux.PPS.Activiteit.impl.UitvoeringIoCContainer).Instance().Register("UitvoeringInfoBewaarder",DummyUitvoeringInfoBewaarder)
-	
-	Set FakeLabelPrinter = ##class(vhTest.Fake.BL.Sys.LabelPrinter).%New(..GeefBestandLocatie())
-
 	#dim AssemblageKarRepositoryStub As vhTest.Mock.APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository = ##class(vhTest.Mock.APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository).%New()
 	Do AssemblageKarRepositoryStub.IndienMethodCall("GeefKarVolgnummerViaSequentieNr", KlantEtiketUitvoeringInfo1.BatchID, $$$ElkeWaarde).DanReturn(1)
 
-	Set Verwerker = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten).%New(FakeLabelPrinter, AssemblageKarRepositoryStub)
+	#dim Verwerker As APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten).%New(..FakeLabelPrinter, AssemblageKarRepositoryStub)
+	Do Verwerker.VerwerkUitvoeringInfoLijst(Lijst,##class(APPS.Halux.PPS.Activiteit.ActiviteitParameters).%New())
 	
-	do Verwerker.VerwerkUitvoeringInfoLijst(Lijst,##class(APPS.Halux.PPS.Activiteit.ActiviteitParameters).%New())
-	
-	do $$$AssertCorrectGemaakteBestanden(..GeefBestandLocatie())
+	Do $$$AssertCorrectGemaakteBestanden(..GeefBestandLocatie())
 ]]></Implementation>
 </Method>
 
@@ -103,18 +107,12 @@
 	
 	Do Lijst.Insert(KlantEtiketUitvoeringInfo1)
 	Do Lijst.Insert(KlantEtiketUitvoeringInfo2)
-	
-	#dim DummyUitvoeringInfoBewaarder As vhTest.Fake.APPS.Halux.PPS.Activiteit.impl.common.UitvoeringInfoBewaarder = ##class(vhTest.Fake.APPS.Halux.PPS.Activiteit.impl.common.UitvoeringInfoBewaarder).%New()
-	
-	Do ##class(APPS.Halux.PPS.Activiteit.impl.UitvoeringIoCContainer).Instance().Register("UitvoeringInfoBewaarder", DummyUitvoeringInfoBewaarder)
-	
-	#dim FakeLabelPrinter As vhTest.Fake.BL.Sys.LabelPrinter = ##class(vhTest.Fake.BL.Sys.LabelPrinter).%New(..GeefBestandLocatie())
 
 	#dim AssemblageKarRepositoryStub As vhTest.Mock.APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository = ##class(vhTest.Mock.APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository).%New()
 	Do AssemblageKarRepositoryStub.IndienMethodCall("GeefKarVolgnummerViaSequentieNr", KlantEtiketUitvoeringInfo1.BatchID, 1).DanReturn(1)
 	Do AssemblageKarRepositoryStub.IndienMethodCall("GeefKarVolgnummerViaSequentieNr", KlantEtiketUitvoeringInfo1.BatchID, 2).DanReturn(2)
 
-	#dim Verwerker As APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten).%New(FakeLabelPrinter, AssemblageKarRepositoryStub)
+	#dim Verwerker As APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten).%New(..FakeLabelPrinter, AssemblageKarRepositoryStub)
 	Do Verwerker.VerwerkUitvoeringInfoLijst(Lijst, ##class(APPS.Halux.PPS.Activiteit.ActiviteitParameters).%New())
 	
 	Do $$$AssertCorrectGemaakteBestanden(..GeefBestandLocatie())
@@ -173,7 +171,6 @@
 	Set KlantEtiketData.Info4 = ""
 	Set KlantEtiketData.Kleurcodes = "NE-NE NE"
 	Set KlantEtiketData.LadeAfbeeldingLocatie = "GENERIEK\TAOR_BOX\VET\TAOR_BOX_M_Z.JPG"
-	
 	Set KlantEtiketData.LandVanHerkomst = "Made in BELGIUM"
 	Set KlantEtiketData.Layout = "Klant_TAX_8x11"
 	Set KlantEtiketData.LogoLocatie = "LOGO\TAOR_zwart.jpg"