Index: APPS/Halux/PPS/Document/impl/common/TussenEtiketVoorToeleveringBepaler.cls.xml
===================================================================
diff -u -r37977 -r71632
--- APPS/Halux/PPS/Document/impl/common/TussenEtiketVoorToeleveringBepaler.cls.xml	(.../TussenEtiketVoorToeleveringBepaler.cls.xml)	(revision 37977)
+++ APPS/Halux/PPS/Document/impl/common/TussenEtiketVoorToeleveringBepaler.cls.xml	(.../TussenEtiketVoorToeleveringBepaler.cls.xml)	(revision 71632)
@@ -52,6 +52,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="MaakTussenEtiketVoorBewerkingscenter">
+<FormalSpec>Layout:%String,Device:%String</FormalSpec>
+<ReturnType>BL.Etiket.LadeKlantEtiket</ReturnType>
+<Implementation><![CDATA[
+	Set TussenEtiketVoorBewerkingscenter = ##class(BL.Etiket.LadeKlantEtiket).%New("")
+	Set TussenEtiketVoorBewerkingscenter.Info1 = "**ORGALUX**"	
+	Set TussenEtiketVoorBewerkingscenter.Info2 = "BEWERKINGSCENTER"
+	Set TussenEtiketVoorBewerkingscenter.Layout = Layout
+	Set TussenEtiketVoorBewerkingscenter.Device = Device
+	
+	Quit TussenEtiketVoorBewerkingscenter
+]]></Implementation>
+</Method>
+
 <Method name="GeefPalletType">
 <FormalSpec>ToeleveringID:%String</FormalSpec>
 <Private>1</Private>
Index: APPS/Halux/PPS/Document/impl/common/MaatwerkProductEtiketten.cls.xml
===================================================================
diff -u -r71630 -r71632
--- APPS/Halux/PPS/Document/impl/common/MaatwerkProductEtiketten.cls.xml	(.../MaatwerkProductEtiketten.cls.xml)	(revision 71630)
+++ APPS/Halux/PPS/Document/impl/common/MaatwerkProductEtiketten.cls.xml	(.../MaatwerkProductEtiketten.cls.xml)	(revision 71632)
@@ -55,6 +55,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="TussenEtiketVoorToeleveringBepaler">
+<Type>APPS.Halux.PPS.Document.impl.common.TussenEtiketVoorToeleveringBepaler</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
@@ -68,6 +73,7 @@
 	Set ..ProductAPI = ##class(DOM.PM.impl.ProductAPI).%New()
 	Set ..IngegevenKenmerkenTypeAPI = ##class(DOM.PM.Maatwerk.impl.IngegevenKenmerkenTypeAPI).%New()
 	Set ..DnaCodeService =  ##class(APPS.Halux.PPS.Activiteit.impl.TBX.KlantEtiketIoCContainer).Instance().Resolve("DnaCodeService")
+	Set ..TussenEtiketVoorToeleveringBepaler = ##class(APPS.Halux.PPS.Document.impl.common.TussenEtiketVoorToeleveringBepaler).%New("")
 	
 	Quit $$$OK
 ]]></Implementation>
@@ -85,7 +91,7 @@
 	Do ..ZetAantalLijnenOpTussenEtiket()
 	
 	If (..BevatBatchSpecialeLade) {
-		Do ..VoegToeLeegTussenEtiket()
+		Do ..VoegToeTussenEtiketVoorBewerkingsCenter()
 		Do ..VoegToeExtraEtikettenSpecialeLadesVoorUitvoeringLijst(UitvoeringInfoIt, IsKlantEtiketSpaceStep)
 	}
 	
@@ -130,7 +136,6 @@
 				If $Length(UitvoeringInfo.VHOSSID) {
 					Set Etiket = ..EtiketBuilder.MaakMaatwerkProductInVHossViaVHossProdSeqItem(UitvoeringInfo)
 				} Else {
-					#dim ToeleveringID As %String = UitvoeringInfo.ToeleveringID
 					#dim DnaCode As %String = ..DnaCodeService.GeefDnaCodeVoorDubbeleAfdruk(UitvoeringInfo.BatchID, UitvoeringInfo.SequentieNummer)
 					
 					Set Etiket = ..EtiketBuilder.MaakExtraMaatwerkProductVoorBewerkingscenterViaToeleveringEnLijnID(DnaCode, LaatsteEtiketVoorToelevering.Layout, LaatsteEtiketVoorToelevering.Device)
@@ -192,8 +197,7 @@
 <Private>1</Private>
 <ReturnType>BL.Etiket.LadeKlantEtiket</ReturnType>
 <Implementation><![CDATA[
-	Set TussenEtiketVoorToeleveringBepaler = ##class(APPS.Halux.PPS.Document.impl.common.TussenEtiketVoorToeleveringBepaler).%New("")
-	Set ..TussenEtiket = TussenEtiketVoorToeleveringBepaler.MaakTussenEtiket(ToeleveringID)
+	Set ..TussenEtiket = ..TussenEtiketVoorToeleveringBepaler.MaakTussenEtiket(ToeleveringID)
 	Do ..Etiketten.Insert(..TussenEtiket)
 ]]></Implementation>
 </Method>
@@ -211,17 +215,13 @@
 ]]></Implementation>
 </Method>
 
-<Method name="VoegToeLeegTussenEtiket">
+<Method name="VoegToeTussenEtiketVoorBewerkingsCenter">
 <Private>1</Private>
 <Implementation><![CDATA[
-	Set LeegTussenEtiket = ##class(BL.Etiket.LadeKlantEtiket).%New("")
-	Set LeegTussenEtiket.Info1 = "**ORGALUX**"	
-	Set LeegTussenEtiket.Info2 = "BEWERKINGSCENTER"
 	#dim LaatsteEtiketVoorToelevering As BL.Etiket.LadeKlantEtiket = ..GeefLaatsteEtiket()
-	Set LeegTussenEtiket.Layout = LaatsteEtiketVoorToelevering.Layout
-	Set LeegTussenEtiket.Device = LaatsteEtiketVoorToelevering.Device
+	#dim TussenEtiketVoorBewerkingsCenter As BL.Etiket.LadeKlantEtiket = ..TussenEtiketVoorToeleveringBepaler.MaakTussenEtiketVoorBewerkingscenter(LaatsteEtiketVoorToelevering.Layout, LaatsteEtiketVoorToelevering.Device)
 	
-	Do ..Etiketten.Insert(LeegTussenEtiket)
+	Do ..Etiketten.Insert(TussenEtiketVoorBewerkingsCenter)
 ]]></Implementation>
 </Method>