Index: APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/PrintEtiketten.cls.xml
===================================================================
diff -u -r30943 -r30945
--- APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/PrintEtiketten.cls.xml	(.../PrintEtiketten.cls.xml)	(revision 30943)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/PrintEtiketten.cls.xml	(.../PrintEtiketten.cls.xml)	(revision 30945)
@@ -3,14 +3,14 @@
 <Class name="APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten.PrintEtiketten">
 <Super>APPS.Halux.PPS.impl.UitvoeringInfoDeelVerwerker</Super>
 
-<Property name="KlantEtiketDataLijst">
+<Property name="KlantEtikettenData">
 <Type>APPS.Halux.PPS.Activiteit.impl.common.dto.KlantEtiketData</Type>
 <Collection>list</Collection>
 <Private>1</Private>
 </Property>
 
-<Property name="ToeleveringenLijst">
-<Type>TECH.String</Type>
+<Property name="TussenEtiketten">
+<Type>%List</Type>
 <Collection>list</Collection>
 <Private>1</Private>
 </Property>
@@ -35,30 +35,66 @@
 <Method name="VerzamelData">
 <FormalSpec>UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.KartonSnijdenUitvoeringInfo,ActiviteitParameters:APPS.Halux.PPS.Activiteit.ActiviteitParameters</FormalSpec>
 <Implementation><![CDATA[
-	do ..KlantEtiketDataLijst.Insert(UitvoeringInfo.KlantEtiketData)
+	If $$$Not(..IsToeleveringInTussenEtiketten(UitvoeringInfo.ToeleveringID)) {
+		Do ..TussenEtiketten.Insert($ListBuild(UitvoeringInfo.ToeleveringID, UitvoeringInfo.KlantEtiketData.Device, UitvoeringInfo.KlantEtiketData.Layout, UitvoeringInfo.BatchID, UitvoeringInfo.DueOut))
+	}
+	do ..KlantEtikettenData.Insert(UitvoeringInfo.KlantEtiketData)
 ]]></Implementation>
 </Method>
 
+<Method name="IsToeleveringInTussenEtiketten">
+<FormalSpec>ToeleveringID:TECH.String</FormalSpec>
+<Implementation><![CDATA[
+	#dim Gevonden As %Boolean = $$$False
+	Set TussenEtikettenIt = ##class(TECH.ListIterator).%New(..TussenEtiketten)
+	While TussenEtikettenIt.HasNext() && $$$Not(Gevonden) {
+		Set Gevonden = ($ListGet(TussenEtikettenIt.Next(),1) = ToeleveringID)
+	}
+	Quit Gevonden
+]]></Implementation>
+</Method>
+
 <Method name="VoerUit">
 <FormalSpec>ActiviteitParameters:APPS.Halux.PPS.Activiteit.ActiviteitParameters</FormalSpec>
 <Implementation><![CDATA[
 	Do ..LabelPrinterImpl.Clear()
-	set Iterator = ##class(TECH.ListIterator).%New(..KlantEtiketDataLijst)
+	Do ..VoegToeTussenEtiketten()
+	Do ..VoegToeEtiketten()
+	Do ..LabelPrinterImpl.Print2Bartender()
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeTussenEtiketten">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set TussenEtikettenIt = ##class(TECH.ListIterator).%New(..TussenEtiketten)
+	While TussenEtikettenIt.HasNext() {
+		#dim TusenEtiketData As %List = TussenEtikettenIt.Next()
+		#dim Etiket As APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten.Etiket = ..GeefEtiket($ListGet(TusenEtiketData, 2),$ListGet(TusenEtiketData, 3))
+		Set Etiket.Kleurcodes = $ListGet(TusenEtiketData, 1)
+		Set Etiket.Omschrijving1 = "BatchID: "_$ListGet(TusenEtiketData, 4)
+		Set Etiket.Omschrijving2 = "DueOut: "_$ListGet(TusenEtiketData, 5)
+		Do ..LabelPrinterImpl.Add(Etiket)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeEtiketten">
+<Private>1</Private>
+<Implementation><![CDATA[
+	set Iterator = ##class(TECH.ListIterator).%New(..KlantEtikettenData)
 	while Iterator.HasNext() {
 		do ..VoegToeEtiket(Iterator.Next())
 	}
-	Do ..LabelPrinterImpl.Print2Bartender()
 ]]></Implementation>
 </Method>
 
 <Method name="VoegToeEtiket">
 <FormalSpec>KlantEtiketData:APPS.Halux.PPS.Activiteit.impl.common.dto.KlantEtiketData</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set Etiket = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten.Etiket).%New()
+	#dim Etiket As APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten.Etiket = ..GeefEtiket(KlantEtiketData.Device,KlantEtiketData.Layout)
 	Set Etiket.Aantal = KlantEtiketData.Aantal
-	Set Etiket.Layout = KlantEtiketData.Layout
-	Set Etiket.Device = KlantEtiketData.Device
 	Set Etiket.Taal = KlantEtiketData.Taal
 	Set Etiket.LogoLocatie = KlantEtiketData.LogoLocatie
 	Set Etiket.TypeNaam = KlantEtiketData.TypeNaam
@@ -87,6 +123,19 @@
 	Do ..LabelPrinterImpl.Add(Etiket)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefEtiket">
+<FormalSpec>Device:TECH.String,Layout:TECH.String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set Etiket = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten.Etiket).%New()
+	Set Etiket.Layout = Layout
+	Set Etiket.Device = Device
+	Set Etiket.Aantal = 1
+	Set Etiket.Taal = ##class(DOM.enu.Taal).Nederlands()
+	Quit Etiket
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Taorbox.Aansturing/TestLosseComponent/StartBatch/Productie_011_OVHALUX2_Klant_TAX_8x11_LosseComponent.TXT
===================================================================
diff -u -r30941 -r30945
--- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Taorbox.Aansturing/TestLosseComponent/StartBatch/Productie_011_OVHALUX2_Klant_TAX_8x11_LosseComponent.TXT	(.../Productie_011_OVHALUX2_Klant_TAX_8x11_LosseComponent.TXT)	(revision 30941)
+++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Taorbox.Aansturing/TestLosseComponent/StartBatch/Productie_011_OVHALUX2_Klant_TAX_8x11_LosseComponent.TXT	(.../Productie_011_OVHALUX2_Klant_TAX_8x11_LosseComponent.TXT)	(revision 30945)
@@ -1,6 +1,11 @@
 %BTW% /AF="C:\Bartender\Templates\Klant_TAX_8x11_LosseComponent.btw" /PRN="OVHALUX2" /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	OrderTitel	OrderID	DossierTitel	Dossier	Verzendwijze	
+					222223	BatchID: 15000	DueOut: 63505																	
+					222224	BatchID: 15000	DueOut: 63505																	
+					222225	BatchID: 15000	DueOut: 63505																	
+					222226	BatchID: 15000	DueOut: 63505																	
+					222227	BatchID: 15000	DueOut: 63505																	
 LOGO\TAOR_zwart.jpg	TA'OR BOX	C/Z	D:500		NN-NN	Zijkant links	Natuur notenhout - Natuur notenhout	LOGO\W\PEFC_VH_PROD_70.JPG		\\Notes01\Images\GENERIEK\TAOR_BOX\TAOR_BOX_C_Z_ZijkantLinks.SVG	Made in BELGIUM	Stk/Pcs	10	9.000.001.90		UNITTEST KLANT			Order	322223	Dossier	LI7K	DI1	
 LOGO\TAOR_zwart.jpg	TA'OR BOX	C/Z	D:500		NN-NN	Zijkant rechts	Natuur notenhout - Natuur notenhout	LOGO\W\PEFC_VH_PROD_70.JPG		\\Notes01\Images\GENERIEK\TAOR_BOX\TAOR_BOX_C_Z_ZijkantRechts.SVG	Made in BELGIUM	Stk/Pcs	10	9.000.019.90		UNITTEST KLANT			Order	322224	Dossier	LI7L	DI1	
 LOGO\TAOR_zwart.jpg	TA'OR BOX	C/Z	B:600		NN	Rug	Natuur notenhout	LOGO\W\PEFC_VH_PROD_70.JPG		\\Notes01\Images\GENERIEK\TAOR_BOX\TAOR_BOX_C_Z_Rug.SVG	Made in BELGIUM	Stk/Pcs	10	9.000.027.90		UNITTEST KLANT			Order	322225	Dossier	LI7M	DI1