Index: BL/Prod/VoorraadTelling.cls.xml
===================================================================
diff -u -r73690 -r73723
--- BL/Prod/VoorraadTelling.cls.xml	(.../VoorraadTelling.cls.xml)	(revision 73690)
+++ BL/Prod/VoorraadTelling.cls.xml	(.../VoorraadTelling.cls.xml)	(revision 73723)
@@ -777,8 +777,11 @@
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <Implementation><![CDATA[
+	Set TempDummyTask = ##class(Sys.FOP.Task).%New()
+	Set TempDummyTask.KeyWords = ";VTELLING;FileDoc;"   ; TempDummyTask is een work-around om de bepaling van "IsActiefDocBaseV7" op één plaats te houden, nl. bij DocBaseV7Helper.  Eenmaal overgeschakeld mag de dummy opgekuist worden. 
+	
 	#dim sc As %Status = $$$OK
-	#dim IsActiefDocBaseV7 As %Boolean = ..DocBaseV7Helper.IsActiefDocBaseV7()
+	#dim IsActiefDocBaseV7 As %Boolean = ..DocBaseV7Helper.IsActiefDocBaseV7(TempDummyTask)
 	If IsActiefDocBaseV7 {
 		Set sc = ..PrintOneViaDfs(pxDoc,Printer)
 	}