IMetabaseUpdate.UseLocalVcsFiles

Синтаксис Fore

UseLocalVcsFiles: Boolean;

Синтаксис Fore.NET

UseLocalVcsFiles: Boolean;

Описание

Свойство UseLocalVcsFiles определяет признак использования в обновлении локальных версий объектов, добавленных в систему управления версиями.

По умолчанию свойству установлено значение True, при этом в обновление будет попадать та версия объекта, которая содержится в локальных файлах (версии объекта в репозитории и в локальных файлах могут не совпадать).

Если свойству установить значение False, то в обновление попадет та версия объекта, которая содержится в текущий момент в файлах на сервере системы управления версиями (соответствующая версия объекта также сохранена в базе репозитория).

Пример Fore

Для выполнения примера предполагается наличие в репозитории формы с идентификатором «Form_1». Данная форма добавлена в систему управления версиями.

Sub UserProc;
Var
    MB: IMetabase;
    Update: IMetabaseUpdate;
    Root: IMetabaseUpdateFolderNode;
    FormObj: IMetabaseUpdateObjectNode;
Begin
    MB := MetabaseClass.Active;
    Update := MB.CreateUpdate;
    Update.UseLocalVcsFiles := False;
    Root := Update.RootFolder;
    FormObj := Root.Add(MetabaseUpdateNodeType.Object) As IMetabaseUpdateObjectNode;
    FormObj.Object := MB.ItemById("Form_1");
    FormObj.Label := FormObj.Object.Name;
    Update.SaveToFileNF("c:\Form_1.pefx");
End Sub UserProc;

После выполнения примера будет создано новое обновление. В обновление будет добавлена та версия формы, которая на текущий момент сохранена в файлах системы управления версиями.

Пример Fore.NET

Указанный пример является точкой входа для какой-либо .NET-сборки. Для выполнения примера предполагается наличие в репозитории формы с идентификатором «Form_1». Данная форма добавлена в систему управления версиями.

Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    Update: IMetabaseUpdate;
    Root: IMetabaseUpdateFolderNode;
    FormObj: IMetabaseUpdateObjectNode;
Begin
    MB := Params.Metabase;
    Update := MB.CreateUpdate();
    Update.UseLocalVcsFiles := False;
    Root := Update.RootFolder;
    FormObj := Root.Add(MetabaseUpdateNodeType.untObject) As IMetabaseUpdateObjectNode;
    FormObj.Object := MB.ItemById["Form_1"];
    FormObj.Label := FormObj.Object.Name;
    Update.SaveToFileNF("c:\Form_1.pefx");
End Sub;

См. также: