Index: vhTestFiles/UnitTests/APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten/TestAlpnach/TestMeerdereToeleveringen/HALUX_productie_TAOR_01_Klant_TAX_8x11.txt
===================================================================
diff -u -r32734 -r32737
--- 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 32734)
+++ 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 32737)
@@ -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	
-															222222	BatchID: 15000	DueOut: 14/11								
+															Toelevering:222222, Kar:1	BatchID:15000	DueOut:14/11								
 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	
-															222223	BatchID: 15000	DueOut: 14/11								
+															Toelevering:222223, Kar:1	BatchID:15000	DueOut:14/11								
 LOGO\TAOR_zwart.jpg	TA'OR BOX	F	D:400 x B:878		W-W W	Zijkant links	Wit - Wit	LOGO\W\PEFC_VH_PROD_80.JPG		GENERIEK\TAOR_BOX\VET\TAOR_BOX_F.JPG	Made in BELGIUM	Stk	1	9.412.236.11		UNITTEST KLANT			FWG	Order	322222	Dossier	222223	DI1	
Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/TestAlpnach.cls.xml
===================================================================
diff -u -r32735 -r32737
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/TestAlpnach.cls.xml	(.../TestAlpnach.cls.xml)	(revision 32735)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/TestAlpnach.cls.xml	(.../TestAlpnach.cls.xml)	(revision 32737)
@@ -88,9 +88,13 @@
 	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())
-	Set Verwerker = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten).%New(FakeLabelPrinter)
+	#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)
+	
 	do Verwerker.VerwerkUitvoeringInfoLijst(Lijst,##class(APPS.Halux.PPS.Activiteit.ActiviteitParameters).%New())
 	
 	do $$$AssertCorrectGemaakteBestanden(..GeefBestandLocatie())
@@ -182,7 +186,11 @@
 	do ##class(APPS.Halux.PPS.Activiteit.impl.UitvoeringIoCContainer).Instance().Register("UitvoeringInfoBewaarder",DummyUitvoeringInfoBewaarder)
 	
 	Set FakeLabelPrinter = ##class(vhTest.Fake.BL.Sys.LabelPrinter).%New(..GeefBestandLocatie())
-	Set Verwerker = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten).%New(FakeLabelPrinter)
+
+	#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)
 	
 	do Verwerker.VerwerkUitvoeringInfoLijst(Lijst,##class(APPS.Halux.PPS.Activiteit.ActiviteitParameters).%New())
 	
Index: vhTestFiles/UnitTests/APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten/TestAlpnach/Test/HALUX_productie_TAOR_01_Klant_TAX_8x11.txt
===================================================================
diff -u -r32706 -r32737
--- 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 32706)
+++ 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 32737)
@@ -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	
-															222222	BatchID: 15000	DueOut: 14/11								
+															Toelevering:222222, Kar:1	BatchID:15000	DueOut:14/11								
 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	F	D:400 x B:878		W-W W	Zijkant links	Wit - Wit	LOGO\W\PEFC_VH_PROD_80.JPG		GENERIEK\TAOR_BOX\VET\TAOR_BOX_F.JPG	Made in BELGIUM	Stk	1	9.412.236.11		UNITTEST KLANT			FWG	Order	322222	Dossier	222222	DI1	
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/PrintEtiketten.cls.xml
===================================================================
diff -u -r32736 -r32737
--- APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/PrintEtiketten.cls.xml	(.../PrintEtiketten.cls.xml)	(revision 32736)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/PrintEtiketten.cls.xml	(.../PrintEtiketten.cls.xml)	(revision 32737)
@@ -25,15 +25,21 @@
 <Private>1</Private>
 </Property>
 
+<Property name="AssemblageKarRepository">
+<Type>APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>LabelPrinterImpl:BL.Sys.LabelPrinter</FormalSpec>
+<FormalSpec>LabelPrinterImpl:BL.Sys.LabelPrinter,AssemblageKarRepository:APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..LabelPrinterImpl = LabelPrinterImpl
 	Set ..FormatAPI = ##class(TECH.Context).Instance().GeefFormatAPI()
+	Set ..AssemblageKarRepository = $$$Inject(AssemblageKarRepository, ##class(APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -71,9 +77,9 @@
 <Implementation><![CDATA[
 	#dim Etiket As APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten.Etiket = ..GeefEtiket(UitvoeringInfo.KlantEtiketData.Device, UitvoeringInfo.KlantEtiketData.Layout)
 
-	Set Etiket.Info1 = UitvoeringInfo.ToeleveringID
-	Set Etiket.Info2 = "BatchID: " _ UitvoeringInfo.BatchID
-	Set Etiket.Info3 = "DueOut: " _ ..FormatAPI.FormatDate(UitvoeringInfo.DueOut, "dd/mm")
+	Set Etiket.Info1 = "Toelevering:" _ UitvoeringInfo.ToeleveringID _ ", Kar:" _ ..AssemblageKarRepository.GeefKarVolgnummerViaSequentieNr(UitvoeringInfo.BatchID, UitvoeringInfo.SequentieNummer)
+	Set Etiket.Info2 = "BatchID:" _ UitvoeringInfo.BatchID
+	Set Etiket.Info3 = "DueOut:" _ ..FormatAPI.FormatDate(UitvoeringInfo.DueOut, "dd/mm")
 		
 	Quit Etiket
 ]]></Implementation>
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten.cls.xml
===================================================================
diff -u -r32692 -r32737
--- APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten.cls.xml	(.../KlantEtiketten.cls.xml)	(revision 32692)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten.cls.xml	(.../KlantEtiketten.cls.xml)	(revision 32737)
@@ -8,23 +8,30 @@
 <Private>1</Private>
 </Property>
 
+<Property name="AssemblageKarRepository">
+<Type>APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>LabelPrinterImpl:BL.Sys.LabelPrinter</FormalSpec>
+<FormalSpec>LabelPrinterImpl:BL.Sys.LabelPrinter,AssemblageKarRepository:APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	do ##super()
+	Do ##super()
+	
 	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 ..LabelPrinterImpl = $$$Implementation(LabelPrinterImpl,##class(BL.Sys.LabelPrinter).%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))
+<Implementation><![CDATA[	Do ..UitvoeringInfoVerwerker.VoegToeDeelverwerker(##class(APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten.PrintEtiketten).%New(..LabelPrinterImpl, ..AssemblageKarRepository))
 ]]></Implementation>
 </Method>
 </Class>