SharePointUrl: String;
SharePointUrl: string;
The SharePointUrl property determines the SharePoint site for discussions.
The SharePoint discussion group is defined by the IMetabase.SharePointDiscussionName property.
Executing the example requires that the repository contains the analytical panel with the A2A7685E53B694BC4B3A144AD09E4D869 identifier.
Add a link to the Metabase system assembly.
Sub UserProc;
Var
Mb: Imetabase;
SPUrl, SPDiscussionName: String;
AdHocObjDescr: IMetabaseObjectDescriptor;
AdHocObj: IMetabaseObject;
Begin
Mb := MetabaseClass.Active;
SPUrl := Mb.SharePointUrl;
SPDiscussionName := Mb.SharePointDiscussionName;
If ((SPUrl <> "") And (SPDiscussionName <> "")) Then
AdHocObjDescr := Mb.ItemById("A2A7685E53B694BC4B3A144AD09E4D869");
Debug.WriteLine(SharePoint discussion website: + SPUrl);
Debug.WriteLine(SharePoint discussion group: + SPDiscussionName);
AdHocObj := AdHocObjDescr.Edit;
AdHocObj.Url := "Lists/Team%20Discussion/Report%20discussion%20World%20Bank%20Time%20Series";
AdHocObj.Save;
End If;
End Sub UserProc;
Public Shared Sub Main(Params: StartParams);
Var
Mb: Imetabase;
SPUrl, SPDiscussionName: String;
AdHocObjDescr: IMetabaseObjectDescriptor;
AdHocObj: IMetabaseObject;
Begin
Mb := Params.Metabase;
SPUrl := Mb.SharePointUrl;
SPDiscussionName := Mb.SharePointDiscussionName;
If ((SPUrl <> "") And (SPDiscussionName <> "")) Then
AdHocObjDescr := Mb.ItemById["A2A7685E53B694BC4B3A144AD09E4D869"];
System.Diagnostics.Debug.WriteLine(SharePoint discussion website: + SPUrl);
System.Diagnostics.Debug.WriteLine(SharePoint discussion group: + SPDiscussionName);
AdHocObj := AdHocObjDescr.Edit();
AdHocObj.Url := "Lists/Team%20Discussion/Report%20discussion%20World%20Bank%20Time%20Series";
AdHocObj.Save();
End If;
End Sub;
After executing the example for an analytical panel, the URL address is defined to publish data to the SharePoint website.
See also: