IMobilePublishObject.FormatVersion

Синтаксис Fore

FormatVersion: Integer;

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

FormatVersion: integer;

Описание

Свойство FormatVersion возвращает информацию о версии объекта, опубликованного в мобильном приложении.

Пример Fore

Для выполнения примера в репозитории предполагается наличие мобильного приложения с идентификатором «MA_PUB». Добавьте ссылки на системные сборки: Metabase, Mobile.

Sub UserProc;
Var
    mb: IMetabase;
    Mobile: IMobileApplication;
    Publicator: IMobileApplicationPublicator;
    MaPubObs: IMobileApplicationPublishObjects;
    i: Integer;
    MaPubObj: IMobileApplicationPublishObject;
    PublishObject: IMobilePublishObject;
    formatVersion: integer;
Begin
    mb := MetabaseClass.Active;
    // Получаем публикуемое мобильное приложение (МП)
    Mobile := mb.ItemById("MA_PUB").Bind As IMobileApplication;
    // Создаем публикатор МП
    Publicator := Mobile.CreatePublicator;
    // Получаем объекты МП
    MaPubObs := Publicator.Items;
    For i := 0 To MaPubObs.Count - 1 Do
        MaPubObj := MaPubObs.Item(i);
        If MaPubObj.IsValid Then
            PublishObject := MaPubObj.PublishObject;
            // Выводим версию объектов
            formatVersion := PublishObject.FormatVersion;
            Debug.WriteLine("Наименование: " + PublishObject.Object.Name);
            Debug.WriteLine("Версия публикуемого объекта: " + formatVersion.ToString);
        End If;
    End For;
End Sub UserProc;

Результат выполнения примера: в окно консоли выведены название и версия публикуемого объекта.

Пример Fore.NET

Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Mobile;

...

Public Shared Sub Main(Params: StartParams);
Var
    mb: IMetabase;
    Mobile: IMobileApplication;
    Publicator: IMobileApplicationPublicator;
    MaPubObs: IMobileApplicationPublishObjects;
    i: Integer;
    MaPubObj: IMobileApplicationPublishObject;
    PublishObject: IMobilePublishObject;
    formatVersion: integer;
Begin
    mb := Params.Metabase;
    // Получаем публикуемое мобильное приложение (МП)
    Mobile := mb.ItemById["MA_PUB"].Bind() As IMobileApplication;
    // Создаем публикатор МП
    Publicator := Mobile.CreatePublicator();
    // Получаем объекты МП
    MaPubObs := Publicator.Items;
    For i := 0 To MaPubObs.Count - 1 Do
        MaPubObj := MaPubObs.Item[i];
        If MaPubObj.IsValid Then
            PublishObject := MaPubObj.PublishObject;
            // Выводим версию объектов
            formatVersion := PublishObject.FormatVersion;
            System.Diagnostics.Debug.WriteLine("Наименование: " + PublishObject.Object.Name);
            System.Diagnostics.Debug.WriteLine("Версия публикуемого объекта: " + formatVersion.ToString());
        End If;
    End For;
End Sub;