Index: zTryout/JBA/Klad.cls.xml
===================================================================
diff -u -r63080 -r71693
--- zTryout/JBA/Klad.cls.xml	(.../Klad.cls.xml)	(revision 63080)
+++ zTryout/JBA/Klad.cls.xml	(.../Klad.cls.xml)	(revision 71693)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="zTryout.JBA.Klad">
-<Super>%Persistent</Super>
+<Super>TECH.RegisteredObject</Super>
 
 <UDLText name="T">
 <Content><![CDATA[
@@ -37,6 +37,134 @@
 ]]></Implementation>
 </Method>
 
+<Method name="PairArtikelIdToProductId">
+<Description>
+Do ##class(zTryout.JBA.Klad).PairArtikelIdToProductId()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set Lijst = ##class(%ListOfDataTypes).%New()
+	
+	Do Lijst.Insert("0.103.641.8")
+	Do Lijst.Insert("0.114.813.9")
+	Do Lijst.Insert("0.119.043.2")
+	Do Lijst.Insert("0.129.581.2")
+	Do Lijst.Insert("0.130.544.2")
+	Do Lijst.Insert("0.139.831.8")
+	Do Lijst.Insert("0.141.606.9")
+	Do Lijst.Insert("0.151.803.4")
+	Do Lijst.Insert("0.151.816.1")
+	Do Lijst.Insert("0.173.038.1")
+	Do Lijst.Insert("0.188.491.8")
+	Do Lijst.Insert("0.190.832.1")
+	Do Lijst.Insert("0.192.515.2")
+	Do Lijst.Insert("0.204.945.3")
+	Do Lijst.Insert("0.217.679.9")
+	Do Lijst.Insert("0.221.847.4")
+	Do Lijst.Insert("0.226.040.7")
+	Do Lijst.Insert("0.236.782.2")
+	Do Lijst.Insert("0.239.297.2")
+	Do Lijst.Insert("0.275.985.8")
+	Do Lijst.Insert("0.313.889.9")
+	Do Lijst.Insert("0.318.881.8")
+	Do Lijst.Insert("0.357.485.8")
+	Do Lijst.Insert("0.366.319.3")
+	Do Lijst.Insert("0.372.436.8")
+	Do Lijst.Insert("0.379.926.7")
+	Do Lijst.Insert("0.380.706.1")
+	Do Lijst.Insert("0.404.342.6")
+	Do Lijst.Insert("0.407.171.9")
+	Do Lijst.Insert("0.432.444.2")
+	Do Lijst.Insert("0.444.016.3")
+	Do Lijst.Insert("0.466.063.8")
+	Do Lijst.Insert("0.468.553.9")
+	Do Lijst.Insert("0.471.246.7")
+	Do Lijst.Insert("0.476.771.9")
+	Do Lijst.Insert("0.497.626.3")
+	Do Lijst.Insert("0.515.211.5")
+	Do Lijst.Insert("0.553.871.7")
+	Do Lijst.Insert("0.555.068.4")
+	Do Lijst.Insert("0.596.598.6")
+	Do Lijst.Insert("0.600.991.6")
+	Do Lijst.Insert("0.613.268.4")
+	Do Lijst.Insert("0.622.615.2")
+	Do Lijst.Insert("0.629.875.5")
+	Do Lijst.Insert("0.630.449.7")
+	Do Lijst.Insert("0.648.765.0")
+	Do Lijst.Insert("0.690.315.0")
+	Do Lijst.Insert("0.708.648.8")
+	Do Lijst.Insert("0.713.273.0")
+	Do Lijst.Insert("0.740.274.9")
+	Do Lijst.Insert("0.746.632.2")
+	Do Lijst.Insert("0.766.835.7")
+	Do Lijst.Insert("0.767.315.1")
+	Do Lijst.Insert("0.768.157.4")
+	Do Lijst.Insert("0.793.346.8")
+	Do Lijst.Insert("0.793.734.1")
+	Do Lijst.Insert("0.818.464.8")
+	Do Lijst.Insert("0.818.647.1")
+	Do Lijst.Insert("0.823.778.4")
+	Do Lijst.Insert("0.829.353.2")
+	Do Lijst.Insert("0.840.672.5")
+	Do Lijst.Insert("0.847.498.9")
+	Do Lijst.Insert("0.855.247.4")
+	Do Lijst.Insert("0.855.381.8")
+	Do Lijst.Insert("0.857.333.6")
+	Do Lijst.Insert("0.870.317.7")
+	Do Lijst.Insert("0.873.500.0")
+	Do Lijst.Insert("0.882.272.6")
+	Do Lijst.Insert("0.882.595.4")
+	Do Lijst.Insert("0.883.136.0")
+	Do Lijst.Insert("0.884.230.4")
+	Do Lijst.Insert("0.887.317.9")
+	Do Lijst.Insert("0.889.939.5")
+	Do Lijst.Insert("0.895.292.2")
+	Do Lijst.Insert("0.899.821.8")
+	Do Lijst.Insert("0.902.478.8")
+	Do Lijst.Insert("0.906.703.2")
+	Do Lijst.Insert("0.917.354.9")
+	Do Lijst.Insert("0.926.417.4")
+	Do Lijst.Insert("0.960.032.6")
+	Do Lijst.Insert("0.961.686.7")
+	Do Lijst.Insert("0.758.093.3")
+	
+	Set ProductAPI = ##class(DOM.PM.impl.ProductAPI).%New()
+	Set ArtikelNummerIterator = ##class(TECH.ListIterator).%New(Lijst)
+	
+	While (ArtikelNummerIterator.HasNext()) {
+		#dim ArtikelNummer As %String = ArtikelNummerIterator.Next()
+		
+		Try {
+			#dim ProductId As %String = ProductAPI.GeefProductIdVoorIdentNummer(ArtikelNummer)
+			#dim Product As DOM.PM.Product = ProductAPI.GeefProduct(ProductId)
+			Write !, "Do ProductIds.Insert(" _ ProductId _ ") // " _ Product.GeefOmschrijving()	
+		} Catch {
+			#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+			W !, Exception.GeefOmschrijving()
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="SchrijfBestand">
+<Description>
+Do ##class(zTryout.JBA.Klad).SchrijfBestand()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	#dim FileWriter As TECH.File.FileWriter = ##class(TECH.Context).Instance().GeefFileAPI().GeefFileWriter()
+	#dim BestandLocatie As %String = "\\SWS01-PRD\data\IntegrationServer\Inbox"
+	#dim Index As %String = "1"
+	#dim BestandVolledigNaam As %String = ##class(TECH.Files).AppendFile(BestandLocatie, "Test" _ "_" _ Index _ "." _ "txt")
+	
+	Write !, BestandVolledigNaam
+	
+	#dim Data = "TestInhoudXML"
+	
+	Do FileWriter.Open(BestandVolledigNaam)
+	Do FileWriter.WriteLine(Data)
+	Do FileWriter.Close()
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^zTryout.JBA.KladD</DataLocation>