IApplicationVersion.Build

Build: Integer;

Build: integer;

Sub UserProc;
Var
    Ver: IApplicationVersion;
Begin
    Ver := New ApplicationVersion.Create;
    // Выведем в консоль информацию о текущей сборке платформы
    Debug.WriteLine("Описание версии - " + Ver.VersionDescription);
    Debug.WriteLine("Номер сборки - " + Ver.Build.ToString);
    Debug.WriteLine("Отладочная версия - " + Ver.Debug.ToString);
    Debug.WriteLine("Полное описание версии - " + Ver.Description);
    Debug.WriteLine("Выпущенная версия - " + Ver.IsRelease.ToString);
    Debug.WriteLine("Номер основной версии сборки - " + Ver.Major.ToString);
    Debug.WriteLine("Максимальный номер сборки текущего релиза - " + Ver.MaxReleaseBuild.ToString);
    Debug.WriteLine("Номер промежуточной версии сборки - " + Ver.Minor.ToString);
    Debug.WriteLine("Минимальный номер сборки текущего релиза - " + Ver.MinReleaseBuild.ToString);
    Debug.WriteLine("Нетестированная сборка - " + Ver.PrivateBuild.ToString);
    Debug.WriteLine("Номер обновления - " + Ver.QFE.ToString);
    Debug.WriteLine("Краткое описание версии - " + Ver.ShortDescription);
End Sub UserProc;

Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Host;
Imports Prognoz.Platform.Interop.Ui;
…
Public Shared Sub Main(Params: StartParams);
Var
    WinAppCls: WinApplicationClass = New WinApplicationClassClass();
    Ver: IApplicationVersion;
Begin
    Ver := WinAppCls.Version;
    // Выведем в консоль информацию о текущей сборке платформы
    System.Diagnostics.Debug.WriteLine("Описание версии - " + Ver.VersionDescription);       
    System.Diagnostics.Debug.WriteLine("Номер сборки - " + Ver.Build.ToString());
    System.Diagnostics.Debug.WriteLine("Отладочная версия - " + Ver.Debug.ToString());
    System.Diagnostics.Debug.WriteLine("Полное описание версии - " + Ver.Description);
    System.Diagnostics.Debug.WriteLine("Выпущенная версия - " + Ver.IsRelease.ToString());
    System.Diagnostics.Debug.WriteLine("Номер основной версии сборки - " + Ver.Major.ToString());
    System.Diagnostics.Debug.WriteLine("Максимальный номер сборки текущего релиза - " + Ver.MaxReleaseBuild.ToString());      
    System.Diagnostics.Debug.WriteLine("Номер промежуточной версии сборки - " + Ver.Minor.ToString());
    System.Diagnostics.Debug.WriteLine("Минимальный номер сборки текущего релиза - " + Ver.MinReleaseBuild.ToString());
    System.Diagnostics.Debug.WriteLine("Нетестированная сборка - " + Ver.PrivateBuild.ToString());
    System.Diagnostics.Debug.WriteLine("Номер обновления - " + Ver.QFE.ToString());
    System.Diagnostics.Debug.WriteLine("Краткое описание версии - " + Ver.ShortDescription);
End Sub;