vhLib.Macro 1 %RegisteredObject 0 1 dtoBehandeldOnderwerp:APPS.CRM.Interacties.dto.BehandeldOnderwerp.BehandeldOnderwerp,dtoOorsprong:APPS.CRM.Interacties.dto.Oorsprong %List 1 dtoBehandeldOnderwerp:APPS.CRM.Interacties.dto.BehandeldOnderwerp.BehandeldOnderwerp %List 1 dtoBehandeldOnderwerp:APPS.CRM.Interacties.dto.BehandeldOnderwerp.BehandeldOnderwerp %List 1 Klant:%String APPS.CRM.Interacties.dto.Registraties 1 Toepassing:%String="",KlantDivisie:%String="" APPS.CRM.Interacties.dto.Metadata Onderwerp AS Onderwerp , Toepassingen_Toepassing AS Toepassing" _ " FROM DOM_CRM_Interacties.Metadata_Toepassingen " _ " WHERE Toepassingen_KlantDivisie = ? AND Toepassingen_Toepassing = ?" set KlantDivisie = "KS" ; klant divisie wordt hardcoded overruled aangezien er toch geen verschil wordt gemaakt in de verschillende divisies set qHandler = $$ExecDynQuery^vhQUERYLIB(query,$listbuild(KlantDivisie,Toepassing)) while qHandler.Next() { set Metadata = ##class(DOM.CRM.Interacties.Metadata).%OpenId(qHandler.Get("Metadata")) if OnderwerpID '= qHandler.Get("Onderwerp") { // indien vorig onderwerp verschillend van onderwerp in query nieuw item aanmaken set OnderwerpID = qHandler.Get("Onderwerp") set Item = ##class(APPS.CRM.Interacties.dto.MetadataItem).%New() set Onderwerp = ##class(DOM.CRM.BehandeldOnderwerp.Onderwerp).%OpenId(OnderwerpID) set Item.Groep = Onderwerp.Groep.Omschrijving set Item.GroepID = Onderwerp.Groep.%Id() set Item.OnderwerpID = OnderwerpID set Item.Onderwerp = Onderwerp.Omschrijving set Item.ToepassingID = Toepassing do dtoMetadata.Items.Insert(Item) } set Actie = ##class(APPS.CRM.Interacties.dto.BehandeldOnderwerp.Actie).%New() set Actie.Omschrijving = Metadata.Actie.Omschrijving set Actie.ParamDataType = Metadata.Actie.ParamDataType set Actie.ParamOmschrijving = Metadata.Actie.ParamOmschrijving set Actie.ParamExecCode = Metadata.Actie.ParamExecCode set Actie.ParamValidation = Metadata.Actie.ParamValidation do Item.Acties.Insert(Actie) } ; alle groepen toevoegen aan metadata set qHandler = $$ExecDynQuery^vhQUERYLIB("SELECT ID,Omschrijving FROM DOM_CRM_BehandeldOnderwerp.Groep") while qHandler.Next() { do dtoMetadata.Groepen.SetAt(qHandler.Get("Omschrijving"),qHandler.Get("ID")) } ; alle toepassingen toevoegen aan metadata set qHandler = $$ExecDynQuery^vhQUERYLIB("SELECT ID,Omschrijving FROM DOM_CRM_BehandeldOnderwerp.Toepassing") while qHandler.Next() { do dtoMetadata.Toepassing.SetAt(qHandler.Get("Omschrijving"),qHandler.Get("ID")) } ; alle onderwerpen toevoegen aan metadata set qHandler = $$ExecDynQuery^vhQUERYLIB("SELECT ID,Omschrijving,Groep FROM DOM_CRM_BehandeldOnderwerp.Onderwerp") while qHandler.Next() { set Onderwerp = ##class(APPS.CRM.Interacties.dto.BehandeldOnderwerp.Onderwerp).%New() set Onderwerp.Omschrijving = qHandler.Get("Omschrijving") set Onderwerp.Groep = qHandler.Get("Groep") do dtoMetadata.Onderwerpen.SetAt(Onderwerp,qHandler.Get("ID")) } quit dtoMetadata ]]> 1 BehandeldOnderwerp:DOM.CRM.BehandeldOnderwerp.BehandeldOnderwerp,dtoBehandeldOnderwerp:APPS.CRM.Interacties.dto.BehandeldOnderwerp.BehandeldOnderwerp 1 BehandeldOnderwerp:DOM.CRM.BehandeldOnderwerp.BehandeldOnderwerp,dtoBehandeldOnderwerp:APPS.CRM.Interacties.dto.BehandeldOnderwerp.BehandeldOnderwerp 1 dtoOorsprong:APPS.CRM.Interacties.dto.Oorsprong %List