Index: APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker.cls.xml
===================================================================
diff -u -r32642 -r32704
--- APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker.cls.xml	(.../WerklijstItemsMaker.cls.xml)	(revision 32642)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker.cls.xml	(.../WerklijstItemsMaker.cls.xml)	(revision 32704)
@@ -1,173 +1,81 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.WerklijstItemsMaker">
-<Super>APPS.Halux.PPS.Activiteit.impl.common.WerklijstItemsMaker,DOM.PM.Maatwerk.TAX.impl.Base</Super>
+<Super>APPS.Halux.PPS.Activiteit.impl.common.WerklijstItemsMaker,DOM.PM.enu.TAORVerpakkingType.Verwerker,DOM.PM.Maatwerk.TAX.impl.Base</Super>
 
-<Property name="BenamingVerpakkingen">
-<Type>DOM.PM.Verpakking.enu.BenamingVerpakkingsOnderdeel.AutoComplete</Type>
+<Property name="PerVerpakking">
+<Type>APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.WerklijstItemsMaker.PerVerpakking</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="IngegevenKenmerkenTypeAPI">
-<Type>DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI</Type>
+<Property name="PerVerpakkingWerklijstItemMakers">
+<Type>APPS.Halux.PPS.Activiteit.impl.common.WerklijstItemMaker</Type>
+<Collection>list</Collection>
 <Private>1</Private>
 </Property>
 
-<Method name="%OnNew">
-<Private>1</Private>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%Status</ReturnType>
-<ServerOnly>1</ServerOnly>
-<Implementation><![CDATA[
-	Set ..IngegevenKenmerkenTypeAPI = ##class(DOM.DomeinContext).Instance().GeefIngegevenKenmerkenTypeAPI()
-	Quit $$$OK
-]]></Implementation>
-</Method>
-
 <Method name="StelInWerklijstItemMakers">
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim ProductieSequentieItem As APPS.Halux.common.ProductieSequentieItem = ..WerklijstItemMakerInputData.ProductieSequentieItem
 	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ProductieSequentieItem.GeefIngegevenKenmerken()
-	#dim VerpakkingHFItem As DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem 
+	#dim HalffabItem = ProductieSequentieItem.GeefHalffabItemsBoom().GeefHalffabItem(..Enum.Rol.Verpakking)
+	
+	Do ..BepaalPerVerpakking(TAORKenmerken.VerpakkingType)
 
-	If ..IngegevenKenmerkenTypeAPI.IsEenLosseComponentenVerpakking(TAORKenmerken) {
-		Set VerpakkingHFItem = ProductieSequentieItem.GeefHalffabItemsBoom().GeefHalffabItem(..Enum.Rol.Verpakking)
-
-		#dim KartonItemIterator As TECH.Iterator = ..GeefItemIteratorVoorKartonSnijden(VerpakkingHFItem)
-		While KartonItemIterator.HasNext() {
-			Do ..VoegToe(##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KartonSnijdenWerklijstItemMaker).%New(KartonItemIterator.Next()))
-		}
-		
-		Do KartonItemIterator.Reset()
-		While KartonItemIterator.HasNext() {
-			Do ..VoegToe(##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.PalletInhoudWerklijstItemMaker).%New(KartonItemIterator.Next()))
-		}
-
-		#dim LosseComponentEtiketItemIterator As TECH.Iterator = ..GeefItemIteratorVoorLosseComponentEtiketten(VerpakkingHFItem)
-		While LosseComponentEtiketItemIterator.HasNext() {
-			Do ..VoegToe(##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketWerklijstItemMaker).%New(LosseComponentEtiketItemIterator.Next()))
-		}
-	}
+	Set ..PerVerpakkingWerklijstItemMakers = ..PerVerpakking.GeefWerklijstItemMakers(HalffabItem)
 	
-	If (TAORKenmerken.VerpakkingType = ..Enum.VerpakkingType.V1) {
-		set VerpakkingHFItem = ProductieSequentieItem.GeefHalffabItemsBoom().GeefHalffabItem(..Enum.Rol.Verpakking)	
-		
-		#dim V1EtiketItemIterator As TECH.Iterator = ..GeefItemIteratorVoorV1Etiketten(VerpakkingHFItem)
-		While (V1EtiketItemIterator.HasNext()) {
-			Do ..VoegToe(##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketWerklijstItemMaker).%New(V1EtiketItemIterator.Next()))
-		}
-	}
+	Do ..VoegToeVerpakkingWerklijstItemMakers()
 ]]></Implementation>
 </Method>
 
-<Method name="GeefItemIteratorVoorKartonSnijden">
-<FormalSpec>VerpakkingHFItem:DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem</FormalSpec>
+<Method name="VoegToeVerpakkingWerklijstItemMakers">
 <Private>1</Private>
-<ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[
-	Set KartonVerpakkingen = ##class(%ListOfObjects).%New()
-	#dim HalffabItemsIterator As TECH.Iterator = VerpakkingHFItem.GeefHalffabItemsIterator()
-	While (HalffabItemsIterator.HasNext()) {  // loop over alle kartonnen voor deze lade 
-		#dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = HalffabItemsIterator.Next()
-		If ..IsKartonSnijdenNodig(HalffabItem) {
-
-			// tijdelijk geen tussenschot 
-			Continue:(HalffabItem.GeefRol() [ "Verticaal")
-
-			#dim AantalStuks As %Integer = $S(HalffabItem.%Extends(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabItem.Verpakkingv001BulkPerOnderdeelGegroepeerd).%ClassName($$$True)):HalffabItem.GeefAantalVerpakkingen(), 1:HalffabItem.GeefTeBekomenAantal()*10)
-			#dim i As %Integer
-			For i = 1 : 1 : AantalStuks {
-				Do KartonVerpakkingen.Insert(HalffabItem)
-			}
-		}
+	#dim Iterator As TECH.Iterator = ##class(TECH.ListIterator).%New(..PerVerpakkingWerklijstItemMakers)
+	
+	While (Iterator.HasNext()) {
+		Do ..VoegToe(Iterator.Next())
 	}
-	Quit ##class(TECH.ListIterator).%New(KartonVerpakkingen)
 ]]></Implementation>
 </Method>
 
-<Method name="GeefItemIteratorVoorLosseComponentEtiketten">
-<FormalSpec>VerpakkingHFItem:DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem</FormalSpec>
+<Method name="BepaalPerVerpakking">
+<FormalSpec>VerpakkingType:DOM.PM.enu.TAORVerpakkingType</FormalSpec>
 <Private>1</Private>
-<ReturnType>TECH.Iterator</ReturnType>
-<Implementation><![CDATA[
-	#dim EtiketItems As %ListOfObjects = ##class(%ListOfObjects).%New()
-	#dim HalffabItemsIterator As TECH.Iterator = VerpakkingHFItem.GeefHalffabItemsIterator()
-	
-	While (HalffabItemsIterator.HasNext()) {
-		#dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabItem.Verpakkingv001BulkPerOnderdeelGegroepeerd = HalffabItemsIterator.Next()
-		
-		If (..IsEtiketNodig(HalffabItem)) {
-			#dim i As %Integer
-			#dim AantallenPerVerpakking As Array of %Integer = HalffabItem.GeefAantallenPerVerpakking()
-			#dim AantallenPerVerpakkingIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(AantallenPerVerpakking)
-			
-			While (AantallenPerVerpakkingIterator.HasNext()) {
-				#dim AantalVanVerpakkingGrootte As TECH.Integer = AantallenPerVerpakkingIterator.Next()
-				#dim AantalInDoos As TECH.Integer = AantallenPerVerpakkingIterator.Key()
-				
-				For i = 1 : 1 : AantalVanVerpakkingGrootte {
-					#dim KlantEtiketInput = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketInput).%New()
-					
-					Set KlantEtiketInput.Component = HalffabItem.GeefComponent()
-					Set KlantEtiketInput.VoorkeurPrinter = "HALUX"
-					Set KlantEtiketInput.AantalInDoos = AantalInDoos
-					
-					Do EtiketItems.Insert(KlantEtiketInput)
-				}
-			}
-		}
-	}
-	
-	Quit ##class(TECH.ListIterator).%New(EtiketItems)
+<Implementation><![CDATA[	Do ..Verwerk(VerpakkingType)
 ]]></Implementation>
 </Method>
 
-<Method name="GeefItemIteratorVoorV1Etiketten">
-<FormalSpec>VerpakkingHFItem:DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem</FormalSpec>
+<Method name="VerwerkV1">
 <Private>1</Private>
-<ReturnType>TECH.Iterator</ReturnType>
-<Implementation><![CDATA[
-	#dim EtiketItems As %ListOfObjects = ##class(%ListOfObjects).%New()
-	#dim HalffabItemsIterator As TECH.Iterator = VerpakkingHFItem.GeefHalffabItemsIterator()
-	
-	While (HalffabItemsIterator.HasNext()) {
-		#dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = HalffabItemsIterator.Next()
+<Implementation><![CDATA[	Set ..PerVerpakking = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.WerklijstItemsMaker.PerVerpakking.Stuk).%New()
+]]></Implementation>
+</Method>
 
-		If (##class(TECH.StringUtils).Contains(HalffabItem.GeefRol(), "ladedoos")) {
-			#dim KlantEtiketInput As APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketInput = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketInput).%New()
-			
-			Set KlantEtiketInput.VoorkeurPrinter = "HALUX"
-			Set KlantEtiketInput.AantalInDoos = 1
-			
-			Do EtiketItems.Insert(KlantEtiketInput)
-		}
-	}
-	
-	Quit ##class(TECH.ListIterator).%New(EtiketItems)
+<Method name="VerwerkFlatpackV1">
+<Private>1</Private>
+<Implementation><![CDATA[	Set ..PerVerpakking = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.WerklijstItemsMaker.PerVerpakking.Geen).%New()
 ]]></Implementation>
 </Method>
 
-<Method name="IsKartonSnijdenNodig">
-<FormalSpec>HalffabItem:DOM.PM.Maatwerk.Calc.HF.IHalffabItem</FormalSpec>
+<Method name="VerwerkProbox">
 <Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	Quit:(HalffabItem.GeefRol() [ "Onderdelendoos") $$$False
-	Quit:(HalffabItem.GeefRol() [ ##class(DOM.PM.Verpakking.enu.BenamingVerpakkingsOnderdeel).LogicalToDisplay(..BenamingVerpakkingen.Deksel)) $$$False
-	Quit HalffabItem.%Extends(##class(DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem).%ClassName($$$True))
+<Implementation><![CDATA[	Set ..PerVerpakking = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.WerklijstItemsMaker.PerVerpakking.Geen).%New()
 ]]></Implementation>
 </Method>
 
-<Method name="IsEtiketNodig">
-<FormalSpec>HalffabItem:DOM.PM.Maatwerk.Calc.HF.IHalffabItem</FormalSpec>
+<Method name="VerwerkBulkPerOnderdeelGegroepeerd">
 <Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	Quit:(HalffabItem.GeefRol() [ "Onderdelendoos") $$$False
-	Quit ##class(TECH.StringUtils).Contains(HalffabItem.GeefRol(), ##class(DOM.PM.Verpakking.enu.BenamingVerpakkingsOnderdeel).LogicalToDisplay(..BenamingVerpakkingen.Deksel), ##class(DOM.PM.Verpakking.enu.BenamingVerpakkingsOnderdeel).LogicalToDisplay(..BenamingVerpakkingen.ErrondDoos))
+<Implementation><![CDATA[	Set ..PerVerpakking = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.WerklijstItemsMaker.PerVerpakking.LosseComponenten).%New()
 ]]></Implementation>
 </Method>
+
+<Method name="VerwerkLosseComponentenInBulk">
+<Private>1</Private>
+<Implementation><![CDATA[	Set ..PerVerpakking = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.WerklijstItemsMaker.PerVerpakking.LosseComponenten).%New()
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker/PerVerpakking/LosseComponenten.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker/PerVerpakking/LosseComponenten.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker/PerVerpakking/LosseComponenten.cls.xml	(revision 32704)
@@ -0,0 +1,127 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.WerklijstItemsMaker.PerVerpakking.LosseComponenten">
+<Super>APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.WerklijstItemsMaker.PerVerpakking</Super>
+
+<Property name="BenamingVerpakkingen">
+<Type>DOM.PM.Verpakking.enu.BenamingVerpakkingsOnderdeel.AutoComplete</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="GeefWerklijstItemMakers">
+<FormalSpec>VerpakkingHalffabItem:DOM.PM.Maatwerk.Calc.HF.IHalffabItem</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	#dim WerklijstItemsMakers As list Of APPS.Halux.PPS.Activiteit.impl.common.WerklijstItemMaker = ##class(%ListOfObjects).%New()
+	#dim KartonItemIterator As TECH.Iterator = ..GeefItemIteratorVoorKartonSnijden(VerpakkingHalffabItem)
+	
+	While (KartonItemIterator.HasNext()) {
+		Do WerklijstItemsMakers.Insert(##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KartonSnijdenWerklijstItemMaker).%New(KartonItemIterator.Next()))
+	}
+	
+	Do KartonItemIterator.Reset()	
+	While (KartonItemIterator.HasNext()) {
+		Do WerklijstItemsMakers.Insert(##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.PalletInhoudWerklijstItemMaker).%New(KartonItemIterator.Next()))
+	}
+	
+	#dim EtiketIterator As TECH.Iterator = ..GeefEtiketIterator(VerpakkingHalffabItem)
+	
+	While (EtiketIterator.HasNext()) {
+		Do WerklijstItemsMakers.Insert(##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketWerklijstItemMaker).%New(EtiketIterator.Next()))
+	}
+	
+	Quit WerklijstItemsMakers
+]]></Implementation>
+</Method>
+
+<Method name="GeefItemIteratorVoorKartonSnijden">
+<FormalSpec>VerpakkingHalffabItem:DOM.PM.Maatwerk.Calc.HF.IHalffabItem</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	#dim KartonVerpakkingen As %ListOfObjects = ##class(%ListOfObjects).%New()
+	#dim KartonIterator As TECH.Iterator = VerpakkingHalffabItem.GeefHalffabItemsIterator()
+	
+	While (KartonIterator.HasNext()) {
+		#dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = KartonIterator.Next()
+		
+		If (..IsKartonSnijdenNodig(HalffabItem)) {
+			// tijdelijk geen tussenschot 
+			Continue:(##class(TECH.StringUtils).Contains(HalffabItem.GeefRol(), "Verticaal"))
+			
+			#dim AantalStuks As %Integer = $Select(HalffabItem.%Extends(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabItem.Verpakkingv001BulkPerOnderdeelGegroepeerd).%ClassName($$$True)):HalffabItem.GeefAantalVerpakkingen(), 1:HalffabItem.GeefTeBekomenAantal() * 10)
+			#dim i As %Integer
+			
+			For i = 1 : 1 : AantalStuks {
+				Do KartonVerpakkingen.Insert(HalffabItem)
+			}
+		}
+	}
+	
+	Quit ##class(TECH.ListIterator).%New(KartonVerpakkingen)
+]]></Implementation>
+</Method>
+
+<Method name="GeefEtiketIterator">
+<FormalSpec>VerpakkingHalffabItem:DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	#dim EtiketItems As %ListOfObjects = ##class(%ListOfObjects).%New()
+	#dim HalffabItemsIterator As TECH.Iterator = VerpakkingHalffabItem.GeefHalffabItemsIterator()
+	
+	While (HalffabItemsIterator.HasNext()) {
+		#dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabItem.Verpakkingv001BulkPerOnderdeelGegroepeerd = HalffabItemsIterator.Next()
+		
+		If (..IsEtiketNodig(HalffabItem)) {
+			#dim i As %Integer
+			#dim AantallenPerVerpakking As Array of %Integer = HalffabItem.GeefAantallenPerVerpakking()
+			#dim AantallenPerVerpakkingIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(AantallenPerVerpakking)
+			
+			While (AantallenPerVerpakkingIterator.HasNext()) {
+				#dim AantalVanVerpakkingGrootte As TECH.Integer = AantallenPerVerpakkingIterator.Next()
+				#dim AantalInDoos As TECH.Integer = AantallenPerVerpakkingIterator.Key()
+				
+				For i = 1 : 1 : AantalVanVerpakkingGrootte {
+					#dim KlantEtiketInput = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketInput).%New()
+					
+					Set KlantEtiketInput.Component = HalffabItem.GeefComponent()
+					Set KlantEtiketInput.VoorkeurPrinter = "HALUX"
+					Set KlantEtiketInput.AantalInDoos = AantalInDoos
+					
+					Do EtiketItems.Insert(KlantEtiketInput)
+				}
+			}
+		}
+	}
+	
+	Quit ##class(TECH.ListIterator).%New(EtiketItems)
+]]></Implementation>
+</Method>
+
+<Method name="IsKartonSnijdenNodig">
+<FormalSpec>HalffabItem:DOM.PM.Maatwerk.Calc.HF.IHalffabItem</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Quit:(##class(TECH.StringUtils).Contains(HalffabItem.GeefRol(), "Onderdelendoos")) $$$False
+	Quit:(##class(TECH.StringUtils).Contains(HalffabItem.GeefRol(), ##class(DOM.PM.Verpakking.enu.BenamingVerpakkingsOnderdeel).LogicalToDisplay(..BenamingVerpakkingen.Deksel))) $$$False
+	
+	Quit HalffabItem.%Extends(##class(DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem).%ClassName($$$True))
+]]></Implementation>
+</Method>
+
+<Method name="IsEtiketNodig">
+<FormalSpec>HalffabItem:DOM.PM.Maatwerk.Calc.HF.IHalffabItem</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	Quit:(##class(TECH.StringUtils).Contains(HalffabItem.GeefRol(), "Onderdelendoos")) $$$False
+	
+	Quit ##class(TECH.StringUtils).Contains(HalffabItem.GeefRol(), ##class(DOM.PM.Verpakking.enu.BenamingVerpakkingsOnderdeel).LogicalToDisplay(..BenamingVerpakkingen.Deksel), ##class(DOM.PM.Verpakking.enu.BenamingVerpakkingsOnderdeel).LogicalToDisplay(..BenamingVerpakkingen.ErrondDoos))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker/PerVerpakking/Geen.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker/PerVerpakking/Geen.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker/PerVerpakking/Geen.cls.xml	(revision 32704)
@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.WerklijstItemsMaker.PerVerpakking.Geen">
+<Super>APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.WerklijstItemsMaker.PerVerpakking</Super>
+
+<Method name="GeefWerklijstItemMakers">
+<FormalSpec>HalffabItem:DOM.PM.Maatwerk.Calc.HF.IHalffabItem</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[	Quit ##class(%ListOfObjects).%New()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker/PerVerpakking/Stuk.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker/PerVerpakking/Stuk.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker/PerVerpakking/Stuk.cls.xml	(revision 32704)
@@ -0,0 +1,48 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.WerklijstItemsMaker.PerVerpakking.Stuk">
+<Super>APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.WerklijstItemsMaker.PerVerpakking</Super>
+
+<Method name="GeefWerklijstItemMakers">
+<FormalSpec>HalffabItem:DOM.PM.Maatwerk.Calc.HF.IHalffabItem</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	#dim WerklijstItemsMakers As list Of APPS.Halux.PPS.Activiteit.impl.common.WerklijstItemMaker = ##class(%ListOfObjects).%New()
+	#dim EtiketIterator As TECH.Iterator = ..GeefEtiketIterator(HalffabItem)
+	
+	While (EtiketIterator.HasNext()) {
+		Do WerklijstItemsMakers.Insert(##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketWerklijstItemMaker).%New(EtiketIterator.Next()))
+	}
+	
+	Quit WerklijstItemsMakers
+]]></Implementation>
+</Method>
+
+<Method name="GeefEtiketIterator">
+<FormalSpec>VerpakkingHalffabItem:DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	#dim EtiketItems As %ListOfObjects = ##class(%ListOfObjects).%New()
+	#dim HalffabItemsIterator As TECH.Iterator = VerpakkingHalffabItem.GeefHalffabItemsIterator()
+	
+	While (HalffabItemsIterator.HasNext()) {
+		#dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = HalffabItemsIterator.Next()
+
+		If (##class(TECH.StringUtils).Contains(HalffabItem.GeefRol(), "ladedoos")) {
+			#dim KlantEtiketInput As APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketInput = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketInput).%New()
+			
+			Set KlantEtiketInput.VoorkeurPrinter = "HALUX"
+			Set KlantEtiketInput.AantalInDoos = 1
+			
+			Do EtiketItems.Insert(KlantEtiketInput)
+		}
+	}
+	
+	Quit ##class(TECH.ListIterator).%New(EtiketItems)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker/PerVerpakking.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker/PerVerpakking.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker/PerVerpakking.cls.xml	(revision 32704)
@@ -0,0 +1,14 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.WerklijstItemsMaker.PerVerpakking">
+<Abstract>1</Abstract>
+<Super>DOM.PM.Maatwerk.TAX.impl.Base</Super>
+
+<Method name="GeefWerklijstItemMakers">
+<FormalSpec>VerpakkingHalffabItem:DOM.PM.Maatwerk.Calc.HF.IHalffabItem</FormalSpec>
+<ReturnType>%ListOfObjects</ReturnType>
+</Method>
+</Class>
+
+
+</Export>