Index: APPS/PM/Maatwerk/MaatwerkModel/impl/BuilderMaker.cls.xml
===================================================================
diff -u -r31841 -r31842
--- APPS/PM/Maatwerk/MaatwerkModel/impl/BuilderMaker.cls.xml	(.../BuilderMaker.cls.xml)	(revision 31841)
+++ APPS/PM/Maatwerk/MaatwerkModel/impl/BuilderMaker.cls.xml	(.../BuilderMaker.cls.xml)	(revision 31842)
@@ -176,10 +176,10 @@
 	If (GenereerCode) {
 		Write "Top-level builder aanmaken", !
 		
-		#dim SuperKlasse As %String = "DOM.PM.Maatwerk.Calc.HF.ISamengesteldHalffabItemBuilder"
+		#dim SuperKlasseLijst As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("DOM.PM.Maatwerk.Calc.HF.ISamengesteldHalffabItemBuilder")
 		#dim Stream As %CharacterStream = ##class(%FileCharacterStream).%New()
 		
-		Do ##class(APPS.PM.Maatwerk.MaatwerkModel.impl.ModelUtils).GenereerKlasseBegin(Stream, KlasseNaam, SuperKlasse)
+		Do ##class(APPS.PM.Maatwerk.MaatwerkModel.impl.ModelUtils).GenereerKlasseBegin(Stream, KlasseNaam, SuperKlasseLijst)
 		
 		// Specifiek voor de top-level builder is er een default waarde voor de SamengesteldHalffabItemBuilder als parameter voor de constructor.
 		Do Stream.WriteLine("<Method name=""%OnNew"">")
@@ -219,8 +219,8 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	Do ##class(APPS.PM.Maatwerk.MaatwerkModel.impl.ModelUtils).GenereerPrivateMethodBegin(Stream, "VoegToeBuilders")
-	#dim BuilderIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Builders)
 	
+	#dim BuilderIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Builders)
 	while (BuilderIterator.HasNext()) {
 		Do BuilderIterator.Next()
 		#dim RolNaam As %String = BuilderIterator.Key()
@@ -253,17 +253,18 @@
 	If (GenereerCode) {
 		Write "Halffab spec aanmaken", !
 		
-		#dim SuperKlasse As %String = "DOM.PM.Maatwerk.Calc.HF.HalffabSpec"
+		#dim SuperKlasseLijst As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("DOM.PM.Maatwerk.Calc.HF.HalffabSpec")
 		#dim HalffabNameClassFactoryNaam As %String = ..Model.GeefHalffabClassNameFactoryPackage() _ ".HalffabClassNameFactory"
 		#dim Stream As %CharacterStream = ##class(%FileCharacterStream).%New()
 		
-		Do ##class(APPS.PM.Maatwerk.MaatwerkModel.impl.ModelUtils).GenereerKlasseBegin(Stream, KlasseNaam, SuperKlasse)
+		Do ##class(APPS.PM.Maatwerk.MaatwerkModel.impl.ModelUtils).GenereerKlasseBegin(Stream, KlasseNaam, SuperKlasseLijst)
 		Do ##class(APPS.PM.Maatwerk.MaatwerkModel.impl.ModelUtils).GenereerHFBuilderOnNewBegin(Stream)
 		
 		Do Stream.WriteLine("	Set ..Familie = """ _ ..Model.Familie _ """")
 		Do Stream.WriteLine("	Set ..Variant = """ _ ..Model.Variant _ """")
 		Do Stream.WriteLine("	Set ..Builder = ..GeefTopBuilder()")
 		Do Stream.WriteLine("	Quit ##super()")
+		
 		Do ##class(APPS.PM.Maatwerk.MaatwerkModel.impl.ModelUtils).GenereerMethodEinde(Stream)
 	
 		Do Stream.WriteLine("<Method name=""GeefTopBuilder"">")
@@ -301,10 +302,10 @@
 	If (GenereerCode) {
 		Write "Kost spec aanmaken", !
 		
-		#dim SuperKlasse As %String = "DOM.PM.Maatwerk.Calc.Kost.KostSpec"
+		#dim SuperKlasseLijst As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("DOM.PM.Maatwerk.Calc.Kost.KostSpec")
 		#dim Stream As %CharacterStream = ##class(%FileCharacterStream).%New()
 		
-		Do ##class(APPS.PM.Maatwerk.MaatwerkModel.impl.ModelUtils).GenereerKlasseBegin(Stream, KlasseNaam, SuperKlasse)
+		Do ##class(APPS.PM.Maatwerk.MaatwerkModel.impl.ModelUtils).GenereerKlasseBegin(Stream, KlasseNaam, SuperKlasseLijst)
 		Do ##class(APPS.PM.Maatwerk.MaatwerkModel.impl.ModelUtils).GenereerKostBuilderOnNewBegin(Stream)
 		
 		Do Stream.WriteLine("	Set ..Familie = """ _ ..Model.Familie _ """")