Пример использования на vip

Top  Previous 

#include Contexts.vih

 

interface Test;

  create view x

    var

      CS: IContextSession;

      ...

  as select

  ...

  ;

  ...

 

  handleevent

    cmInit:

    {

      // захват зарегистрированных контекстов

      var CL: ContextList;

      if not CL.Add(CS'IntInit')

      or not CL.Add(CS'WorkingTable')

      or not ...

      {

        abort;

        exit;

      }

    }

    ...

  end;

end.