IMetabaseUpdate.UseLocalVcsFiles

Fore Syntax

UseLocalVcsFiles: Boolean;

Fore.NET Syntax

UseLocalVcsFiles: Boolean;

Description

The UseLocalVcsFiles property determines whether local versions of the objects, added to versions control system, are used in updating.

Comments

This property is relevant if the objects, added to versions control system, are used in updating.

By default the property is set to True, and the object version, that local files contain, falls into the update (object versions in the repository and in local files may differ).

If the property is set to False, the object version, that files on the server of version control system contain at the current moment, falls into the update (the corresponding object version is also saved in repository base).

Fore Example

Executing the example requires that the repository contains a form with the Form_1 identifier. This form is added to the version control system.

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;

After executing this example a new update is created. The form version, that is saved in files of the version control system at the current moment, is added to the update.

Fore.NET Example

This example is an entry point for any .NET assembly. Executing the example requires that the repository contains a form with the Form_1 identifier. This form is added to the version control system.

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;

After executing this example a new update is created. The form version, that is saved in files of the version control system at the current moment, is added to the update.