Index: vhConsistency/Checks/DOM/PM/PrijzenVariatiesViaWebservice.cls.xml
===================================================================
diff -u
--- vhConsistency/Checks/DOM/PM/PrijzenVariatiesViaWebservice.cls.xml	(revision 0)
+++ vhConsistency/Checks/DOM/PM/PrijzenVariatiesViaWebservice.cls.xml	(revision 52015)
@@ -0,0 +1,135 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhConsistency.Checks.DOM.PM.PrijzenVariatiesViaWebservice">
+<Super>vhConsistency.Check</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).%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>
+<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="VoerUit">
+<ReturnType>%Status</ReturnType>
+</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>