Index: BL/PPS/OL/Inpak.cls.xml
===================================================================
diff -u -r31370 -r31371
--- BL/PPS/OL/Inpak.cls.xml	(.../Inpak.cls.xml)	(revision 31370)
+++ BL/PPS/OL/Inpak.cls.xml	(.../Inpak.cls.xml)	(revision 31371)
@@ -105,6 +105,23 @@
 <Parameter name="TRUNCATE" value="1"/>
 </Property>
 
+<Property name="MultiCountBepaler">
+<Type>BL.PPS.OL.Inpak.MultiCountBepaler</Type>
+<Private>1</Private>
+<Transient>1</Transient>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..MultiCountBepaler = ##class(BL.PPS.OL.Inpak.MultiCountBepaler).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="Open">
 <Description>
 Open : Initialiseren van object (properties + ophalen sequentie)</Description>
@@ -655,7 +672,7 @@
 			 /// of het product is wel geprint, en het is géén multicount (m/n) dwz dat product twee keer als lijn in de bon zit.
 			 /// Let op: pxInpakInfo.PRNr kan leeg zijn, als het object een verzameldoos (voor bvb matjes of viltclips) betreft.
 			 #dim isVerzameldoos As %Boolean = ("" = pxInpakInfo.PRNr)
-			 #dim AantalMultiCount As %Integer = ..GeefAantalMultiCount(pxInpakInfo.PRNr)
+			 #dim AantalMultiCount As %Integer = ..MultiCountBepaler.GeefAantalMultiCount(pxInpakInfo.PRNr)
 			 #dim ModuloFrequentieOpAantalMultiCount As %Integer = 1
 			 If 'isVerzameldoos {
 			 	Set ModuloFrequentieOpAantalMultiCount = ##class(TECH.Math).Modulo(GeprinteProducten.GeefFrequentieVanItem(pxInpakInfo.PRNr),AantalMultiCount)
@@ -809,7 +826,7 @@
 <Implementation><![CDATA[
 	#dim pxLabels As %ListOfObjects = ##class(%ListOfObjects).%New()
 	#dim pxLabel As BL.Sys.pxLabel = ..GeefProductLabel(BonID,ProductID,Aantal)
-	#dim MultiCount As %Integer = ..GeefAantalMultiCount(ProductID)
+	#dim MultiCount As %Integer = ..MultiCountBepaler.GeefAantalMultiCount(ProductID)
 	If MultiCount > 1 {
 		#dim Step As %Integer
 		For Step=1:1:MultiCount {
@@ -854,32 +871,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefAantalMultiCount">
-<Description>
-bepalen of er meer dan 1 doos is voor dit product
-EN bepalen of er meer dan 1 product in de doos zit</Description>
-<FormalSpec>ProductID:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[
-	#dim MultiCount As %Integer = 0
-	#dim Query As %String = "SELECT %ID as ID,CutOrder,Aantal, AantalExec FROM Prod.OptiBox_BoxData WHERE DeelVan IS NULL AND (ObjType=?) AND (ObjRef=?) ORDER BY CutOrder ASC"
-	#dim RS As %ResultSet = $$ExecDynQuery^vhLib.Query(Query,$LB("PR",ProductID))
-	While RS.Next(){
-		If '((RS.Data("Aantal")=-1)||(RS.Data("AantalExec")=-1)) ; Non-actief
-		{
-			#dim BoxData As DS.Prod.OptiBox.BoxData = ##class(DS.Prod.OptiBox.BoxData).%OpenId(RS.Data("ID"))
-			If (BoxData.Plaatsing = "INNER"){
-				Set MultiCount = MultiCount + 1
-			}
-		}	
-	}
-	Do RS.%Close()
-	Set RS = ""
-	Quit MultiCount
-]]></Implementation>
-</Method>
-
 <Method name="GeefProductLabelTulpSphinx">
 <FormalSpec>pxLabel:BL.Sys.pxLabel,PRNr:%String</FormalSpec>
 <Private>1</Private>
Index: BL/PPS/OL/Inpak/MultiCountBepaler.cls.xml
===================================================================
diff -u
--- BL/PPS/OL/Inpak/MultiCountBepaler.cls.xml	(revision 0)
+++ BL/PPS/OL/Inpak/MultiCountBepaler.cls.xml	(revision 31371)
@@ -0,0 +1,33 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="BL.PPS.OL.Inpak.MultiCountBepaler">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="GeefAantalMultiCount">
+<Description>
+bepalen of er meer dan 1 doos is voor dit product
+EN bepalen of er meer dan 1 product in de doos zit</Description>
+<FormalSpec>ProductID:%String</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim MultiCount As %Integer = 0
+	#dim Query As %String = "SELECT %ID as ID,CutOrder,Aantal, AantalExec FROM Prod.OptiBox_BoxData WHERE DeelVan IS NULL AND (ObjType=?) AND (ObjRef=?) ORDER BY CutOrder ASC"
+	#dim RS As %ResultSet = $$ExecDynQuery^vhLib.Query(Query,$LB("PR",ProductID))
+	While RS.Next(){
+		If '((RS.Data("Aantal")=-1)||(RS.Data("AantalExec")=-1)) ; Non-actief
+		{
+			#dim BoxData As DS.Prod.OptiBox.BoxData = ##class(DS.Prod.OptiBox.BoxData).%OpenId(RS.Data("ID"))
+			If (BoxData.Plaatsing = "INNER"){
+				Set MultiCount = MultiCount + 1
+			}
+		}	
+	}
+	Do RS.%Close()
+	Set RS = ""
+	Quit MultiCount
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>