Index: TECH/XMLCorrelater.cls.xml
===================================================================
diff -u
--- TECH/XMLCorrelater.cls.xml	(revision 0)
+++ TECH/XMLCorrelater.cls.xml	(revision 1447)
@@ -0,0 +1,31 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.XMLCorrelater">
+<Super>%RegisteredObject</Super>
+
+<Method name="GeefObjectVanBestand">
+<FormalSpec>BestandNaam:%String,ObjectKlasseNaam:%String,XMLRootTag:%String</FormalSpec>
+<ReturnType>%CacheString</ReturnType>
+<Implementation><![CDATA[
+		#dim Object As %CacheString
+		Set XMLReader = ##class(%XML.Reader).%New()
+		#dim Status As %Status = XMLReader.OpenFile(BestandNaam)
+		If $$$ISOK(Status){
+			Do XMLReader.Correlate("CustomerInfo","APPS.VKP.Korting.xml.CustomerInfo") 
+			#dim sc As %Status
+			Do XMLReader.Next(.Object,.sc)
+			If $$$ISERR(sc)	{
+				Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Kon bestand '"_BestandNaam_"' niet correlaten naar object van het type '"_ObjectKlasseNaam_"'."_$C(13,10)_$$ParseStatus^vhLib(sc)))
+			}
+		}Else{
+			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Kon bestand '"_BestandNaam_"' niet openen als XML."_$C(13,10)_$$ParseStatus^vhLib(sc)))
+		}
+		Do XMLReader.Close()
+		Set XMLReader = ""
+		Quit Object
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>