Index: APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker.cls.xml
===================================================================
diff -u -r31687 -r32642
--- APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker.cls.xml	(.../WerklijstItemsMaker.cls.xml)	(revision 31687)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker.cls.xml	(.../WerklijstItemsMaker.cls.xml)	(revision 32642)
@@ -29,9 +29,10 @@
 <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 
 
 	If ..IngegevenKenmerkenTypeAPI.IsEenLosseComponentenVerpakking(TAORKenmerken) {
-		#dim VerpakkingHFItem As DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem = ProductieSequentieItem.GeefHalffabItemsBoom().GeefHalffabItem(..Enum.Rol.Verpakking)
+		Set VerpakkingHFItem = ProductieSequentieItem.GeefHalffabItemsBoom().GeefHalffabItem(..Enum.Rol.Verpakking)
 
 		#dim KartonItemIterator As TECH.Iterator = ..GeefItemIteratorVoorKartonSnijden(VerpakkingHFItem)
 		While KartonItemIterator.HasNext() {
@@ -43,11 +44,20 @@
 			Do ..VoegToe(##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.PalletInhoudWerklijstItemMaker).%New(KartonItemIterator.Next()))
 		}
 
-		#dim EtiketItemIterator As TECH.Iterator = ..GeefItemIteratorVoorEtiketten(VerpakkingHFItem)
-		While EtiketItemIterator.HasNext() {
-			Do ..VoegToe(##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketWerklijstItemMaker).%New(EtiketItemIterator.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()))
 		}
 	}
+	
+	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()))
+		}
+	}
 ]]></Implementation>
 </Method>
 
@@ -76,36 +86,68 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefItemIteratorVoorEtiketten">
+<Method name="GeefItemIteratorVoorLosseComponentEtiketten">
 <FormalSpec>VerpakkingHFItem:DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem</FormalSpec>
 <Private>1</Private>
 <ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[
-	Set EtiketItems = ##class(%ListOfObjects).%New()
+	#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) {
+		
+		If (..IsEtiketNodig(HalffabItem)) {
 			#dim i As %Integer
 			#dim AantallenPerVerpakking As Array of %Integer = HalffabItem.GeefAantallenPerVerpakking()
-			Set AantallenPerVerpakkingIt = ##class(TECH.ListIterator).%New(AantallenPerVerpakking)
-			While (AantallenPerVerpakkingIt.HasNext()) {
-				#dim AantalVanVerpakkingGrootte As TECH.Integer = AantallenPerVerpakkingIt.Next()
-				#dim AantalInDoos As TECH.Integer = AantallenPerVerpakkingIt.Key()
+			#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 {
-					Set KlantEtiketInput = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketInput).%New()
+					#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="GeefItemIteratorVoorV1Etiketten">
+<FormalSpec>VerpakkingHFItem: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 = VerpakkingHFItem.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>
+
 <Method name="IsKartonSnijdenNodig">
 <FormalSpec>HalffabItem:DOM.PM.Maatwerk.Calc.HF.IHalffabItem</FormalSpec>
 <Private>1</Private>
Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker/MaakWerklijstItems/TestV1.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker/MaakWerklijstItems/TestV1.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker/MaakWerklijstItems/TestV1.cls.xml	(revision 32642)
@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.WerklijstItemsMaker.MaakWerklijstItems.TestV1">
+<Super>vhUnitTest.APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.WerklijstItemsMaker.MaakWerklijstItems.Base</Super>
+
+<Method name="Test: WerklijstItems bevatten 1 klantetiket voor VerpakkingType V1">
+<Implementation><![CDATA[
+	#dim WerklijstItemsMaker As APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.WerklijstItemsMaker = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.WerklijstItemsMaker).%New()
+	#dim Verpakking As DOM.PM.enu.TAORVerpakkingType = ..Enum.VerpakkingType.V1 
+	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ..MaakIngegevenKenmerken(Verpakking)
+	#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..GeefHalffabItemsBoom(TAORKenmerken, 1)
+	#dim WerklijstItemMakerInput As APPS.Halux.PPS.Activiteit.impl.common.WerklijstItemMakerInput = ..MaakWerklijstItemMakerInput(TAORKenmerken, HalffabItemsBoom)
+	
+	Do ..InitMocks()
+	
+	#dim WerklijstItems As APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItemList = WerklijstItemsMaker.MaakWerklijstItems(WerklijstItemMakerInput)
+	
+	Do $$$AssertEquals(WerklijstItems.Count(), 1)
+	
+	#dim WerklijstItem As APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItem = WerklijstItems.GetAt(1)
+	
+	Do $$$AssertEquals(WerklijstItem.InformatieID, "TAOR.KlantEtiket")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker/MaakWerklijstItems/TestVerpakkingTypes.cls.xml
===================================================================
diff -u -r30916 -r32642
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker/MaakWerklijstItems/TestVerpakkingTypes.cls.xml	(.../TestVerpakkingTypes.cls.xml)	(revision 30916)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker/MaakWerklijstItems/TestVerpakkingTypes.cls.xml	(.../TestVerpakkingTypes.cls.xml)	(revision 32642)
@@ -5,17 +5,14 @@
 
 <Method name="TestVerpakkingTypesGeenWerklijsItems">
 <Implementation><![CDATA[
-	Set WerklijstItemsMaker = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.WerklijstItemsMaker).%New()
+	#dim WerklijstItemsMaker As APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.WerklijstItemsMaker = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.WerklijstItemsMaker).%New()
 	#dim Aantal As %Integer = 1
 	#dim WerklijstItemMakerInputV1 As APPS.Halux.PPS.Activiteit.impl.common.WerklijstItemMakerInput = ..GeefWerklijstItemMakerInput(..Enum.VerpakkingType.V1,Aantal)
 	#dim WerklijstItemMakerInputProbox As APPS.Halux.PPS.Activiteit.impl.common.WerklijstItemMakerInput = ..GeefWerklijstItemMakerInput(..Enum.VerpakkingType.Probox,Aantal)
 	#dim WerklijstItemMakerInputFlatpackV1 As APPS.Halux.PPS.Activiteit.impl.common.WerklijstItemMakerInput = ..GeefWerklijstItemMakerInput(..Enum.VerpakkingType.FlatpackV1,Aantal)
 	
 	Do ..InitMocks()
 
-	#dim WerklijstItemsV1 As APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItemList = WerklijstItemsMaker.MaakWerklijstItems(WerklijstItemMakerInputV1)
-	Do $$$AssertEquals(WerklijstItemsV1.Count(),0,"Aantal WerklijstItems")
-
 	#dim WerklijstItemsProbox As APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItemList = WerklijstItemsMaker.MaakWerklijstItems(WerklijstItemMakerInputProbox)
 	Do $$$AssertEquals(WerklijstItemsProbox.Count(),0,"Aantal WerklijstItems")