Index: APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/PrintEtiketten.cls.xml
===================================================================
diff -u -r61688 -r70170
--- APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/PrintEtiketten.cls.xml	(.../PrintEtiketten.cls.xml)	(revision 61688)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/PrintEtiketten.cls.xml	(.../PrintEtiketten.cls.xml)	(revision 70170)
@@ -56,6 +56,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="PrintEtikettenHelper">
+<Type>APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten.PrintEtiketten.PrintEtikettenHelper</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>LabelPrinterImpl:BL.Sys.LabelPrinter,AssemblageKarRepository:APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository="",BatchService:APPS.Halux.common.BatchService="",ToeleveringService:DOM.AKP.ToeleveringService=""</FormalSpec>
 <Private>1</Private>
@@ -68,7 +73,8 @@
 	Set ..AssemblageKarRepository = $$$Inject(AssemblageKarRepository, ##class(APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository).%New())
 	Set ..BatchService = $$$Inject(BatchService, ##class(APPS.Halux.common.impl.BatchService).%New())	
 	Set ..ToeleveringService = 	$$$Inject(ToeleveringService, ##class(DOM.AKP.impl.ToeleveringService).%New())	
-
+	Set ..PrintEtikettenHelper = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten.PrintEtiketten.PrintEtikettenHelper).%New(..AssemblageKarRepository, ..BatchService, ..ToeleveringService)
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -80,7 +86,7 @@
 		Set UitvoeringInfo.KlantEtiketData.Aantal = 1
 	} Else {
 		Do ..BepaalWissels(UitvoeringInfo)
-		Do:(..WisselToelevering || ..WisselKar) ..KlantEtiketten.Insert(..MaakTussenEtiket(UitvoeringInfo))
+		Do:(..WisselToelevering || ..WisselKar) ..KlantEtiketten.Insert(..PrintEtikettenHelper.MaakTussenEtiket(UitvoeringInfo, ..WisselToelevering, ..WisselKar))
 	}
 	Do ..KlantEtiketten.Insert(..MaakEtiket(UitvoeringInfo.KlantEtiketData))
 ]]></Implementation>
@@ -118,7 +124,7 @@
 <FormalSpec>UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.TAOR.dto.KlantEtiketUitvoeringInfo</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim KarVolgNummer As TECH.String = ..GeefKarVolgNummer(UitvoeringInfo)
+	#dim KarVolgNummer As TECH.String = ..PrintEtikettenHelper.GeefKarVolgNummer(UitvoeringInfo)
 	
 	Set ..WisselToelevering = $$$False
 	Set ..WisselKar = $$$False
@@ -135,57 +141,12 @@
 ]]></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 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)
-
-	Set Etiket.Info1 = ..GeefInfo1(UitvoeringInfo)
-	Set Etiket.Info2 = "BatchID:" _ UitvoeringInfo.BatchID
-	Set Etiket.Info3 = DueOutFormatter.GeefGeformatteerdeDueOut(Batch)
-	Set Etiket.Info4 = ..GeefPalletType(UitvoeringInfo.ToeleveringID)		
-	Quit Etiket
-]]></Implementation>
-</Method>
-
-<Method name="GeefPalletType">
-<FormalSpec>ToeleveringID:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	If ..ToeleveringService.GeefTransportWaarborgType(ToeleveringID) = ##class(DOM.VKP.enu.TransportWaarborgType).ZonderWaarborg() {
-		Quit "WEGWERPPALLET MAX 1,5m"
-	}
-	Quit ""
-]]></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="MaakEtiket">
 <FormalSpec>KlantEtiketData:APPS.Halux.PPS.Activiteit.impl.common.dto.KlantEtiketData</FormalSpec>
 <Private>1</Private>
 <ReturnType>APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten.Etiket</ReturnType>
 <Implementation><![CDATA[
-	#dim Etiket As APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten.Etiket = ..GeefEtiket(KlantEtiketData.Device, KlantEtiketData.Layout)
+	#dim Etiket As APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten.Etiket = ..PrintEtikettenHelper.GeefEtiket(KlantEtiketData.Device, KlantEtiketData.Layout)
 	
 	Set Etiket.Aantal = KlantEtiketData.Aantal
 	Set Etiket.Taal = KlantEtiketData.Taal
@@ -221,54 +182,6 @@
 	Quit Etiket
 ]]></Implementation>
 </Method>
-
-<Method name="GeefEtiket">
-<FormalSpec>Device:TECH.String,Layout:TECH.String</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	#dim Etiket As APPS.Halux.PPS.Activiteit.impl.TAOR.LijstVerwerkers.KlantEtiketten.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>
-
-<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[	Quit $$$If((..WisselKar), "Kar:" _ ..GeefKarVolgNummer(UitvoeringInfo), "")
-]]></Implementation>
-</Method>
-
-<Method name="GeefKarVolgNummer">
-<FormalSpec>UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.TAOR.dto.KlantEtiketUitvoeringInfo</FormalSpec>
-<Private>1</Private>
-<ReturnType>TECH.String</ReturnType>
-<Implementation><![CDATA[
-	#dim KarVolgNummer As TECH.String = ""
-	
-	Try {
-		Set KarVolgNummer = ..AssemblageKarRepository.GeefKarVolgnummerViaSequentieNr(UitvoeringInfo.BatchID, UitvoeringInfo.SequentieNummer)	
-	} Catch {
-		Do ##class(TECH.ExceptionHandler).Catch("APPS.Halux.PPS.TAORProductie.impl.AssemblageKarRepository.Exceptie.KarNietGevondenExceptie")
-	}
-	
-	Quit KarVolgNummer
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/PrintEtiketten/PrintEtikettenHelper.cls.xml
===================================================================
diff -u -r70168 -r70170
--- APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/PrintEtiketten/PrintEtikettenHelper.cls.xml	(.../PrintEtikettenHelper.cls.xml)	(revision 70168)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/LijstVerwerkers/KlantEtiketten/PrintEtiketten/PrintEtikettenHelper.cls.xml	(.../PrintEtikettenHelper.cls.xml)	(revision 70170)
@@ -148,6 +148,7 @@
 
 <Method name="HeeftToeleveringProductMetRollen">
 <FormalSpec>Toelevering:DOM.AKP.Toelevering,Rollen:%ListOfDataTypes</FormalSpec>
+<Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	#dim HeeftToeleveringProductMetRollen As %Boolean = $$$False
@@ -174,6 +175,7 @@
 
 <Method name="HeeftToeleveringProductMetMat">
 <FormalSpec>Toelevering:DOM.AKP.Toelevering</FormalSpec>
+<Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	#dim HeeftToeleveringProductMetMat As %Boolean = $$$False
@@ -196,6 +198,7 @@
 
 <Method name="HeeftMaatwerkProductHalffabMetRol">
 <FormalSpec>MaatwerkProduct:DOM.PM.MaatwerkProduct,Rol:DOM.PM.Maatwerk.Calc.HF.enu.TAORRol</FormalSpec>
+<Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	#dim BevatMaatwerkProductRol As %Boolean = $$$False