IMetabase.SharePointUrl

SharePointUrl: String;

SharePointUrl: string;

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 для обсуждения: " + SPUrl);
        Debug.WriteLine("Группа обсуждения SharePoint: " + 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 для обсуждения: " + SPUrl);
        System.Diagnostics.Debug.WriteLine("Группа обсуждения SharePoint: " + SPDiscussionName);
        AdHocObj := AdHocObjDescr.Edit();
        AdHocObj.Url := "Lists/Team%20Discussion/Report%20discussion%20World%20Bank%20Time%20Series";
        AdHocObj.Save();
    End If;
End Sub;