Index: vhPowerTools/APPS/PM/Maatwerk/ItemsWriter.cls.xml
===================================================================
diff -u -r30087 -r30272
--- vhPowerTools/APPS/PM/Maatwerk/ItemsWriter.cls.xml	(.../ItemsWriter.cls.xml)	(revision 30087)
+++ vhPowerTools/APPS/PM/Maatwerk/ItemsWriter.cls.xml	(.../ItemsWriter.cls.xml)	(revision 30272)
@@ -48,6 +48,18 @@
 <Private>1</Private>
 </Property>
 
+<Method name="%OnNew">
+<FormalSpec>Writer:TECH.Output.Writer</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..Writer = $$$Implementation(Writer,##class(TECH.Output.impl.Writer).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="ToonMaatwerk">
 <Description>
 Do ##class(vhPowerTools.APPS.PM.Maatwerk.ItemsWriter).%New().ToonMaatwerk(ProductID)</Description>
@@ -168,8 +180,6 @@
 			Set ..VolledigeBestandNaam = ##class(TECH.Files).AppendFile(Directory,BestandNaam)
 		}
 		Do ..FileWriter.Open(..VolledigeBestandNaam)
-	} Else {
-		Set ..Writer = ##class(TECH.Output.impl.Writer).%New()
 	}
 ]]></Implementation>
 </Method>