TECH.RegisteredObject DOM.common.ProjectSettingsAPI 1 ProjectSettingsAPI:DOM.common.ProjectSettingsAPI="" 1 1 %Status 1 WSClientFopV7:BL.Sys.FOP.DocBaseV7.AsyncProcessorInvokerWebClient,fopJobId:%String="" BL.Sys.FOP.DocBaseV7.dto.jobInfo WSClientFopV7:BL.Sys.FOP.DocBaseV7.AsyncProcessorInvokerWebClient,ProcessorBeanID:%String,SeedData:%ListOfObjects,fopReq:%RegisteredObject %String Public classmethod, wordt opgeroepen vanuit BL.Sys.FOP.DocBaseV7.dto.beanRuntimeProperty om %code van XmlExport() aan te passen. Parameter %code als .local doorgeven 1 1 0) && (pctCode(i) [ $$$CodeToFind) { Set pctCode(i) = $Replace(pctCode(i), $$$CodeToFind, $$$CodeNew) ; Modify the generated code, so that the Base64Encode does not add the CRLF anymore :-P } } } ]]> 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") } } 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