Index: zTryout/THB/ConsistencyCheck/Prijzen.cls.xml
===================================================================
diff -u
--- zTryout/THB/ConsistencyCheck/Prijzen.cls.xml	(revision 0)
+++ zTryout/THB/ConsistencyCheck/Prijzen.cls.xml	(revision 51991)
@@ -0,0 +1,79 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="zTryout.THB.ConsistencyCheck.Prijzen">
+<Super>TECH.RegisteredObject</Super>
+
+<Parameter name="FullPath">
+<Type>%String</Type>
+<Default>C:\temp\</Default>
+</Parameter>
+
+<Parameter name="Filename">
+<Type>%String</Type>
+<Default>TST PrijzenControleren in bulk via webservice.csv</Default>
+</Parameter>
+
+<Property name="FileReader">
+<Type>TECH.FileReader</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>FileReader:TECH.File.FileReader=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..FileReader = $$$Inject(FileReader, ##class(TECH.FileReader).%New(##class(TECH.Files).AppendFile(..#FullPath,..#Filename),"OngebruikteDelimiter"))
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="PopuleerGlobal">
+<Implementation><![CDATA[
+	Hang 3
+	#dim Count, KLNr, PRNr, Aantal, Eenheid As %Integer
+	#dim Lijn, Node1, KlantNaam, Korttekst, Identnummer As %String
+	#dim SimPPL, Nettoprijs, Lijstprijs, InclBTW As %Decimal
+	
+	Set Count = 1
+	Set KLNr = 0
+	Set PRNr = 0
+	Set Node1 = "Check"
+	
+	Set ^ConsistCheckPrijzenKlantProduct(Node1) = "Persistentie van verwachte prijzen voor ConsistencyCheck volgens Klant-Product-RijInExcelBestand"
+	
+	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 = $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,KLNr,PRNr,Count) = ""_KLNr_"\"_KlantNaam_"\"_PRNr_"\"_Korttekst_"\"_Identnummer_"\"_Aantal_"\"_SimPPL_"\"_Nettoprijs_"\"_Lijstprijs_"\"_Eenheid_"\"_InclBTW_""
+		
+		Set Count = Count + 1
+	}
+	
+	Do ..FileReader.Close()
+	
+	W !,"Done!"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>