Index: APPS/Halux/PPS/TBXVerpakking/impl/Werkpost.cls.xml
===================================================================
diff -u -r49532 -r52233
--- APPS/Halux/PPS/TBXVerpakking/impl/Werkpost.cls.xml	(.../Werkpost.cls.xml)	(revision 49532)
+++ APPS/Halux/PPS/TBXVerpakking/impl/Werkpost.cls.xml	(.../Werkpost.cls.xml)	(revision 52233)
@@ -60,6 +60,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="TestVerpakLookAheadVerhoogd">
+<Description>
+Write ##class(APPS.Halux.PPS.TBXVerpakking.impl.Werkpost).TestVerpakLookAheadVerhoogd(QueueID) </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>QueueID:%String</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	Set wp = ##class(APPS.Halux.PPS.TBXVerpakking.impl.Werkpost).%New(##class(APPS.Halux.common.enu.Werkpost).Pers1())
+	Quit wp.GeefVerpakLookAheadVerhoogd(QueueID)
+]]></Implementation>
+</Method>
+
 <Method name="GeefVerpakLookAheadVerhoogd">
 <FormalSpec>QueueID:%String</FormalSpec>
 <Private>1</Private>