Index: vhTestFiles/UnitTests/APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten/TestAlpnach/TestMeerdereToeleveringen/HALUX_productie_TAOR_01_Klant_TAX_8x11.txt
===================================================================
diff -u -r32763 -r32885
--- vhTestFiles/UnitTests/APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten/TestAlpnach/TestMeerdereToeleveringen/HALUX_productie_TAOR_01_Klant_TAX_8x11.txt	(.../HALUX_productie_TAOR_01_Klant_TAX_8x11.txt)	(revision 32763)
+++ vhTestFiles/UnitTests/APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten/TestAlpnach/TestMeerdereToeleveringen/HALUX_productie_TAOR_01_Klant_TAX_8x11.txt	(.../HALUX_productie_TAOR_01_Klant_TAX_8x11.txt)	(revision 32885)
@@ -1,7 +1,7 @@
 %BTW% /AF="C:\Bartender\Templates\Klant_TAX_8x11.btw" /PRN="HALUX_productie_TAOR" /R=3 /P  /D=<Trigger File Name> /CLOSE
 %END%
 LogoLocatie	TypeNaam	Code	Dimensie	WandDikte	Kleurcodes	Omschrijving1	Omschrijving2	DuurzaamBosbeheerCertificaatLogoLocatie	BarcodeID	LadeAfbeeldingLocatie	LandVanHerkomst	AantalTitel	Aantal	IdentNr	ReferentieVeld1	ReferentieVeld2	ReferentieVeld3	ReferentieVeld4	DossierCode	OrderTitel	OrderID	DossierTitel	Dossier	Verzendwijze	
-															Toelevering:222222, Kar:1	BatchID:15000	DueOut:14/11								
+															Toelevering:222222, Kar:1	BatchID:15000	DueOut:don 30/06 17u								
 LOGO\TAOR_zwart.jpg	TA'OR BOX	M/Z	D:500 x B:408		NE-NE NE	Zijkant links	Natuur Eikenhout - Natuur Eikenhout	LOGO\W\PEFC_VH_PROD_70.JPG		GENERIEK\TAOR_BOX\VET\TAOR_BOX_M_Z.JPG	Made in BELGIUM	Stk	1	9.669.288.10		UNITTEST KLANT			CVI	Order	322222	Dossier	222222	DI1	
-															Toelevering:222223	BatchID:15000	DueOut:14/11								
+															Toelevering:222223	BatchID:15000	DueOut:don 30/06 17u								
 LOGO\TAOR_zwart.jpg	TA'OR BOX	M/Z	D:500 x B:408		NE-NE NE	Zijkant links	Natuur Eikenhout - Natuur Eikenhout	LOGO\W\PEFC_VH_PROD_70.JPG		GENERIEK\TAOR_BOX\VET\TAOR_BOX_M_Z.JPG	Made in BELGIUM	Stk	1	9.669.288.10		UNITTEST KLANT			CVI	Order	322222	Dossier	222223	DI1	
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten.cls.xml
===================================================================
diff -u -r32737 -r32885
--- APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten.cls.xml	(.../KlantEtiketten.cls.xml)	(revision 32737)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten.cls.xml	(.../KlantEtiketten.cls.xml)	(revision 32885)
@@ -13,8 +13,13 @@
 <Private>1</Private>
 </Property>
 
+<Property name="BatchService">
+<Type>APPS.Halux.common.BatchService</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>LabelPrinterImpl:BL.Sys.LabelPrinter,AssemblageKarRepository:APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository=""</FormalSpec>
+<FormalSpec>LabelPrinterImpl:BL.Sys.LabelPrinter,AssemblageKarRepository:APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository="",BatchService:APPS.Halux.common.BatchService=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -25,13 +30,14 @@
 	Set ..UitvoeringInfoVerwerker = ##class(APPS.Halux.PPS.Activiteit.impl.UitvoeringInfoUitgesteldeVerwerker).%New()
 	Set ..LabelPrinterImpl = $$$Inject(LabelPrinterImpl, ##class(BL.Sys.LabelPrinter).%New())
 	Set ..AssemblageKarRepository = $$$Inject(AssemblageKarRepository, ##class(APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository).%New())
+	Set ..BatchService = $$$Inject(BatchService, ##class(APPS.Halux.common.impl.BatchService).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="StelInDeelverwerkers">
-<Implementation><![CDATA[	Do ..UitvoeringInfoVerwerker.VoegToeDeelverwerker(##class(APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten.PrintEtiketten).%New(..LabelPrinterImpl, ..AssemblageKarRepository))
+<Implementation><![CDATA[	Do ..UitvoeringInfoVerwerker.VoegToeDeelverwerker(##class(APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten.PrintEtiketten).%New(..LabelPrinterImpl, ..AssemblageKarRepository, ..BatchService))
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/TestAlpnach.cls.xml
===================================================================
diff -u -r32764 -r32885
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/TestAlpnach.cls.xml	(.../TestAlpnach.cls.xml)	(revision 32764)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/TestAlpnach.cls.xml	(.../TestAlpnach.cls.xml)	(revision 32885)
@@ -13,13 +13,19 @@
 <Private>1</Private>
 </Property>
 
+<Property name="BatchServiceStub">
+<Type>vhTest.Mock.APPS.Halux.common.BatchService</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())
+	Set ..FakeLabelPrinter = ##class(vhTest.Fake.BL.Sys.LabelPrinter).%New(..GeefBestandLocatie())	
+	Set ..BatchServiceStub = ##class(vhTest.Mock.APPS.Halux.common.BatchService).%New()
 		
 	Do ##class(APPS.Halux.PPS.Activiteit.impl.UitvoeringIoCContainer).Instance().Register("UitvoeringInfoBewaarder", ..DummyUitvoeringInfoBewaarder)
 ]]></Implementation>
@@ -51,11 +57,17 @@
 	
 	Do Lijst.Insert(KlantEtiketUitvoeringInfo1)
 	Do Lijst.Insert(KlantEtiketUitvoeringInfo2)
-
+	
+	#dim BatchStub As vhTest.Mock.APPS.Halux.common.Batch = ##class(vhTest.Mock.APPS.Halux.common.Batch).%New()
+	Do BatchStub.IndienMethodCall("GeefGeplandOp").DanReturn($$$DummyDate)
+	Do BatchStub.IndienMethodCall("GeefVroegsteDueOut").DanReturn($$$DummyDate)
+	
+	Do ..BatchServiceStub.IndienMethodCall("GeefBatch", KlantEtiketUitvoeringInfo1.BatchID).DanReturn(BatchStub)
+	
 	#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, ..BatchServiceStub)
 	Do Verwerker.VerwerkUitvoeringInfoLijst(Lijst,##class(APPS.Halux.PPS.Activiteit.ActiviteitParameters).%New())
 	
 	Do $$$AssertCorrectGemaakteBestanden(..GeefBestandLocatie())
@@ -83,10 +95,16 @@
 	Do Lijst.Insert(KlantEtiketUitvoeringInfo1)
 	Do Lijst.Insert(KlantEtiketUitvoeringInfo2)
 
+	#dim BatchStub As vhTest.Mock.APPS.Halux.common.Batch = ##class(vhTest.Mock.APPS.Halux.common.Batch).%New()
+	Do BatchStub.IndienMethodCall("GeefGeplandOp").DanReturn($$$DummyDate)
+	Do BatchStub.IndienMethodCall("GeefVroegsteDueOut").DanReturn($$$DummyDate)
+	
+	Do ..BatchServiceStub.IndienMethodCall("GeefBatch", KlantEtiketUitvoeringInfo1.BatchID).DanReturn(BatchStub)
+
 	#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, ..BatchServiceStub)
 	Do Verwerker.VerwerkUitvoeringInfoLijst(Lijst,##class(APPS.Halux.PPS.Activiteit.ActiviteitParameters).%New())
 	
 	Do $$$AssertCorrectGemaakteBestanden(..GeefBestandLocatie())
@@ -108,11 +126,17 @@
 	Do Lijst.Insert(KlantEtiketUitvoeringInfo1)
 	Do Lijst.Insert(KlantEtiketUitvoeringInfo2)
 
+	#dim BatchStub As vhTest.Mock.APPS.Halux.common.Batch = ##class(vhTest.Mock.APPS.Halux.common.Batch).%New()
+	Do BatchStub.IndienMethodCall("GeefGeplandOp").DanReturn($$$DummyDate)
+	Do BatchStub.IndienMethodCall("GeefVroegsteDueOut").DanReturn($$$DummyDate)
+	
+	Do ..BatchServiceStub.IndienMethodCall("GeefBatch", KlantEtiketUitvoeringInfo1.BatchID).DanReturn(BatchStub)
+
 	#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, ..BatchServiceStub)
 	Do Verwerker.VerwerkUitvoeringInfoLijst(Lijst, ##class(APPS.Halux.PPS.Activiteit.ActiviteitParameters).%New())
 	
 	Do $$$AssertCorrectGemaakteBestanden(..GeefBestandLocatie())
@@ -141,7 +165,7 @@
 	Set UitvoeringInfo.ToeleveringSequentieNummer = "1"
 	Set UitvoeringInfo.TotaalAantal = 1
 	Set UitvoeringInfo.VerwerkingID = ""
-	Set UitvoeringInfo.WerklijstItemID = "33333333"
+	Set UitvoeringInfo.WerklijstItemID = "33333333"   
 	
 	Quit UitvoeringInfo
 ]]></Implementation>
Index: vhTestFiles/UnitTests/APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten/TestAlpnach/TestWisselenvankarzorgtvoorextratussenetiket/HALUX_productie_TAOR_01_Klant_TAX_8x11.txt
===================================================================
diff -u -r32763 -r32885
--- vhTestFiles/UnitTests/APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten/TestAlpnach/TestWisselenvankarzorgtvoorextratussenetiket/HALUX_productie_TAOR_01_Klant_TAX_8x11.txt	(.../HALUX_productie_TAOR_01_Klant_TAX_8x11.txt)	(revision 32763)
+++ vhTestFiles/UnitTests/APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten/TestAlpnach/TestWisselenvankarzorgtvoorextratussenetiket/HALUX_productie_TAOR_01_Klant_TAX_8x11.txt	(.../HALUX_productie_TAOR_01_Klant_TAX_8x11.txt)	(revision 32885)
@@ -1,7 +1,7 @@
 %BTW% /AF="C:\Bartender\Templates\Klant_TAX_8x11.btw" /PRN="HALUX_productie_TAOR" /R=3 /P  /D=<Trigger File Name> /CLOSE
 %END%
 LogoLocatie	TypeNaam	Code	Dimensie	WandDikte	Kleurcodes	Omschrijving1	Omschrijving2	DuurzaamBosbeheerCertificaatLogoLocatie	BarcodeID	LadeAfbeeldingLocatie	LandVanHerkomst	AantalTitel	Aantal	IdentNr	ReferentieVeld1	ReferentieVeld2	ReferentieVeld3	ReferentieVeld4	DossierCode	OrderTitel	OrderID	DossierTitel	Dossier	Verzendwijze	
-															Toelevering:222222, Kar:1	BatchID:15000	DueOut:14/11								
+															Toelevering:222222, Kar:1	BatchID:15000	DueOut:don 30/06 17u								
 LOGO\TAOR_zwart.jpg	TA'OR BOX	M/Z	D:500 x B:408		NE-NE NE	Zijkant links	Natuur Eikenhout - Natuur Eikenhout	LOGO\W\PEFC_VH_PROD_70.JPG		GENERIEK\TAOR_BOX\VET\TAOR_BOX_M_Z.JPG	Made in BELGIUM	Stk	1	9.669.288.10		UNITTEST KLANT			CVI	Order	322222	Dossier	222222	DI1	
-															Kar:2	BatchID:15000	DueOut:14/11								
+															Kar:2	BatchID:15000	DueOut:don 30/06 17u								
 LOGO\TAOR_zwart.jpg	TA'OR BOX	M/Z	D:500 x B:408		NE-NE NE	Zijkant links	Natuur Eikenhout - Natuur Eikenhout	LOGO\W\PEFC_VH_PROD_70.JPG		GENERIEK\TAOR_BOX\VET\TAOR_BOX_M_Z.JPG	Made in BELGIUM	Stk	1	9.669.288.10		UNITTEST KLANT			CVI	Order	322222	Dossier	222222	DI1	
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/PrintEtiketten.cls.xml
===================================================================
diff -u -r32841 -r32885
--- APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/PrintEtiketten.cls.xml	(.../PrintEtiketten.cls.xml)	(revision 32841)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/PrintEtiketten.cls.xml	(.../PrintEtiketten.cls.xml)	(revision 32885)
@@ -8,6 +8,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="BatchService">
+<Type>APPS.Halux.common.BatchService</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="LabelPrinterImpl">
 <Type>BL.Sys.LabelPrinter</Type>
 <Private>1</Private>
@@ -53,7 +58,7 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>LabelPrinterImpl:BL.Sys.LabelPrinter,AssemblageKarRepository:APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository=""</FormalSpec>
+<FormalSpec>LabelPrinterImpl:BL.Sys.LabelPrinter,AssemblageKarRepository:APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository="",BatchService:APPS.Halux.common.BatchService=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -62,6 +67,8 @@
 	Set ..LabelPrinterImpl = LabelPrinterImpl
 	Set ..FormatAPI = ##class(TECH.Context).Instance().GeefFormatAPI()
 	Set ..AssemblageKarRepository = $$$Inject(AssemblageKarRepository, ##class(APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository).%New())
+	Set ..BatchService = $$$Inject(BatchService, ##class(APPS.Halux.common.impl.BatchService).%New())	
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -133,7 +140,7 @@
 <Private>1</Private>
 <ReturnType>BL.Sys.pxLabel</ReturnType>
 <Implementation><![CDATA[
-	#dim Batch As APPS.Halux.common.Batch = ##class(APPS.Halux.common.impl.BatchService).%New().GeefBatch(UitvoeringInfo.BatchID)
+	#dim Batch As APPS.Halux.common.Batch = ..BatchService.GeefBatch(UitvoeringInfo.BatchID)
 	#dim DueOutFormatter As APPS.Halux.PPS.impl.BatchDueOutFormatter = ##class(APPS.Halux.PPS.impl.BatchDueOutFormatter).%New()
 	#dim Etiket As APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten.Etiket = ..GeefEtiket(UitvoeringInfo.KlantEtiketData.Device, UitvoeringInfo.KlantEtiketData.Layout)
 
Index: vhTestFiles/UnitTests/APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten/TestAlpnach/Test/HALUX_productie_TAOR_01_Klant_TAX_8x11.txt
===================================================================
diff -u -r32763 -r32885
--- vhTestFiles/UnitTests/APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten/TestAlpnach/Test/HALUX_productie_TAOR_01_Klant_TAX_8x11.txt	(.../HALUX_productie_TAOR_01_Klant_TAX_8x11.txt)	(revision 32763)
+++ vhTestFiles/UnitTests/APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten/TestAlpnach/Test/HALUX_productie_TAOR_01_Klant_TAX_8x11.txt	(.../HALUX_productie_TAOR_01_Klant_TAX_8x11.txt)	(revision 32885)
@@ -1,6 +1,6 @@
 %BTW% /AF="C:\Bartender\Templates\Klant_TAX_8x11.btw" /PRN="HALUX_productie_TAOR" /R=3 /P  /D=<Trigger File Name> /CLOSE
 %END%
 LogoLocatie	TypeNaam	Code	Dimensie	WandDikte	Kleurcodes	Omschrijving1	Omschrijving2	DuurzaamBosbeheerCertificaatLogoLocatie	BarcodeID	LadeAfbeeldingLocatie	LandVanHerkomst	AantalTitel	Aantal	IdentNr	ReferentieVeld1	ReferentieVeld2	ReferentieVeld3	ReferentieVeld4	DossierCode	OrderTitel	OrderID	DossierTitel	Dossier	Verzendwijze	
-															Toelevering:222222, Kar:1	BatchID:15000	DueOut:14/11								
+															Toelevering:222222, Kar:1	BatchID:15000	DueOut:don 30/06 17u								
 LOGO\TAOR_zwart.jpg	TA'OR BOX	M/Z	D:500 x B:408		NE-NE NE	Zijkant links	Natuur Eikenhout - Natuur Eikenhout	LOGO\W\PEFC_VH_PROD_70.JPG		GENERIEK\TAOR_BOX\VET\TAOR_BOX_M_Z.JPG	Made in BELGIUM	Stk	1	9.669.288.10		UNITTEST KLANT			CVI	Order	322222	Dossier	222222	DI1	
 LOGO\TAOR_zwart.jpg	TA'OR BOX	M/Z	D:500 x B:408		NE-NE NE	Zijkant links	Natuur Eikenhout - Natuur Eikenhout	LOGO\W\PEFC_VH_PROD_70.JPG		GENERIEK\TAOR_BOX\VET\TAOR_BOX_M_Z.JPG	Made in BELGIUM	Stk	1	9.669.288.10		UNITTEST KLANT			CVI	Order	322222	Dossier	222222	DI1