В конфигурации должен быть справочник "Пользователи".
Обработка.

Процедура ПослеОткрытия()

	РФ = СоздатьОбъект("РасширениеФормы");
	РФ.УстановитьФорму(Форма);

	КоординатаХ = 10;
	КоординатаУ = 10;

	ШиринаОтступа = 6;
	ШиринаТекста = 60;
	ШиринаПоляВвода = 280;
	ВысотаАтрибутов = 20;

	тМенеджер = РФ.ДобавитьАтрибут("тМенеджер", 1);
	тМенеджер.УстановитьКоординаты(КоординатаХ, КоординатаХ, ШиринаТекста, ВысотаАтрибутов);
	тМенеджер.Заголовок = "Менеджер:";
	тМенеджер.Выравнивание = "Право";

	ВыбМенеджер = РФ.ДобавитьАтрибут("ВыбМенеджер", 2, "Справочник.Пользователи");
	ВыбМенеджер.УстановитьКоординаты(КоординатаХ + ШиринаТекста + ШиринаОтступа, КоординатаУ, ШиринаПоляВвода, ВысотаАтрибутов);

	РФ.Обновить();

КонецПроцедуры
 

При открытии все нормально:

То есть меняется заголовок текстового окна с "Менеджер:" на "0" и вылетает ошибка.

Что я делаю не так?

Хм. Докладываю.

В новосозданных атрибутах формы уже записана формула. И записано там число 0.
Соответственно, если эта формула лежит на поле с текстом - оно эту формулу пытается выполнить.
Соответственно, даже замена формулы на "" не приводит к нужному результату: ибо результат выполнения "" засунется в текст.

Итоговый код, который выполняет нужное мне действие, выглядит так:

Процедура ПослеОткрытия()

	РФ = СоздатьОбъект("РасширениеФормы");
	РФ.УстановитьФорму(Форма);

	КоординатаХ = 10;
	КоординатаУ = 10;

	ШиринаОтступа = 6;
	ШиринаТекста = 60;
	ШиринаПоляВвода = 280;
	ВысотаАтрибутов = 20;

	тМенеджер = РФ.ДобавитьАтрибут("тМенеджер", 1);
	тМенеджер.УстановитьКоординаты(КоординатаХ, КоординатаХ, ШиринаТекста, ВысотаАтрибутов);
	тМенеджер.Заголовок = "Менеджер:";
	тМенеджер.Выравнивание = "Право";
	тМенеджер.Формула = """Менеджер:""";

	фВыбМенеджер = РФ.ДобавитьАтрибут("ВыбМенеджер", 2, "Справочник.Пользователи");
	фВыбМенеджер.УстановитьКоординаты(КоординатаХ + ШиринаТекста + ШиринаОтступа, КоординатаУ, ШиринаПоляВвода, ВысотаАтрибутов);
	фВыбМенеджер.Формула = "";

	РФ.Обновить();

КонецПроцедуры
 

Обратите внимание на то, что "Менеджер:" мне приходится писать дважды: как в заголовке, так и в формуле, ибо формула при первом появлении атрибута не срабатывает. Нельзя ли чего-нибудь сделать?

Насколько я помню, Артур специально добавлял "0" в формулу атрибута, т.к. при нажатии на кнопку, которая является контейнером для АктивИкса, вываливается ошибка: "не найдена процедура/ф-ия "идРеквизитаНаформе"

JohnyDeath писал(а) 24. Ноября 2008 :: 19:39:

Да, "0" в формуле нужен.
Вот моя же цитата из кода:
Цитата:


Обход проблемы ИМХО правильный, т.к. ДобавитьАтрибут добавляет достаточно "сырой" атрибут на форму, основные настройки нужно проделать доп.кодом через ФормЕкс.

Или можно создать спец. пользовательский класс 1С++ или встроенный класс ФормЕкс, который и будет решать подобную проблему.
Т.е. создается объект класса, устанавливаются необходимые атрибуты/свойства, далее выполняется метод ДобавитьАтрибут с установкой всех необходимых свойств.

Т.е. примерно так

НовыйАтрибут = РасширениеФормы.СоздатьНовыйАтрибут(1);
НовыйАтрибут.Заголовок = "Текст";
НовыйАтрибут.Формула = """Текст:""";
НовыйАтрибут.Лево = 10;
... и т.д.
РасширениеФормы.ДобавитьАтрибут(НовыйАтрибут);
//или
НовыйАтрибут.ДобавитьНаФорму(Конт.Форма);
 

artbear писал(а) 25. Ноября 2008 :: 06:16:

Ну в сущности я уже решил пойти именно этим путем.
Поскольку у меня именно класс будет создавать все эти атрибуты формы, то как раз туда очень хорошо это все ляжет. Считаем, что проблема закрыта.

P.S. А еще прикольно, что у созданного таким образом реквизита - непустая подсказка )