Index: TECH/BackgroundProcess/impl/Data.cls.xml
===================================================================
diff -u -r1180 -r1198
--- TECH/BackgroundProcess/impl/Data.cls.xml	(.../Data.cls.xml)	(revision 1180)
+++ TECH/BackgroundProcess/impl/Data.cls.xml	(.../Data.cls.xml)	(revision 1198)
@@ -2,28 +2,25 @@
 <Export generator="Cache" version="24">
 <Class name="TECH.BackgroundProcess.impl.Data">
 <ClassType>persistent</ClassType>
-<Super>TECH.BackgroundProcess.Data,TECH.Persistent</Super>
+<Super>TECH.Persistent,TECH.BackgroundProcess.Data</Super>
 
 <Property name="ClassName">
 <Type>%String</Type>
-<Private>1</Private>
 <Parameter name="MAXLEN" value="255"/>
 </Property>
 
-<Property name="Method">
+<Property name="MethodName">
 <Type>%String</Type>
-<Private>1</Private>
 </Property>
 
 <Property name="Parameters">
-<Type>TECH.BackgroundProcess.impl.Parameter.DataType</Type>
+<Type>TECH.BackgroundProcess.impl.Parameter</Type>
 <Collection>list</Collection>
-<Private>1</Private>
+<Parameter name="CLASSNAME" value="1"/>
 </Property>
 
 <Property name="RuntimeInfo">
-<Type>%List</Type>
-<Private>1</Private>
+<Type>TECH.BackgroundProcess.RuntimeInfo</Type>
 </Property>
 
 <Method name="%OnNew">
@@ -38,44 +35,32 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GetParameters">
-<ReturnType>%ListOfObjects</ReturnType>
-<Implementation><![CDATA[	Quit ..Parameters
+<Method name="GetClassName">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..ClassName
 ]]></Implementation>
 </Method>
 
-<Method name="GetClassName">
+<Method name="GetMethodName">
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit ..ClassName
+<Implementation><![CDATA[	quit ..MethodName
 ]]></Implementation>
 </Method>
 
-<Method name="GetMethod">
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit ..Method
+<Method name="GetParameters">
+<ReturnType>TECH.BackgroundProcess.impl.ParameterList</ReturnType>
+<Implementation><![CDATA[	quit ..Parameters
 ]]></Implementation>
 </Method>
 
 <Method name="GetRuntimeInfo">
-<ReturnType>%List</ReturnType>
+<ReturnType>TECH.BackgroundProcess.RuntimeInfo</ReturnType>
 <Implementation><![CDATA[	Quit ..RuntimeInfo
 ]]></Implementation>
 </Method>
 
-<Method name="SetClassName">
-<FormalSpec>ClassName:%String</FormalSpec>
-<Implementation><![CDATA[	Set ..ClassName = ClassName
-]]></Implementation>
-</Method>
-
-<Method name="SetMethod">
-<FormalSpec>Method:%String</FormalSpec>
-<Implementation><![CDATA[	Set ..Method = Method
-]]></Implementation>
-</Method>
-
 <Method name="SetRuntimeInfo">
-<FormalSpec>RunTimeInfo:%List</FormalSpec>
+<FormalSpec>RunTimeInfo:TECH.BackgroundProcess.RuntimeInfo</FormalSpec>
 <Implementation><![CDATA[	Set ..RuntimeInfo = RunTimeInfo
 ]]></Implementation>
 </Method>
@@ -86,70 +71,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="VoegToeArrayOfDataTypes">
-<FormalSpec>Array:%ArrayOfDataTypes</FormalSpec>
-<Implementation><![CDATA[
-	set Parameter = ##class(TECH.BackgroundProcess.impl.Parameter.ArrayOfDataTypes).%New(Array)
-	do ..InsertParameter(Parameter)
-]]></Implementation>
-</Method>
-
-<Method name="VoegToeArrayOfObjects">
-<FormalSpec>Array:%ArrayOfObjects</FormalSpec>
-<Implementation><![CDATA[
-	set Parameter = ##class(TECH.BackgroundProcess.impl.Parameter.ArrayOfObjects).%New(Array)
-	do ..InsertParameter(Parameter)
-]]></Implementation>
-</Method>
-
-<Method name="VoegToeDataTranferObject">
-<FormalSpec>Object:TECH.DataTransferObject</FormalSpec>
-<Implementation><![CDATA[
-	set Parameter = ##class(TECH.BackgroundProcess.impl.Parameter.DataTransferObject).%New(Object)
-	do ..InsertParameter(Parameter)
-]]></Implementation>
-</Method>
-
-<Method name="VoegToeDataType">
-<FormalSpec>Waarde:%String</FormalSpec>
-<Implementation><![CDATA[
-	set Parameter = ##class(TECH.BackgroundProcess.impl.Parameter.DataType).%New(Waarde)
-	do ..InsertParameter(Parameter)
-]]></Implementation>
-</Method>
-
-<Method name="VoegToeListOfDataTypes">
-<FormalSpec>List:%ListOfDataTypes</FormalSpec>
-<Implementation><![CDATA[
-	set Parameter = ##class(TECH.BackgroundProcess.impl.Parameter.ListOfDataTypes).%New(List)
-	do ..InsertParameter(Parameter)
-]]></Implementation>
-</Method>
-
-<Method name="VoegToeListOfObjects">
-<FormalSpec>List:%ListOfObjects</FormalSpec>
-<Implementation><![CDATA[
-	set Parameter = ##class(TECH.BackgroundProcess.impl.Parameter.ListOfObjects).%New(List)
-	do ..InsertParameter(Parameter)
-]]></Implementation>
-</Method>
-
-<Method name="VoegToeStream">
-<FormalSpec>Stream:%Stream</FormalSpec>
-<Implementation><![CDATA[
-	set Parameter = ##class(TECH.BackgroundProcess.impl.Parameter.Stream).%New()
-	do ..InsertParameter(Parameter)
-]]></Implementation>
-</Method>
-
-<Method name="InsertParameter">
-<FormalSpec>Parameter:TECH.BackgroundProcess.impl.Parameter</FormalSpec>
-<Implementation><![CDATA[
-	do ..Parameters.Insert(Parameter)
-	Do ..Save()
-]]></Implementation>
-</Method>
-
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^TECH.BackgroundProces42C4.DataD</DataLocation>
@@ -165,7 +86,7 @@
 <Value>ClassName</Value>
 </Value>
 <Value name="3">
-<Value>Method</Value>
+<Value>MethodName</Value>
 </Value>
 <Value name="4">
 <Value>Parameters</Value>
Index: TECH/impl/BackgroundProcessStartAndWaitStarter.cls.xml
===================================================================
diff -u
--- TECH/impl/BackgroundProcessStartAndWaitStarter.cls.xml	(revision 0)
+++ TECH/impl/BackgroundProcessStartAndWaitStarter.cls.xml	(revision 1198)
@@ -0,0 +1,60 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.impl.BackgroundProcessStartAndWaitStarter">
+<Super>TECH.impl.BackgroundProcessStarter</Super>
+
+<Method name="StartProcesses">
+<FormalSpec>ParameterDataList:TECH.BackgroundProcess.impl.DataList,Timeout:%Integer=60</FormalSpec>
+<Implementation><![CDATA[
+	#dim SignalIDs As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	
+	set DataIterator = ##class(TECH.ListIterator).%New()
+	while DataIterator.HasNext() {
+		#dim Data As TECH.BackgroundProcess.Data = DataIterator.Next()
+		#dim SignalID As %String = Data.GetSignalID()
+		do SignalIDs.Insert(SignalID)
+		do ##class(%SYSTEM.Event).Create(SignalID)
+		do ..StartProcess(Data)
+	}
+	
+	do ..WaitForSignals(SignalIDs, Timeout)
+]]></Implementation>
+</Method>
+
+<Method name="WaitForSignals">
+<FormalSpec>SignalIDs:%ListOfDataTypes,Timeout:%Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim StartTime As %Integer = $zh
+	while ('..SignalsProcessed(SignalIDs) ){
+		#dim SignalID As %String = SignalIDs.GetAt(1)
+		if ##class(%SYSTEM.Event).Wait(SignalID,1) {
+			do ..ProcessSignalID(SignalIDs , SignalID)
+		}
+		if ( ($zh - StartTime) > Timeout ) {
+			set Exception = ##class(TECH.Exceptions.GeneralErrorException).%New("Timeout exception")
+			do ##class(TECH.ExceptionHandler).Throw(Exception)
+		}
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ProcessSignalID">
+<FormalSpec>SignalIDs:%ListOfDataTypes,SignalID:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	do ##class(%SYSTEM.Event).Delete(SignalID)
+	do SignalIDs.RemoveAt(1)
+]]></Implementation>
+</Method>
+
+<Method name="SignalsProcessed">
+<FormalSpec>SignalIDs:%ListOfDataTypes</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	quit SignalIDs.Count() = 0
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: TECH/BackgroundProcess/RuntimeInfo.cls.xml
===================================================================
diff -u
--- TECH/BackgroundProcess/RuntimeInfo.cls.xml	(revision 0)
+++ TECH/BackgroundProcess/RuntimeInfo.cls.xml	(revision 1198)
@@ -0,0 +1,39 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.BackgroundProcess.RuntimeInfo">
+<Super>%SerialObject</Super>
+
+<Property name="PersonalityID">
+<Type>%String</Type>
+</Property>
+
+<Property name="ApplicatieID">
+<Type>%String</Type>
+</Property>
+
+<Property name="GebruikerID">
+<Type>%String</Type>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<State>RuntimeInfoState</State>
+<StreamLocation>^TECH.Backgroun3E06.RuntimeInfoS</StreamLocation>
+<Data name="RuntimeInfoState">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>PersonalityID</Value>
+</Value>
+<Value name="2">
+<Value>ApplicatieID</Value>
+</Value>
+<Value name="3">
+<Value>GebruikerID</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: TECH/BackgroundProcess.cls.xml
===================================================================
diff -u -r1171 -r1198
--- TECH/BackgroundProcess.cls.xml	(.../BackgroundProcess.cls.xml)	(revision 1171)
+++ TECH/BackgroundProcess.cls.xml	(.../BackgroundProcess.cls.xml)	(revision 1198)
@@ -1,69 +1,17 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="TECH.BackgroundProcess">
-<Abstract>1</Abstract>
-<Super>TECH.Template</Super>
+<Super>TECH.RegisteredObject</Super>
 
 <Method name="VoerUit">
 <Final>1</Final>
 <ClassMethod>1</ClassMethod>
 <FormalSpec>DataID:%String</FormalSpec>
 <Implementation><![CDATA[
-	#dim Data As TECH.BackgroundProcess.Data = ##class(TECH.BackgroundProcess.impl.Data).OpenId(DataID)
-	#dim SignalID As %String = Data.GetSignalID()
-	
-	try {
-		#dim ClassName As %String = Data.GetClassName()
-		#dim MethodName As %String = Data.GetMethod()
-	
-		set ParameterIterator = ##class(TECH.ListIterator).%New(Data.GetParameters())
-		#dim ParameterCount As Integer = 0
-		while ParameterIterator.HasNext() {
-			set ParameterCount = ParameterCount + 1
-			#dim Parameter As TECH.BackgroundProcess.Parameter = ParameterIterator.Next()
-			set @("Param"_ParameterCount) = Parameter.GetValue()
-		}
-		
-		#dim Code As %String = ..BuildCode(Data.GetClassName(),Data.GetMethod(),ParameterCount)
-		
-		Do ..LoadRuntimeInfo(Data.GetRuntimeInfo())
-		XECUTE Code
-		
-	} catch {
-		#dim Exception As TECH.Exceptions = ##class(TECH.ExceptionHandler).Catch()
-		do ##class(vhLib.Logger).LogEnMailExceptie(Exception)	
-	}
-	do:##class(%SYSTEM.Event).Defined(SignalID) ##class(%SYSTEM.Event).Signal(SignalID)
+	set Uitvoerder = ##class(TECH.BackgroundProcess.Uitvoerder).%New("6554665440641941641649798797986541646464")
+	do Uitvoerder.VoerUit(DataID)
 ]]></Implementation>
 </Method>
-
-<Method name="BuildCode">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>ClassName:%String,MethodName:%String,ParameterCount:%Integer</FormalSpec>
-<Implementation><![CDATA[
-	#dim Counter As %Integer
-	#dim Code = "do ##class("_ClassName_")."_MethodName_"("
-		
-	for Counter = 1 : 1 : ParameterCount {
-		set Code = Code _ "Param"_Counter
-		set:(Counter'=ParameterCount) Code = Code _ ","
-	}
-	set Code = Code_")"
-	quit Code
-]]></Implementation>
-</Method>
-
-<Method name="LoadRuntimeInfo">
-<Final>1</Final>
-<ClassMethod>1</ClassMethod>
-<FormalSpec>RuntimeInfo:%String</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	do ##class(TECH.Context.RuntimeContext).Instance().ZetPersonalityID($listget(RuntimeInfo,2))
-	do ##class(TECH.Context.RuntimeContext).Instance().ZetApplicatie($listget(RuntimeInfo,3))
-	do ##class(TECH.Context.RuntimeContext).Instance().ZetGebruikerID($listget(RuntimeInfo,4))
-]]></Implementation>
-</Method>
 </Class>
 
 
FishEye: Tag 1198 refers to a dead (removed) revision in file `TECH/BackgroundProcess/Data.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: TECH/BackgroundProcess/impl/Parameter/DataTransferObject.cls.xml
===================================================================
diff -u -r1180 -r1198
--- TECH/BackgroundProcess/impl/Parameter/DataTransferObject.cls.xml	(.../DataTransferObject.cls.xml)	(revision 1180)
+++ TECH/BackgroundProcess/impl/Parameter/DataTransferObject.cls.xml	(.../DataTransferObject.cls.xml)	(revision 1198)
@@ -3,11 +3,16 @@
 <Class name="TECH.BackgroundProcess.impl.Parameter.DataTransferObject">
 <Super>TECH.BackgroundProcess.impl.Parameter</Super>
 
-<Property name="Value">
-<Type>TECH.DataTransferObject</Type>
+<Property name="Stream">
+<Type>%GlobalCharacterStream</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="ClassName">
+<Type>TECH.String</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>Object:TECH.DataTransferObject=""</FormalSpec>
 <Private>1</Private>
@@ -28,25 +33,40 @@
 
 <Method name="GetValue">
 <ReturnType>TECH.DataTransferObject</ReturnType>
-<Implementation><![CDATA[	Quit ..Value
+<Implementation><![CDATA[
+	#dim Object As TECH.DataTransferObject
+	
+	Set reader = ##class(%XML.Reader).%New()
+	#dim Status As %Status = reader.OpenStream(..Stream)
+	do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(Status,"Openstream Failed")
+	do reader.Correlate("DATA",..ClassName) 
+	do reader.Next(.Object,.Status)
+	do ##class(TECH.Exceptions.StatusException).ThrowIndienNietOK(Status,"Correlate Failed")
+	quit Object
 ]]></Implementation>
 </Method>
 
 <Method name="SetValue">
 <FormalSpec>Object:TECH.DataTransferObject</FormalSpec>
-<Implementation><![CDATA[	set ..Value = Object
+<Implementation><![CDATA[
+	set Stream = ##class(%GlobalCharacterStream).%New()
+	do Object.XMLExportToStream(.Stream,"DATA")
+	set ..Stream = Stream
+	set ..ClassName = Object.%ClassName(1)
 ]]></Implementation>
 </Method>
 
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <State>DataTransferObjectState</State>
 <Data name="DataTransferObjectState">
-<Structure>listnode</Structure>
 <Subscript>"DataTransferObject"</Subscript>
 <Value name="1">
-<Value>Value</Value>
+<Value>Stream</Value>
 </Value>
+<Value name="2">
+<Value>ClassName</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: TECH/impl/BackgroundProcessStarter.cls.xml
===================================================================
diff -u -r1171 -r1198
--- TECH/impl/BackgroundProcessStarter.cls.xml	(.../BackgroundProcessStarter.cls.xml)	(revision 1171)
+++ TECH/impl/BackgroundProcessStarter.cls.xml	(.../BackgroundProcessStarter.cls.xml)	(revision 1198)
@@ -3,29 +3,39 @@
 <Class name="TECH.impl.BackgroundProcessStarter">
 <Super>TECH.RegisteredObject,TECH.BackgroundProcessStarter</Super>
 
-<Property name="SignalID">
-<Type>%String</Type>
-<Private>1</Private>
-</Property>
+<Method name="StartProcessen">
+<FormalSpec>ParameterDataList:TECH.BackgroundProcess.impl.DataList</FormalSpec>
+<Implementation><![CDATA[
+	set DataIterator = ##class(TECH.ListIterator).%New()
+	while DataIterator.HasNext() {
+		#dim Data As ParameterData = DataIterator.Next()
+		do ..StartProcess(Data)
+	}
+]]></Implementation>
+</Method>
 
 <Method name="StartProcess">
-<FormalSpec>ParameterData:TECH.BackgroundProcess.Data</FormalSpec>
+<FormalSpec>Data:TECH.BackgroundProcess.impl.Data</FormalSpec>
 <Implementation><![CDATA[
-	Do ParameterData.SetRuntimeInfo(..BuildRuntimeInfo())
-	Do ParameterData.Save()
+	Do Data.SetRuntimeInfo(..BuildRuntimeInfo())
+	Do Data.Save()
 	
-	Job ##class(TECH.BackgroundProcess).VoerUit(ParameterData.GeefID())
+	
+	do ##class(vhLib.Logger).%New().Info("BackgroundProcessStarter",Data.GeefID())
+	
+	
+	Job ##class(TECH.BackgroundProcess).VoerUit(Data.GeefID())
 ]]></Implementation>
 </Method>
 
 <Method name="BuildRuntimeInfo">
 <Private>1</Private>
-<ReturnType>%List</ReturnType>
+<ReturnType>TECH.BackgroundProcess.RuntimeInfo</ReturnType>
 <Implementation><![CDATA[
-	#dim RuntimeInfo As %List = ""
-	set $List(RuntimeInfo,2) = ##class(TECH.Context.RuntimeContext).Instance().GeefPersonalityID()
-	set $List(RuntimeInfo,3) = ##class(TECH.Context.RuntimeContext).Instance().GeefApplicatie()
-	set $List(RuntimeInfo,4) = ##class(TECH.Context.RuntimeContext).Instance().GeefGebruikerID()
+	set RuntimeInfo = ##class(TECH.BackgroundProcess.RuntimeInfo).%New()
+	set RuntimeInfo.ApplicatieID = ##class(TECH.Context.RuntimeContext).Instance().GeefApplicatie()
+	set RuntimeInfo.GebruikerID = ##class(TECH.Context.RuntimeContext).Instance().GeefGebruikerID()
+	set RuntimeInfo.PersonalityID = ##class(TECH.Context.RuntimeContext).Instance().GeefPersonalityID()
 	quit RuntimeInfo
 ]]></Implementation>
 </Method>
Index: TECH/BackgroundProcess/impl/ParameterList.cls.xml
===================================================================
diff -u
--- TECH/BackgroundProcess/impl/ParameterList.cls.xml	(revision 0)
+++ TECH/BackgroundProcess/impl/ParameterList.cls.xml	(revision 1198)
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.BackgroundProcess.impl.ParameterList">
+<Super>%ListOfObjects</Super>
+
+<Parameter name="ELEMENTTYPE">
+<Description>
+The type (class name) of the elements stored in the collection.</Description>
+<Default>TECH.BackgroundProcess.Parameter</Default>
+</Parameter>
+
+<Storage name="Custom">
+<Type>%Library.CompleteCustomStorage</Type>
+</Storage>
+</Class>
+
+
+</Export>
Index: TECH/BackgroundProcess/Uitvoerder.cls.xml
===================================================================
diff -u
--- TECH/BackgroundProcess/Uitvoerder.cls.xml	(revision 0)
+++ TECH/BackgroundProcess/Uitvoerder.cls.xml	(revision 1198)
@@ -0,0 +1,91 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.BackgroundProcess.Uitvoerder">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="%OnNew">
+<FormalSpec>UitvoeringsCode:%String=""</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	if UitvoeringsCode '= "6554665440641941641649798797986541646464" {
+		#dim Omschrijving As %String = "Het is niet de bedoeling dat je deze klasse zelf instantieert je moet gebruik maken van de ClassMethod op TECH.BackgroundProcess"
+			set Exception = ##class(TECH.Exceptions.IllegalUsageException).%New(Omschrijving)
+			do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VoerUit">
+<FormalSpec>DataID:%String</FormalSpec>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+	new Data,Code,SignalID
+	new ParameterIterator, ParameterCount , Parameter
+	
+	#dim Data As TECH.BackgroundProcess.Data = ##class(TECH.BackgroundProcess.impl.Data).OpenId(DataID)
+	
+	try {
+		do SetDataInParams
+		
+		#dim Code As %String = ..BuildCode(Data.ClassName,Data.MethodName,ParameterCount)
+		do ..LoadRuntimeInfo(Data.GetRuntimeInfo())
+		
+		do ##class(vhLib.Logger).%New().Info("BackgroundProcessUitvoerder","Execute : "_Code)
+		xecute Code
+		
+	} catch {
+		new Exception
+		#dim Exception As TECH.Exceptions = ##class(TECH.ExceptionHandler).Catch()
+		do ##class(vhLib.Logger).LogEnMailExceptie(Exception)	
+	}
+	
+	#dim SignalID As %String = Data.GetSignalID()
+	do:##class(%SYSTEM.Event).Defined(SignalID) ##class(%SYSTEM.Event).Signal(SignalID)
+	quit
+	
+	
+SetDataInParams
+	set ParameterIterator = ##class(TECH.ListIterator).%New(Data.GetParameters())
+	#dim ParameterCount As Integer = 0
+	while ParameterIterator.HasNext() {
+		set ParameterCount = ParameterCount + 1
+		#dim Parameter As TECH.BackgroundProcess.Parameter = ParameterIterator.Next()
+		set @("Param"_ParameterCount) = Parameter.GetValue()
+	}
+	quit
+]]></Implementation>
+</Method>
+
+<Method name="BuildCode">
+<FormalSpec>ClassName:%String,MethodName:%String,ParameterCount:%Integer,ParamName:%String="Param"</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Counter As %Integer
+	#dim Code = "do ##class("_ClassName_")."_MethodName_"("
+		
+	for Counter = 1 : 1 : ParameterCount {
+		set Code = Code _ "Param"_Counter
+		set:(Counter'=ParameterCount) Code = Code _ ","
+	}
+	set Code = Code_")"
+	quit Code
+]]></Implementation>
+</Method>
+
+<Method name="LoadRuntimeInfo">
+<FormalSpec>RuntimeInfo:TECH.BackgroundProcess.RuntimeInfo</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	do ##class(TECH.Context.RuntimeContext).Instance().ZetPersonalityID(RuntimeInfo.PersonalityID)
+	do ##class(TECH.Context.RuntimeContext).Instance().ZetApplicatie(RuntimeInfo.ApplicatieID)
+	do ##class(TECH.Context.RuntimeContext).Instance().ZetGebruikerID(RuntimeInfo.GebruikerID)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/BackgroundProcess/Uitvoerder/New/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/BackgroundProcess/Uitvoerder/New/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/BackgroundProcess/Uitvoerder/New/Test.cls.xml	(revision 1198)
@@ -0,0 +1,11 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.BackgroundProcess.Uitvoerder.New.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="TestIllegalUsage">
+</Method>
+</Class>
+
+
+</Export>
Index: TECH/BackgroundProcess/DataBuilder.cls.xml
===================================================================
diff -u
--- TECH/BackgroundProcess/DataBuilder.cls.xml	(revision 0)
+++ TECH/BackgroundProcess/DataBuilder.cls.xml	(revision 1198)
@@ -0,0 +1,74 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.BackgroundProcess.DataBuilder">
+<Abstract>1</Abstract>
+<Super>TECH.Interface</Super>
+
+<Method name="GetData">
+<Abstract>1</Abstract>
+<ReturnType>TECH.BackgroundProcess.Data</ReturnType>
+</Method>
+
+<Method name="SetClassName">
+<Abstract>1</Abstract>
+<FormalSpec>ClassName:%String</FormalSpec>
+</Method>
+
+<Method name="GetClassName">
+<Abstract>1</Abstract>
+<ReturnType>%String</ReturnType>
+</Method>
+
+<Method name="GetParameters">
+<Abstract>1</Abstract>
+<ReturnType>%ListOfObjects</ReturnType>
+</Method>
+
+<Method name="SetMethod">
+<Abstract>1</Abstract>
+<FormalSpec>Method:%String</FormalSpec>
+</Method>
+
+<Method name="GetMethod">
+<Abstract>1</Abstract>
+<ReturnType>%String</ReturnType>
+</Method>
+
+<Method name="VoegToeDataType">
+<Abstract>1</Abstract>
+<FormalSpec>Value:%String</FormalSpec>
+</Method>
+
+<Method name="VoegToeListOfObjects">
+<Abstract>1</Abstract>
+<FormalSpec>List:%ListOfObjects</FormalSpec>
+</Method>
+
+<Method name="VoegToeArrayOfObjects">
+<Abstract>1</Abstract>
+<FormalSpec>Array:%ArrayOfObjects</FormalSpec>
+</Method>
+
+<Method name="VoegToeDataTranferObject">
+<Abstract>1</Abstract>
+<FormalSpec>Object:TECH.DataTransferObject</FormalSpec>
+</Method>
+
+<Method name="VoegToeListOfDataTypes">
+<Abstract>1</Abstract>
+<FormalSpec>List:%ListOfDataTypes</FormalSpec>
+</Method>
+
+<Method name="VoegToeArrayOfDataTypes">
+<Abstract>1</Abstract>
+<FormalSpec>Array:%ArrayOfDataTypes</FormalSpec>
+</Method>
+
+<Method name="VoegToeStream">
+<Abstract>1</Abstract>
+<FormalSpec>Stream:%Stream</FormalSpec>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/BackgroundProcess/impl/Parameter/DataTransferObject/GetSet/Test.cls.xml
===================================================================
diff -u -r1172 -r1198
--- vhUnitTest/TECH/BackgroundProcess/impl/Parameter/DataTransferObject/GetSet/Test.cls.xml	(.../Test.cls.xml)	(revision 1172)
+++ vhUnitTest/TECH/BackgroundProcess/impl/Parameter/DataTransferObject/GetSet/Test.cls.xml	(.../Test.cls.xml)	(revision 1198)
@@ -3,7 +3,7 @@
 <Class name="vhUnitTest.TECH.BackgroundProcess.impl.Parameter.DataTransferObject.GetSet.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Method name="Test">
+<Method name="TestGetSet">
 <Implementation><![CDATA[
 	#dim Object As Object = ..GetNewObject()
 	set Object.Object = ..GetNewObject()
@@ -23,6 +23,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="TestObjectIsXMLStreamGeworden">
+<Implementation><![CDATA[
+	set Parameter = ##class(vhUnitTest.TECH.BackgroundProcess.impl.Parameter.DataTransferObject.GetSet.DataTransferObjectSpy).%New()
+	
+	do Parameter.SetValue(..GetNewObject())
+	#dim DummyResult As TECH.DataTransferObject = Parameter.GetValue()
+	
+	do $$$AssertEquals(Parameter.GetStream().Read(),"<DATA><Property1>Property1</Property1><Property2>Property2</Property2></DATA>")
+	do $$$AssertEquals(Parameter.GetClassName(),"vhUnitTest.TECH.BackgroundProcess.impl.Parameter.DataTransferObject.GetSet.Object")
+]]></Implementation>
+</Method>
+
 <Method name="GetNewObject">
 <Private>1</Private>
 <ReturnType>vhUnitTest.TECH.BackgroundProcess.impl.Parameter.DataTransferObject.GetSet.Object</ReturnType>
Index: vhUnitTest/TECH/BackgroundProcess/DataBuilder/DummyDTO.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/BackgroundProcess/DataBuilder/DummyDTO.cls.xml	(revision 0)
+++ vhUnitTest/TECH/BackgroundProcess/DataBuilder/DummyDTO.cls.xml	(revision 1198)
@@ -0,0 +1,32 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.BackgroundProcess.DataBuilder.DummyDTO">
+<Super>TECH.DataTransferObject</Super>
+
+<Property name="WaardeString">
+<Type>%String</Type>
+<InitialExpression>"WaardeString"</InitialExpression>
+</Property>
+
+<Property name="WaardeInteger">
+<Type>%Integer</Type>
+<InitialExpression>1</InitialExpression>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<State>DummyDTOState</State>
+<StreamLocation>^vhTest.Integratie155C.DummyDTOS</StreamLocation>
+<Data name="DummyDTOState">
+<Value name="1">
+<Value>WaardeString</Value>
+</Value>
+<Value name="2">
+<Value>WaardeInteger</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: TECH/BackgroundProcess/impl/DataBuilder.cls.xml
===================================================================
diff -u
--- TECH/BackgroundProcess/impl/DataBuilder.cls.xml	(revision 0)
+++ TECH/BackgroundProcess/impl/DataBuilder.cls.xml	(revision 1198)
@@ -0,0 +1,123 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.BackgroundProcess.impl.DataBuilder">
+<Super>TECH.RegisteredObject,TECH.BackgroundProcess.DataBuilder</Super>
+
+<Property name="Data">
+<Type>TECH.BackgroundProcess.impl.Data</Type>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..Data = ##class(TECH.BackgroundProcess.impl.Data).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GetData">
+<ReturnType>TECH.BackgroundProcess.Data</ReturnType>
+<Implementation><![CDATA[	quit ..Data
+]]></Implementation>
+</Method>
+
+<Method name="GetParameters">
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[	Quit ..Data.Parameters
+]]></Implementation>
+</Method>
+
+<Method name="GetClassName">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Data.ClassName
+]]></Implementation>
+</Method>
+
+<Method name="GetMethodName">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Data.MethodName
+]]></Implementation>
+</Method>
+
+<Method name="SetClassName">
+<FormalSpec>ClassName:%String</FormalSpec>
+<Implementation><![CDATA[	Set ..Data.ClassName = ClassName
+]]></Implementation>
+</Method>
+
+<Method name="SetMethodName">
+<FormalSpec>MethodName:%String</FormalSpec>
+<Implementation><![CDATA[	Set ..Data.MethodName = MethodName
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeArrayOfDataTypes">
+<FormalSpec>Array:%ArrayOfDataTypes</FormalSpec>
+<Implementation><![CDATA[
+	set Parameter = ##class(TECH.BackgroundProcess.impl.Parameter.ArrayOfDataTypes).%New(Array)
+	do ..InsertParameter(Parameter)
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeArrayOfObjects">
+<FormalSpec>Array:%ArrayOfObjects</FormalSpec>
+<Implementation><![CDATA[
+	set Parameter = ##class(TECH.BackgroundProcess.impl.Parameter.ArrayOfObjects).%New(Array)
+	do ..InsertParameter(Parameter)
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeDataTranferObject">
+<FormalSpec>Object:TECH.DataTransferObject</FormalSpec>
+<Implementation><![CDATA[
+	set Parameter = ##class(TECH.BackgroundProcess.impl.Parameter.DataTransferObject).%New(Object)
+	do ..InsertParameter(Parameter)
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeDataType">
+<FormalSpec>Waarde:%String</FormalSpec>
+<Implementation><![CDATA[
+	set Parameter = ##class(TECH.BackgroundProcess.impl.Parameter.DataType).%New(Waarde)
+	do ..InsertParameter(Parameter)
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeListOfDataTypes">
+<FormalSpec>List:%ListOfDataTypes</FormalSpec>
+<Implementation><![CDATA[
+	set Parameter = ##class(TECH.BackgroundProcess.impl.Parameter.ListOfDataTypes).%New(List)
+	do ..InsertParameter(Parameter)
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeListOfObjects">
+<FormalSpec>List:%ListOfObjects</FormalSpec>
+<Implementation><![CDATA[
+	set Parameter = ##class(TECH.BackgroundProcess.impl.Parameter.ListOfObjects).%New(List)
+	do ..InsertParameter(Parameter)
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeStream">
+<FormalSpec>Stream:%Stream</FormalSpec>
+<Implementation><![CDATA[
+	set Parameter = ##class(TECH.BackgroundProcess.impl.Parameter.Stream).%New()
+	do ..InsertParameter(Parameter)
+]]></Implementation>
+</Method>
+
+<Method name="InsertParameter">
+<FormalSpec>Parameter:TECH.BackgroundProcess.impl.Parameter</FormalSpec>
+<Implementation><![CDATA[
+	do ..Data.Parameters.Insert(Parameter)
+	do ..Data.Save()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: TECH/BackgroundProcess/impl/DataList.cls.xml
===================================================================
diff -u
--- TECH/BackgroundProcess/impl/DataList.cls.xml	(revision 0)
+++ TECH/BackgroundProcess/impl/DataList.cls.xml	(revision 1198)
@@ -0,0 +1,18 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.BackgroundProcess.impl.DataList">
+<Super>%ListOfObjects</Super>
+
+<Parameter name="ELEMENTTYPE">
+<Description>
+The type (class name) of the elements stored in the collection.</Description>
+<Default>TECH.BackgroundProcess.impl.Data</Default>
+</Parameter>
+
+<Storage name="Custom">
+<Type>%Library.CompleteCustomStorage</Type>
+</Storage>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/BackgroundProcess/impl/Parameter/DataTransferObject/GetSet/DataTransferObjectSpy.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/BackgroundProcess/impl/Parameter/DataTransferObject/GetSet/DataTransferObjectSpy.cls.xml	(revision 0)
+++ vhUnitTest/TECH/BackgroundProcess/impl/Parameter/DataTransferObject/GetSet/DataTransferObjectSpy.cls.xml	(revision 1198)
@@ -0,0 +1,26 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.BackgroundProcess.impl.Parameter.DataTransferObject.GetSet.DataTransferObjectSpy">
+<Super>TECH.BackgroundProcess.impl.Parameter.DataTransferObject</Super>
+
+<Method name="GetStream">
+<ReturnType>%GlobalCharacterStream</ReturnType>
+<Implementation><![CDATA[
+	do ..Stream.Rewind()
+	quit ..Stream
+]]></Implementation>
+</Method>
+
+<Method name="GetClassName">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..ClassName
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+</Storage>
+</Class>
+
+
+</Export>
Index: vhUnitTest/TECH/BackgroundProcess/DataBuilder/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/BackgroundProcess/DataBuilder/Test.cls.xml	(revision 0)
+++ vhUnitTest/TECH/BackgroundProcess/DataBuilder/Test.cls.xml	(revision 1198)
@@ -0,0 +1,55 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.TECH.BackgroundProcess.DataBuilder.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="KlasseNaam">
+<Type>%String</Type>
+<Default>DummyKlasseNaam</Default>
+</Parameter>
+
+<Parameter name="MethodeNaam">
+<Type>%String</Type>
+<Default>DummyMethodeNaam</Default>
+</Parameter>
+
+<Parameter name="DataTypeString">
+<Type>%String</Type>
+<Default>DummyString</Default>
+</Parameter>
+
+<Parameter name="DataTypeInteger">
+<Type>%Integer</Type>
+<Default>1</Default>
+</Parameter>
+
+<Property name="ListOfDataTypes">
+<Type>%String</Type>
+<Collection>list</Collection>
+<Private>1</Private>
+</Property>
+
+<Method name="Test">
+<Implementation><![CDATA[
+	set DataBuilder = ##class(TECH.BackgroundProcess.impl.DataBuilder).%New()
+	do DataBuilder.SetClassName("DummyClassName")
+	do DataBuilder.SetMethodName("DummyMethodName")
+	do DataBuilder.VoegToeDataTranferObject(##class(vhUnitTest.TECH.BackgroundProcess.DataBuilder.DummyDTO).%New())
+	
+	#dim Parameters As %ListOfObjects = DataBuilder.GetParameters()
+	
+	do $$$AssertEquals(Parameters.Count(),1)
+]]></Implementation>
+</Method>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+</Method>
+
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+</Method>
+</Class>
+
+
+</Export>
FishEye: Tag 1198 refers to a dead (removed) revision in file `vhUnitTest/TECH/BackgroundProcess/BuildCode/Test.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?