vhLib.Macro %RegisteredObject APPS.PM.Maatwerk.MaatwerkModel.impl.MaatwerkModelBase svn.StudioHook APPS.PM.Kenmerk.KenmerkenService 1 Model:APPS.PM.Maatwerk.MaatwerkModel.dto.MaatwerkModel,svnHook:svn.StudioHook,KenmerkenService:APPS.PM.Kenmerk.KenmerkenService 1 1 %Status 1 GenereerHalffab:%Boolean=1 Rol:APPS.PM.Maatwerk.MaatwerkModel.dto.Rol,GenereerHalffab:%Boolean RolNaam:%String,GenereerHalffab:%Boolean=1 ") Do Stream.Write("") Do Stream.Write("") Do Stream.Write("") Do Stream.Write("1") Do Stream.Write("DOM.PM.Maatwerk.Calc.HF.HalffabClassNameFactory") Do Stream.Write("") Do Stream.Write("1") Do Stream.Write("1") Do Stream.Write("%Status") Do Stream.Write("") Do Stream.Write("") Do Stream.Write("") Do Stream.Write("") Write " Klasse: ", KlasseNaam, ! Do ##class(APPS.PM.Maatwerk.MaatwerkModel.impl.ModelUtils).GenereerCacheKlasse(Stream, ..svnHook, KlasseNaam) } ]]> Rol:APPS.PM.Maatwerk.MaatwerkModel.dto.Rol 1 %ListOfObjects ELEMENTTYPE="APPS.PM.Maatwerk.MaatwerkModel.impl.InfoVoorHalffabCreatie" Lijst:%ListOfObjects,SelectieGroep:TECH.String 1 VolgNr:%Integer,SelectieGroep:TECH.String 1 APPS.PM.dto.Kenm.KenmerkMetadata Rol:APPS.PM.Maatwerk.MaatwerkModel.dto.Rol,InfoVoorHalffabCreatie:%ListOfObjects(ELEMENTTYPE="APPS.PM.Maatwerk.MaatwerkModel.impl.InfoVoorHalffabCreatie") persistent") #dim Iterator As TECH.Iterator = ##class(TECH.ListIterator).%New(InfoVoorHalffabCreatie) While (Iterator.HasNext()) { #dim InfoObject As APPS.PM.Maatwerk.MaatwerkModel.impl.InfoVoorHalffabCreatie = Iterator.Next() Do Stream.Write("") Do Stream.Write("" _ InfoObject.KenmerkType _ "") Do Stream.Write("") If (InfoObject.IndexGewenst) { Do Stream.Write("") Do Stream.Write("bitmap") Do Stream.Write("" _ InfoObject.KenmerkNaam _ "") Do Stream.Write("") } If (InfoObject.ToevoegenAanOmschrijving) { #dim KenmerkWaardeVoorOmschrijving As %String = "##class(" _ InfoObject.KenmerkType _ ").LogicalToDisplay(.." _ InfoObject.KenmerkNaam _ ")" Set OmschrijvingZonderTemplate = OmschrijvingZonderTemplate_$C(9)_"Set Omschrijving = ##class(TECH.StringUtils).VoegToeIndienNietLeeg(Omschrijving,"_KenmerkWaardeVoorOmschrijving_")"_$C(13,10) Set OmschrijvingMetTemplate = $Replace(OmschrijvingMetTemplate, "{" _ InfoObject.KenmerkNaam _ "}", """ _ " _ KenmerkWaardeVoorOmschrijving _ " _ """) } } #dim TeGebruikenOmschrijving As %String = "" If $$$Not(OmschrijvingMetTemplate = "") { Set OmschrijvingMetTemplate = ..VervangExpressiesInTemplate(OmschrijvingMetTemplate) Set TeGebruikenOmschrijving = $C(9) _ "#dim Omschrijving As %String = """ _ OmschrijvingMetTemplate _ """" _ $C(13,10) } Else { Set TeGebruikenOmschrijving = OmschrijvingZonderTemplate } If $$$Not(TeGebruikenOmschrijving = "") { Do ##class(APPS.PM.Maatwerk.MaatwerkModel.impl.ModelUtils).GenereerEenvoudigePublicMethod(Stream, "GeefOmschrijvingVoorDocs", "%String",, TeGebruikenOmschrijving _ $C(9) _ "Quit Omschrijving") Set Logger = ##class(vhLib.Logger).%New("Maatwerk framework") Do Logger.Debug("Productiedocomschrijving", "Omschrijving: " _ TeGebruikenOmschrijving) } Do ##class(APPS.PM.Maatwerk.MaatwerkModel.impl.ModelUtils).GenereerKlasseEinde(Stream) Write " Halffab klasse: ", KlasseNaam, ! Do ##class(APPS.PM.Maatwerk.MaatwerkModel.impl.ModelUtils).GenereerCacheKlasse(Stream, ..svnHook, KlasseNaam) } ]]> Template:%String 1 %String InfosVoorHalffabCreaties:%ListOfObjects(ELEMENTTYPE="APPS.PM.Maatwerk.MaatwerkModel.impl.InfoVoorHalffabCreatie") 1 Dimensie:%String Code:TECH.String,Naam:TECH.String 1 APPS.PM.dto.Kenm.KenmerkGroepMetadata Naam:TECH.String,DataType:APPS.PM.enu.DataType,VolgNr:%Integer,Minimum:%Integer=0,Maximum:%Integer=1,VeldBreedte:%Integer=15,IsReadOnly:%Boolean=$$$False,IsWijzigbaar:%Boolean=$$$False,NieuweWaardeToegelaten:%Boolean=$$$False,SuggereerWaarden:%Boolean=$$$False 1 APPS.PM.dto.Kenm.KenmerkMetadata 1 %Boolean