Index: AX/Uitgaand/VKP/ArtikelLijst/impl/ArtikelLijstGeneratorRefactored.cls.xml
===================================================================
diff -u -r43311 -r43312
--- AX/Uitgaand/VKP/ArtikelLijst/impl/ArtikelLijstGeneratorRefactored.cls.xml	(.../ArtikelLijstGeneratorRefactored.cls.xml)	(revision 43311)
+++ AX/Uitgaand/VKP/ArtikelLijst/impl/ArtikelLijstGeneratorRefactored.cls.xml	(.../ArtikelLijstGeneratorRefactored.cls.xml)	(revision 43312)
@@ -16,6 +16,16 @@
 <Private>1</Private>
 </Property>
 
+<Property name="HoofdingStream">
+<Type>%Library.GlobalCharacterStream</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="RegelStream">
+<Type>%Library.GlobalCharacterStream</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="GenerationId">
 <Type>%String</Type>
 </Property>
@@ -61,6 +71,8 @@
 
 <Method name="ExportAll">
 <Implementation><![CDATA[
+	Set ..HoofdingStream = ##class(%Library.GlobalCharacterStream).%New()
+	Set ..RegelStream = ##class(%Library.GlobalCharacterStream).%New()
 	Do ..OpenFiles()
 	
 	Set ..KlantID=0
@@ -78,13 +90,13 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	Use 0
-	Set ..DeviceProducten=$$OPEN^vhDEV(,"ArtikelLijstProducten.csv","W","T")
+	Set ..DeviceProducten=$$OPEN^vhDEV(,"1701ArtikelLijstProducten.csv","W","T")
 	Use ..DeviceProducten
-	Write "InventDimId;ItemId;ItemListTable;SalesQty;SalesUnit",!
+	Do ..RegelStream.WriteLine("InventDimId;ItemId;ItemListTable;SalesQty;SalesUnit")
 	Use 0
-	Set ..DeviceKlanten=$$OPEN^vhDEV(,"ArtikelLijstKlanten.csv","W")
+	Set ..DeviceKlanten=$$OPEN^vhDEV(,"1701ArtikelLijstKlanten.csv","W")
 	Use ..DeviceKlanten
-	Write "CustAccount;Description;ItemListId",!
+	Do ..HoofdingStream.WriteLine("CustAccount;Description;ItemListId")
 ]]></Implementation>
 </Method>
 
@@ -130,17 +142,17 @@
 <Implementation><![CDATA[
 	Set IdentNr=$$$PRGet($$$IdentNummer)
 	Use ..DeviceProducten
-	Write "AllBlank"
+	Do ..RegelStream.WriteLine("AllBlank")
 	;Write ";",$$$PRGet($$$KortTekst)
-	Write ";",IdentNr,";",..GeefTableID(),";",1,";","STK",";",!
+	Do ..RegelStream.WriteLine(";",IdentNr,";",..GeefTableID(),";",1,";","STK",";")
 ]]></Implementation>
 </Method>
 
 <Method name="ToevoegenKlant">
 <Private>1</Private>
 <Implementation><![CDATA[
 	Use ..DeviceKlanten
-	Write ..GeefKlantIDInAXFormaat(),";","Verkoopanalyse",";",..GeefTableID(),!
+	Do ..HoofdingStream.WriteLine(..GeefKlantIDInAXFormaat(),";","Verkoopanalyse",";",..GeefTableID())
 ]]></Implementation>
 </Method>