Index: vhConsistency/Checks/DOM/PM/PrijzenVariatiesViaWebservice.cls.xml
===================================================================
diff -u -r52015 -r52026
--- vhConsistency/Checks/DOM/PM/PrijzenVariatiesViaWebservice.cls.xml	(.../PrijzenVariatiesViaWebservice.cls.xml)	(revision 52015)
+++ vhConsistency/Checks/DOM/PM/PrijzenVariatiesViaWebservice.cls.xml	(.../PrijzenVariatiesViaWebservice.cls.xml)	(revision 52026)
@@ -3,46 +3,23 @@
 <Class name="vhConsistency.Checks.DOM.PM.PrijzenVariatiesViaWebservice">
 <Super>vhConsistency.Check</Super>
 
-<Property name="FullPath">
-<Type>%String</Type>
-<InitialExpression>"C:\temp\"</InitialExpression>
+<Property name="BestandUploader">
+<Type>vhConsistency.Checks.DOM.PM.PrijzenVariatiesViaWebservice.BestandUploader</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="Filename">
-<Type>%String</Type>
-<InitialExpression>"TST PrijzenControleren in bulk via webservice.csv"</InitialExpression>
-<Private>1</Private>
-</Property>
-
-<Property name="Console">
-<Type>TECH.Console.Console</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="FileApi">
-<Type>TECH.File.FileAPI</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="FileReader">
-<Type>TECH.FileReader</Type>
-<Private>1</Private>
-</Property>
-
 <Method name="%OnNew">
 <Description>
-NIEUW BESTAND UPLOADEN: Do ##class(vhConsistency.Checks.DOM.PM.PrijzenVariatiesViaWebservice).%New().PopuleerGlobalVolgensBestand()
+NIEUW BESTAND UPLOADEN: Do ##class(vhConsistency.Checks.DOM.PM.PrijzenVariatiesViaWebservice).%New().UploadBestandMetPrijzenNaarGlobal()
+OF RECHTSTREEKS MET EIGEN KLASSE: Do ##class(vhConsistency.Checks.DOM.PM.PrijzenVariatiesViaWebservice.BestandUploader).%New().PopuleerGlobalVolgensBestand()
 OPGELET: Maak eerst van het Excel-bestand een csv!</Description>
-<FormalSpec>Console:TECH.Console.Console="",FileApi:TECH.File.FileAPI="",FileReader:TECH.File.FileReader=""</FormalSpec>
+<FormalSpec>BestandUploader:vhConsistency.Checks.DOM.PM.PrijzenVariatiesViaWebservice.BestandUploader=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..Console = $$$Inject(Console,##class(TECH.Console.impl.TerminalConsole).%New())
-	Set ..FileApi = $$$Inject(FileApi, ##class(TECH.File.impl.FileAPI).%New())
-	Set ..FileReader = $$$Inject(FileReader, ##class(TECH.FileReader).%New())
+	Set ..BestandUploader = $$$Inject(BestandUploader, ##class(vhConsistency.Checks.DOM.PM.PrijzenVariatiesViaWebservice.BestandUploader).%New())
 
 	Quit $$$OK
 ]]></Implementation>
@@ -52,83 +29,11 @@
 <ReturnType>%Status</ReturnType>
 </Method>
 
-<Method name="PopuleerGlobalVolgensBestand">
+<Method name="UploadBestandMetPrijzenNaarGlobal">
 <FormalSpec>FullPath:%String="",Filename:%String=""</FormalSpec>
-<Implementation><![CDATA[
-	#dim Count, AantalRecords, KLNr, PRNr, Aantal, Eenheid As %Integer
-	#dim Lijn, Node1, KlantNaam, Korttekst, Identnummer As %String
-	#dim SimPPL, Nettoprijs, Lijstprijs, InclBTW As %Decimal
-	
-	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.")
-		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)
-		Do ..FileReader.SetStream(Stream)
-		Do ..FileReader.SetDelimiter("OngebruikteDelimiter")
-		
-		Set Count = 3
-		Set KLNr = 0
-		Set PRNr = 0
-		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)
-			
-			Set KLNr = $Piece(Lijn,";",1)
-			Set KlantNaam = $Piece(Lijn,";",2)
-			Set PRNr = $Piece(Lijn,";",3)
-			Set Korttekst = $Piece(Lijn,";",4)
-			Set Identnummer = $Piece(Lijn,";",5)
-			Set Aantal = $Piece(Lijn,";",6)
-			Set SimPPL = $Translate($Piece(Lijn,";",7)," ","")
-			Set Nettoprijs = $Piece(Lijn,";",8)
-			Set Lijstprijs = $Piece(Lijn,";",9)
-			Set Eenheid = $Piece(Lijn,";",10)
-			Set InclBTW = $Piece(Lijn,";",11)
-			
-			Set ^ConsistCheckPrijzenKlantProduct(Node1,Count,KLNr,PRNr) = ""_KLNr_"\"_KlantNaam_"\"_PRNr_"\"_Korttekst_"\"_Identnummer_"\"_Aantal_"\"_SimPPL_"\"_Nettoprijs_"\"_Lijstprijs_"\"_Eenheid_"\"_InclBTW_""
-			
-			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><![CDATA[	Do ..BestandUploader.PopuleerGlobalVolgensBestand(FullPath, Filename)
 ]]></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>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit ..FileApi.FileExists(##class(TECH.Files).AppendFile(FullPath,Filename))
-]]></Implementation>
-</Method>
 </Class>
 
 
Index: vhConsistency/Checks/DOM/PM/PrijzenVariatiesViaWebservice/BestandUploader.cls.xml
===================================================================
diff -u
--- vhConsistency/Checks/DOM/PM/PrijzenVariatiesViaWebservice/BestandUploader.cls.xml	(revision 0)
+++ vhConsistency/Checks/DOM/PM/PrijzenVariatiesViaWebservice/BestandUploader.cls.xml	(revision 52026)
@@ -0,0 +1,132 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhConsistency.Checks.DOM.PM.PrijzenVariatiesViaWebservice.BestandUploader">
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="FullPath">
+<Type>%String</Type>
+<InitialExpression>"C:\temp\"</InitialExpression>
+<Private>1</Private>
+</Property>
+
+<Property name="Filename">
+<Type>%String</Type>
+<InitialExpression>"TST PrijzenControleren in bulk via webservice.csv"</InitialExpression>
+<Private>1</Private>
+</Property>
+
+<Property name="Console">
+<Type>TECH.Console.Console</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="FileApi">
+<Type>TECH.File.FileAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="FileReader">
+<Type>TECH.FileReader</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Description>
+NIEUW BESTAND UPLOADEN: Do ##class(vhConsistency.Checks.DOM.PM.PrijzenVariatiesViaWebservice.BestandUploader).%New().PopuleerGlobalVolgensBestand()
+KAN OOK VIA GEBRUIKER VAN DEZE KLASSE: Do ##class(vhConsistency.Checks.DOM.PM.PrijzenVariatiesViaWebservice).%New().UploadBestandMetPrijzenNaarGlobal()
+OPGELET: Maak eerst van het Excel-bestand een csv!</Description>
+<FormalSpec>Console:TECH.Console.Console="",FileApi:TECH.File.FileAPI="",FileReader:TECH.File.FileReader=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..Console = $$$Inject(Console,##class(TECH.Console.impl.TerminalConsole).%New())
+	Set ..FileApi = $$$Inject(FileApi, ##class(TECH.File.impl.FileAPI).%New())
+	Set ..FileReader = $$$Inject(FileReader, ##class(TECH.FileReader).%New())
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="PopuleerGlobalVolgensBestand">
+<FormalSpec>FullPath:%String="",Filename:%String=""</FormalSpec>
+<Implementation><![CDATA[
+	#dim Count, AantalRecords, KLNr, PRNr, Aantal, Eenheid As %Integer
+	#dim Lijn, Node1, KlantNaam, Korttekst, Identnummer As %String
+	#dim SimPPL, Nettoprijs, Lijstprijs, InclBTW As %Decimal
+	
+	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.")
+		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)
+		Do ..FileReader.SetStream(Stream)
+		Do ..FileReader.SetDelimiter("OngebruikteDelimiter")
+		
+		Set Count = 3
+		Set KLNr = 0
+		Set PRNr = 0
+		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)
+			
+			Set KLNr = $Piece(Lijn,";",1)
+			Set KlantNaam = $Piece(Lijn,";",2)
+			Set PRNr = $Piece(Lijn,";",3)
+			Set Korttekst = $Piece(Lijn,";",4)
+			Set Identnummer = $Piece(Lijn,";",5)
+			Set Aantal = $Piece(Lijn,";",6)
+			Set SimPPL = $Translate($Piece(Lijn,";",7)," ","")
+			Set Nettoprijs = $Piece(Lijn,";",8)
+			Set Lijstprijs = $Piece(Lijn,";",9)
+			Set Eenheid = $Piece(Lijn,";",10)
+			Set InclBTW = $Piece(Lijn,";",11)
+			
+			Set ^ConsistCheckPrijzenKlantProduct(Node1,Count,KLNr,PRNr) = ""_KLNr_"\"_KlantNaam_"\"_PRNr_"\"_Korttekst_"\"_Identnummer_"\"_Aantal_"\"_SimPPL_"\"_Nettoprijs_"\"_Lijstprijs_"\"_Eenheid_"\"_InclBTW_""
+			
+			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>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..FileApi.FileExists(##class(TECH.Files).AppendFile(FullPath,Filename))
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>