Index: APPS/Halux/common/ProductieSequentieItem.cls.xml
===================================================================
diff -u -r31991 -r74468
--- APPS/Halux/common/ProductieSequentieItem.cls.xml	(.../ProductieSequentieItem.cls.xml)	(revision 31991)
+++ APPS/Halux/common/ProductieSequentieItem.cls.xml	(.../ProductieSequentieItem.cls.xml)	(revision 74468)
@@ -122,6 +122,11 @@
 <Required>1</Required>
 </Property>
 
+<Property name="StapelAfbeelding">
+<Type>%String</Type>
+<Parameter name="MAXLEN" value="200"/>
+</Property>
+
 <Property name="HalffabItemsBoom">
 <Type>DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</Type>
 <Private>1</Private>
@@ -286,6 +291,9 @@
 <Value name="12">
 <Value>ToeleveringSequentieNummer</Value>
 </Value>
+<Value name="13">
+<Value>StapelAfbeelding</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: APPS/Halux/common/impl/ProductieSequentie/Tandembox.cls.xml
===================================================================
diff -u -r73672 -r74468
--- APPS/Halux/common/impl/ProductieSequentie/Tandembox.cls.xml	(.../Tandembox.cls.xml)	(revision 73672)
+++ APPS/Halux/common/impl/ProductieSequentie/Tandembox.cls.xml	(.../Tandembox.cls.xml)	(revision 74468)
@@ -12,22 +12,28 @@
 	#dim Batch As APPS.Halux.common.Batch = ..GeefBatch()
 	#dim ToeleveringIterator As TECH.Iterator = Batch.GeefToeleveringIterator()
 	#dim SequentieNummer As %Integer = 0
-	
+	#dim ProductieGroepMetVolumetrie As %Boolean = (Batch.GeefProductieGroep() = ##class(APPS.Halux.common.enu.ProductieGroep).Probox())
+	#dim MesFaseActief As %Integer = ##class(TECH.Config.ConfigMgr).Instance().GeefString("APPS.Halux.PPS.Document.impl.BatchNaarObjective_MESFase")
+		
 	While (ToeleveringIterator.HasNext()) {
 		#dim Toelevering As DOM.AKP.Toelevering = ToeleveringIterator.Next()
-
+		
 		Kill Sortering
 		
 		#dim ProductLijnIterator As TECH.Iterator = Toelevering.GeefTypeToeleveringLijnIterator(##class(DOM.AKP.enu.ToeleveringLijnType).Product())
 		
-		While (ProductLijnIterator.HasNext()) {
-			#dim ProductLijn As DOM.AKP.ProductToeleveringLijn = ProductLijnIterator.Next()
+		If ((MesFaseActief > 1) && (ProductieGroepMetVolumetrie) && (Toelevering.GeefAantalProducten() > 1) && $$$Not((##class(TECH.StringUtils).Equals(##class(TECH.Context.RuntimeContext).Instance().GeefApplicatie(), "UnitTest", "IntegratieTest")))) {
+			Do ..VulAanSorteringVoorProductieSequentieItemsViaVolumetrie(.Sortering, ProductLijnIterator, Toelevering)			
+		} Else {		
+			While (ProductLijnIterator.HasNext()) {
+				#dim ProductLijn As DOM.AKP.ProductToeleveringLijn = ProductLijnIterator.Next()
 
-			// TODOPA vertaling van ProductID As %String naar DOM.common.ProductID
-			#dim MaatwerkProduct As DOM.PM.MaatwerkProduct = ProductTypeAPI.GeefMaatwerkProduct(ProductLijn.GeefProductID())
-			#dim ProductieSequentieItems As %ListOfObjects = ..MaakProductieSequentieItems(Toelevering, ProductLijn)
-			
-			Do ..VulAanSorteringVoorProductieSequentieItems(.Sortering, ProductieSequentieItems, MaatwerkProduct)
+				// TODOPA vertaling van ProductID As %String naar DOM.common.ProductID
+				#dim MaatwerkProduct As DOM.PM.MaatwerkProduct = ProductTypeAPI.GeefMaatwerkProduct(ProductLijn.GeefProductID())
+				#dim ProductieSequentieItems As %ListOfObjects = ..MaakProductieSequentieItems(Toelevering, ProductLijn)
+				
+				Do ..VulAanSorteringVoorProductieSequentieItems(.Sortering, ProductieSequentieItems, MaatwerkProduct)
+			}
 		}
 
 		Do ##class(TECH.ListUtils).AppendList(..SequentieItems, ..GeefGesorteerdeProductieSequentieItems(.Sortering, .SequentieNummer))
Index: vhTest/Mock/APPS/Halux/common/ProductieSequentieItem.cls.xml
===================================================================
diff -u -r30990 -r74468
--- vhTest/Mock/APPS/Halux/common/ProductieSequentieItem.cls.xml	(.../ProductieSequentieItem.cls.xml)	(revision 30990)
+++ vhTest/Mock/APPS/Halux/common/ProductieSequentieItem.cls.xml	(.../ProductieSequentieItem.cls.xml)	(revision 74468)
@@ -3,17 +3,27 @@
 <Class name="vhTest.Mock.APPS.Halux.common.ProductieSequentieItem">
 <Description>
 Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
-Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
-Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>APPS.Halux.common.ProductieSequentieItem,Tools.Mock.MockClassBase</Super>
 
+<Method name="%OnNew">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="Accept">
 <FormalSpec>Visitor:APPS.Halux.common.ProductieSequentieItemVisitor</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("Accept",Visitor)
 ]]></Implementation>
 </Method>
 
+<Method name="Delete">
+<Implementation><![CDATA[	do ..VerwerkMethodCall("Delete")
+]]></Implementation>
+</Method>
+
 <Method name="GeefBerekeningSpecificatie">
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefBerekeningSpecificatie")
@@ -32,6 +42,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefID">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefID")
+]]></Implementation>
+</Method>
+
 <Method name="GeefIngegevenKenmerken">
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefIngegevenKenmerken")
@@ -44,6 +60,21 @@
 ]]></Implementation>
 </Method>
 
+<Method name="OnDelete">
+<Implementation><![CDATA[	do ..VerwerkMethodCall("OnDelete")
+]]></Implementation>
+</Method>
+
+<Method name="Save">
+<Implementation><![CDATA[	do ..VerwerkMethodCall("Save")
+]]></Implementation>
+</Method>
+
+<Method name="Validate">
+<Implementation><![CDATA[	do ..VerwerkMethodCall("Validate")
+]]></Implementation>
+</Method>
+
 <Method name="ZetHalffabItemsBoom">
 <FormalSpec>HalffabItemBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("ZetHalffabItemsBoom",HalffabItemBoom)
@@ -68,6 +99,9 @@
 <Value name="2">
 <Value>IsMethodCallVerwacht</Value>
 </Value>
+<Value name="3">
+<Value>FormalSpecParser</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: APPS/Halux/PPS/dto/SequentieGebaseerdeUitvoeringInfo.cls.xml
===================================================================
diff -u -r31988 -r74468
--- APPS/Halux/PPS/dto/SequentieGebaseerdeUitvoeringInfo.cls.xml	(.../SequentieGebaseerdeUitvoeringInfo.cls.xml)	(revision 31988)
+++ APPS/Halux/PPS/dto/SequentieGebaseerdeUitvoeringInfo.cls.xml	(.../SequentieGebaseerdeUitvoeringInfo.cls.xml)	(revision 74468)
@@ -91,6 +91,11 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="StapelAfbeelding">
+<Type>%String</Type>
+<Parameter name="MAXLEN" value="200"/>
+</Property>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DefaultData>SequentieGebaseerdeUitvoeringInfoDefaultData</DefaultData>
@@ -129,6 +134,9 @@
 <Value name="11">
 <Value>ToeleveringSequentieNummer</Value>
 </Value>
+<Value name="12">
+<Value>StapelAfbeelding</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/SequentieOptiesGenerator.cls.xml
===================================================================
diff -u -r72532 -r74468
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/SequentieOptiesGenerator.cls.xml	(.../SequentieOptiesGenerator.cls.xml)	(revision 72532)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/SequentieOptiesGenerator.cls.xml	(.../SequentieOptiesGenerator.cls.xml)	(revision 74468)
@@ -12,6 +12,7 @@
 	Do Opties.Insert(..GeefOptieVoorLadeSequentieInfoBinnenToelevering(UitvoeringInfo.SequentieNummerLade))
 	Do Opties.Insert(..GeefOptieVoorLadeSequentieBinnenBatch(UitvoeringInfo.SequentieNummerLade, UitvoeringInfo.SequentieNummer))
 	Do Opties.Insert(..GeefOptieVoorAantalVanTotaalAantal(UitvoeringInfo.SequentieNummerLade, UitvoeringInfo.DeelAantal, UitvoeringInfo.TotaalAantal))
+	Do Opties.Insert(..GeefOptieVoorStapelAfbeelding(UitvoeringInfo.SequentieNummerLade, UitvoeringInfo.StapelAfbeelding))
 
 	Quit Opties
 ]]></Implementation>
@@ -46,6 +47,16 @@
 	Quit ..GeefOptieVoorLade(..PrependNul(SequentieNummerLade), Naam, DeelAantal _ "/" _ TotaalAantal)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefOptieVoorStapelAfbeelding">
+<FormalSpec>SequentieNummerLade:%Integer,StapelAfbeelding:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.dto.BatchNaarObjectiveOptions</ReturnType>
+<Implementation><![CDATA[
+	#dim Naam = "-StapelAfbeelding"
+	Quit ..GeefOptieVoorLade(..PrependNul(SequentieNummerLade), Naam, StapelAfbeelding)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/Verpakking/StackingService/RequestBuilder.cls.xml
===================================================================
diff -u
--- APPS/Verpakking/StackingService/RequestBuilder.cls.xml	(revision 0)
+++ APPS/Verpakking/StackingService/RequestBuilder.cls.xml	(revision 74468)
@@ -0,0 +1,286 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Verpakking.StackingService.RequestBuilder">
+<Super>TECH.Mockable</Super>
+
+<Parameter name="DiepteHogeRug">
+<Type>%Integer</Type>
+<Default>40</Default>
+</Parameter>
+
+<Parameter name="KartonDikte">
+<Type>%Integer</Type>
+<Default>6</Default>
+</Parameter>
+
+<Property name="ContainerId">
+<Type>%String</Type>
+<InitialExpression>"Container"</InitialExpression>
+</Property>
+
+<Property name="LoadId">
+<Type>%String</Type>
+</Property>
+
+<Property name="ProductAPI">
+<Type>DOM.PM.impl.ProductAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="CorpusBreedteBepaler">
+<Type>DOM.PM.Maatwerk.Lade.impl.CorpusBreedteBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductTypeAPI">
+<Type>DOM.PM.ProductTypeAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="MVXLadeUtils">
+<Type>DOM.PM.Maatwerk.Lade.LadeUtils.impl.MVXLadeUtils</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LBXLadeUtils">
+<Type>DOM.PM.Maatwerk.Lade.LadeUtils.impl.LBXLadeUtils</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="TBXLadeUtils">
+<Type>DOM.PM.Maatwerk.Lade.LadeUtils.impl.TBXLadeUtils</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..Logger = ##class(vhLib.Logger).%New("StackingService .NET")
+	Set ..ProductAPI = ##class(DOM.PM.impl.ProductAPI).%New()
+	Set ..CorpusBreedteBepaler = ##class(DOM.PM.Maatwerk.Lade.impl.CorpusBreedteBepaler).%New()
+	Set ..ProductTypeAPI = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI()
+	Set ..LBXLadeUtils = ##class(DOM.DomeinContext).Instance().GeefMaatwerkCalcAPI().GeefLadeUtils(##class(DOM.PM.enu.LadeVariant).LBXPure())
+	Set ..MVXLadeUtils = ##class(DOM.DomeinContext).Instance().GeefMaatwerkCalcAPI().GeefLadeUtils(##class(DOM.PM.enu.LadeVariant).MVX())
+	Set ..TBXLadeUtils = ##class(DOM.PM.Maatwerk.Lade.LadeUtils.impl.TBXLadeUtils).%New()
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="MaakRequest">
+<FormalSpec>ProductieSequentieItemIterator:TECH.Iterator</FormalSpec>
+<ReturnType>APPS.Verpakking.dto.StackingSerivce.Request</ReturnType>
+<Implementation><![CDATA[
+	Set Request = ##class(APPS.Verpakking.dto.StackingSerivce.Request).%New()	
+	Set ProductionOrder = ##class(APPS.Verpakking.dto.StackingSerivce.Request.ProductionOrder).%New()
+	#dim ProductieSequentieItem As APPS.Halux.common.ProductieSequentieItem = ProductieSequentieItemIterator.Next()
+	Set ProductionOrder.OrderId = ProductieSequentieItem.BatchID
+	Set ProductionOrder.CustomerId = ProductieSequentieItem.PartijID	
+	Set Boxes = ##class(%ListOfObjects).%New()
+	
+	Do ProductieSequentieItemIterator.Reset()
+	While ProductieSequentieItemIterator.HasNext() {
+		Set ProductieSequentieItem = ProductieSequentieItemIterator.Next()
+		
+		#dim MaatwerkProduct As DOM.PM.MaatwerkProduct = ..ProductTypeAPI.GeefMaatwerkProduct(ProductieSequentieItem.ProductID)
+		#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken = MaatwerkProduct.GeefProductSpecificatie().GeefIngegevenKenmerken()
+		#dim Box As APPS.Verpakking.dto.StackingSerivce.Request.Box = ..GeefBox(IngegevenKenmerken, ProductieSequentieItem)
+		Do Boxes.Insert(Box)
+	}
+	
+	Set Request.ProductionOrder = ProductionOrder
+	Set Request.Boxes = Boxes
+	
+	Quit Request
+]]></Implementation>
+</Method>
+
+<Method name="GeefBox">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,ProductieSequentieItem:APPS.Halux.common.ProductieSequentieItem</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.Verpakking.dto.StackingSerivce.Request.Box</ReturnType>
+<Implementation><![CDATA[
+	Set Box = ##class(APPS.Verpakking.dto.StackingSerivce.Request.Box).%New()
+	Set Box.Shape = $Select(..HeeftHogeRug(IngegevenKenmerken): "HighBack", 1: "Box")
+	Set Box.StackSortingKey = IngegevenKenmerken.LadeKleur _ "_" _IngegevenKenmerken.LadeDiepte _ "_" _IngegevenKenmerken.BodemKleur _ "_" _IngegevenKenmerken.RugHoogte	
+	
+	Set Box.Depth = ..GeefDiepte(IngegevenKenmerken)
+	Set Box.DepthHighBack = $Select((Box.Shape = "HighBack"): ..#DiepteHogeRug, 1: 0)
+	Set Box.Height = ..GeefHoogte(IngegevenKenmerken)
+	Set Box.HeightHighBack = $Select((Box.Shape = "HighBack"): ..GeefHoogteHogeRug(IngegevenKenmerken), 1: 0)
+	Set Box.Width = ..GeefBreedte(IngegevenKenmerken)
+	
+	Set Box.Id = ..GeefBoxId(ProductieSequentieItem)
+	Set Box.Quantity = 1	
+	
+	Quit Box
+]]></Implementation>
+</Method>
+
+<Method name="GeefBoxId">
+<FormalSpec>ProductieSequentieItem:APPS.Halux.common.ProductieSequentieItem</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ProductieSequentieItem.ToeleveringID _ "_" _ ..GeefKorttekst(ProductieSequentieItem.ProductID) _ "_" _ ProductieSequentieItem.DeelAantal _ "_" _ ProductieSequentieItem.TotaalAantal
+]]></Implementation>
+</Method>
+
+<Method name="GeefKorttekst">
+<FormalSpec>PRNr:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Korttekst As %String = PRNr
+	#dim BestaatProduct As DOM.PM.Product = ..ProductAPI.BestaatProduct(PRNr)
+	
+	If BestaatProduct {
+		#dim Product As DOM.PM.Product = ..ProductAPI.GeefProduct(PRNr)
+		Set Korttekst = Product.GeefKorttekst()
+	}
+	
+	Set Korttekst = $Replace(Korttekst, "/", " ")
+	Set Korttekst = $Replace(Korttekst, "\", " ")
+	
+	Quit Korttekst
+]]></Implementation>
+</Method>
+
+<Method name="GeefBreedte">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Decimal</ReturnType>
+<Implementation><![CDATA[
+	#dim Breedte As %Decimal = ..CorpusBreedteBepaler.GeefInbouwBreedte(IngegevenKenmerken)
+	
+	If (IngegevenKenmerken.%Extends(##class(DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerkenv01).%ClassName(1))) {
+		If (IngegevenKenmerken.Klasse = ##class(DOM.PM.enu.LBXKlasse).Spoelbak()) {
+			Set Breedte = 316
+		}
+	}
+	
+	Set Breedte = Breedte + (2 * ..#KartonDikte)
+	
+	Quit Breedte
+]]></Implementation>
+</Method>
+
+<Method name="GeefDiepte">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim Diepte As %Integer = +IngegevenKenmerken.LadeDiepte
+	
+	If (Diepte < 520)  {
+		Set Diepte = 520
+	} Else {
+		Set Diepte = 670
+	}
+	
+	If ..HeeftHogeRug(IngegevenKenmerken) {
+		Set Diepte = Diepte + ..#DiepteHogeRug	
+	}
+	
+	Quit Diepte
+]]></Implementation>
+</Method>
+
+<Method name="GeefHoogte">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim Hoogte As %Integer = 0
+	#dim LadeHoogte As %Integer = 0
+	#dim RugHoogte As %Integer = 0
+	
+	If (IngegevenKenmerken.%ClassName(1) = ##class(DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).%ClassName(1)) {
+		Set LadeHoogte = ..MVXLadeUtils.GeefFysiekeLadeHoogteMM(IngegevenKenmerken.LadeHoogte, IngegevenKenmerken.IsBinnenlade)
+		Set RugHoogte = ..MVXLadeUtils.GeefFysiekeLadeHoogteMM(IngegevenKenmerken.RugHoogte, IngegevenKenmerken.IsBinnenlade)
+	} ElseIf (IngegevenKenmerken.%ClassName(1) = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%ClassName(1)) {
+		Set LadeHoogte = ..TBXLadeUtils.GeefFysiekeLadeHoogteMM(IngegevenKenmerken.LadeHoogte, IngegevenKenmerken.IsBinnenlade)
+		Set RugHoogte = ..TBXLadeUtils.GeefFysiekeLadeHoogteMM(IngegevenKenmerken.RugHoogte, IngegevenKenmerken.IsBinnenlade)
+	} ElseIf (IngegevenKenmerken.%Extends(##class(DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerkenv01).%ClassName(1))) {
+		Set LadeHoogte = ..LBXLadeUtils.GeefFysiekeLadeHoogteMM(IngegevenKenmerken.LadeHoogte, IngegevenKenmerken.IsBinnenlade)
+		Set RugHoogte = ..LBXLadeUtils.GeefFysiekeLadeHoogteMM(IngegevenKenmerken.RugHoogte, IngegevenKenmerken.IsBinnenlade)
+	} Else {
+		#dim FoutboodschapKlasse As %String = "Klassenaam '"_ IngegevenKenmerken.%ClassName(1)  _"' is niet geimplementeerd in de stackingservice requestbuilder."
+		Do ..Logger.ErrorMail("Requestbuilder", FoutboodschapKlasse)
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New(FoutboodschapKlasse))
+		
+	}
+	
+	If ((LadeHoogte = 0) || (RugHoogte = 0)) {
+		#dim FoutboodschapHoogte As %String = "Hoogte kon niet worden bepaald."
+		Do ..Logger.Error("Requestbuilder", FoutboodschapHoogte)
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New(FoutboodschapHoogte))
+	}
+	
+	If (RugHoogte > LadeHoogte) {
+		Set Hoogte = RugHoogte
+	} Else {
+		Set Hoogte = LadeHoogte	
+	}
+	
+	If (..HeeftHogeRug(IngegevenKenmerken)) {
+		If (IngegevenKenmerken.%ClassName(1) = ##class(DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).%ClassName(1)) {
+			Set Hoogte = ..MVXLadeUtils.GeefFysiekeLadeHoogteMM(IngegevenKenmerken.ZijkantHoogte, IngegevenKenmerken.IsBinnenlade)
+		} ElseIf (IngegevenKenmerken.%ClassName(1) = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%ClassName(1)) {
+			Set Hoogte = ..MVXLadeUtils.GeefFysiekeLadeHoogteMM(IngegevenKenmerken.ZijkantHoogte, IngegevenKenmerken.IsBinnenlade)
+		}
+	}
+	
+	Set Hoogte = Hoogte + (2 * ..#KartonDikte)
+	
+	Quit Hoogte
+]]></Implementation>
+</Method>
+
+<Method name="GeefHoogteHogeRug">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim Hoogte As %Integer = 0
+	
+	If (..HeeftHogeRug(IngegevenKenmerken)) {
+		If (IngegevenKenmerken.%ClassName(1) = ##class(DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).%ClassName(1)) {
+			Set Hoogte = ..MVXLadeUtils.GeefFysiekeLadeHoogteMM(IngegevenKenmerken.ZijkantHoogte, IngegevenKenmerken.IsBinnenlade)
+		} ElseIf (IngegevenKenmerken.%ClassName(1) = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%ClassName(1)) {
+			Set Hoogte = ..MVXLadeUtils.GeefFysiekeLadeHoogteMM(IngegevenKenmerken.ZijkantHoogte, IngegevenKenmerken.IsBinnenlade)
+		}
+	}
+	
+	Set Hoogte = Hoogte + (2 * ..#KartonDikte)
+	
+	Quit Hoogte
+]]></Implementation>
+</Method>
+
+<Method name="HeeftHogeRug">
+<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim HeeftHogeRug As %Boolean = $$$False	
+	
+	If (IngegevenKenmerken.%ClassName(1) = ##class(DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).%ClassName(1)) {
+		Set:(IngegevenKenmerken.IsBinnenlade && $$$Not(IngegevenKenmerken.ZijwandType = ##class(DOM.PM.enu.MVXZijWandType).Pure())) HeeftHogeRug = $$$True
+	} ElseIf (IngegevenKenmerken.%ClassName(1) = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%ClassName(1)) {
+		Set:(IngegevenKenmerken.IsBinnenlade && (IngegevenKenmerken.ZijwandVerhogingType = ##class(DOM.PM.enu.TBXZijwandVerhogingType).Reling())) HeeftHogeRug = $$$True
+	}
+	
+	Quit HeeftHogeRug
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Verpakking/dto/StackingSerivce/Response/SequenceData.cls.xml
===================================================================
diff -u
--- APPS/Verpakking/dto/StackingSerivce/Response/SequenceData.cls.xml	(revision 0)
+++ APPS/Verpakking/dto/StackingSerivce/Response/SequenceData.cls.xml	(revision 74468)
@@ -0,0 +1,36 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Verpakking.dto.StackingSerivce.Response.SequenceData">
+<Super>TECH.DataTransferObject</Super>
+
+<Parameter name="XMLNAME">
+<Default>StackingSerivce.Response.SequenceData</Default>
+</Parameter>
+
+<Parameter name="XMLSEQUENCE">
+<Default>1</Default>
+</Parameter>
+
+<Parameter name="XMLTYPE">
+<Default>StackingSerivce.Response.SequenceData</Default>
+</Parameter>
+
+<Property name="Id">
+<Type>%String</Type>
+</Property>
+
+<Property name="ProductionSequence">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="StackingPosition">
+<Type>%String</Type>
+</Property>
+
+<Property name="StackingImage">
+<Type>%String</Type>
+</Property>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/APPS/Verpakking/StackingService/RequestBuilder.cls.xml
===================================================================
diff -u
--- vhTest/Fake/APPS/Verpakking/StackingService/RequestBuilder.cls.xml	(revision 0)
+++ vhTest/Fake/APPS/Verpakking/StackingService/RequestBuilder.cls.xml	(revision 74468)
@@ -0,0 +1,26 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.APPS.Verpakking.StackingService.RequestBuilder">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.Verpakking.StackingService.RequestBuilder</Super>
+
+<Method name="GeefBoxId">
+<FormalSpec>ProductieSequentieItem:APPS.Halux.common.ProductieSequentieItem</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="MaakRequest">
+<FormalSpec>ProductieSequentieItemIterator:TECH.Iterator</FormalSpec>
+<ReturnType>APPS.Verpakking.dto.StackingSerivce.Request</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/APPS/Verpakking/StackingService/RequestBuilder.cls.xml
===================================================================
diff -u
--- vhTest/Mock/APPS/Verpakking/StackingService/RequestBuilder.cls.xml	(revision 0)
+++ vhTest/Mock/APPS/Verpakking/StackingService/RequestBuilder.cls.xml	(revision 74468)
@@ -0,0 +1,33 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.APPS.Verpakking.StackingService.RequestBuilder">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.Verpakking.StackingService.RequestBuilder,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="%OnNew">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefBoxId">
+<FormalSpec>ProductieSequentieItem:APPS.Halux.common.ProductieSequentieItem</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefBoxId",ProductieSequentieItem)
+]]></Implementation>
+</Method>
+
+<Method name="MaakRequest">
+<FormalSpec>ProductieSequentieItemIterator:TECH.Iterator</FormalSpec>
+<ReturnType>APPS.Verpakking.dto.StackingSerivce.Request</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("MaakRequest",ProductieSequentieItemIterator)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/SequentieOptiesGenerator/GenereerOptiesVoorLade/Test.cls.xml
===================================================================
diff -u -r72532 -r74468
--- vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/SequentieOptiesGenerator/GenereerOptiesVoorLade/Test.cls.xml	(.../Test.cls.xml)	(revision 72532)
+++ vhUnitTest/APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/SequentieOptiesGenerator/GenereerOptiesVoorLade/Test.cls.xml	(.../Test.cls.xml)	(revision 74468)
@@ -9,21 +9,24 @@
 	#dim SequentieNummer As %Integer = 2
 	#dim DeelAantal As %Integer = 3
 	#dim TotaalAantal As %Integer = 4
+	#dim Afbeelding As %String = "DummyAfbeelding"
 	
 	Set UitvoeringInfo = ##class(APPS.Halux.PPS.Activiteit.impl.common.dto.BatchNaarObjectiveUitvoeringInfo).%New()
 	Set UitvoeringInfo.SequentieNummerLade = SequentieNummerLade
 	Set UitvoeringInfo.SequentieNummer = SequentieNummer
 	Set UitvoeringInfo.DeelAantal = DeelAantal
 	Set UitvoeringInfo.TotaalAantal = TotaalAantal
+	Set UitvoeringInfo.StapelAfbeelding = Afbeelding
 	
 	Set Generator = ##class(APPS.Halux.PPS.Document.impl.common.BatchNaarObjective.OptieGenerator.SequentieOptiesGenerator).%New()
 	#dim Resultaat As %ListOfObjects = Generator.GenereerOptiesVoorLade(, UitvoeringInfo)
 	
-	Do $$$AssertEquals(Resultaat.Size, 3)
+	Do $$$AssertEquals(Resultaat.Size, 4)
 	
 	Do ..AssertOptie(Resultaat.GetAt(1), "LADE 00" _ SequentieNummerLade, "00" _ SequentieNummerLade _ "-SEQ", SequentieNummerLade)
 	Do ..AssertOptie(Resultaat.GetAt(2), "LADE 00" _ SequentieNummerLade, "00" _ SequentieNummerLade _ "-SEQbinnenbatch", SequentieNummer)
 	Do ..AssertOptie(Resultaat.GetAt(3), "LADE 00" _ SequentieNummerLade, "00" _ SequentieNummerLade _ "-Aantalvantotaalaantal", DeelAantal _ "/" _ TotaalAantal)
+	Do ..AssertOptie(Resultaat.GetAt(4), "LADE 00" _ SequentieNummerLade, "00" _ SequentieNummerLade _ "-StapelAfbeelding", Afbeelding)
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/Halux/common/ProductieSequentie.cls.xml
===================================================================
diff -u -r73777 -r74468
--- APPS/Halux/common/ProductieSequentie.cls.xml	(.../ProductieSequentie.cls.xml)	(revision 73777)
+++ APPS/Halux/common/ProductieSequentie.cls.xml	(.../ProductieSequentie.cls.xml)	(revision 74468)
@@ -44,6 +44,16 @@
 <Private>1</Private>
 </Property>
 
+<Property name="StackingServiceRequestBuilder">
+<Type>APPS.Verpakking.StackingService.RequestBuilder</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
+<Private>1</Private>
+</Property>
+
 <Index name="idxBatchID">
 <Properties>BatchID</Properties>
 </Index>
@@ -59,11 +69,105 @@
 	Set ..SequentieItems = ##class(%ListOfObjects).%New()
 	Set ..Categorie = Batch.GeefCategorie()
 	Set ..DnaCodeService = ##class(APPS.Halux.AAP.DnaCodeService).%New()
+	Set ..StackingServiceRequestBuilder = ##class(APPS.Verpakking.StackingService.RequestBuilder).%New()
+	Set ..Logger = ##class(vhLib.Logger).%New("StackingService .NET")
 	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
+<Method name="GeefParsedStackingResponse">
+<FormalSpec>StackingServiceRequest:APPS.Verpakking.dto.StackingSerivce.Request</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.Verpakking.dto.StackingSerivce.Response</ReturnType>
+<Implementation><![CDATA[
+	#dim HttpRequest As %Net.HttpRequest = ..MaakStackingServiceHttpRequest(StackingServiceRequest)
+	#dim StatusCode As %Status = HttpRequest.Post("/Stacking/GetProboxSequence",0)
+	Do ..ValideerResponse(StatusCode, HttpRequest)
+	
+	Set Response = HttpRequest.HttpResponse.Data
+	Do ..Logger.Debug("StackingService response", Response)
+	#dim StackingResponse As APPS.Verpakking.dto.StackingSerivce.Response = ..ParseJsonStreamNaarObject(Response, ##class(APPS.Verpakking.dto.StackingSerivce.Response).%ClassName(1))
+	
+	Quit StackingResponse
+]]></Implementation>
+</Method>
+
+<Method name="MaakStackingServiceHttpRequest">
+<FormalSpec>StackingServiceRequest:APPS.Verpakking.dto.StackingSerivce.Request</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Net.HttpRequest</ReturnType>
+<Implementation><![CDATA[
+	#dim RequestString As %String = ..ObjectToJson(StackingServiceRequest)
+	#dim JSONStream = ##class(%Stream.GlobalBinary).%New()
+	
+	Do JSONStream.Write(RequestString)
+	
+	Do ..Logger.Debug("StackingService request", JSONStream)
+	
+	Set HttpRequest = ##class(%Net.HttpRequest).%New()
+ 	Set HttpRequest.Server = "stackingservice-tst.vanhoecke.be"
+ 	Set HttpRequest.ContentType = "application/json"
+ 	Set HttpRequest.ContentEncoding = "UTF-8"
+ 	Set HttpRequest.SSLConfiguration = "DotNet_MaatwerkCalculator"
+	Set HttpRequest.Https = 1
+	Set HttpRequest.Timeout = 15
+	Do HttpRequest.EntityBody.CopyFrom(JSONStream)
+	
+	Quit HttpRequest
+]]></Implementation>
+</Method>
+
+<Method name="ObjectToJson">
+<FormalSpec>StackingServiceRequest:APPS.Verpakking.dto.StackingSerivce.Request</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim OutputJsonString As %String
+	
+	#dim ParseStatus As %Status = ##class(TECH.JSON.ParserIntersystemsVersion).ObjectToJSONZonderKlasseNaam(StackingServiceRequest,,,.OutputJsonString)
+	
+	Quit OutputJsonString
+]]></Implementation>
+</Method>
+
+<Method name="ParseJsonStreamNaarObject">
+<FormalSpec>JsonStream:%Stream,RootObjectClassname:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.RegisteredObject</ReturnType>
+<Implementation><![CDATA[
+	#dim Object As TECH.RegisteredObject = ""
+	
+	Do JsonStream.Rewind()
+	Do ##class(TECH.JSON.Parser).ParseJSON(JsonStream, RootObjectClassname, .Object)
+	
+	If $$$Not($IsObject(Object)) {
+		Do ##class(TECH.Exceptions.GeneralErrorException).Throw("De method ParseJsonStreamNaarObject() heeft geen object opgeleverd voor klasse '"_RootObjectClassname_"' (JsonStream.length = '"_JsonStream.Size_"').")
+	}
+	
+	Quit Object
+]]></Implementation>
+</Method>
+
+<Method name="ValideerResponse">
+<FormalSpec>Status:%Status,HttpRequest:%Net.HttpRequest</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(Status,"Fout bij opvragen optimalisatie stapeling via stackingservice HttpRequest to "_HttpRequest.Server_" failed.")
+	
+	If ($IsObject(HttpRequest.HttpResponse)) {
+		If $$$Not(HttpRequest.HttpResponse.StatusCode = 200) {
+			#dim ErrorInfo as %String = HttpRequest.HttpResponse.Data.Read(HttpRequest.HttpResponse.Data.Size)
+			Set Exception = ##class(TECH.Exceptions.AbstractOmschrijvingException).%New("Fout bij opvragen optimalisatie stapeling via stackingservice: HttpRequest to "_HttpRequest.Server_" failed. " _ $$$CRLF _ HttpRequest.HttpResponse.ReasonPhrase _ $$$CRLF _ ErrorInfo)
+			Do ##class(TECH.ExceptionHandler).Throw(Exception)
+		}
+	}
+	Else {
+		Do ##class(TECH.Exceptions.GeneralErrorException).Throw("Fout bij opvragen optimalisatie stapeling via stackingservice: HttpResponse is onverwacht leeg. HttpRequest to "_HttpRequest.Server_" failed.")
+	}
+]]></Implementation>
+</Method>
+
 <Method name="MaakLegeClone">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>BronSequentie:APPS.Halux.common.ProductieSequentie</FormalSpec>
@@ -378,6 +482,42 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VulAanSorteringVoorProductieSequentieItemsViaVolumetrie">
+<FormalSpec><![CDATA[&Sortering:TECH.MultiDim,ProductLijnIterator:TECH.Iterator,Toelevering:DOM.AKP.Toelevering]]></FormalSpec>
+<Implementation><![CDATA[
+	#dim ProductieSequentieItems As %ListOfObjects = ##class(%ListOfObjects).%New()
+	
+	While (ProductLijnIterator.HasNext()) {
+		#dim ProductToeleveringLijn As DOM.AKP.ProductToeleveringLijn = ProductLijnIterator.Next()
+		Set ProductieSequentieItems = ##class(TECH.ListUtils).ConcatenateLists(ProductieSequentieItems,..MaakProductieSequentieItems(Toelevering, ProductToeleveringLijn))
+	}
+	Set ProductLijnIterator = ##class(TECH.ListIterator).%New(ProductieSequentieItems)
+	#dim StackingRequest As APPS.Verpakking.dto.StackingSerivce.Request = ..StackingServiceRequestBuilder.MaakRequest(ProductLijnIterator)
+	#dim StackingResponse As APPS.Verpakking.dto.StackingSerivce.Response = ..GeefParsedStackingResponse(StackingRequest)
+	
+	#dim ProductieSequentieItemsIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(ProductieSequentieItems)
+	#dim SequenceDataIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(StackingResponse.BoxSequence)
+	#dim MatchGevonden As %Boolean = $$$False
+	
+	While ProductieSequentieItemsIterator.HasNext() {
+		#dim ProductieSequentieItem As APPS.Halux.common.ProductieSequentieItem = ProductieSequentieItemsIterator.Next()
+		
+		While SequenceDataIterator.HasNext() && $$$Not(MatchGevonden)
+		{
+			#dim SequenceData As APPS.Verpakking.dto.StackingSerivce.Response.SequenceData = SequenceDataIterator.Next()
+			
+			If (..StackingServiceRequestBuilder.GeefBoxId(ProductieSequentieItem) = SequenceData.Id) {
+				Set MatchGevonden = $$$True
+				Set Sortering(SequenceData.ProductionSequence) = ProductieSequentieItem
+				Set ProductieSequentieItem.StapelAfbeelding = SequenceData.StackingImage
+			}
+		}
+		Do SequenceDataIterator.Reset()
+		Set MatchGevonden = $$$False
+	}
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^APPS.Halux8081.ProductieSeqFA5D</DataLocation>
@@ -404,6 +544,12 @@
 <Value name="6">
 <Value>DnaCodeService</Value>
 </Value>
+<Value name="7">
+<Value>StackingServiceRequestBuilder</Value>
+</Value>
+<Value name="8">
+<Value>Logger</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: APPS/Verpakking/dto/StackingSerivce/Request.cls.xml
===================================================================
diff -u
--- APPS/Verpakking/dto/StackingSerivce/Request.cls.xml	(revision 0)
+++ APPS/Verpakking/dto/StackingSerivce/Request.cls.xml	(revision 74468)
@@ -0,0 +1,29 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Verpakking.dto.StackingSerivce.Request">
+<Super>TECH.DataTransferObject</Super>
+
+<Parameter name="XMLNAME">
+<Default>StackingSerivce.Request</Default>
+</Parameter>
+
+<Parameter name="XMLSEQUENCE">
+<Default>1</Default>
+</Parameter>
+
+<Parameter name="XMLTYPE">
+<Default>StackingSerivce.Request</Default>
+</Parameter>
+
+<Property name="ProductionOrder">
+<Type>APPS.Verpakking.dto.StackingSerivce.Request.ProductionOrder</Type>
+</Property>
+
+<Property name="Boxes">
+<Type>APPS.Verpakking.dto.StackingSerivce.Request.Box</Type>
+<Collection>list</Collection>
+</Property>
+</Class>
+
+
+</Export>
Index: APPS/Halux/common/impl/ProductieSequentie/Legrabox.cls.xml
===================================================================
diff -u -r71956 -r74468
--- APPS/Halux/common/impl/ProductieSequentie/Legrabox.cls.xml	(.../Legrabox.cls.xml)	(revision 71956)
+++ APPS/Halux/common/impl/ProductieSequentie/Legrabox.cls.xml	(.../Legrabox.cls.xml)	(revision 74468)
@@ -12,24 +12,29 @@
 	#dim Batch As APPS.Halux.common.Batch = ..GeefBatch()
 	#dim ToeleveringIterator As TECH.Iterator = Batch.GeefToeleveringIterator()
 	#dim SequentieNummer As %Integer = 0
-	
+	#dim ProductieGroepMetVolumetrie As %Boolean = (Batch.GeefProductieGroep() = ##class(APPS.Halux.common.enu.ProductieGroep).Probox())
+	#dim MesFaseActief As %Integer = ##class(TECH.Config.ConfigMgr).Instance().GeefString("APPS.Halux.PPS.Document.impl.BatchNaarObjective_MESFase")
+		
 	While (ToeleveringIterator.HasNext()) {
 		#dim Toelevering As DOM.AKP.Toelevering = ToeleveringIterator.Next()
-
+		
 		Kill Sortering
 		
 		#dim ProductLijnIterator As TECH.Iterator = Toelevering.GeefTypeToeleveringLijnIterator(##class(DOM.AKP.enu.ToeleveringLijnType).Product())
 		
-		While (ProductLijnIterator.HasNext()) {
-			#dim ProductLijn As DOM.AKP.ProductToeleveringLijn = ProductLijnIterator.Next()
+		If ((MesFaseActief > 1) && (ProductieGroepMetVolumetrie) && (Toelevering.GeefAantalProducten() > 1) && $$$Not((##class(TECH.StringUtils).Equals(##class(TECH.Context.RuntimeContext).Instance().GeefApplicatie(), "UnitTest", "IntegratieTest")))) {
+			Do ..VulAanSorteringVoorProductieSequentieItemsViaVolumetrie(.Sortering, ProductLijnIterator, Toelevering)			
+		} Else {		
+			While (ProductLijnIterator.HasNext()) {
+				#dim ProductLijn As DOM.AKP.ProductToeleveringLijn = ProductLijnIterator.Next()
 
-			// TODOPA vertaling van ProductID As %String naar DOM.common.ProductID
-			#dim MaatwerkProduct As DOM.PM.MaatwerkProduct = ProductTypeAPI.GeefMaatwerkProduct(ProductLijn.GeefProductID())
-			#dim ProductieSequentieItems As %ListOfObjects = ..MaakProductieSequentieItems(Toelevering, ProductLijn)
-			
-			Do ..VulAanSorteringVoorProductieSequentieItems(.Sortering, ProductieSequentieItems, MaatwerkProduct)
+				// TODOPA vertaling van ProductID As %String naar DOM.common.ProductID
+				#dim MaatwerkProduct As DOM.PM.MaatwerkProduct = ProductTypeAPI.GeefMaatwerkProduct(ProductLijn.GeefProductID())
+				#dim ProductieSequentieItems As %ListOfObjects = ..MaakProductieSequentieItems(Toelevering, ProductLijn)
+				
+				Do ..VulAanSorteringVoorProductieSequentieItems(.Sortering, ProductieSequentieItems, MaatwerkProduct)
+			}
 		}
-
 		Do ##class(TECH.ListUtils).AppendList(..SequentieItems, ..GeefGesorteerdeProductieSequentieItems(.Sortering, .SequentieNummer))
 	}
 ]]></Implementation>
@@ -64,6 +69,7 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#define LeftPad4(%v)    (10000-%v)
+	
 	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken = MaatwerkProduct.GeefProductSpecificatie().GeefIngegevenKenmerken()
 	#dim SorteerSleutel As %String = $$$LeftPad4(IngegevenKenmerken.LadeDiepte)_"-"
 	Set SorteerSleutel = SorteerSleutel_$$$LeftPad4($Case(IngegevenKenmerken.LadeHoogte,"N":"10","M":"20","K":"30","C":"40","F":"50",:"999"))_"-"
Index: APPS/Halux/PPS/impl/UitvoeringInfoInvuller.cls.xml
===================================================================
diff -u -r29059 -r74468
--- APPS/Halux/PPS/impl/UitvoeringInfoInvuller.cls.xml	(.../UitvoeringInfoInvuller.cls.xml)	(revision 29059)
+++ APPS/Halux/PPS/impl/UitvoeringInfoInvuller.cls.xml	(.../UitvoeringInfoInvuller.cls.xml)	(revision 74468)
@@ -34,6 +34,7 @@
 	#dim Product As DOM.PM.MaatwerkProduct = ..ProductTypeAPI.GeefMaatwerkProduct(Item.ProductID)
 	Set UitvoeringInfo.DossierCode = Product.GeefDossierCode()
 	Set UitvoeringInfo.IsRework = IsRework
+	Set UitvoeringInfo.StapelAfbeelding = Item.StapelAfbeelding
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/Verpakking/dto/StackingSerivce/Request/ProductionOrder.cls.xml
===================================================================
diff -u
--- APPS/Verpakking/dto/StackingSerivce/Request/ProductionOrder.cls.xml	(revision 0)
+++ APPS/Verpakking/dto/StackingSerivce/Request/ProductionOrder.cls.xml	(revision 74468)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Verpakking.dto.StackingSerivce.Request.ProductionOrder">
+<Super>TECH.DataTransferObject</Super>
+
+<Property name="CustomerId">
+<Type>%String</Type>
+</Property>
+
+<Property name="PersonalityId">
+<Type>%String</Type>
+</Property>
+
+<Property name="OrderId">
+<Type>%String</Type>
+</Property>
+</Class>
+
+
+</Export>
Index: APPS/Verpakking/dto/StackingSerivce/Request/Box.cls.xml
===================================================================
diff -u
--- APPS/Verpakking/dto/StackingSerivce/Request/Box.cls.xml	(revision 0)
+++ APPS/Verpakking/dto/StackingSerivce/Request/Box.cls.xml	(revision 74468)
@@ -0,0 +1,56 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Verpakking.dto.StackingSerivce.Request.Box">
+<Super>TECH.DataTransferObject</Super>
+
+<Property name="Id">
+<Type>%String</Type>
+</Property>
+
+<Property name="Shape">
+<Type>%String</Type>
+<InitialExpression>"Normal"</InitialExpression>
+</Property>
+
+<Property name="Weight">
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="Description">
+<Type>%String</Type>
+</Property>
+
+<Property name="StackSortingKey">
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="Depth">
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="Width">
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="Height">
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="Quantity">
+<Type>%Decimal</Type>
+<InitialExpression>0</InitialExpression>
+</Property>
+
+<Property name="DepthHighBack">
+<Type>%Decimal</Type>
+<InitialExpression>0</InitialExpression>
+</Property>
+
+<Property name="HeightHighBack">
+<Type>%Decimal</Type>
+<InitialExpression>0</InitialExpression>
+</Property>
+</Class>
+
+
+</Export>
Index: APPS/Halux/common/impl/ProductieSequentie/Merivobox.cls.xml
===================================================================
diff -u -r71927 -r74468
--- APPS/Halux/common/impl/ProductieSequentie/Merivobox.cls.xml	(.../Merivobox.cls.xml)	(revision 71927)
+++ APPS/Halux/common/impl/ProductieSequentie/Merivobox.cls.xml	(.../Merivobox.cls.xml)	(revision 74468)
@@ -12,22 +12,28 @@
 	#dim Batch As APPS.Halux.common.Batch = ..GeefBatch()
 	#dim ToeleveringIterator As TECH.Iterator = Batch.GeefToeleveringIterator()
 	#dim SequentieNummer As %Integer = 0
-	
+	#dim ProductieGroepMetVolumetrie As %Boolean = (Batch.GeefProductieGroep() = ##class(APPS.Halux.common.enu.ProductieGroep).Probox())
+	#dim MesFaseActief As %Integer = ##class(TECH.Config.ConfigMgr).Instance().GeefString("APPS.Halux.PPS.Document.impl.BatchNaarObjective_MESFase")
+		
 	While (ToeleveringIterator.HasNext()) {
 		#dim Toelevering As DOM.AKP.Toelevering = ToeleveringIterator.Next()
-
+		
 		Kill Sortering
 		
 		#dim ProductLijnIterator As TECH.Iterator = Toelevering.GeefTypeToeleveringLijnIterator(##class(DOM.AKP.enu.ToeleveringLijnType).Product())
 		
-		While (ProductLijnIterator.HasNext()) {
-			#dim ProductLijn As DOM.AKP.ProductToeleveringLijn = ProductLijnIterator.Next()
+		If ((MesFaseActief > 1) && (ProductieGroepMetVolumetrie) && (Toelevering.GeefAantalProducten() > 1) && $$$Not((##class(TECH.StringUtils).Equals(##class(TECH.Context.RuntimeContext).Instance().GeefApplicatie(), "UnitTest", "IntegratieTest")))) {
+			Do ..VulAanSorteringVoorProductieSequentieItemsViaVolumetrie(.Sortering, ProductLijnIterator, Toelevering)			
+		} Else {		
+			While (ProductLijnIterator.HasNext()) {
+				#dim ProductLijn As DOM.AKP.ProductToeleveringLijn = ProductLijnIterator.Next()
 
-			// TODOPA vertaling van ProductID As %String naar DOM.common.ProductID
-			#dim MaatwerkProduct As DOM.PM.MaatwerkProduct = ProductTypeAPI.GeefMaatwerkProduct(ProductLijn.GeefProductID())
-			#dim ProductieSequentieItems As %ListOfObjects = ..MaakProductieSequentieItems(Toelevering, ProductLijn)
-			
-			Do ..VulAanSorteringVoorProductieSequentieItems(.Sortering, ProductieSequentieItems, MaatwerkProduct)
+				// TODOPA vertaling van ProductID As %String naar DOM.common.ProductID
+				#dim MaatwerkProduct As DOM.PM.MaatwerkProduct = ProductTypeAPI.GeefMaatwerkProduct(ProductLijn.GeefProductID())
+				#dim ProductieSequentieItems As %ListOfObjects = ..MaakProductieSequentieItems(Toelevering, ProductLijn)
+				
+				Do ..VulAanSorteringVoorProductieSequentieItems(.Sortering, ProductieSequentieItems, MaatwerkProduct)
+			}
 		}
 
 		Do ##class(TECH.ListUtils).AppendList(..SequentieItems, ..GeefGesorteerdeProductieSequentieItems(.Sortering, .SequentieNummer))
Index: APPS/Verpakking/dto/StackingSerivce/Response.cls.xml
===================================================================
diff -u
--- APPS/Verpakking/dto/StackingSerivce/Response.cls.xml	(revision 0)
+++ APPS/Verpakking/dto/StackingSerivce/Response.cls.xml	(revision 74468)
@@ -0,0 +1,33 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Verpakking.dto.StackingSerivce.Response">
+<Super>TECH.DataTransferObject</Super>
+
+<Parameter name="XMLNAME">
+<Default>StackingSerivce.Response</Default>
+</Parameter>
+
+<Parameter name="XMLSEQUENCE">
+<Default>1</Default>
+</Parameter>
+
+<Parameter name="XMLTYPE">
+<Default>StackingSerivce.Response</Default>
+</Parameter>
+
+<Property name="BoxSequence">
+<Type>APPS.Verpakking.dto.StackingSerivce.Response.SequenceData</Type>
+<Collection>list</Collection>
+</Property>
+
+<Property name="Timestamp">
+<Type>%String</Type>
+</Property>
+
+<Property name="TraceId">
+<Type>%String</Type>
+</Property>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/APPS/Halux/common/ProductieSequentieItem.cls.xml
===================================================================
diff -u -r30081 -r74468
--- vhTest/Fake/APPS/Halux/common/ProductieSequentieItem.cls.xml	(.../ProductieSequentieItem.cls.xml)	(revision 30081)
+++ vhTest/Fake/APPS/Halux/common/ProductieSequentieItem.cls.xml	(.../ProductieSequentieItem.cls.xml)	(revision 74468)
@@ -24,6 +24,26 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Delete">
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="OnDelete">
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="Save">
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
+<Method name="Validate">
+<Implementation><![CDATA[
+]]></Implementation>
+</Method>
+
 <Method name="Accept">
 <FormalSpec>Visitor:APPS.Halux.common.ProductieSequentieItemVisitor</FormalSpec>
 <Implementation><![CDATA[]]></Implementation>