ISequenceInstance.Next

Синтаксис Fore

Next: Integer;

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

Next(): integer;

Описание

Метод Next генерирует следующее число последовательности.

Пример Fore

Для выполнения примера на форме предполагается наличие кнопки с наименованием "Button1". Должна быть добавлена ссылка на системную сборку Db. В репозитории предполагается наличие таблицы последовательности с идентификатором "PP_SERVICE_LOG_SEQ".

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    MB: IMetabase;
    SeqInst: ISequenceInstance;
    key: Integer;
Begin
    MB := MetabaseClass.Active;
    SeqInst := MB.ItemById("PP_SERVICE_LOG_SEQ").Open(Null) As ISequenceInstance;
    key := SeqInst.Next;
    Debug.WriteLine(key);
End Sub Button1OnClick;

После выполнения примера в окно консоли будет выведено следующее число последовательности.

Пример Fore.NET

Для выполнения примера на .NET-форме предполагается наличие кнопки с наименованием "button1". Должна быть добавлена ссылка на системную сборку Db. В репозитории предполагается наличие таблицы последовательности с идентификатором "PP_SERVICE_LOG_SEQ".

Imports Prognoz.Platform.Interop.Db;
...
Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
    MB: IMetabase;
    SeqInst: ISequenceInstance;
    key: Integer;
Begin
    MB := Self.Metabase;
    SeqInst := MB.ItemById["PP_SERVICE_LOG_SEQ"].Open(Null) As ISequenceInstance;
    key := SeqInst.Next();
    System.Diagnostics.Debug.WriteLine(key.ToString());
End Sub;

После выполнения примера в окно консоли будет выведено следующее число последовательности.

См. также:

ISequenceInstance