Notes

<Routine name="storeInSharepoint">
<Parm name="dataIn" datatype="StoreInSharepointIn"/>
<Field name="dataOut" datatype="StoreInSharePointOut"/>
<Field name="statusMessage" datatype="StatusMessage"/>
<Set var="dataOut.status.result" value="'Processed'"/>
<Try>
[STEP] - retrieve folder details from CRM document locations
<Field name="crmlink" dft=" '/' + getProjectName() + '/Base/Objects/XperiDo.crmlink'"/>
// parent entity is provided when the document is created as part of an subgrid.
// by default location is determined based upon the selected entity.
<Field name="subWeb" datatype="string"/>
// extract spmd_ prefixed dynamicfields, prepare them to be add as metadata
<FieldList name="allMetaData" datatype="json"/>
<ForEach in="dataIn.dynamicFieldList" var="dynamicField">
<If condition="startsWith(dynamicField.fieldName, 'spmd_')">
<Field name="metadata" datatype="json"/>
<Set var="metadata.name" value="substr(dynamicField.fieldName, 5, length(dynamicField.fieldName))"/>
<Set var="metadata.value" value="dynamicField.fieldValue"/>
<Set var="allMetaData[]" value="metadata"/>
</If>
</ForEach>
// get sharepoint hostname
<Field name="sharepointServer" datatype="string" dft="external(getProjectName()+'/mssharepoint.SharePointServer')"/>
<Field name="url"/>
<LoadXmlDoc var="sharepointServer" access="'DOM'"/>
<Select xpath="'MsSharePointAddFolder/SharePointServer'">
<Set var="url" value="$@url"/>
</Select>
<CloseXmlDoc/>
<Field name="i" datatype="int" dft="indexOf(substr(url,8,length(url)),'/')+8"/>
<Field name="hostname" datatype="string" dft="substr(url,0,i)"/>
// get sharepoint folder location we stored in this dynamic field
<Field name="spurlFolder" datatype="string"/>
<ForEach in="dataIn.dynamicFieldList" var="dynamicField">
<If condition="dynamicField.fieldName eq 'XDTemplate'">
<Set var="spurlFolder" value="dynamicField.fieldValue"/>
</If>
</ForEach>
<Field name="spurl" datatype="string" dft="hostname+'/workspaces/1/MBsalesCRM/Lists/documents/'+spurlFolder"/>
<MsSharePointAddFile filename="dataIn.name" server="'SharePointServer'" parentFolder="spurl" createParent="true" subWeb="subWeb" overwrite="true">
<Metadata list="allMetaData"/>
<Input file="dataIn.document"/>
</MsSharePointAddFile>
// store document location in output parameter
<Set var="dataOut.SharePointUrl" value="spurl+'/'+dataIn.name"/>
// when the folder is created in the save process. Add folder locations into the CRM document entities.
<Set var="statusMessage.messageType" value="'Info'" />
<Set var="statusMessage.message" value="'document ' + dataIn.name + ' stored in SharePoint'"/>
<Set var="statusMessage.processStep" value="'storeInSharepoint'"/>
<Set var="statusMessage.messageData" value="dataOut.SharePointUrl"/>
<Set var="dataOut.status.messages[]" value="statusMessage"/>
<Catch var="xe">
<Log msg="xe" level="'error'"/>
<Set var="dataOut.status.result" value="'Failed'"/>
<Set var="statusMessage.messageType" value="'Error'"/>
<Set var="statusMessage.message" value="xe.message"/>
<Set var="statusMessage.processStep" value="'storeInSharepoint'"/>
<Set var="statusMessage.messageData" value="null"/>
// remove CRM exception
<Field name="idx" datatype="int" dft="indexOf(statusMessage.message,'CRM Exception:' )"/>
<If condition="idx ne -1">
<Set var="statusMessage.message" value="substr( statusMessage.message, idx, length(xe.message))"/>
</If>
// remove Errorcode indication
<Set var="statusMessage.message" value="replace( statusMessage.message, 'Errorcode: 0 =&gt; ', '')"/>
<Set var="dataOut.status.messages[]" value="statusMessage"/>
</Catch>
</Try>
<Return value="dataOut"/>
</Routine>