Метод ReSetBounds (Integer)

Метод ReSetBounds (Integer)

Назначение

Процедура снимает ограничения, накладываемые условиями подцепки на узел логической таблицы TableN. Стек не ведется. После этого проверяет, попадает ли текущая запись в ограничения, и если нет, то делает текущей первую в ограничениях.

Описание

procedure ReSetBounds (TableN : Integer);

Параметры

TableN : Integer - номер узла логической таблицы, в котором необходимо снять ограничения (номером узла является идентификатор таблицы узла с префиксом "tn").

Пример

В примере описано окно, которое служит для выбора записей из каталога "Отделы". При открытии окна с таблицы "Отделы" снимается ограничение. При этом надо обратить внимание на то, что эта таблица описана как имеющая блок (* в описании подцепки). При закрытии окна ограничение устанавливается обратно. В обработчике cmDefault полю из корневой таблицы присваивается код из той записи подцепляемой таблицы, которая выбрана пользователем.

Interface Employee;

Create view Employees

as select * from

Employee,Department where

(( Employee.Department == Department.Code ));

window DepPick EscClose,DoAccept;

Browse PickBrowser;

Table Department;

Fields

Department_Name : protect;

end;

HandleEvent

cmInit: {

ResetBounds(tnDepartment);

ReReadRecord(#Department);

}

cmDefault: {

Set Department := Department_Code;

}

cmDone: { SetBounds(tnDepartment);

getfirst Department;

};

end;

end; //window

end. //Interface