Index: BL/PPS/TBX/DocsV1.cls.xml
===================================================================
diff -u -r56114 -r56942
--- BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 56114)
+++ BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 56942)
@@ -1480,7 +1480,7 @@
 <FormalSpec>Toelevering:DOM.AKP.Toelevering</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[	quit ..BepaalProboxAantal(Toelevering) + ..BepaalProcomAantal(Toelevering)
+<Implementation><![CDATA[	quit ..BepaalProboxAantal(Toelevering) + ..BepaalProcomAantal(Toelevering) + ..BepaalFlatpackProboxAantal(Toelevering)
 ]]></Implementation>
 </Method>
 
@@ -1540,6 +1540,37 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BepaalFlatpackProboxAantal">
+<FormalSpec>Toelevering:DOM.AKP.Toelevering</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	#Define AantalLadenPerHoeveelEenOverdoosEtiketNodigIs	4
+	
+	#dim Aantal As %Integer = 0
+	
+	#dim ToeleveringLijnIterator As TECH.Iterator = Toelevering.GeefTypeToeleveringLijnIterator(##class(DOM.AKP.enu.ToeleveringLijnType).Product())
+	While ToeleveringLijnIterator.HasNext() {
+		#dim ToeleveringLijn As DOM.AKP.impl.DataM.DataMProductToeleveringLijn = ToeleveringLijnIterator.Next()
+		Set FlatpackProboxAantalBepaler = ##class(BL.PPS.common.impl.FlatpackProboxAantalBepaler).%New()
+		Try {
+			Set BezoekbaarProduct = ##class(DOM.PM.BezoekbaarProduct).%New(ToeleveringLijn.GeefProductID())
+			Do FlatpackProboxAantalBepaler.Reset()
+			Do BezoekbaarProduct.Accept(FlatpackProboxAantalBepaler)
+			Set Aantal = Aantal + (FlatpackProboxAantalBepaler.GeefAantal() * ToeleveringLijn.GeefAantal())
+		}Catch {
+			#dim Exceptie As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+			If '((Exceptie.GeefOmschrijving()["METHOD DOES NOT EXIST") && (Exceptie.GeefOmschrijving()["GeefVerpakking"))
+			{
+				Do ##class(TECH.ExceptionHandler).Rethrow(Exceptie)	
+			}
+		}
+	}
+	
+	Quit (Aantal / $$$AantalLadenPerHoeveelEenOverdoosEtiketNodigIs)
+]]></Implementation>
+</Method>
+
 <Method name="PalletEtikettenZonderLogo">
 <FormalSpec>AantalEtikettenZonderLogo:%Integer</FormalSpec>
 <Implementation><![CDATA[
Index: BL/PPS/common/impl/FlatpackProboxAantalBepaler.cls.xml
===================================================================
diff -u
--- BL/PPS/common/impl/FlatpackProboxAantalBepaler.cls.xml	(revision 0)
+++ BL/PPS/common/impl/FlatpackProboxAantalBepaler.cls.xml	(revision 56942)
@@ -0,0 +1,50 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="BL.PPS.common.impl.FlatpackProboxAantalBepaler">
+<Description>
+Bepaalt het volume-aandeel van een lade voor probox.  Geeft 0 terug als het niet gaat om een lade met FlatpackProbox-verpakking</Description>
+<Super>DOM.PM.BezoekbaarProductVisitor</Super>
+
+<Property name="Aantal">
+<Type>%Integer</Type>
+<InitialExpression>0</InitialExpression>
+<Private>1</Private>
+</Property>
+
+<Method name="VerwerkLegraboxProduct">
+<FormalSpec>ProductID:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+</Method>
+
+<Method name="VerwerkTAORboxProduct">
+<FormalSpec>ProductID:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	#dim ProductTypeAPI As DOM.PM.ProductTypeAPI = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI()
+	#dim MaatwerkProduct As DOM.PM.MaatwerkProduct = ProductTypeAPI.GeefMaatwerkProduct(ProductID)
+	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = MaatwerkProduct.GeefProductSpecificatie().GeefIngegevenKenmerken()
+	If (IngegevenKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).FlatpackProbox()) {
+		Set ..Aantal = 1
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkTandemboxProduct">
+<FormalSpec>ProductID:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+</Method>
+
+<Method name="Reset">
+<Implementation><![CDATA[	Set ..Aantal = 0
+]]></Implementation>
+</Method>
+
+<Method name="GeefAantal">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit ..Aantal
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>