Index: APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/KlantEtiketDataAlgemeenAanvuller.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/KlantEtiketDataAlgemeenAanvuller.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/KlantEtiketDataAlgemeenAanvuller.cls.xml	(revision 30912)
@@ -0,0 +1,73 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketDataAlgemeenAanvuller">
+<Super>APPS.Halux.PPS.Activiteit.impl.common.SequentieGebaseerdeUitvoeringInfoAanvuller</Super>
+
+<Property name="PartijAPI">
+<Type>DOM.PARTIJ.PartijAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="EtiketPrinterBepaler">
+<Type>APPS.Halux.Docs.EtiketPrinterBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="KlantEtiketInput">
+<Type>APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketInput</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductTypeAPI">
+<Type>DOM.PM.ProductTypeAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>KlantEtiketInput:APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketInput</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..KlantEtiketInput = KlantEtiketInput
+	Set ..PartijAPI = ##class(DOM.DomeinContext).Instance().GeefPartijAPI()
+	Set ..EtiketPrinterBepaler = ##class(APPS.Halux.Docs.EtiketPrinterBepaler).%New()
+	Set ..ProductTypeAPI = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VulAan">
+<FormalSpec>UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.KartonSnijdenUitvoeringInfo,WerklijstItemMakerInput:APPS.Halux.PPS.Activiteit.impl.common.WerklijstItemMakerInput</FormalSpec>
+<Implementation><![CDATA[
+	#dim Product As DOM.PM.MaatwerkProduct = ..ProductTypeAPI.GeefMaatwerkProduct(UitvoeringInfo.ProductID)
+	#dim Layout As TECH.String = ..GeefLayout(Product.GeefIngegevenKenmerken())
+	Set UitvoeringInfo.KlantEtiketData.Layout = Layout
+	Set UitvoeringInfo.KlantEtiketData.Device = ..EtiketPrinterBepaler.Bepaal(Layout, ..KlantEtiketInput.VoorkeurPrinter)
+	
+	#dim Klant As DOM.PARTIJ.Partij = ..PartijAPI.GeefPartij(UitvoeringInfo.PartijID)
+	Set UitvoeringInfo.KlantEtiketData.Taal = Klant.GeefTaal()
+]]></Implementation>
+</Method>
+
+<Method name="GeefLayout">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim Layout As TECH.String = ""
+	
+	#dim VerpakkingType As DOM.PM.enu.TAORVerpakkingType = IngegevenKenmerken.VerpakkingType
+	If VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).BulkPerOnderdeelGegroepeerd() {
+		Set Layout = "Klant_TAX_8x11"
+	} ElseIf VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).LosseComponentenInBulk() {
+		Set Layout = "Klant_TAX_8x11_LosseComponent"
+	}
+	Quit Layout
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker/MaakWerklijstItems/Base.cls.xml
===================================================================
diff -u -r30684 -r30912
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker/MaakWerklijstItems/Base.cls.xml	(.../Base.cls.xml)	(revision 30684)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker/MaakWerklijstItems/Base.cls.xml	(.../Base.cls.xml)	(revision 30912)
@@ -4,6 +4,11 @@
 <Abstract>1</Abstract>
 <Super>vhUnitTest.DOM.PM.Maatwerk.TAX.Base</Super>
 
+<Parameter name="DummyOrderID">
+<Type>%String</Type>
+<Default>UT_OrderID</Default>
+</Parameter>
+
 <Parameter name="DummyProductID">
 <Type>%String</Type>
 <Default>UT_ProductID</Default>
@@ -14,26 +19,73 @@
 <Default>UT_ToeleveringID</Default>
 </Parameter>
 
+<Parameter name="DummyOrderlijnVolgnummer">
+<Type>%String</Type>
+<Default>UT_Orderlijn</Default>
+</Parameter>
+
+<Parameter name="PartijID">
+<Type>%String</Type>
+<Default>K||1000</Default>
+</Parameter>
+
 <Parameter name="DummyToeleveringLijnID">
 <Type>%String</Type>
 </Parameter>
 
+<Property name="ProductStub">
+<Type>vhTest.Mock.DOM.PM.MaatwerkProduct</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	Set ..ProductStub = ##class(vhTest.Mock.DOM.PM.MaatwerkProduct).%New()
+	Do ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketIoCContainer).Instance().Register("HoutCertificaatService",##class(vhTest.Fake.DOM.PM.HoutCertificaatService).%New())
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	Do ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketIoCContainer).Instance().Reset()
+]]></Implementation>
+</Method>
+
 <Method name="InitMocks">
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim ProductTypeAPIStub As vhTest.Mock.DOM.PM.ProductTypeAPI = ##class(vhTest.Mock.DOM.PM.ProductTypeAPI).MockInstance()
-		Set ProductStub = ##class(vhTest.Mock.DOM.PM.MaatwerkProduct).%New()
-		Do ProductStub.IndienMethodCall("GeefDossierCode").DanReturn("Dummy-DOSSIER-Code")
-	Do ProductTypeAPIStub.IndienMethodCall("GeefMaatwerkProduct", ..#DummyProductID).DanReturn(ProductStub)
+		Do ..ProductStub.IndienMethodCall("GeefDossierCode").DanReturn("Dummy-DOSSIER-Code")
+	Do ProductTypeAPIStub.IndienMethodCall("GeefMaatwerkProduct", ..#DummyProductID).DanReturn(..ProductStub)
 	
 	#dim ToeleveringAPIStub As vhTest.Mock.DOM.AKP.ToeleveringAPI = ##class(vhTest.Mock.DOM.AKP.ToeleveringAPI).MockInstance()
-		#dim DummyToeleveringLijn As DOM.AKP.ProductToeleveringLijn = ##class(vhTest.Dummy.DOM.AKP.ProductToeleveringLijn).%New()
-	Do ToeleveringAPIStub.IndienMethodCall("GeefToeleveringLijn",..#DummyToeleveringID,..#DummyToeleveringLijnID).DanReturn(DummyToeleveringLijn)
+		#dim ToeleveringLijnMock As DOM.AKP.ProductToeleveringLijn = ##class(vhTest.Mock.DOM.AKP.ProductToeleveringLijn).%New()
+		Do ToeleveringLijnMock.IndienMethodCall("GeefLeverdag").DanReturn(##class(vhTest.Fake.TECH.DateTime.DateTimeAPI).%New().CurrentDate())
+		Do ToeleveringLijnMock.IndienMethodCall("GeefAantal").DanReturn(1)
+		Do ToeleveringLijnMock.IndienMethodCall("GeefOrderID").DanReturn(..#DummyOrderID)
+		Do ToeleveringLijnMock.IndienMethodCall("GeefOrderLijnVolgnummer").DanReturn(..#DummyOrderlijnVolgnummer)
+	Do ToeleveringAPIStub.IndienMethodCall("GeefToeleveringLijn",..#DummyToeleveringID,..#DummyToeleveringLijnID).DanReturn(ToeleveringLijnMock)
+		Set ToeleveringMock = ##class(vhTest.Mock.DOM.AKP.Toelevering).%New()
+		Do ToeleveringMock.IndienMethodCall("GeefOrderID").DanReturn(..#DummyOrderID)
+	Do ToeleveringAPIStub.IndienMethodCall("GeefToelevering", ..#DummyToeleveringID).DanReturn(ToeleveringMock)
 	
+	
+	#dim ProductAPIStub As vhTest.Mock.DOM.PM.ProductTypeAPI = ##class(vhTest.Mock.DOM.PM.ProductAPI).MockInstance()
+	
 	#dim ProductieAPIStub As vhTest.Mock.APPS.Halux.ProductieAPI = ##class(vhTest.Mock.APPS.Halux.ProductieAPI).MockInstance()
 		Set BatchServiceStub = ##class(vhTest.Fake.APPS.Halux.common.BatchService).%New()
 	Do ProductieAPIStub.IndienMethodCall("GeefBatchService").DanReturn(BatchServiceStub)
 	Do ProductieAPIStub.IndienMethodCall("GeefUitvoeringInfoInvuller").DanReturn(##class(APPS.Halux.PPS.impl.UitvoeringInfoInvuller).%New())
+	
+	#dim OrderAPIStub As vhTest.Mock.DOM.VKP.OrderAPI = ##class(vhTest.Mock.DOM.VKP.OrderAPI).MockInstance()
+		Set OrderMock = ##class(vhTest.Mock.DOM.VKP.Order).%New()
+		Do OrderMock.IndienMethodCall("GeefOrderLijnViaVolgnummer", ..#DummyOrderlijnVolgnummer).DanReturn(..#DummyToeleveringLijnID)
+		Do OrderMock.IndienMethodCall("GeefVerzendingWijze").DanReturn("DI")
+	Do OrderAPIStub.IndienMethodCall("GeefOrder",..#DummyOrderID).DanReturn(OrderMock)
 ]]></Implementation>
 </Method>
 
@@ -54,6 +106,10 @@
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</ReturnType>
 <Implementation><![CDATA[
 	#dim TAORKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardBinnenladeVerpaktIn(Verpakking)
+	Do ..ProductStub.IndienMethodCall("GeefIngegevenKenmerken").DanReturn(TAORKenmerken)
+	Do ..ProductStub.IndienMethodCall("GeefHalffabItemsBoom", "").DanReturn(..GeefHalffabItemsBoom(TAORKenmerken))
+	Do ..ProductStub.IndienMethodCall("GeefID").DanReturn(..#DummyProductID)
+	Do ..ProductStub.IndienMethodCall("GeefIdentNr").DanReturn($$$DummyString)
 	Quit TAORKenmerken
 ]]></Implementation>
 </Method>
@@ -67,6 +123,7 @@
 	Set ProductieSequentieItem = ##class(vhTest.Mock.APPS.Halux.common.ProductieSequentieItem).%New()
 	Set ProductieSequentieItem.ProductID = ..#DummyProductID
 	Set ProductieSequentieItem.ToeleveringID = ..#DummyToeleveringID
+	Set ProductieSequentieItem.PartijID = ..#PartijID
 	Do ProductieSequentieItem.IndienMethodCall("GeefIngegevenKenmerken").DanReturn(TAORKenmerken)
 	Do ProductieSequentieItem.IndienMethodCall("GeefHalffabItemsBoom").DanReturn(HalffabItemsBoom)
 	Do ProductieSequentieItem.IndienMethodCall("GeefProductieLijn").DanReturn(##class(APPS.Halux.common.enu.ProductieLijn).Een())
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker.cls.xml
===================================================================
diff -u -r30891 -r30912
--- APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker.cls.xml	(.../WerklijstItemsMaker.cls.xml)	(revision 30891)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker.cls.xml	(.../WerklijstItemsMaker.cls.xml)	(revision 30912)
@@ -45,7 +45,7 @@
 
 		#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()))
+			Do ..VoegToe(##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketWerklijstItemMaker).%New(EtiketItemIterator.Next()))
 		}
 	}
 ]]></Implementation>
@@ -88,9 +88,8 @@
 		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)
+				Set KlantEtiketInput = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketInput).%New()
+				Do EtiketItems.Insert(KlantEtiketInput)
 			}
 		}
 	}
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/KlantEtiketWerklijstItemMaker.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/KlantEtiketWerklijstItemMaker.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/KlantEtiketWerklijstItemMaker.cls.xml	(revision 30912)
@@ -0,0 +1,39 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketWerklijstItemMaker">
+<Super>APPS.Halux.PPS.Activiteit.impl.common.WerklijstItemMaker</Super>
+
+<Property name="KlantEtiketInput">
+<Type>APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketInput</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>KlantEtiketInput:APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketInput</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..KlantEtiketInput = KlantEtiketInput
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefInformatieID">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit "TAOR.KlantEtiket"
+]]></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.KlantEtiketWerklijstItemUitvoeringInfoInvuller).%New(..KlantEtiketInput)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/KlantEtiketIoCContainer.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/KlantEtiketIoCContainer.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/KlantEtiketIoCContainer.cls.xml	(revision 30912)
@@ -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.KlantEtiketIoCContainer">
+<Super>TECH.IoC.Container</Super>
+
+<Method name="Initialization">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	#execute set ^TECH.Config.IoC.Container("APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketIoCContainer","HoutCertificaatService")="DOM.PM.HoutCertificaatService"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/Activiteit/impl/common/dto/KartonSnijdenUitvoeringInfo.cls.xml
===================================================================
diff -u -r30804 -r30912
--- APPS/Halux/PPS/Activiteit/impl/common/dto/KartonSnijdenUitvoeringInfo.cls.xml	(.../KartonSnijdenUitvoeringInfo.cls.xml)	(revision 30804)
+++ APPS/Halux/PPS/Activiteit/impl/common/dto/KartonSnijdenUitvoeringInfo.cls.xml	(.../KartonSnijdenUitvoeringInfo.cls.xml)	(revision 30912)
@@ -12,6 +12,11 @@
 <Parameter name="CLASSNAME" value="1"/>
 </Property>
 
+<Property name="KlantEtiketData">
+<Type>APPS.Halux.PPS.Activiteit.impl.common.dto.KlantEtiketData</Type>
+<Parameter name="CLASSNAME" value="1"/>
+</Property>
+
 <Property name="OmschrijvingInWerkpostApplicatie">
 <Type>%String</Type>
 <Parameter name="MAXLEN" value="100"/>
@@ -31,6 +36,9 @@
 <Value name="3">
 <Value>OmschrijvingInWerkpostApplicatie</Value>
 </Value>
+<Value name="4">
+<Value>KlantEtiketData</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/KlantEtiketWerklijstItemUitvoeringInfoInvuller.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/KlantEtiketWerklijstItemUitvoeringInfoInvuller.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/KlantEtiketWerklijstItemUitvoeringInfoInvuller.cls.xml	(revision 30912)
@@ -0,0 +1,43 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketWerklijstItemUitvoeringInfoInvuller">
+<Super>APPS.Halux.PPS.Activiteit.impl.common.SequentieGebaseerdeUitvoeringInfoInvuller</Super>
+
+<Property name="KlantEtiketInput">
+<Type>APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketInput</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>KlantEtiketInput:APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketInput</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..KlantEtiketInput = KlantEtiketInput
+	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.KlantEtiketDataAlgemeenAanvuller).%New(..KlantEtiketInput))
+	do ..VoegToeAanvuller(##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketDataProductAanvuller).%New(..KlantEtiketInput))
+	do ..VoegToeAanvuller(##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketDataAantalAanvuller).%New(..KlantEtiketInput))
+	do ..VoegToeAanvuller(##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketDataInfoAanvuller).%New(..KlantEtiketInput))
+	do ..VoegToeAanvuller(##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketDataOrderAanvuller).%New(..KlantEtiketInput))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/KlantEtiketDataOrderAanvuller.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/KlantEtiketDataOrderAanvuller.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/KlantEtiketDataOrderAanvuller.cls.xml	(revision 30912)
@@ -0,0 +1,50 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketDataOrderAanvuller">
+<Super>APPS.Halux.PPS.Activiteit.impl.common.SequentieGebaseerdeUitvoeringInfoAanvuller</Super>
+
+<Property name="KlantEtiketInput">
+<Type>APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketInput</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OrderAPI">
+<Type>DOM.VKP.OrderAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ToeleveringAPI">
+<Type>DOM.AKP.ToeleveringAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>KlantEtiketInput:APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketInput</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..KlantEtiketInput = KlantEtiketInput
+	Set ..OrderAPI = ##class(DOM.DomeinContext).Instance().GeefOrderAPI()
+	Set ..ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VulAan">
+<FormalSpec>UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.KartonSnijdenUitvoeringInfo,WerklijstItemMakerInput:APPS.Halux.PPS.Activiteit.impl.common.WerklijstItemMakerInput</FormalSpec>
+<Implementation><![CDATA[
+	#dim Vertaler As DOM.common.Transl.Vertaler = ##class(DOM.DomeinContext).Instance().GeefVertaalAPI().GeefStandaardVertaler(UitvoeringInfo.KlantEtiketData.Taal)
+	
+	#dim Toelevering As DOM.AKP.Toelevering = ..ToeleveringAPI.GeefToelevering(UitvoeringInfo.ToeleveringID)
+	#dim OrderID As TECH.String = Toelevering.GeefOrderID()
+	Set UitvoeringInfo.KlantEtiketData.OrderTitel = Vertaler.GeefVertaling("Order")
+	Set UitvoeringInfo.KlantEtiketData.OrderID = OrderID
+	Set UitvoeringInfo.KlantEtiketData.Verzendwijze = ..OrderAPI.GeefOrder(OrderID).GeefVerzendingWijze()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/Activiteit/impl/common/dto/KlantEtiketData.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Activiteit/impl/common/dto/KlantEtiketData.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Activiteit/impl/common/dto/KlantEtiketData.cls.xml	(revision 30912)
@@ -0,0 +1,214 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Activiteit.impl.common.dto.KlantEtiketData">
+<Super>%Library.SerialObject</Super>
+
+<Property name="Aantal">
+<Type>TECH.Integer</Type>
+</Property>
+
+<Property name="Layout">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="Device">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="Taal">
+<Type>DOM.enu.Taal</Type>
+</Property>
+
+<Property name="LogoLocatie">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="TypeNaam">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="Code">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="Dimensie">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="WandDikte">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="Kleurcodes">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="Omschrijving1">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="Omschrijving2">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="DuurzaamBosbeheerCertificaatLogoLocatie">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="BarcodeID">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="LadeAfbeeldingLocatie">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="LandVanHerkomst">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="AantalTitel">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="AantalStuks">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="IdentNr">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="Info1">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="Info2">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="Info3">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="Info4">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="OrderTitel">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="OrderID">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="DossierTitel">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="Dossier">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="Verzendwijze">
+<Type>TECH.String</Type>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<State>KlantEtiketDataState</State>
+<StreamLocation>^APPS.Halux598A.KlantEtiketA671S</StreamLocation>
+<Data name="KlantEtiketDataState">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>Aantal</Value>
+</Value>
+<Value name="2">
+<Value>Layout</Value>
+</Value>
+<Value name="3">
+<Value>Device</Value>
+</Value>
+<Value name="4">
+<Value>Taal</Value>
+</Value>
+<Value name="5">
+<Value>LogoLocatie</Value>
+</Value>
+<Value name="6">
+<Value>TypeNaam</Value>
+</Value>
+<Value name="7">
+<Value>Code</Value>
+</Value>
+<Value name="8">
+<Value>Dimensie</Value>
+</Value>
+<Value name="9">
+<Value>WandDikte</Value>
+</Value>
+<Value name="10">
+<Value>Kleurcodes</Value>
+</Value>
+<Value name="11">
+<Value>Omschrijving1</Value>
+</Value>
+<Value name="12">
+<Value>Omschrijving2</Value>
+</Value>
+<Value name="13">
+<Value>DuurzaamBosbeheerCertificaatLogoLocatie</Value>
+</Value>
+<Value name="14">
+<Value>BarcodeID</Value>
+</Value>
+<Value name="15">
+<Value>LadeAfbeeldingLocatie</Value>
+</Value>
+<Value name="16">
+<Value>LandVanHerkomst</Value>
+</Value>
+<Value name="17">
+<Value>AantalTitel</Value>
+</Value>
+<Value name="18">
+<Value>AantalStuks</Value>
+</Value>
+<Value name="19">
+<Value>IdentNr</Value>
+</Value>
+<Value name="20">
+<Value>Info1</Value>
+</Value>
+<Value name="21">
+<Value>Info2</Value>
+</Value>
+<Value name="22">
+<Value>Info3</Value>
+</Value>
+<Value name="23">
+<Value>Info4</Value>
+</Value>
+<Value name="24">
+<Value>OrderTitel</Value>
+</Value>
+<Value name="25">
+<Value>OrderID</Value>
+</Value>
+<Value name="26">
+<Value>DossierTitel</Value>
+</Value>
+<Value name="27">
+<Value>Dossier</Value>
+</Value>
+<Value name="28">
+<Value>Verzendwijze</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/KlantEtiketInput.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/KlantEtiketInput.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/KlantEtiketInput.cls.xml	(revision 30912)
@@ -0,0 +1,17 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketInput">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="AantalEtiketten">
+<Type>TECH.Integer</Type>
+<InitialExpression>1</InitialExpression>
+</Property>
+
+<Property name="VoorkeurPrinter">
+<Type>TECH.String</Type>
+</Property>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker/MaakWerklijstItems/TestBulkPOG.cls.xml
===================================================================
diff -u -r30891 -r30912
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker/MaakWerklijstItems/TestBulkPOG.cls.xml	(.../TestBulkPOG.cls.xml)	(revision 30891)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/WerklijstItemsMaker/MaakWerklijstItems/TestBulkPOG.cls.xml	(.../TestBulkPOG.cls.xml)	(revision 30912)
@@ -21,7 +21,7 @@
 
 	#dim WerklijstItems As APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItemList= WerklijstItemsMaker.MaakWerklijstItems(WerklijstItemMakerInput)
 	
-	Do $$$AssertEquals(WerklijstItems.Count(),10,"(Totaal van 43 karton + 20 etiketten) en 1 keer voor KartonSnijden en 1 keer voor PalletInhoudblad")
+	Do $$$AssertEquals(WerklijstItems.Count(),15,"(Totaal van 43 karton + 20 etiketten) en 1 keer voor KartonSnijden, PalletInhoudblad en voor de klantetiketten")
 		
 	Do ..AssertKartonBodem(WerklijstItems.GetAt(1).UitvoeringInfo)
 	Do ..AssertKartonFront(WerklijstItems.GetAt(2).UitvoeringInfo)
@@ -123,8 +123,10 @@
 		#dim WerklijstItem As APPS.Halux.PPS.Activiteit.dto.ProductieSequentieWerklijstItem = Iterator.Next()
 		If $Increment(Counter)<=5 {
 			Do $$$AssertEquals(WerklijstItem.InformatieID,"TAOR.Verpakking.KartonSnijden")
-		} Else {
+		} ElseIf Counter <=10 {
 			Do $$$AssertEquals(WerklijstItem.InformatieID,"TAOR.PalletInhoud")
+		} Else {
+			Do $$$AssertEquals(WerklijstItem.InformatieID,"TAOR.KlantEtiket")
 		}
 		Do $$$AssertEquals(WerklijstItem.Volgnummer,"")
 	}
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/KlantEtiketDataInfoAanvuller.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/KlantEtiketDataInfoAanvuller.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/KlantEtiketDataInfoAanvuller.cls.xml	(revision 30912)
@@ -0,0 +1,86 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketDataInfoAanvuller">
+<Super>APPS.Halux.PPS.Activiteit.impl.common.SequentieGebaseerdeUitvoeringInfoAanvuller</Super>
+
+<Property name="InfoWaardenBepaler">
+<Type>APPS.Halux.PPS.impl.AansturingActie.Taorbox.KlantEtiket.OnGemonteerd.EtiketPrinter.EtiketBepaler.InfoWaardenBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="KlantEtiketInput">
+<Type>APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketInput</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ToeleveringAPI">
+<Type>DOM.AKP.ToeleveringAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OrderAPI">
+<Type>DOM.VKP.OrderAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>KlantEtiketInput:APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketInput</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..KlantEtiketInput = KlantEtiketInput
+	Set ..InfoWaardenBepaler = ##class(APPS.Halux.PPS.impl.AansturingActie.Taorbox.KlantEtiket.OnGemonteerd.EtiketPrinter.EtiketBepaler.InfoWaardenBepaler).%New()
+	Set ..ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()
+	Set ..OrderAPI = ##class(DOM.DomeinContext).Instance().GeefOrderAPI()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VulAan">
+<FormalSpec>UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.KartonSnijdenUitvoeringInfo,WerklijstItemMakerInput:APPS.Halux.PPS.Activiteit.impl.common.WerklijstItemMakerInput</FormalSpec>
+<Implementation><![CDATA[
+	#dim ToeleveringLijn As DOM.AKP.ProductToeleveringLijn = ..ToeleveringAPI.GeefToeleveringLijn(UitvoeringInfo.ToeleveringID, UitvoeringInfo.ToeleveringLijnID)
+	#dim InfoWaardenLijsten As Array of %ListOfDataTypes = ..GeefInfoLijsten(UitvoeringInfo.PartijID, ToeleveringLijn, 4)
+	Set UitvoeringInfo.KlantEtiketData.Info1 = ##class(TECH.ListUtils).ListToPieces(InfoWaardenLijsten.GetAt(1))
+	Set UitvoeringInfo.KlantEtiketData.Info2 = ##class(TECH.ListUtils).ListToPieces(InfoWaardenLijsten.GetAt(2))
+	Set UitvoeringInfo.KlantEtiketData.Info3 = ##class(TECH.ListUtils).ListToPieces(InfoWaardenLijsten.GetAt(3))
+	Set UitvoeringInfo.KlantEtiketData.Info4 = ##class(TECH.ListUtils).ListToPieces(InfoWaardenLijsten.GetAt(4))
+]]></Implementation>
+</Method>
+
+<Method name="GeefInfoLijsten">
+<FormalSpec>PartijID:DOM.common.PartijID,ToeleveringLijn:DOM.AKP.ProductToeleveringLijn,AantalInfos:TECH.Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ArrayOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	Set InfoLijsten = ##class(%ArrayOfDataTypes).%New()
+	#dim i As TECH.Integer
+	For i=1:1:AantalInfos {
+		Do InfoLijsten.SetAt(##class(%ListOfDataTypes).%New(), i)
+	}
+	
+	#dim OrderID As TECH.String = ToeleveringLijn.GeefOrderID()
+	#dim ProductOrderLijn As DOM.VKP.ProductOrderlijn = ""
+	If OrderID '= "" {
+		#dim Order As DOM.VKP.Order = ..OrderAPI.GeefOrder(OrderID)
+		Set ProductOrderLijn = Order.GeefOrderLijnViaVolgnummer(ToeleveringLijn.GeefOrderLijnVolgnummer())
+	}
+	#dim InfoWaarden As %ListOfDataTypes = ..InfoWaardenBepaler.GeefInfoWaarden(PartijID, ProductOrderLijn)
+	
+	Set i = 1
+	Set InfoWaardenIterator = ##class(TECH.ListIterator).%New(InfoWaarden)
+	While InfoWaardenIterator.HasNext() {
+		#dim LijstNr As TECH.Integer = ##class(TECH.Math).Modulo(i,AantalInfos)+1
+		Do InfoLijsten.GetAt(LijstNr).Insert(InfoWaardenIterator.Next())
+		Set i = i+1
+	}
+	
+	Quit InfoLijsten
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/KlantEtiketDataProductAanvuller.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/KlantEtiketDataProductAanvuller.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/KlantEtiketDataProductAanvuller.cls.xml	(revision 30912)
@@ -0,0 +1,228 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketDataProductAanvuller">
+<Super>APPS.Halux.PPS.Activiteit.impl.common.SequentieGebaseerdeUitvoeringInfoAanvuller</Super>
+
+<Property name="KlantEtiketInput">
+<Type>APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketInput</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="HoutCertificaatService">
+<Type>DOM.PM.HoutCertificaatService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ImageLink">
+<Type>BL.Prod.ImageLink</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Vertaler">
+<Type>DOM.common.Transl.Vertaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="KleurCodeVertaler">
+<Type>DOM.common.Transl.Vertaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductTypeAPI">
+<Type>DOM.PM.ProductTypeAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LadeInfoAPI">
+<Type>DOM.PM.Maatwerk.LadeInfoAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>KlantEtiketInput:APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketInput</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..KlantEtiketInput = KlantEtiketInput
+	Set ..HoutCertificaatService = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketIoCContainer).Instance().Resolve("HoutCertificaatService")
+	Set ..ImageLink = ##class(BL.Prod.ImageLink).%New()
+	Set ..ProductTypeAPI = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI()
+	set ..LadeInfoAPI = ##class(DOM.PM.Maatwerk.impl.LadeInfoAPI).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VulAan">
+<FormalSpec>UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.KartonSnijdenUitvoeringInfo,WerklijstItemMakerInput:APPS.Halux.PPS.Activiteit.impl.common.WerklijstItemMakerInput</FormalSpec>
+<Implementation><![CDATA[
+	Set ..Vertaler = ##class(DOM.DomeinContext).Instance().GeefVertaalAPI().GeefStandaardVertaler(UitvoeringInfo.KlantEtiketData.Taal)
+	set ..KleurCodeVertaler = ##class(DOM.DomeinContext).Instance().GeefVertaalAPI().GeefKleurCodeVertaler(UitvoeringInfo.KlantEtiketData.Taal)
+	
+	#dim Product As DOM.PM.MaatwerkProduct = ..ProductTypeAPI.GeefMaatwerkProduct(UitvoeringInfo.ProductID)
+	#dim LadeInfo As DOM.PM.Maatwerk.LadeInfo.Lade = ..LadeInfoAPI.GeefLade(Product.GeefHalffabItemsBoom(), Product.GeefIngegevenKenmerken())
+	
+	Set UitvoeringInfo.KlantEtiketData.LogoLocatie = "LOGO\TAOR_zwart.jpg"
+	Set UitvoeringInfo.KlantEtiketData.TypeNaam = "TA'OR BOX"
+	Set UitvoeringInfo.KlantEtiketData.Code = ..GeefCode(LadeInfo)
+	Set UitvoeringInfo.KlantEtiketData.Dimensie = ..GeefDimensieString(LadeInfo)
+	Set UitvoeringInfo.KlantEtiketData.WandDikte = ..GeefWandDikteString(Product.GeefIngegevenKenmerken())
+	Set UitvoeringInfo.KlantEtiketData.Kleurcodes = ..GeefKleurCodes(LadeInfo)
+	Set UitvoeringInfo.KlantEtiketData.Omschrijving1 = ..GeefOmschrijving1(LadeInfo)
+	Set UitvoeringInfo.KlantEtiketData.Omschrijving2 = ..GeefOmschrijving2(LadeInfo)
+	Set UitvoeringInfo.KlantEtiketData.DuurzaamBosbeheerCertificaatLogoLocatie = ..GeefHoutCertificaatImage(Product.GeefID())
+	Set UitvoeringInfo.KlantEtiketData.BarcodeID = "" ;Fase 2
+	Set UitvoeringInfo.KlantEtiketData.LadeAfbeeldingLocatie = ..ImageLink.GetProductImageURL(Product.GeefID(), ##class(APPS.common.enu.Toepassing).Bartender())
+	Set UitvoeringInfo.KlantEtiketData.LandVanHerkomst = "Made in BELGIUM"
+	Set UitvoeringInfo.KlantEtiketData.IdentNr = Product.GeefIdentNr()
+	
+	Set UitvoeringInfo.KlantEtiketData.DossierTitel = ..Vertaler.GeefVertaling("Dossier")
+	Set UitvoeringInfo.KlantEtiketData.Dossier = Product.GeefDossierCode()
+]]></Implementation>
+</Method>
+
+<Method name="GeefHoutCertificaatImage">
+<FormalSpec>ProductID:TECH.String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim HoutCertificaatCode As %String = ..HoutCertificaatService.BepaalCertificaatCode(ProductID)
+	If HoutCertificaatCode '= "" {
+		Quit ..HoutCertificaatService.GetImageLink(HoutCertificaatCode)
+	}
+	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="GeefCode">
+<FormalSpec>LadeInfo:DOM.PM.Maatwerk.LadeInfo.Lade</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Code As TECH.String = LadeInfo.GeefHoogte()
+	If LadeInfo.IsBinnenlade() {
+		Set Code = Code_"/Z"
+	}
+	Quit Code
+]]></Implementation>
+</Method>
+
+<Method name="GeefDimensieString">
+<FormalSpec>LadeInfo:DOM.PM.Maatwerk.LadeInfo.Lade</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim DimensieString As TECH.String = ""
+	If (LadeInfo.GeefZijkanten().Count() > 0) || (LadeInfo.GeefBodems().Count() > 0) {
+		Set DimensieString = ..Vertaler.GeefVertaling("DiepteAfkorting")_":"_LadeInfo.GeefDiepteInMM()
+	}
+	If (LadeInfo.GeefBodems().Count() > 0) || (LadeInfo.GeefFronten().Count() > 0) || (LadeInfo.GeefRuggen().Count() > 0) {
+		Set DimensieString = $$$IfLength(DimensieString, "", " x ")_..Vertaler.GeefVertaling("BreedteAfkorting")_":"_LadeInfo.GeefBreedteInMM()
+	}
+	Quit DimensieString
+]]></Implementation>
+</Method>
+
+<Method name="GeefWandDikteString">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim WandDikteString As TECH.String = ""
+	If IngegevenKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).BulkPerOnderdeelGegroepeerd() {
+		Set WandDikteString = ..Vertaler.GeefVertaling("WandDikteAfkorting")_":"_IngegevenKenmerken.GUIKenmerken.WandDikte
+	}
+	Quit WandDikteString
+]]></Implementation>
+</Method>
+
+<Method name="GeefKleurCodes">
+<FormalSpec>LadeInfo:DOM.PM.Maatwerk.LadeInfo.Lade</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim KleurCodes As TECH.String = ""
+	#dim Kleuren As Array of TECH.Enumeration
+	If (LadeInfo.GeefZijkanten().Count() > 0) {
+		Set Kleuren = LadeInfo.GeefZijkanten().GetAt(1).GeefKleuren()
+		Set KleurCodes = KleurCodes_Kleuren.GetAt(1)_"-"_Kleuren.GetAt(2)
+	}
+	If (LadeInfo.GeefBodems().Count() > 0) {
+		Set Kleuren = LadeInfo.GeefBodems().GetAt(1).GeefKleuren()
+		Set KleurCodes = $$$IfLength(KleurCodes,""," ")_Kleuren.GetAt(1)
+	}
+	If LadeInfo.GeefVerpakking().GeefType() = ##class(DOM.PM.enu.TAORVerpakkingType).LosseComponentenInBulk() {
+		If (LadeInfo.GeefFronten().Count() > 0) {
+			Set Kleuren = LadeInfo.GeefFronten().GetAt(1).GeefKleuren()
+			Set KleurCodes = Kleuren.GetAt(1)
+		}
+		If (LadeInfo.GeefRuggen().Count() > 0) {
+			Set Kleuren = LadeInfo.GeefRuggen().GetAt(1).GeefKleuren()
+			Set KleurCodes = Kleuren.GetAt(1)
+		}
+	}
+	Quit KleurCodes
+]]></Implementation>
+</Method>
+
+<Method name="GeefOmschrijving1">
+<FormalSpec>LadeInfo:DOM.PM.Maatwerk.LadeInfo.Lade</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim Omschrijving1 As TECH.String = ""
+	If LadeInfo.GeefVerpakking().GeefType() = ##class(DOM.PM.enu.TAORVerpakkingType).BulkPerOnderdeelGegroepeerd() {
+		If (LadeInfo.GeefZijkanten().Count() > 0) {
+			#dim Kleuren As Array of DOM.PM.enu.TAORLadeKleur = LadeInfo.GeefZijkanten().GetAt(1).GeefKleuren()
+			Set Omschrijving1 = ..Vertaler.GeefVertaling("LadeZijkant")_": "_..KleurCodeVertaler.GeefVertaling(Kleuren.GetAt(1))_" - "_..KleurCodeVertaler.GeefVertaling(Kleuren.GetAt(2))
+		}
+	} Else {
+		If (LadeInfo.GeefZijkanten().Count() > 0) {
+			Set Omschrijving1 = ..Vertaler.GeefVertaling("Zijkant")_" "_..Vertaler.GeefVertaling(LadeInfo.GeefZijkanten().GetAt(1).GeefZijkantRol())
+		} ElseIf (LadeInfo.GeefBodems().Count() > 0) {
+			Set Omschrijving1 = ..Vertaler.GeefVertaling("Bodem")
+		} ElseIf (LadeInfo.GeefFronten().Count() > 0) {
+			Set Omschrijving1 = ..Vertaler.GeefVertaling("Front")
+		} ElseIf (LadeInfo.GeefRuggen().Count() > 0) {
+			Set Omschrijving1 = ..Vertaler.GeefVertaling("Rug")
+		}
+		
+	}
+	Quit ##class(TECH.StringUtils).FirstToUpper(Omschrijving1)
+]]></Implementation>
+</Method>
+
+<Method name="GeefOmschrijving2">
+<FormalSpec>LadeInfo:DOM.PM.Maatwerk.LadeInfo.Lade</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim Omschrijving2 As TECH.String = ""
+	#dim Zijkant As DOM.PM.Maatwerk.LadeInfo.Zijkant
+	#dim Kleuren As Array of DOM.PM.enu.TAORLadeKleur
+	If LadeInfo.GeefVerpakking().GeefType() = ##class(DOM.PM.enu.TAORVerpakkingType).BulkPerOnderdeelGegroepeerd() {
+		If (LadeInfo.GeefBodems().Count() > 0) {
+			Set Kleuren = LadeInfo.GeefBodems().GetAt(1).GeefKleuren()
+			Set Omschrijving2 = ..Vertaler.GeefVertaling("Bodem")_": "_..KleurCodeVertaler.GeefVertaling(Kleuren.GetAt(1))
+		}
+	} Else {
+		If (LadeInfo.GeefZijkanten().Count() > 0) {
+			Set Kleuren = LadeInfo.GeefZijkanten().GetAt(1).GeefKleuren()
+			Set Omschrijving2 = ..KleurCodeVertaler.GeefVertaling(Kleuren.GetAt(1))_" - "_..KleurCodeVertaler.GeefVertaling(Kleuren.GetAt(2))
+		} ElseIf (LadeInfo.GeefBodems().Count() > 0) {
+			Set Kleuren = LadeInfo.GeefBodems().GetAt(1).GeefKleuren()
+			Set Omschrijving2 = ..KleurCodeVertaler.GeefVertaling(Kleuren.GetAt(1))
+		} ElseIf (LadeInfo.GeefFronten().Count() > 0) {
+			Set Kleuren = LadeInfo.GeefFronten().GetAt(1).GeefKleuren()
+			Set Omschrijving2 = ..KleurCodeVertaler.GeefVertaling(Kleuren.GetAt(1))
+		} ElseIf (LadeInfo.GeefRuggen().Count() > 0) {
+			Set Kleuren = LadeInfo.GeefRuggen().GetAt(1).GeefKleuren()
+			Set Omschrijving2 = ..KleurCodeVertaler.GeefVertaling(Kleuren.GetAt(1))
+		}
+	}
+	Quit Omschrijving2
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/KlantEtiketDataAantalAanvuller.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/KlantEtiketDataAantalAanvuller.cls.xml	(revision 0)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/Verpakking/KlantEtiketDataAantalAanvuller.cls.xml	(revision 30912)
@@ -0,0 +1,41 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketDataAantalAanvuller">
+<Super>APPS.Halux.PPS.Activiteit.impl.common.SequentieGebaseerdeUitvoeringInfoAanvuller</Super>
+
+<Property name="KlantEtiketInput">
+<Type>APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketInput</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ToeleveringAPI">
+<Type>DOM.AKP.ToeleveringAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>KlantEtiketInput:APPS.Halux.PPS.Activiteit.impl.TAOR.Verpakking.KlantEtiketInput</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..KlantEtiketInput = KlantEtiketInput
+	Set ..ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VulAan">
+<FormalSpec>UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.common.dto.KartonSnijdenUitvoeringInfo,WerklijstItemMakerInput:APPS.Halux.PPS.Activiteit.impl.common.WerklijstItemMakerInput</FormalSpec>
+<Implementation><![CDATA[
+	#dim ToeleveringLijn As DOM.AKP.ProductToeleveringLijn = ..ToeleveringAPI.GeefToeleveringLijn(UitvoeringInfo.ToeleveringID, UitvoeringInfo.ToeleveringLijnID)
+	Set UitvoeringInfo.KlantEtiketData.Aantal = ..KlantEtiketInput.AantalEtiketten
+	Set UitvoeringInfo.KlantEtiketData.AantalStuks = ToeleveringLijn.GeefAantal()
+	Set UitvoeringInfo.KlantEtiketData.AantalTitel = "Stk/Pcs"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>