Index: BL/Prod/VoorraadTelling.cls.xml
===================================================================
diff -u -r73725 -r73727
--- BL/Prod/VoorraadTelling.cls.xml	(.../VoorraadTelling.cls.xml)	(revision 73725)
+++ BL/Prod/VoorraadTelling.cls.xml	(.../VoorraadTelling.cls.xml)	(revision 73727)
@@ -736,6 +736,56 @@
 ]]></Implementation>
 </Method>
 
+<Method name="PrintTestByWimV">
+<Description>
+Oproepen via : 
+   Do ##class(BL.Prod.VoorraadTelling).PrintTestByWimV( , , ) </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Printer:%String="VHIP2",InitieelNr:%Integer=0,IniteelLabel:%String="TestByWimV"</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<Implementation><![CDATA[
+ 	Do ##class(vhLib.OldSchool).InitAdminVars()
+ 	Do ##class(TECH.Context.RuntimeContext).Instance().ZetGebruikerID("4682||1007")
+
+	#dim blVoorraadTelling As BL.Prod.VoorraadTelling = ##class(BL.Prod.VoorraadTelling).Instantiate()
+	Do blVoorraadTelling.Init($Job)
+	Do blVoorraadTelling.PrintTestInternal(Printer,InitieelNr,IniteelLabel)
+]]></Implementation>
+</Method>
+
+<Method name="PrintTestInternal">
+<Description>
+Test method </Description>
+<FormalSpec>Printer:%String,InitieelNr:%Integer=0,IniteelLabel:%String=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<Implementation><![CDATA[
+	#dim TellingNr As %Integer
+	#dim TellingOmschrijving As %String
+	
+	#dim AfdrukDatum As %String = $$EXTDATE^vhLib.DataTypes(,"DKP")
+    #dim sc As %Status = $$$OK
+	#dim Zone As %String = "TEST-WimV"
+	#dim Lijst As %String = ""
+	#dim PRNr As %String = "3570133,"
+	#dim VoorraadTellingLijst As DS.Prod.VoorraadTellingLijst
+	
+	Set TellingNr = InitieelNr
+	Set TellingOmschrijving = IniteelLabel
+    Set ..pxDocList=##class(BL.Prod.VoorraadTelSettingsList).%New()
+    Set pxDoc=##class(BL.Prod.sub.pxVoorraadTelSettings).%New()
+    Set pxDoc.Zone=$S(Zone="-":"",1:Zone)
+    Set pxDoc.ZoneOms="ZoneTekst"
+    Set pxDoc.TellingNr = TellingNr
+    Set pxDoc.TellingOms = TellingOmschrijving
+    Set pxDoc.Datum=AfdrukDatum
+    Set Lijst=$LB(PRNr)
+    Set pxDoc.Products=Lijst
+    Set sc=..PrintOne(pxDoc,Printer)
+    Quit
+]]></Implementation>
+</Method>
+
 <Method name="PrintOneViaWatchFolder">
 <FormalSpec>pxDoc:BL.Prod.sub.pxVoorraadTelSettings,Printer:%String</FormalSpec>
 <Private>1</Private>
@@ -779,6 +829,11 @@
 <Implementation><![CDATA[
 	#dim sc As %Status = $$$OK
 	#dim IsActiefDocBaseV7 As %Boolean = ..DocBaseV7Helper.IsActiefDocBaseV7()
+	
+	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. 
+	Set IsActiefDocBaseV7  = ..DocBaseV7Helper.IsTijdelijkActiefDocBaseV7(TempDummyTask)
+
 	If IsActiefDocBaseV7 {
 		Set sc = ..PrintOneViaDfs(pxDoc,Printer)
 	}