%RegisteredObject 1 svnHook:svn.StudioHook,Prefix:%String="Getal",KlasseNaam:%String,ValueList:%String,DisplayList:%String="",SuperKlasse:%String="%String" datatype") Do Stream.Write("") Do Stream.Write(""_ ValueList _ "") Do Stream.Write("") Do Stream.Write("") Do Stream.Write(""_ DisplayList _ "") Do Stream.Write("") #dim NaamBepaler As APPS.PM.Maatwerk.MaatwerkModel.impl.EnumeratieMethodNaamBepaler = ##class(APPS.PM.Maatwerk.MaatwerkModel.impl.EnumeratieMethodNaamBepaler).%New() #dim PieceNummer As %Integer = 1 #dim List As %ListOfDataTypes = ##class(TECH.ListUtils).PiecesToList(DisplayList, ";") #dim Iterator As TECH.Iterator = ##class(TECH.ListIterator).%New(List) While (Iterator.HasNext()) { #dim Display As %String = Iterator.Next() #dim ItemNaam As %String = NaamBepaler.MaakMethodNaamVanPrefixEnDisplay(Prefix, Display) #dim Waarde As %string = $P(ValueList,";",PieceNummer) Do Stream.Write("") Do Stream.Write("1") Do Stream.Write(""_ KlasseNaam _ "") Do Stream.Write("") Do Stream.Write("") Set PieceNummer = PieceNummer + 1 } Do ##class(APPS.PM.Maatwerk.MaatwerkModel.impl.ModelUtils).GenereerKlasseEinde(Stream) Do ##class(APPS.PM.Maatwerk.MaatwerkModel.impl.ModelUtils).GenereerCacheKlasse(Stream, svnHook, KlasseNaam) ]]> 1 Stream:%CharacterStream,KlasseNaam:%String,SuperKlasseLijst:%ListOfDataTypes ") Do Stream.WriteLine("") Do Stream.WriteLine("") Do Stream.WriteLine("1") Do Stream.WriteLine("" _ ##class(TECH.ListUtils).ListToPieces(SuperKlasseLijst, ",") _"") Do Stream.WriteLine("Gegenereerde klasse via "_..%ClassName(1)_"") ]]> 1 Stream:%CharacterStream ") Do Stream.WriteLine("SamengesteldHalffabItemBuilder:DOM.PM.Maatwerk.Calc.HF.ISamengesteldHalffabItemBuilder") Do Stream.WriteLine("1") Do Stream.WriteLine("1") Do Stream.WriteLine("%Status") Do Stream.WriteLine(" 1 Stream:%CharacterStream 1 Stream:%CharacterStream,KlasseNaam:%String 1 Stream:%CharacterStream,SelectieKenmerken:%ListOfDataTypes,ItemProcessorType:APPS.PM.Maatwerk.MaatwerkModel.enu.ItemProcessorType 0) || (ItemProcessorType = ##class(APPS.PM.Maatwerk.MaatwerkModel.enu.ItemProcessorType).LinksRechts()) { Do ..GenereerPublicMethodBegin(Stream, "GenereerKenmerken", "%ArrayOfDataTypes", "IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken") Do Stream.WriteLine(" #dim SelectieKenmerken As %ArrayOfDataTypes = ##class(%ArrayOfDataTypes).%New()") #dim SelectieKenmerkIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(SelectieKenmerken) while (SelectieKenmerkIterator.HasNext()) { #dim SelectieKenmerk As %String = SelectieKenmerkIterator.Next() Do Stream.WriteLine(" Do SelectieKenmerken.SetAt(IngegevenKenmerken." _ SelectieKenmerk _ ", """ _ SelectieKenmerk _ """)") } Do Stream.WriteLine(" Quit SelectieKenmerken") Do ..GenereerMethodEinde(Stream) } ]]> 1 Stream:%CharacterStream,Filters:%ListOfDataTypes 0) { Do ..GenereerPrivateMethodBegin(Stream, "GeefHalffabListFilters", "%ListOfObjects") Do Stream.WriteLine(" #dim Filters As %ListOfObjects = ##class(%ListOfObjects).%New()") #dim FilterIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Filters) while (FilterIterator.HasNext()) { #dim Filter As %String = FilterIterator.Next() Do Stream.WriteLine(" Do Filters.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.Filter.HFListFilterBereikExpressie).%New(""" _ Filter _ """))") } Do Stream.WriteLine(" Quit Filters") Do ..GenereerMethodEinde(Stream) } ]]> 1 Stream:%CharacterStream ") Do Stream.WriteLine("") ]]> 1 Stream:%CharacterStream 1 Stream:%CharacterStream,MethodNaam:%String,ReturnType:%String="",FormalSpec:%String="",MethodBody:%String 1 Stream:%CharacterStream,MethodNaam:%String,ReturnType:%String="",FormalSpec:%String="" 1 Stream:%CharacterStream,MethodNaam:%String,ReturnType:%String="",FormalSpec:%String="" 1 Stream:%CharacterStream,MethodNaam:%String,IsPrivate:%Boolean,ReturnType:%String="",FormalSpec:%String="" 1 ") Do:(FormalSpec '= "") Stream.WriteLine("" _ FormalSpec _ "") Do:IsPrivate Stream.WriteLine("1") Do:(ReturnType '= "") Stream.WriteLine("" _ ReturnType _ "") Do Stream.Write(" 1 Stream:%CharacterStream ") Do Stream.WriteLine("") ]]> 1 Stream:%CharacterStream " Do ..GenereerPublicMethodBegin(Stream, "PostProcessHalffabItem", "", FormalSpec) ]]> 1 Stream:%CharacterStream,KlasseNaamWaarvoorStorageDient:%String,StorageMap:%ArrayOfDataTypes ") Do Stream.WriteLine("%Library.CacheStorage") Do Stream.WriteLine("" _ KlasseNaamWaarvoorStorageDient _ "DefaultData") Do Stream.WriteLine("") Do Stream.WriteLine("""" _ KlasseNaamWaarvoorStorageDient _ """") #dim PropertyIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(StorageMap) While (PropertyIterator.HasNext()) { #dim PropertyNaam As %String = PropertyIterator.Next() #dim PieceNummer As %String = PropertyIterator.Key() Do Stream.WriteLine("") Do Stream.WriteLine("" _ PropertyNaam _ "") Do Stream.WriteLine("") } Do Stream.WriteLine("") Do Stream.WriteLine("") ]]> 1 Stream:%CharacterStream,svnHook:svn.StudioHook,KlasseNaam:%String