Index: zTryout/THB/ConsistencyCheck/Prijzen.cls.xml
===================================================================
diff -u -r52013 -r52014
--- zTryout/THB/ConsistencyCheck/Prijzen.cls.xml	(.../Prijzen.cls.xml)	(revision 52013)
+++ zTryout/THB/ConsistencyCheck/Prijzen.cls.xml	(.../Prijzen.cls.xml)	(revision 52014)
@@ -48,19 +48,15 @@
 <Method name="PopuleerGlobalVolgensBestand">
 <FormalSpec>FullPath:%String="",Filename:%String=""</FormalSpec>
 <Implementation><![CDATA[
-	#dim Count, KLNr, PRNr, Aantal, Eenheid As %Integer
+	#dim Count, AantalRecords, KLNr, PRNr, Aantal, Eenheid As %Integer
 	#dim Lijn, Node1, KlantNaam, Korttekst, Identnummer As %String
 	#dim SimPPL, Nettoprijs, Lijstprijs, InclBTW As %Decimal
 	
-	If ($$$HasLength(FullPath)) {
-		Set ..FullPath = FullPath
-	}
-	If ($$$HasLength(Filename)) {
-		Set ..Filename = Filename
-	}
+	Do ..CheckParameters(FullPath, Filename)
 	
-	If ($$$Not(..IsBestaandBestand(FullPath, Filename))) {
-		Do ..Console.WriteLine("Het opgegeven pad '"_FullPath_"' en/of de opgegeven bestandsnaam '"_Filename_"' wijzen niet naar een bestaand bestand.")
+	If ($$$Not(..IsBestaandBestand(..FullPath, ..Filename))) {
+		Do ..Console.WriteLine("Het opgegeven pad '"_..FullPath_"' en/of de opgegeven bestandsnaam '"_..Filename_"' wijzen niet naar een bestaand bestand.")
+		Do ..Console.WriteLine("Indien de Global ^ConsistCheckPrijzenKlantProduct al bestond is deze ongewijzigd.")
 	} Else {
 		Set Stream = ##class(%FileCharacterStream).%New()
 		Set Stream.Filename = ##class(TECH.Files).AppendFile(..FullPath,..Filename)
@@ -73,10 +69,11 @@
 		Set Node1 = "Check"
 		
 		Kill ^ConsistCheckPrijzenKlantProduct(Node1)
+		Do ..Console.WriteLine("De eventueel bestaande Global ^ConsistCheckPrijzenKlantProduct is gewist.")
+		
 		Set ^ConsistCheckPrijzenKlantProduct(Node1) = "Persistentie van verwachte prijzen voor ConsistencyCheck volgens Check-RijInExcelBestand-Klant-Product"
 		
 		Do ..FileReader.SetFirstDataRow(3)
-		
 		While ..FileReader.HasNext() {
 			Do ..FileReader.Next()
 			Set Lijn = ..FileReader.GetData(1)
@@ -97,12 +94,27 @@
 			
 			Set Count = Count + 1
 		}
-		
+		Set AantalRecords = Count - 3
 		Do ..FileReader.Close()
+		Do ..Console.WriteLine("Het bestand is opgeladen in de Global ^ConsistCheckPrijzenKlantProduct. Er werden "_AantalRecords_" records weggeschreven.")
 	}
 ]]></Implementation>
 </Method>
 
+<Method name="CheckParameters">
+<FormalSpec>FullPath:%String,Filename:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If ($$$HasLength(FullPath)) {
+		Set ..FullPath = FullPath
+	}
+	
+	If ($$$HasLength(Filename)) {
+		Set ..Filename = Filename
+	}
+]]></Implementation>
+</Method>
+
 <Method name="IsBestaandBestand">
 <FormalSpec>FullPath:%String,Filename:%String</FormalSpec>
 <Private>1</Private>