Index: APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/KartonSnijdenDataAanvuller.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/KartonSnijdenDataAanvuller.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/KartonSnijdenDataAanvuller.cls.xml	(revision 30241)
@@ -0,0 +1,52 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KartonSnijdenDataAanvuller">
+<Super>APPS.Halux.PPS.Activiteit.impl.common.SequentieGebaseerdeUitvoeringInfoAanvuller</Super>
+
+<Property name="KartonVerpakking">
+<Type>DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabItem.Verpakkingv001BulkPerOnderdeelGegroepeerd</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>KartonVerpakking:DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabItem.Verpakkingv001BulkPerOnderdeelGegroepeerd</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..KartonVerpakking = KartonVerpakking
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VulAan">
+<FormalSpec><![CDATA[&UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.KartonSnijdenUitvoeringInfo,WerklijstItemMakerInput:APPS.Halux.PPS.Activiteit.impl.common.WerklijstItemMakerInput]]></FormalSpec>
+<Implementation><![CDATA[
+	#define AantalZijkantPlaten 2
+	;w !,"**"_..KartonVerpakking_" "_..KartonVerpakking.GeefRol()
+	Set UitvoeringInfo.KartonSnijdenData.Breedte = ..KartonVerpakking.Volume.Breedte
+	Set UitvoeringInfo.KartonSnijdenData.Hoogte = ..KartonVerpakking.Volume.Hoogte
+	Set UitvoeringInfo.KartonSnijdenData.Diepte = ..KartonVerpakking.Volume.Diepte
+	
+	;Do ..VulInUitvoeringInfo(UitvoeringInfo,"V1 Doos met deksel")
+]]></Implementation>
+</Method>
+
+<Method name="VulInUitvoeringInfo">
+<FormalSpec>UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.KartonSnijdenUitvoeringInfo,DoosNaam:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set UitvoeringInfo.DoosGroep = "TAORBOX"
+	Set UitvoeringInfo.DoosNaam = DoosNaam
+	Set UitvoeringInfo.MachineID = ##class(BL.Prod.OptiBox.enu.SnijMachine).Taor()			// Default machine ID, wordt ingevuld afhankelijk van ladepers of werkpost
+	Set UitvoeringInfo.SnijPrioriteit = 4
+	Set UitvoeringInfo.AantalDozen = 1
+	Set UitvoeringInfo.SnijStatus = ##class(APPS.Halux.PPS.Verpakking.enu.KartonMachineStatus).Wachtend()
+	Set UitvoeringInfo.WerklijstItemID = 0
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker.cls.xml	(revision 30241)
@@ -0,0 +1,119 @@
+<?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>
+
+<Property name="BenamingVerpakkingen">
+<Type>DOM.PM.Verpakking.enu.BenamingVerpakkingsOnderdeel.AutoComplete</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="IngegevenKenmerkenTypeAPI">
+<Type>DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI</Type>
+<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()
+
+	If ..IngegevenKenmerkenTypeAPI.IsEenLosseComponentenVerpakking(TAORKenmerken) {
+		#dim VerpakkingHFItem As DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem = 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()))
+		}
+
+		#dim EtiketItemIterator As TECH.Iterator = ..GeefItemIteratorVoorEtiketten(VerpakkingHFItem)
+		While EtiketItemIterator.HasNext() {
+			do EtiketItemIterator.Next() ; Do ..VoegToe(##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.EtikettenWerklijstItemMaker).%New(EtiketItemIterator.Next()))
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefItemIteratorVoorKartonSnijden">
+<FormalSpec>VerpakkingHFItem:DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem</FormalSpec>
+<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)
+			}
+		}
+	}
+	Quit ##class(TECH.ListIterator).%New(KartonVerpakkingen)
+]]></Implementation>
+</Method>
+
+<Method name="GeefItemIteratorVoorEtiketten">
+<FormalSpec>VerpakkingHFItem:DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	Set EtiketItems = ##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
+			For i = 1 : 1 : HalffabItem.GeefAantalVerpakkingen() {
+				#dim EtiketItemDto As TECH.RegisteredObject = ""   ; --> ? dto ? 
+				;Set EtiketItemDto.AlleNodigeProperties = "InTeVullen / OverTeNemen"   ; Voor Etiketten : LadeOnderdeel, ... 
+				Do EtiketItems.Insert(EtiketItemDto)
+			}
+		}
+	}
+	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:(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>
+</Method>
+
+<Method name="IsEtiketNodig">
+<FormalSpec>HalffabItem:DOM.PM.Maatwerk.Calc.HF.IHalffabItem</FormalSpec>
+<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))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/KartonSnijdenWerklijstItemMaker.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/KartonSnijdenWerklijstItemMaker.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/KartonSnijdenWerklijstItemMaker.cls.xml	(revision 30241)
@@ -0,0 +1,38 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KartonSnijdenWerklijstItemMaker">
+<Super>APPS.Halux.PPS.Activiteit.impl.common.WerklijstItemMaker</Super>
+
+<Property name="KartonVerpakking">
+<Type>TECH.RegisteredObject</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>KartonVerpakking:TECH.RegisteredObject,Lade:DOM.PM.Maatwerk.LadeInfo.Lade</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..KartonVerpakking = KartonVerpakking
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefInformatieID">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit "TAOR.Verpakking.KartonSnijden"
+]]></Implementation>
+</Method>
+
+<Method name="GeefUitvoeringInfoInvuller">
+<Private>1</Private>
+<ReturnType>APPS.Halux.PPS.Activiteit.impl.common.SequentieGebaseerdeUitvoeringInfoInvuller</ReturnType>
+<Implementation><![CDATA[	quit ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KartonSnijdenWerklijstItemUitvoeringInfoInvuller).%New(..KartonVerpakking)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/KartonSnijdenWerklijstItemUitvoeringInfoInvuller.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/KartonSnijdenWerklijstItemUitvoeringInfoInvuller.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/KartonSnijdenWerklijstItemUitvoeringInfoInvuller.cls.xml	(revision 30241)
@@ -0,0 +1,40 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KartonSnijdenWerklijstItemUitvoeringInfoInvuller">
+<Super>APPS.Halux.PPS.Activiteit.impl.common.SequentieGebaseerdeUitvoeringInfoInvuller</Super>
+
+<Property name="KartonVerpakking">
+<Type>TECH.RegisteredObject</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>KartonVerpakking:TECH.RegisteredObject</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..KartonVerpakking = KartonVerpakking
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="MaakUitvoeringInfo">
+<Private>1</Private>
+<ReturnType>APPS.Halux.PPS.dto.SequentieGebaseerdeUitvoeringInfo</ReturnType>
+<Implementation><![CDATA[	quit ##class(APPS.Halux.PPS.Activiteit.impl.common.dto.KartonSnijdenUitvoeringInfo).%New()
+]]></Implementation>
+</Method>
+
+<Method name="StelInAanvullers">
+<Private>1</Private>
+<Implementation><![CDATA[
+	do ..VoegToeAanvuller(##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KartonSnijdenDataAanvuller).%New(..KartonVerpakking))
+ ;	do ..VoegToeAanvuller(##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KartonSnijdenDataAanvuller2).%New(..KartonVerpakking))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsAanpasser.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsAanpasser.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsAanpasser.cls.xml	(revision 30241)
@@ -0,0 +1,45 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.WerklijstItemsAanpasser">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="PasAan">
+<FormalSpec>WerklijstItems:APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItemList</FormalSpec>
+<Implementation><![CDATA[
+	#dim IsEenLosseComponentenVerpakking As %Boolean = $$$False
+	If IsEenLosseComponentenVerpakking {
+		; Volgorde juist zetten 
+	}
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+/*
+
+	// GEKOPIEERDE CODE van de ZijkantPlaatPicking.WerklijstItemsMaker
+	
+Method PasAan(WerklijstItems As APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItemList) 
+{
+	set SlotBepaler = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.ZijkantPlaatPicking.WerklijstItemsMaker.SlotBepaler).%New()
+	#dim UitvoeringInfoLijst As APPS.Halux.PPS.dto.UitvoeringInfoLijst = ..GeefUitvoeringInfoLijst(..WerklijstItems)
+	#dim UitvoeringInfoPerTrayLijst As List Of APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItem = ..GroepeerUitvoeringInfoLijstPerTray(UitvoeringInfoLijst)
+	set UitvoeringInfoLijstPerTrayIterator = ##class(TECH.ListIterator).%New(UitvoeringInfoPerTrayLijst)
+	while UitvoeringInfoLijstPerTrayIterator.HasNext() {
+		#dim UitvoeringInfoPerTray As APPS.Halux.PPS.dto.UitvoeringInfoLijst = UitvoeringInfoLijstPerTrayIterator.Next()
+		do SlotBepaler.BepaalSlots(UitvoeringInfoPerTray,UitvoeringInfoLijstPerTrayIterator.Key())
+	}
+}
+Method GroepeerUitvoeringInfoLijstPerTray(UitvoeringInfoLijst As APPS.Halux.PPS.dto.UitvoeringInfoLijst) As %ArrayOfObjects [ Private ]
+{
+	set Groepering = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.ZijkantPlaatPicking.KamerFreesPerTrayGroepering).%New()
+	set Groepeerder = ##class(TECH.ListUtils.impl.Groepeerder).%New(Groepering)
+	quit Groepeerder.GroepeerLijst(UitvoeringInfoLijst)
+}
+ */
+]]></Content>
+</UDLText>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking.cls.xml	(revision 30241)
@@ -0,0 +1,115 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking">
+<IncludeCode>vhLib.Macro</IncludeCode>
+<Super>APPS.Halux.PPS.Activiteit.ProductieSequentieAwareActiviteit,DOM.PM.Maatwerk.TAX.impl.Base</Super>
+
+<Parameter name="InformatieID">
+<Default>TAORVerpakking</Default>
+</Parameter>
+
+<Parameter name="Code">
+<Type>%String</Type>
+<Default>TAORVerpakking</Default>
+</Parameter>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Taorbox verpakking</Default>
+</Parameter>
+
+<Property name="WerklijstItemsMaker">
+<Type>APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.WerklijstItemsMaker</Type>
+<Private>1</Private>
+<Transient>1</Transient>
+</Property>
+
+<Property name="IngegevenKenmerkenTypeAPI">
+<Type>DOM.PM.Maatwerk.IngegevenKenmerkenTypeAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="MaakActiviteit">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ActiviteitGroepID:%String</FormalSpec>
+<ReturnType>APPS.Halux.PPS.Activiteit.Activiteit</ReturnType>
+<Implementation><![CDATA[
+	#dim Activiteit As APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking = ##super(ActiviteitGroepID)
+	Quit Activiteit
+]]></Implementation>
+</Method>
+
+<Method name="%OnNew">
+<FormalSpec>ProductieSequentieWerklijstItemBewaarder:APPS.Halux.PPS.Activiteit.impl.WerklijstItemBewaarder,WerklijstItemsMaker:APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.WerklijstItemsMaker</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	do ##super()
+	Set ..ProductieSequentieWerklijstItemBewaarder = $$$Implementation(ProductieSequentieWerklijstItemBewaarder,##class(APPS.Halux.PPS.Activiteit.impl.WerklijstItemBewaarder).%New())
+	Set ..IngegevenKenmerkenTypeAPI = ##class(DOM.DomeinContext).Instance().GeefIngegevenKenmerkenTypeAPI()
+	Set ..WerklijstItemsMaker = $$$Implementation(WerklijstItemsMaker,##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.WerklijstItemsMaker).%New())
+	quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="%OnOpen">
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..ProductieSequentieWerklijstItemBewaarder = ##class(APPS.Halux.PPS.Activiteit.impl.WerklijstItemBewaarder).%New()
+	Set ..IngegevenKenmerkenTypeAPI = ##class(DOM.DomeinContext).Instance().GeefIngegevenKenmerkenTypeAPI()
+	Set ..WerklijstItemsMaker = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.WerklijstItemsMaker).%New()
+	Quit ##super()
+]]></Implementation>
+</Method>
+
+<Method name="Init">
+<Private>1</Private>
+<Implementation><![CDATA[
+	;Gekopieerd van LBX.LBXKartonSnijden 
+	Do ..VoegToeUitvoeringInfoLijstVerwerkerKlasseNaam(##class(APPS.Halux.PPS.Verpakking.impl.KartonSnijder).%ClassName(1),  ##class(APPS.Halux.PPS.Verpakking.enu.InformatieID).Lade())
+]]></Implementation>
+</Method>
+
+<Method name="OpnemenAlsWerklijstItem">
+<FormalSpec>Item:APPS.Halux.common.ProductieSequentieItem</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim DeelAantalOK As %Boolean = $$$True
+	If ..IngegevenKenmerkenTypeAPI.IsEenLosseComponentenVerpakking(Item.GeefIngegevenKenmerken()) {
+		Set DeelAantalOK = (Item.DeelAantal = 1)
+	}
+	Quit ##super(Item) && (DeelAantalOK)
+]]></Implementation>
+</Method>
+
+<Method name="PasAanWerklijstItems">
+<FormalSpec>WerklijstItems:APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItemList</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set WerklijstItemsAanpasser = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.WerklijstItemsAanpasser).%New()
+	; Of specifiek : Set WerklijstItemsAanpasser = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.LosseComponentenVerpakkingWerklijstItemsAanpasser).%New()
+	Do WerklijstItemsAanpasser.PasAan(WerklijstItems)
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DefaultData>VerpakkingDefaultData</DefaultData>
+<Data name="VerpakkingDefaultData">
+<Subscript>"Verpakking"</Subscript>
+<Value name="1">
+<Value>Enum</Value>
+</Value>
+<Value name="2">
+<Value>IngegevenKenmerkenTypeAPI</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>