Программно создать реквизит формы список значений

Сообщение от DMV78

так как сам человек не знает даже что «моя процедура» должна быть инициализирована

1. 

   
   

   Offline

   ЧКДзержинский
   Опытный в 1С

   Регистрация:

   7 дек 2006

   Сообщения:

   534

   Симпатии:

   3

   Баллы:

   29

   Это не вопрос, а просто опишу решение, которое я нашел — наверняка кому-то пригодится. Просто когда столкнулся, то в интернете не нашел.
   Задача: нужно программно добавить реквизит формы типа список значений и добавить поле на форму с путем к созданному реквизиту. Тип значения выбираемых элементов должен быть ограничен.

   Код:

       ДобавляемыеРеквизиты = Новый Массив;
       Реквизит_Номенклатура = Новый РеквизитФормы("НоменклатураСписок", Новый ОписаниеТипов("СписокЗначений"),, "Номенклатура");
       ДобавляемыеРеквизиты.Добавить(Реквизит_Номенклатура);       
       Форма.ИзменитьРеквизиты(ДобавляемыеРеквизиты);
       //!!!!!!!!!!!!ТипЗначения нужно задавать ПОСЛЕ добавления реквизита (Форма.ИзменитьРеквизиты)
       Форма.НоменклатураСписок.ТипЗначения = Новый ОписаниеТипов("СправочникСсылка.Номенклатура");
   
       НовыйЭлемент = Форма.Элементы.Добавить("НоменклатураСписок", Тип("ПолеФормы"), Форма.Элементы.Отборы);
       НовыйЭлемент.Вид = ВидПоляФормы.ПолеВвода;
       НовыйЭлемент.ПутьКДанным = "НоменклатураСписок";
       НовыйЭлемент.ПоложениеЗаголовка = ПоложениеЗаголовкаЭлементаФормы.Верх;
   
   

   
   ЧКДзержинский,
   28 июн 2019
   

   #1

Приветсвую всех форумчан!
Я недавно начал изучать 1с программирование и сейчас делаю следующее задание: необходимо в 1с создать тестирование пользователей(анкетирование). Мне необходимо, чтоб на форму последовательно выводились вопросы и варианты ответов из соответсвующих справочников. Для вывода теста программно создаю реквизиты типа СписокЗначений и добавляю на форму поля ввода. Но не могу понять как заполнить эти поля своими данными. Очень надеюсь на вашу помощь. Фрагмент кода прилагаю. Компилятор жалуется на: {Обработка.ПройтиТест.Форма.Форма.Форма(226)}: Значение не является значением объектного типа (Добавить)
         РеквизитВО.Добавить(Выб.Ссылка,Выб.Ссылка.Наименование);
Я так понимаю, это потому что я в РеквизитВО передаю не объект, а строку. Как это правильно реализовать? Спасибо.

Счетчик = 1;


Пока Счетчик < 10 Цикл
                //Выводим номер вопроса и его формулировку
Группа = Элементы.Добавить("ИмяГруппы" + Счетчик, Тип("ГруппаФормы"), ЭтаФорма);
Группа.Вид = ВидГруппыФормы.ОбычнаяГруппа;

НоваяНадпись = Элементы.Добавить("Надпись1" + Счетчик, Тип("ДекорацияФормы"), Группа);
НоваяНадпись.Заголовок = "Вопрос №" + Счетчик;

НоваяНадпись1 = Элементы.Добавить("Надпись2" + Счетчик, Тип("ДекорацияФормы"), Группа);
НоваяНадпись1.Заголовок = ВопросыОтветы[Счетчик].Вопрос.ТекстВопроса;

//Добавляем реквизит
РеквизитВО = "ВариантОтвета" + Счетчик;
МассивРеквизитов = Новый Массив;
МассивРеквизитов.Добавить(Новый РеквизитФормы(РеквизитВО, Новый ОписаниеТипов("СписокЗначений"), ,"", Истина));
ИзменитьРеквизиты(МассивРеквизитов);


//Добавляем поле ввода
ОбластьОтветов = Элементы.Добавить("Таблица" + Счетчик, Тип("ТаблицаФормы"), Группа);
ОбластьОтветов.ПутьКДанным = РеквизитВО;
ОбластьОтветов.Отображение = ОтображениеТаблицы.Список;

ОтветЗначение = Элементы.Добавить("Поле" + Счетчик, Тип("ПолеФормы"), ОбластьОтветов);
ОтветЗначение.ПутьКДанным = РеквизитВО + ".Значение";
ОтветЗначение.Вид         = ВидПоляФормы.ПолеНадписи;

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


//Заполняем реквизит
Стр=ВопросыОтветы.Получить(Счетчик-1);
З=Новый Запрос;
З.Текст="
|ВЫБРАТЬ
| Ссылка
|ИЗ
| Справочник.Ответы
|ГДЕ Владелец=&Вопрос
|УПОРЯДОЧИТЬ ПО КОД";
З.УстановитьПараметр("Вопрос",Стр.Вопрос);
Выб=З.Выполнить().Выбрать();
Пока Выб.Следующий() Цикл
РеквизитВО.Добавить(Выб.Ссылка,Выб.Ссылка.Наименование);
КонецЦикла;
Если НЕ Стр.Ответ.Пустая() Тогда
Зн=РеквизитВО.НайтиПоЗначению(Стр.Ответ);
Зн.Пометка=Истина;
КонецЕсли;

Спасибо за Сказать спасибо

• Главная
• О сайте

• Главная
• Содержание

Очень часто бывает необходимо на форме дать возможность пользователю выбрать настройки на форме (перед нажатием кнопки «Выполнить все»). Когда нужно выбрать одно значение из нескольких предопределенных – часто используется выпадающий список значений 1С на форме.

Выпадающий список значений 1С на форме — добавьте на форму толстого клиента поле выбора, уточните его название. Чтобы пользователь не мог изменять список – снимите галочку «Редактирование текста» в свойствах поля выбора.

Сам список выбора добавим программно в обработчике формы «ПриОткрытии». У поля выбора есть подчиненный список значений ЭлементыФормы.ИмяПоляВыбора.СписокВыбора, а для установки значения по умолчанию, и для определения выбранного значения ЭлементыФормы.ИмяПоляВыбора.Значение:
Процедура ПриОткрытии()

Выпадающий список значений 1С на форме — в тонком клиенте на форму нужно создать реквизит формы, в котором мы будем хранить результат, например с типом строка. Перетащите его на форму.
Выпадающий список значений 1С на форме — Вариант 1)

• Включим кнопку выбора списка
• В свойстве «Список выбора» нажмите «…» и введите варианты
• Результат выбора будет сохранен в выбранном реквизите

Выпадающий список значений 1С на форме — Вариант 2)

• Включим кнопку выбора списка
• Добавим обработчик «НачалоВыбораИзСписка»


&НаКлиенте
Процедура ВыбранноеЗначениеНачалоВыбораИзСписка(Элемент, СтандартнаяОбработка)

Результат аналогичный. Требуется, если список должен быть заполнен ссылками на справочники/документы, которые не являются предопределенными.

Данный вариант работает аналогично, но интерфейсно выглядит по другому.