CreateInputForm(name: String; id: String; parentKey: Integer): IMetabaseObjectDescriptor;
name. Наименование создаваемой формы ввода;
id. Идентификатор новой формы ввода;
parentKey. Ключ родительского объекта, в рамках которого будет создана формы ввода.
Метод CreateInputForm создаёт новую форму ввода и возвращает её описание.
Метод создаёт пустую форму ввода. Для дальнейшей работы откройте полученную форму ввода на редактирование с помощью метода IMetabaseObjectDescriptor.Edit и приведите к интерфейсу IDataEntryForm.
Для выполнения примера предполагается наличие в репозитории формы ввода, для которой указанный макрос назначен в качестве исполняемого метода для пользовательской кнопки.
Добавьте ссылки на системные сборки: Dimensions, Metabase, Report. Также добавьте ссылки на сборки, которые необходимы для работы с формами ввода.
Public Sub CreateDEF(Report: IPrxReport);
Var
DEFParent, DEFormDesc: IMetabaseObjectDescriptor;
Begin
DEFParent := (Report As IMetabaseObject).Parent.Parent;
DEFormDesc := DataEntryForm.CreateInputForm("Новая форма ввода", "NEW_DEF", DEFParent.Key);
End Sub CreateDEF;
При выполнении макроса будет создана новая форма ввода. Форма ввода будет сохранена в той же папке, в которой расположена текущая форма ввода, в которой используется пользовательская кнопка.
См. также: