Index: vhUnitTest/WSimpl/Halux/AAP/AfdrukService/KlantEtiketAfdrukken/Test.cls.xml
===================================================================
diff -u -r61707 -r61717
--- vhUnitTest/WSimpl/Halux/AAP/AfdrukService/KlantEtiketAfdrukken/Test.cls.xml	(.../Test.cls.xml)	(revision 61707)
+++ vhUnitTest/WSimpl/Halux/AAP/AfdrukService/KlantEtiketAfdrukken/Test.cls.xml	(.../Test.cls.xml)	(revision 61717)
@@ -89,6 +89,61 @@
 </Method>
 
 <Method name="Test: 1 TAX in request">
+<Implementation><![CDATA[
+	Set DnaCode1 = ##class(DOM.Halux.AAP.DnaCode).%New()
+	Set DnaCode1.DnaCode = "HAAAAA0"
+	Set DnaCode1.BatchId = "123456"
+	Set DnaCode1.SequentieNummer = "42"
+	#dim DnaCodeIteratorEenStuk As TECH.Iterator = ##class(TECH.ListUtils).CreateIteratorOfObjects(DnaCode1)
+	
+	Set KlantEtiketAfdrukkenRequest = ##class(WS.Halux.AAP.KlantEtiketAfdrukkenRequest).%New()
+	Do KlantEtiketAfdrukkenRequest.DnaCodes.Insert(DnaCode1.DnaCode)
+	
+	Set EtikettenAfdrukkenHelperMock = ##class(vhTest.Mock.WSimpl.Halux.AAP.AfdrukService.EtiketAfdrukkenHelper).%New()
+	Do EtikettenAfdrukkenHelperMock.VerwachtMethodCall("MaakDnaCodeIteratorVanDnaCodeStringLijst",KlantEtiketAfdrukkenRequest.DnaCodes).DanReturn(DnaCodeIteratorEenStuk)
+	
+	Set BatchStub = ##class(vhTest.Mock.APPS.Halux.common.Batch).%New()
+	Do BatchStub.IndienMethodCall("GeefCategorie").DanReturn(##class(APPS.Halux.common.enu.Categorie).TAORbox())
+	Do BatchStub.IndienMethodCall("GeefProductieGroep").DanReturn("")
+	Do BatchStub.IndienMethodCall("GeefID").DanReturn(DnaCode1.BatchId)
+
+	Set BatchServiceMock = ##class(vhTest.Mock.APPS.Halux.common.BatchService).%New()
+	Do BatchServiceMock.VerwachtMethodCall("BestaatBatch",DnaCode1.BatchId).DanReturn($$$True)
+	Do BatchServiceMock.VerwachtMethodCall("GeefBatch",DnaCode1.BatchId).DanReturn(BatchStub)
+	
+	
+	Set ProductieSequentieItem = ##class(APPS.Halux.common.ProductieSequentieItem).%New()
+	Set ProductieSequentieItem.SequentieNummer = "42"
+	
+	Set ProductieSequentie = ##class(vhUnitTest.APPS.Halux.common.impl.UTProductieSequentie).%New(BatchStub)
+	Do ProductieSequentie.VoegToeSequentieItem(ProductieSequentieItem)	
+	
+	Set ProductieSequentieServiceMock = ##class(vhTest.Mock.APPS.Halux.common.impl.SequentieService).%New()
+	Do ProductieSequentieServiceMock.VerwachtMethodCall("GeefProductieSequentie",DnaCode1.BatchId).DanReturn(ProductieSequentie)
+	
+	Set WerklijstItem = ##class(APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItem).%New()
+	Set KlantEtiketInput = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketInput).%New()
+	Set Uitvoeringinfo = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.dto.KlantEtiketUitvoeringInfo).%New()
+	Set WerklijstItem.UitvoeringInfo = Uitvoeringinfo
+	
+	Set WerklijstItemMakerMock = ##class(vhTest.Mock.APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketWerklijstItemMaker).%New(KlantEtiketInput)
+	Do WerklijstItemMakerMock.VerwachtMethodCall("MaakWerklijstItem",$$$ElkeWaarde).DanReturn(WerklijstItem)
+	
+	Set VerwerkerMock = ##class(vhTest.Mock.APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten).%New("", , , )
+	Do VerwerkerMock.VerwachtMethodCall("VerwerkUitvoeringInfoLijst",$$$ElkeWaarde,$$$ElkeWaarde).DanDoeNiks()
+	
+	Set AfdrukService = ##class(WSimpl.Halux.AAP.AfdrukService).%New(,,EtikettenAfdrukkenHelperMock,BatchServiceMock,,ProductieSequentieServiceMock,WerklijstItemMakerMock,VerwerkerMock)
+	
+	#dim Antwoord As WS.Halux.AAP.KlantEtiketAfdrukkenResponse = AfdrukService.KlantEtiketAfdrukken(KlantEtiketAfdrukkenRequest)
+	
+	Do EtikettenAfdrukkenHelperMock.Verifieer()
+	Do BatchServiceMock.Verifieer()
+	Do ProductieSequentieServiceMock.Verifieer()
+	Do WerklijstItemMakerMock.Verifieer()
+	Do VerwerkerMock.Verifieer()
+	
+	Do $$$AssertEquals(Antwoord.Header.Status,"200")
+]]></Implementation>
 </Method>
 
 <Method name="Test: 1 TAX - LC in request">
Index: WSimpl/Halux/AAP/AfdrukService.cls.xml
===================================================================
diff -u -r61710 -r61717
--- WSimpl/Halux/AAP/AfdrukService.cls.xml	(.../AfdrukService.cls.xml)	(revision 61710)
+++ WSimpl/Halux/AAP/AfdrukService.cls.xml	(.../AfdrukService.cls.xml)	(revision 61717)
@@ -38,8 +38,18 @@
 <Private>1</Private>
 </Property>
 
+<Property name="WerklijstItemMaker">
+<Type>APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketWerklijstItemMaker</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Verwerker">
+<Type>APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>DnaCodeRepository:DOM.Halux.AAP.DnaCodeRepository="",DocsV1:BL.PPS.TBX.DocsV1="",EtiketAfdrukkenHelper:WSimpl.Halux.AAP.AfdrukService.EtiketAfdrukkenHelper,BatchService:APPS.Halux.common.impl.BatchService="",PrinterFactory:APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.PrinterFactory="",SequentieService:APPS.Halux.common.impl.SequentieService=""</FormalSpec>
+<FormalSpec>DnaCodeRepository:DOM.Halux.AAP.DnaCodeRepository="",DocsV1:BL.PPS.TBX.DocsV1="",EtiketAfdrukkenHelper:WSimpl.Halux.AAP.AfdrukService.EtiketAfdrukkenHelper,BatchService:APPS.Halux.common.impl.BatchService="",PrinterFactory:APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.PrinterFactory="",SequentieService:APPS.Halux.common.impl.SequentieService="",WerklijstItemMaker:APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketWerklijstItemMaker="",Verwerker:APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -50,6 +60,9 @@
 	Set ..EtiketAfdrukkenHelper = $$$Inject(EtiketAfdrukkenHelper, ##class(WSimpl.Halux.AAP.AfdrukService.EtiketAfdrukkenHelper).%New())
 	Set ..BatchService = $$$Inject(BatchService, ##class(APPS.Halux.common.impl.BatchService).%New())
 	Set ..PrinterFactory = $$$Inject(PrinterFactory, ##class(APPS.Halux.PPS.impl.AansturingActie.common.KlantEtiket.PrinterFactory).%New())
+	Set ..SequentieService = $$$Inject(SequentieService, ##class(APPS.Halux.common.impl.SequentieService).%New())
+	Set ..WerklijstItemMaker = WerklijstItemMaker
+	Set ..Verwerker = Verwerker
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -251,6 +264,7 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim Printer As APPS.Halux.PPS.AansturingActie.common.KlantEtiket.Printer = ""
+	#dim Verwerker As APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten
 	
 	While IteratorVanDnaCodesIterators.HasNext() {
 		#dim DnaCodeIterator As TECH.Iterator = IteratorVanDnaCodesIterators.Next()
@@ -267,7 +281,7 @@
 				Set LabelPrinter = ##class(BL.Sys.LabelPrinter).%New()
 				Set ToeleveringService = ##class(DOM.AKP.impl.ToeleveringService).%New()
 				Set AssemblageKarRepository = ##class(APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository).%New()
-				Set Verwerker = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten).%New(LabelPrinter, AssemblageKarRepository, ..BatchService, ToeleveringService)
+				Set Verwerker = $$$LazyLoad(..Verwerker, ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten).%New(LabelPrinter, AssemblageKarRepository, ..BatchService, ToeleveringService))
 				
 				Set ActiviteitParameters = ##class(APPS.Halux.PPS.Activiteit.ActiviteitParameters).%New()
 				Set ActiviteitParameters.Printer = "18"
@@ -297,21 +311,23 @@
 		#dim ProductieSequentie As APPS.Halux.common.impl.SequentieService = ..SequentieService.GeefProductieSequentie(DnaCode.BatchId)
 		#dim ProductieSequentieItemsIterator As TECH.Iterator = ProductieSequentie.GeefItemIterator()
 		#dim ProductieSequentieItem As APPS.Halux.common.ProductieSequentieItem
+		
 		While ProductieSequentieItemsIterator.HasNext() {
 			Set ProductieSequentieItem = ProductieSequentieItemsIterator.Next()
 			If (ProductieSequentieItem.SequentieNummer = DnaCode.SequentieNummer) {
 				Quit	
 			}
 		}
 		
+		#dim WerklijstItemMaker As APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketWerklijstItemMaker
 		Set WerklijstItemMakerInput = ##class(APPS.Halux.PPS.Activiteit.impl.common.WerklijstItemMakerInput).%New(##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking).%New(),ProductieSequentieItem)
 	    
 	    Set KlantEtiketInput = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketInput).%New()
 	    Set KlantEtiketInput.VoorkeurPrinter = "HALUX"
 	    Set KlantEtiketInput.AantalInDoos = 1
 	    Set KlantEtiketInput.Herafdruk = $$$True
 	    
-		Set WerklijstItemMaker = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketWerklijstItemMaker).%New(KlantEtiketInput)
+		Set WerklijstItemMaker = $$$LazyLoad(..WerklijstItemMaker,##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketWerklijstItemMaker).%New(KlantEtiketInput))
 		#dim ProductieSequentieWerklijstItem As APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItem = WerklijstItemMaker.MaakWerklijstItem(WerklijstItemMakerInput)
 		#dim KlantEtiketUitvoeringInfo1 As APPS.Halux.PPS.Activiteit.impl.TAOR.dto.KlantEtiketUitvoeringInfo = ProductieSequentieWerklijstItem.UitvoeringInfo
 		Set KlantEtiketUitvoeringInfo1.HerafdrukEtiket = $$$True