Index: vhTestFiles/UnitTests/APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten/TestAlpnach/TestWisselenvankarzorgtvoorextratussenetiket/HALUX_productie_TAOR_01_Klant_TAX_8x11.txt
===================================================================
diff -u -r32744 -r32749
--- 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 32744)
+++ 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 32749)
@@ -3,5 +3,5 @@
 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								
 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:222222, Kar:2	BatchID:15000	DueOut:14/11								
+															Kar:2	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	222222	DI1	
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/PrintEtiketten.cls.xml
===================================================================
diff -u -r32744 -r32749
--- APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/PrintEtiketten.cls.xml	(.../PrintEtiketten.cls.xml)	(revision 32744)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/PrintEtiketten.cls.xml	(.../PrintEtiketten.cls.xml)	(revision 32749)
@@ -36,6 +36,16 @@
 <Private>1</Private>
 </Property>
 
+<Property name="WisselToelevering">
+<Type>%Boolean</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="WisselKar">
+<Type>%Boolean</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>LabelPrinterImpl:BL.Sys.LabelPrinter,AssemblageKarRepository:APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository=""</FormalSpec>
 <Private>1</Private>
@@ -54,16 +64,8 @@
 <Method name="VerzamelData">
 <FormalSpec>UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.TAOR.dto.KlantEtiketUitvoeringInfo,ActiviteitParameters:APPS.Halux.PPS.Activiteit.ActiviteitParameters</FormalSpec>
 <Implementation><![CDATA[
-	#dim KarVolgNr As TECH.String = ..AssemblageKarRepository.GeefKarVolgnummerViaSequentieNr(UitvoeringInfo.BatchID, UitvoeringInfo.SequentieNummer)
-	
-	If $$$Not(..TussenEtiketToeleveringLookup.IsDefined(UitvoeringInfo.ToeleveringID)) {
-		Do ..KlantEtiketten.Insert(..MaakTussenEtiket(UitvoeringInfo))
-		Do ..TussenEtiketToeleveringLookup.SetAt("", UitvoeringInfo.ToeleveringID)
-	} ElseIf $$$Not(..TussenEtiketKarLookup.IsDefined(KarVolgNr)) {
-		Do ..KlantEtiketten.Insert(..MaakTussenEtiket(UitvoeringInfo))
-		Do ..TussenEtiketKarLookup.SetAt("", KarVolgNr)
-	}
-	
+	Do ..BepaalWissels(UitvoeringInfo)
+	Do:(..WisselToelevering || ..WisselKar) ..KlantEtiketten.Insert(..MaakTussenEtiket(UitvoeringInfo))
 	Do ..KlantEtiketten.Insert(..MaakEtiket(UitvoeringInfo.KlantEtiketData))
 ]]></Implementation>
 </Method>
@@ -81,22 +83,58 @@
 <Private>1</Private>
 </Method>
 
+<Method name="BepaalWissels">
+<FormalSpec>UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.TAOR.dto.KlantEtiketUitvoeringInfo</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim KarVolgNr As TECH.String = ..AssemblageKarRepository.GeefKarVolgnummerViaSequentieNr(UitvoeringInfo.BatchID, UitvoeringInfo.SequentieNummer)
+	
+	Set ..WisselToelevering = $$$False
+	Set ..WisselKar = $$$False
+	
+	If $$$Not(..TussenEtiketToeleveringLookup.IsDefined(UitvoeringInfo.ToeleveringID)) {
+		Do ..TussenEtiketToeleveringLookup.SetAt("", UitvoeringInfo.ToeleveringID)
+		Set ..WisselToelevering = $$$True
+	} 
+	
+	If $$$Not(..TussenEtiketKarLookup.IsDefined(KarVolgNr)) {
+		Do ..TussenEtiketKarLookup.SetAt("", KarVolgNr)
+		Set ..WisselKar = $$$True
+	}
+]]></Implementation>
+</Method>
+
 <Method name="MaakTussenEtiket">
 <FormalSpec>UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.TAOR.dto.KlantEtiketUitvoeringInfo</FormalSpec>
 <Private>1</Private>
 <ReturnType>BL.Sys.pxLabel</ReturnType>
 <Implementation><![CDATA[
 	#dim Etiket As APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten.Etiket = ..GeefEtiket(UitvoeringInfo.KlantEtiketData.Device, UitvoeringInfo.KlantEtiketData.Layout)
-	#dim KarInformatie As TECH.String = ..GeefKarInformatie(UitvoeringInfo)
-	
-	Set Etiket.Info1 = "Toelevering:" _ UitvoeringInfo.ToeleveringID _ $$$IfLength(KarInformatie,", ","")
+
+	Set Etiket.Info1 = ..GeefInfo1(UitvoeringInfo)
 	Set Etiket.Info2 = "BatchID:" _ UitvoeringInfo.BatchID
 	Set Etiket.Info3 = "DueOut:" _ ..FormatAPI.FormatDate(UitvoeringInfo.DueOut, "dd/mm")
 		
 	Quit Etiket
 ]]></Implementation>
 </Method>
 
+<Method name="GeefInfo1">
+<FormalSpec>UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.TAOR.dto.KlantEtiketUitvoeringInfo</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim ToeleveringInformatie As TECH.String = ..GeefToeleveringInformatie(UitvoeringInfo)
+	#dim KarInformatie As TECH.String = ..GeefKarInformatie(UitvoeringInfo)
+	#dim List As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	
+	Do:$length(ToeleveringInformatie) List.Insert(ToeleveringInformatie)
+	Do:$length(KarInformatie) List.Insert(KarInformatie)
+	
+	Quit ##class(TECH.ListUtils).ListToPieces(List, ", ")
+]]></Implementation>
+</Method>
+
 <Method name="VoegToeEtiketten">
 <Private>1</Private>
 <Implementation><![CDATA[
@@ -162,20 +200,22 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefToeleveringInformatie">
+<FormalSpec>UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.TAOR.dto.KlantEtiketUitvoeringInfo</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[	Quit $$$If((..WisselToelevering), "Toelevering:" _ UitvoeringInfo.ToeleveringID, "")
+]]></Implementation>
+</Method>
+
 <Method name="GeefKarInformatie">
 <FormalSpec>UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.TAOR.dto.KlantEtiketUitvoeringInfo</FormalSpec>
 <Private>1</Private>
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
 	#dim KarVolgNr As TECH.String = ..AssemblageKarRepository.GeefKarVolgnummerViaSequentieNr(UitvoeringInfo.BatchID, UitvoeringInfo.SequentieNummer)
-	#dim KarInformatie As TECH.String = ""
 	
-	If $$$Not(..TussenEtiketKarLookup.IsDefined(KarVolgNr)) {
-		Do ..TussenEtiketKarLookup.SetAt("", KarVolgNr)
-		Set KarInformatie = "Kar:" _ KarVolgNr
-	}
-	
-	Quit KarInformatie
+	Quit $$$If((..WisselKar), "Kar:" _ KarVolgNr, "")
 ]]></Implementation>
 </Method>
 </Class>