Index: BL/PPS/common/impl/FlatpackProcomAantalBepaler.cls.xml
===================================================================
diff -u
--- BL/PPS/common/impl/FlatpackProcomAantalBepaler.cls.xml	(revision 0)
+++ BL/PPS/common/impl/FlatpackProcomAantalBepaler.cls.xml	(revision 38548)
@@ -0,0 +1,50 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="BL.PPS.common.impl.FlatpackProcomAantalBepaler">
+<Description>
+Bepaalt het volume-aandeel van een lade voor probox.  Geeft 0 terug als het niet gaat om een lade met probox-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).FlatpackProcom()) {
+		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>
Index: BL/PPS/TBX/DocsV1.cls.xml
===================================================================
diff -u -r38545 -r38548
--- BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 38545)
+++ BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 38548)
@@ -1400,16 +1400,23 @@
 <Private>1</Private>
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[
-	#dim Aantal As %Float = 0
+	#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()
-		#dim ProductTypeAPI As DOM.PM.ProductTypeAPI = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI()
-		#dim MaatwerkProduct As DOM.PM.MaatwerkProduct = ProductTypeAPI.GeefMaatwerkProduct(ToeleveringLijn.GeefProductID())
-		#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = MaatwerkProduct.GeefProductSpecificatie().GeefIngegevenKenmerken()
-		If (IngegevenKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).FlatpackProcom()){
-			Set Aantal = 1
+		Set FlatpackProcomAantalBepaler = ##class(BL.PPS.common.impl.FlatpackProcomAantalBepaler).%New()
+		Try {
+			Set BezoekbaarProduct = ##class(DOM.PM.BezoekbaarProduct).%New(ToeleveringLijn.GeefProductID())
+			Do FlatpackProcomAantalBepaler.Reset()
+			Do BezoekbaarProduct.Accept(FlatpackProcomAantalBepaler)
+			Set Aantal = Aantal + FlatpackProcomAantalBepaler.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)	
+			}
 		}
 	}