Index: TECH/Persistentie/impl/Repository.cls.xml
===================================================================
diff -u -r3395 -r3793
--- TECH/Persistentie/impl/Repository.cls.xml	(.../Repository.cls.xml)	(revision 3395)
+++ TECH/Persistentie/impl/Repository.cls.xml	(.../Repository.cls.xml)	(revision 3793)
@@ -7,6 +7,11 @@
 <Type>%String</Type>
 </Parameter>
 
+<Property name="DataClassName">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="Gateway">
 <Type>TECH.Persistent.Gateway</Type>
 <Private>1</Private>
@@ -24,8 +29,11 @@
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Do ..ControleerDataClassName(..#DataClassName)
-	Set ..Gateway = $$$Implementation(Gateway,##class(TECH.Persistent.impl.Gateway).%New(..#DataClassName))
+	If $$$HasLength(..#DataClassName) {
+		Set ..DataClassName = ..#DataClassName
+	}
+	Do ..ControleerDataClassName(..DataClassName)
+	Set ..Gateway = $$$Implementation(Gateway,##class(TECH.Persistent.impl.Gateway).%New(..DataClassName))
 	Set ..QueryAPI = $$$Implementation(QueryAPI,##class(TECH.Context).Instance().GeefQueryAPI())
 	Quit $$$OK
 ]]></Implementation>
@@ -35,7 +43,7 @@
 <FormalSpec>DataClassName:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	if (..#DataClassName = "") {
+	if (..DataClassName = "") {
 		Set Exception = ##class(TECH.Exceptions.GeneralErrorException).%New("DataClassName moet gegeven worden bij het creeeren van een repository!") 
 		Do ##class(TECH.ExceptionHandler).Throw(Exception)
 	}
@@ -102,7 +110,7 @@
 <Private>1</Private>
 <ReturnType>TECH.Persistent</ReturnType>
 <Implementation><![CDATA[
-	#dim SqlTableName As TECH.String = ##class(TECH.CompiledClassUtils).GetSQLTableName(..#DataClassName)
+	#dim SqlTableName As TECH.String = ##class(TECH.CompiledClassUtils).GetSQLTableName(..DataClassName)
 	#dim SqlStatement As TECH.String = "SELECT ID FROM " _SqlTableName _" WHERE " _Filter
 
 	#dim ResultSet As TECH.ResultSet = ..QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement,Params))
@@ -120,7 +128,7 @@
 <Method name="ZoekAlle">
 <ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[
-	#dim SqlTableName As TECH.String = ##class(TECH.CompiledClassUtils).GetSQLTableName(..#DataClassName)
+	#dim SqlTableName As TECH.String = ##class(TECH.CompiledClassUtils).GetSQLTableName(..DataClassName)
 	#dim SqlStatement As TECH.String = "SELECT ID FROM " _SqlTableName 
 
 	#dim ResultSet As TECH.ResultSet = ..QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement))
@@ -137,7 +145,7 @@
 <Private>1</Private>
 <ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[
-	#dim SqlTableName As TECH.String = ##class(TECH.CompiledClassUtils).GetSQLTableName(..#DataClassName)
+	#dim SqlTableName As TECH.String = ##class(TECH.CompiledClassUtils).GetSQLTableName(..DataClassName)
 	#dim SqlStatement As TECH.String = "SELECT ID FROM " _SqlTableName _" WHERE " _Filter
 
 	#dim ResultSet As TECH.ResultSet = ..QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement,Params))
@@ -165,7 +173,7 @@
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	#dim SqlTableName As TECH.String = ##class(TECH.CompiledClassUtils).GetSQLTableName(..#DataClassName)
+	#dim SqlTableName As TECH.String = ##class(TECH.CompiledClassUtils).GetSQLTableName(..DataClassName)
 	#dim SqlStatement As TECH.String = "SELECT ID FROM " _SqlTableName _" WHERE " _Filter
 
 	#dim ResultSet As TECH.ResultSet = ..QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement,Params))
Index: TECH/Persistentie/impl/DynamischeRepository.cls.xml
===================================================================
diff -u
--- TECH/Persistentie/impl/DynamischeRepository.cls.xml	(revision 0)
+++ TECH/Persistentie/impl/DynamischeRepository.cls.xml	(revision 3793)
@@ -0,0 +1,27 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.Persistentie.impl.DynamischeRepository">
+<Super>TECH.Persistentie.impl.Repository</Super>
+
+<Parameter name="DataClassName">
+<Description>
+Alle afgeleiden van deze klasse moeten deze parameter op leeg laten staan en de klassenaam via de constructor meegeven</Description>
+<Type>%String</Type>
+</Parameter>
+
+<Method name="%OnNew">
+<FormalSpec>Gateway:TECH.Persistent.Gateway="",QueryAPI:TECH.Query.QueryAPI="",KlasseNaam:%String</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..DataClassName = KlasseNaam
+	Do ##super(Gateway,QueryAPI)
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>