Index: APPS/PM/Maatwerk/MaatwerkModel/impl/IngegevenKenmerkMaker.cls.xml =================================================================== diff -u -r29059 -r50169 --- APPS/PM/Maatwerk/MaatwerkModel/impl/IngegevenKenmerkMaker.cls.xml (.../IngegevenKenmerkMaker.cls.xml) (revision 29059) +++ APPS/PM/Maatwerk/MaatwerkModel/impl/IngegevenKenmerkMaker.cls.xml (.../IngegevenKenmerkMaker.cls.xml) (revision 50169) @@ -42,11 +42,11 @@ #dim Package As %String = "DOM.PM.Maatwerk.Calc.Common.impl" #dim KlasseNaam As %String = ..Model.MaatwerkTypeCode _ "KenmerkenBasisv000" #dim VolledigeKlasseNaam As %String = Package _ "." _ KlasseNaam - #dim SuperKlasse As %String = "DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken" + #dim SuperKlasseLijst As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken") Set SamengesteldeIngegevenKenmerken = ##class(%ListOfDataTypes).%New() Set Stream = ##class(%FileCharacterStream).%New() - Do ##class(APPS.PM.Maatwerk.MaatwerkModel.impl.ModelUtils).GenereerKlasseBegin(Stream, VolledigeKlasseNaam, SuperKlasse) + Do ##class(APPS.PM.Maatwerk.MaatwerkModel.impl.ModelUtils).GenereerKlasseBegin(Stream, VolledigeKlasseNaam, SuperKlasseLijst) Do Stream.Write("persistent") #dim KenmerkIterator As TECH.Iterator = ..Model.GeefIngegevenKenmerkIterator() While (KenmerkIterator.HasNext()) {