Index: zTryout/THB/ConsistencyCheck/Prijzen.cls.xml
===================================================================
diff -u -r52011 -r52012
--- zTryout/THB/ConsistencyCheck/Prijzen.cls.xml	(.../Prijzen.cls.xml)	(revision 52011)
+++ zTryout/THB/ConsistencyCheck/Prijzen.cls.xml	(.../Prijzen.cls.xml)	(revision 52012)
@@ -25,7 +25,7 @@
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..FileReader = $$$Inject(FileReader, ##class(TECH.FileReader).%New(##class(TECH.Files).AppendFile(..#FullPath,..#Filename),"OngebruikteDelimiter"))
+	Set ..FileReader = $$$Inject(FileReader, ##class(TECH.FileReader).%New())
 
 	Quit $$$OK
 ]]></Implementation>
@@ -37,6 +37,11 @@
 	#dim Lijn, Node1, KlantNaam, Korttekst, Identnummer As %String
 	#dim SimPPL, Nettoprijs, Lijstprijs, InclBTW As %Decimal
 	
+	Set Stream = ##class(%FileCharacterStream).%New()
+	Set Stream.Filename = ##class(TECH.Files).AppendFile(..#FullPath,..#Filename)
+	Do ..FileReader.SetStream(Stream)
+	Do ..FileReader.SetDelimiter("OngebruikteDelimiter")
+	
 	Set Count = 3
 	Set KLNr = 0
 	Set PRNr = 0