IRepositoryScriptManager.FetchVersion

FetchVersion;

FetchVersion();

Sub UserProc;
Var
    Rsm: IRepositoryScriptManager;
    Driv: IDalDriver;
    ConDesc: IDalConnectionDescriptor;
    Params: IDalConnectionDescriptorParams;
    Con: IDalConnection;
Begin
    //Подключение к схеме на сервере Oracle
    Driv := New DalOrcl8Driver.Create As IDalDriver;
    ConDesc := Driv.CreateDescriptor;
    Params := ConDesc.Params;
    Params.Find("User Name").Value := "TestSchema";
    Params.Find("Password").Value := "TestSchema";
    Params.Find("Host BSTR").Value := "Test";
    Params.Find("Schema").Value := "TestSchema";
    Con := ConDesc.CreateConnection;
    //Настройки менеджера репозитория
    Rsm := New RepositoryScriptManager.Create;
    Rsm.Connection := Con;
    Rsm.Driver := RepositoryDriverType.ORCL9;
    //Получение версии для репозитория
    Rsm.Repository := RepositoryType.Metabase;
    Rsm.FetchVersion;
    Debug.WriteLine("Версия репозитория");
    Debug.WriteLine(Rsm.VersionMajor.ToString);
    Debug.WriteLine(Rsm.VersionMinor.ToString);
    //Получение версии для репозитория НСИ
    Rsm.Repository := RepositoryType.RDS;
    Rsm.FetchVersion;
    Debug.WriteLine("Версия репозитория НСИ");
    Debug.WriteLine(Rsm.VersionMajor.ToString);
    Debug.WriteLine(Rsm.VersionMinor.ToString);
    If Rsm.VersionUnicode Then
        Debug.WriteLine("Юникод версия репозитория НСИ");
    Else
        Debug.WriteLine("Не юникод версия репозитория НСИ");
    End If;
End Sub UserProc;

Imports Prognoz.Platform.Interop.Dal;
Imports Prognoz.Platform.Interop.KeFore;

Public Shared Sub Main(Params: StartParams);
Var
    Rsm: IRepositoryScriptManager = New RepositoryScriptManagerClass();
    Driv: IDalDriver = New DalOrcl8DriverClass();
    ConDesc: IDalConnectionDescriptor;
    DalParams: IDalConnectionDescriptorParams;
    Con: IDalConnection;
Begin
    //Подключение к схеме на сервере Oracle
    ConDesc := Driv.CreateDescriptor();
    DalParams := ConDesc.Params;
    DalParams.Find("User Name").Value := "TestSchema";
    DalParams.Find("Password").Value := "TestSchema";
    DalParams.Find("Host BSTR").Value := "Test";
    DalParams.Find("Schema").Value := "TestSchema";
    Con := ConDesc.CreateConnection();
    //Настройки менеджера репозитория
    Rsm.Connection := Con;
    Rsm.Driver := RepositoryDriverType.repwelknodritypORCL9;
    //Получение версии для репозитория
    Rsm.Repository := RepositoryType.reptypMetabase;
    Rsm.FetchVersion();
    System.Diagnostics.Debug.WriteLine("Версия репозитория");
    System.Diagnostics.Debug.WriteLine(Rsm.VersionMajor.ToString());
    System.Diagnostics.Debug.WriteLine(Rsm.VersionMinor.ToString());
    //Получение версии для репозитория НСИ
    Rsm.Repository := RepositoryType.reptypRDS;
    Rsm.FetchVersion();
    System.Diagnostics.Debug.WriteLine("Версия репозитория НСИ");
    System.Diagnostics.Debug.WriteLine(Rsm.VersionMajor.ToString());
    System.Diagnostics.Debug.WriteLine(Rsm.VersionMinor.ToString());
    If Rsm.VersionUnicode Then
        System.Diagnostics.Debug.WriteLine("Юникод версия репозитория НСИ");
    Else
        System.Diagnostics.Debug.WriteLine("Не юникод версия репозитория НСИ");
    End If;
End Sub;