Index: vhUnitTest/BL/PPS/OL/DummyInpak.cls.xml
===================================================================
diff -u
--- vhUnitTest/BL/PPS/OL/DummyInpak.cls.xml	(revision 0)
+++ vhUnitTest/BL/PPS/OL/DummyInpak.cls.xml	(revision 31370)
@@ -0,0 +1,38 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.BL.PPS.OL.DummyInpak">
+<Super>BL.PPS.OL.Inpak</Super>
+
+<Method name="LabelDataFromBon">
+<FormalSpec>BONNr:%String,pxLabel:BL.Sys.pxLabel</FormalSpec>
+<Implementation><![CDATA[	Do ##super(.BONNr, .pxLabel)
+]]></Implementation>
+</Method>
+
+<Method name="LabelDataFromProduct">
+<FormalSpec>PRNr:%String,pxLabel:BL.Sys.pxLabel</FormalSpec>
+<Implementation><![CDATA[	Do ##super(.PRNr, .pxLabel)
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductLabel">
+<FormalSpec>BonID:%String,ProductID:%String,Aantal:%Integer</FormalSpec>
+<ReturnType>BL.Sys.pxLabel</ReturnType>
+<Implementation><![CDATA[	Quit ##super(.BonID, .ProductID, .Aantal)
+]]></Implementation>
+</Method>
+
+<Method name="PrintProductBarePrepare">
+<FormalSpec>BonID:%String,ProductID:%String,Aantal:%Integer</FormalSpec>
+<ReturnType>BL.Sys.LabelPrinter</ReturnType>
+<Implementation><![CDATA[	Quit ##super(.BonID, .ProductID, .Aantal)
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+</Storage>
+</Class>
+
+
+</Export>
Index: BL/PPS/OL/Inpak.cls.xml
===================================================================
diff -u -r29059 -r31370
--- BL/PPS/OL/Inpak.cls.xml	(.../Inpak.cls.xml)	(revision 29059)
+++ BL/PPS/OL/Inpak.cls.xml	(.../Inpak.cls.xml)	(revision 31370)
@@ -153,6 +153,7 @@
 </Method>
 
 <Method name="AutoBlockSmallOrder">
+<Private>1</Private>
 <Implementation><![CDATA[
 	#dim Max As %Integer = 1
 	Do ##class(BL.Prod.OptiBox.Snijden).Instantiate() ; sets %blOptimize	
@@ -440,6 +441,7 @@
 - QtyRequested ($$$snAantalQueued) = Het aantal snijopdrachten dat naar snijmachine gestuurd is
 - QtyFinished ($$$snAantalFinished) = Het aantal afgewerkte snijopdrachten</Description>
 <FormalSpec><![CDATA[SnijItem:%String,&pxInpakInfo:BL.PPS.OL.pxInpakInfo,SequenceID:%Integer]]></FormalSpec>
+<Private>1</Private>
 <ReturnType>BL.Sys.Proxy.pxStatus</ReturnType>
 <Implementation><![CDATA[
 	
@@ -519,6 +521,7 @@
 
 <Method name="BouwStenenTekst">
 <FormalSpec>PRNr:%String,LijnSep:%String,KolomSep:%String</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
 	Set D="\"
 	Set BSKey=""
@@ -574,23 +577,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GetDeksels">
-<FormalSpec>pObjRef:%String,pObjType:%String,pPPSSubgroep:%String,pBoxDeelVan:%String</FormalSpec>
-<Implementation><![CDATA[
-	&SQL(DECLARE GetDeksels CURSOR FOR 
-		SELECT %ID as ID INTO :ID
-		FROM Prod.OptiBox_SnijData
-		WHERE (ObjRef=:pObjRef) AND (ObjType=:pObjType) AND (PPSSubgroep=:pPPSSubgroep) AND (BoxDeelVan=:pBoxDeelVan)
-	)
-	&sql(OPEN GetDeksels)
-	Set retval = ""
- 	For  &sql(FETCH GetDeksels) Quit:SQLCODE  Do
-	. Set retval = retval_$LB(ID)
-	&sql(CLOSE GetDeksels)
-	quit retval
-]]></Implementation>
-</Method>
-
 <UDLText name="T">
 <Content><![CDATA[
 /*
@@ -649,6 +635,7 @@
 Bij opstarten van de leveringsbon worden all etiketten eerst gedrukt 
 Dit omdat de kleuren labelprinter veel trager is dan een zwartwit labelprinter</Description>
 <FormalSpec>Forced:%Boolean</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
 	#dim MemID As %String = ..CurID ; onthouden
 	#dim ID As %Integer
@@ -788,6 +775,7 @@
 
 <Method name="PrintProductBarePrepare">
 <FormalSpec>BonID:%String,ProductID:%String,Aantal:%Integer</FormalSpec>
+<Private>1</Private>
 <ReturnType>BL.Sys.LabelPrinter</ReturnType>
 <Implementation><![CDATA[
 	#dim blLabel As BL.Sys.LabelPrinter = ##class(BL.Sys.LabelPrinter).Instantiate()	
@@ -815,6 +803,7 @@
 
 <Method name="GeefProductLabels">
 <FormalSpec>BonID:%String,ProductID:%String,Aantal:%Integer</FormalSpec>
+<Private>1</Private>
 <ReturnType>%ListOfObjects</ReturnType>
 <ReturnTypeParams>ELEMENTTYPE="BL.Sys.pxLabel"</ReturnTypeParams>
 <Implementation><![CDATA[
@@ -836,6 +825,7 @@
 
 <Method name="GeefProductLabel">
 <FormalSpec>BonID:%String,ProductID:%String,Aantal:%Integer</FormalSpec>
+<Private>1</Private>
 <ReturnType>BL.Sys.pxLabel</ReturnType>
 <Implementation><![CDATA[
 	#dim pxLabel As BL.Sys.pxLabel =##class(BL.Etiket.Product).Create()
@@ -869,6 +859,7 @@
 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
@@ -891,6 +882,7 @@
 
 <Method name="GeefProductLabelTulpSphinx">
 <FormalSpec>pxLabel:BL.Sys.pxLabel,PRNr:%String</FormalSpec>
+<Private>1</Private>
 <ReturnType>BL.Sys.pxLabel</ReturnType>
 <Implementation><![CDATA[
 	#dim String As %String=  ""
@@ -914,6 +906,7 @@
 
 <Method name="LabelDataFromProduct">
 <FormalSpec>PRNr:%String,pxLabel:BL.Sys.pxLabel</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
 	Quit:PRNr'?4.7N
 	#dim Product As DOM.PM.Product = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(PRNr)
@@ -954,6 +947,7 @@
 
 <Method name="LabelDataFromBon">
 <FormalSpec>BONNr:%String,pxLabel:BL.Sys.pxLabel</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
 	#dim Bon As DOM.VKP.Bon = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefBon(BONNr)
 	#dim D As %String = "\"
@@ -997,6 +991,7 @@
 <Method name="LabelDev">
 <Description>
 LabelPrinter is afhankelijk van de werkpost bepaalt door property Output</Description>
+<Private>1</Private>
 <Implementation><![CDATA[
 	Quit:..Output=2 ..#LabelPrinter2
 	Quit:..Output=3 ..#LabelPrinter3
Index: vhUnitTest/BL/PPS/OL/TestInpak.cls.xml
===================================================================
diff -u -r29059 -r31370
--- vhUnitTest/BL/PPS/OL/TestInpak.cls.xml	(.../TestInpak.cls.xml)	(revision 29059)
+++ vhUnitTest/BL/PPS/OL/TestInpak.cls.xml	(.../TestInpak.cls.xml)	(revision 31370)
@@ -207,7 +207,7 @@
 <Implementation><![CDATA[
 	#dim KlantNr As %String = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(..Consument.GeefID())
 	
-	Set Inpak = ##class(BL.PPS.OL.Inpak).%New()
+	Set Inpak = ##class(vhUnitTest.BL.PPS.OL.DummyInpak).%New()
 	#dim pxLabel As BL.Etiket.Product = ##class(BL.Etiket.Product).%New()
 	Do Inpak.LabelDataFromBon(..Bon.GeefID(),pxLabel)
 	
@@ -229,7 +229,7 @@
 
 <Method name="TestLabelDataFromProduct">
 <Implementation><![CDATA[
-	Set Inpak = ##class(BL.PPS.OL.Inpak).%New()
+	Set Inpak = ##class(vhUnitTest.BL.PPS.OL.DummyInpak).%New()
 	#dim pxLabel As BL.Etiket.Product = ##class(BL.Etiket.Product).%New()
 	Do Inpak.LabelDataFromProduct(1018,pxLabel)
 	
@@ -249,7 +249,7 @@
 	Do ..VerwijderSnijData()
 	Do ..MaakSnijData()
 	
-	Set Inpak = ##class(BL.PPS.OL.Inpak).%New()
+	Set Inpak = ##class(vhUnitTest.BL.PPS.OL.DummyInpak).%New()
 	#dim labelPrinter As BL.Sys.LabelPrinter = Inpak.PrintProductBarePrepare(..Bon.GeefID(),1018,1)
 	
 	Do $$$AssertEquals(labelPrinter.Data,2,"Aantal bestanden")
Index: vhUnitTest/BL/PPS/OL/TestInpakSphinxUitzondering.cls.xml
===================================================================
diff -u -r29059 -r31370
--- vhUnitTest/BL/PPS/OL/TestInpakSphinxUitzondering.cls.xml	(.../TestInpakSphinxUitzondering.cls.xml)	(revision 29059)
+++ vhUnitTest/BL/PPS/OL/TestInpakSphinxUitzondering.cls.xml	(.../TestInpakSphinxUitzondering.cls.xml)	(revision 31370)
@@ -38,7 +38,7 @@
 
 <Method name="TestGeefProductLabelSphinx">
 <Implementation><![CDATA[
-	Set Inpak = ##class(BL.PPS.OL.Inpak).%New()
+	Set Inpak = ##class(vhUnitTest.BL.PPS.OL.DummyInpak).%New()
 	#dim pxLabel As BL.Etiket.Product = Inpak.GeefProductLabel(337386,..#SpecifiekTestProductID,1)
 	
 	Do $$$AssertEquals(pxLabel.Layout,"OLProductSphinx6x10","Er is een andere layout gekozen voor Sphinx.")