Index: TECH/BackgroundProcess/Uitvoerder.cls.xml
===================================================================
diff -u -r2936 -r2940
--- TECH/BackgroundProcess/Uitvoerder.cls.xml	(.../Uitvoerder.cls.xml)	(revision 2936)
+++ TECH/BackgroundProcess/Uitvoerder.cls.xml	(.../Uitvoerder.cls.xml)	(revision 2940)
@@ -3,6 +3,12 @@
 <Class name="TECH.BackgroundProcess.Uitvoerder">
 <Super>TECH.RegisteredObject</Super>
 
+<Property name="Params">
+<Type>%CacheString</Type>
+<Collection>list</Collection>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>UitvoeringsCode:%String=""</FormalSpec>
 <Private>1</Private>
@@ -21,58 +27,54 @@
 
 <Method name="VoerUit">
 <FormalSpec>DataID:%String</FormalSpec>
-<ProcedureBlock>0</ProcedureBlock>
+<ProcedureBlock>1</ProcedureBlock>
 <Implementation><![CDATA[
-	new Data,Code,SignalID
-	new ParameterIterator, ParameterCount , Parameter
-	
 	#dim Data As TECH.BackgroundProcess.Data = ##class(TECH.BackgroundProcess.impl.Data).OpenId(DataID)
 	#dim SignalID As %String = Data.GetSignalID()
 	
 	try {
-		do SetDataInParams
-		
-		#dim Code As %String = ..BuildCode(Data.ClassName,Data.MethodName,ParameterCount)
+		do ..SetDataInParams(Data)
 		do ..LoadRuntimeInfo(Data.GetRuntimeInfo())
 		
-		do ##class(vhLib.Logger).%New().Info("BackgroundProcessUitvoerder","Execute : "_Code)
-		xecute Code
+		do ##class(vhLib.Logger).%New().Info("BackgroundProcessUitvoerder","Execute : "_Data.ClassName_" "_Data.MethodName)
+		#dim Class As %Base = $classmethod(Data.ClassName,"%New")
+		
+		if ..Params.Count() = 0 {
+			do $method(Class,Data.MethodName)
+		} elseif ..Params.Count() = 1 {
+			do $method(Class,Data.MethodName,..Params.GetAt(1))
+		} elseif ..Params.Count() = 2 {
+			do $method(Class,Data.MethodName,..Params.GetAt(1),..Params.GetAt(2))
+		} elseif ..Params.Count() = 3 {
+			do $method(Class,Data.MethodName,..Params.GetAt(1),..Params.GetAt(2),..Params.GetAt(3))		
+		} elseif ..Params.Count() = 4 {
+			do $method(Class,Data.MethodName,..Params.GetAt(1),..Params.GetAt(2),..Params.GetAt(3),..Params.GetAt(4))		
+		} elseif ..Params.Count() = 5 {
+			do $method(Class,Data.MethodName,..Params.GetAt(1),..Params.GetAt(2),..Params.GetAt(3),..Params.GetAt(4),..Params.GetAt(5))		
+		}		
+		
 		Do ##class(TECH.BackgroundProcess.impl.Data).DeleteId(DataID)
+		
 	} catch {
-		new Exception
 		#dim Exception As TECH.Exceptions = ##class(TECH.ExceptionHandler).Catch()
 		do ##class(vhLib.Logger).LogEnMailExceptie(Exception, "voor background process data met ID="_DataID)	
 	}
 	
 	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>
+<Method name="SetDataInParams">
+<FormalSpec>Data:TECH.BackgroundProcess.Data</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim Counter As %Integer
-	#dim Code = "do ##class("_ClassName_").%New()."_MethodName_"("
-		
-	for Counter = 1 : 1 : ParameterCount {
-		set Code = Code _ "Param"_Counter
-		set:(Counter'=ParameterCount) Code = Code _ ","
+	set ParameterIterator = ##class(TECH.ListIterator).%New(Data.GetParameters())
+	while ParameterIterator.HasNext() {
+		#dim Parameter As TECH.BackgroundProcess.Parameter = ParameterIterator.Next()
+		do ..Params.Insert(Parameter.GetValue())
 	}
-	set Code = Code_")"
-	quit Code
+	quit
 ]]></Implementation>
 </Method>
 
Index: TECH/BackgroundProcess/impl/DataBuilder.cls.xml
===================================================================
diff -u -r1198 -r2940
--- TECH/BackgroundProcess/impl/DataBuilder.cls.xml	(.../DataBuilder.cls.xml)	(revision 1198)
+++ TECH/BackgroundProcess/impl/DataBuilder.cls.xml	(.../DataBuilder.cls.xml)	(revision 2940)
@@ -3,6 +3,11 @@
 <Class name="TECH.BackgroundProcess.impl.DataBuilder">
 <Super>TECH.RegisteredObject,TECH.BackgroundProcess.DataBuilder</Super>
 
+<Parameter name="MaximumAllowedParameters">
+<Type>%Integer</Type>
+<Default>5</Default>
+</Parameter>
+
 <Property name="Data">
 <Type>TECH.BackgroundProcess.impl.Data</Type>
 </Property>
@@ -112,8 +117,13 @@
 
 <Method name="InsertParameter">
 <FormalSpec>Parameter:TECH.BackgroundProcess.impl.Parameter</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
+	if ..Data.Parameters.Count() = ..#MaximumAllowedParameters {
+		do ##class(TECH.Exceptions.IllegalUsageException).Throw("Meer dan "_..#MaximumAllowedParameters_" parameters zijn spijtig genoeg niet toegelaten. Indien gewenst "_##class(TECH.BackgroundProcess.Uitvoerder).%ClassName(1)_" uitbreiden.")
+	}
 	do ..Data.Parameters.Insert(Parameter)
+	
 	do ..Data.Save()
 ]]></Implementation>
 </Method>