Index: BL/Prod/VoorraadTelling.cls.xml
===================================================================
diff -u -r73727 -r73731
--- BL/Prod/VoorraadTelling.cls.xml	(.../VoorraadTelling.cls.xml)	(revision 73727)
+++ BL/Prod/VoorraadTelling.cls.xml	(.../VoorraadTelling.cls.xml)	(revision 73731)
@@ -736,56 +736,6 @@
 ]]></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>