TECH.RegisteredObject DOM.common.ProjectSettingsAPI 1 ProjectSettingsAPI:DOM.common.ProjectSettingsAPI="" 1 1 %Status 1 1 Task:Sys.FOP.Task 1 TaskId:%String,Task:Sys.FOP.Task %Boolean ", $LB("wv@vanhoecke.be"), "DocBase Error in method IsTijdelijkActiefDocBaseV7() - "_$ZDT($H,4), NewExceptie.GeefOmschrijving(),,,,,) } Quit IsTijdelijkActief ]]> 1 Task:Sys.FOP.Task %Boolean %Boolean WSClientFopV7:BL.Sys.FOP.DocBaseV7.AsyncProcessorInvokerWebClient,fopJobId:%String="" BL.Sys.FOP.DocBaseV7.dto.jobInfo WSClientFopV7:BL.Sys.FOP.DocBaseV7.AsyncProcessorInvokerWebClient,ProcessorBeanID:%String,SeedData:%ListOfObjects %String SeedDataToConvert:%ListOfObjects(ELEMENTTYPE="BL.Sys.FOP.BeanRuntimeProperty") 1 BL.Sys.FOP.DocBaseV7.dto.iocwSeedDataWrapper 0) { If (BeanRtPropertyToConvert.targetPropertyKey = "renderInfo.renderXsltParamList") { #dim XsltParams As %ListOfDataTypes = BeanRtPropertyToConvert.ListPropertyValue Set BeanRtPropertyV7.Base64PropertyValue = ##class(TECH.ListUtils).ListToPieces(XsltParams,$$$CRLF) } ElseIf (BeanRtPropertyToConvert.targetBeanName = "adb_mailSenderTask") && (##class(TECH.StringUtils).Equals(BeanRtPropertyToConvert.targetPropertyKey, "mailToList", "ccList", "bccList")) { #dim MailRcptList As %ListOfDataTypes = BeanRtPropertyToConvert.ListPropertyValue Set BeanRtPropertyV7.Base64PropertyValue = ##class(TECH.ListUtils).ListToPieces(MailRcptList, ",") } Else { ; Throw NotImplemented Exception ("dit type list moet eerst nagekeken worden vooraleer dit mag omgezet worden") } } /* */ ElseIf (BeanRtPropertyToConvert.targetBeanName = "adb_renderTask") && (BeanRtPropertyToConvert.targetPropertyKey = "dpInfo.documentName") { // "levdocStapled_01.01" en "pakbonStapled_01.01" --> NOT Stapled #dim DocTemplateNameV7 = BeanRtPropertyToConvert.newPropertyValue If (BeanRtPropertyToConvert.newPropertyValue = "levdocStapled_01.01") Set DocTemplateNameV7 = "levdocNotStapled_01.01" If (BeanRtPropertyToConvert.newPropertyValue = "pakbonStapled_01.01") Set DocTemplateNameV7 = "pakbonNotStapled_01.01" If (BeanRtPropertyToConvert.newPropertyValue = "levbewijsStapled_01.01") Set DocTemplateNameV7 = "levbewijsNotStapled_01.01" Set BeanRtPropertyV7.newPropertyValue = DocTemplateNameV7 } /* */ Else { // Slechts één van deze drie zal ingevuld zijn, de andere zijn leeg, dus zouden in feite niet moeten overgezet worden, maar dat is geen probleem aangezien het gewoonweg dto's zijn en dat maakt voor caché dus geen verschil. Set BeanRtPropertyV7.newPropertyValue = BeanRtPropertyToConvert.newPropertyValue Set BeanRtPropertyV7.BoolPropertyValue = BeanRtPropertyToConvert.BoolPropertyValue Set BeanRtPropertyV7.IntegerPropertyValue = BeanRtPropertyToConvert.IntegerPropertyValue Set BeanRtPropertyV7.StreamPropertyValue = BeanRtPropertyToConvert.StreamPropertyValue } Do seedDataV7.beanRuntimeProperties.Insert(BeanRtPropertyV7) } Quit seedDataV7 ]]> BeanName:%String,PropertyKey:%String 1 BL.Sys.FOP.DocBaseV7.dto.beanRuntimeProperty