| Перейти в конец публикации |
Задача типовая, на просторах интернета разбросана в множестве разных статей. Цель публикации - донести всю необходимую информацию для решения поставленной задачи. Приведенный пример не претендует на лавры и возможны улучшения!
При создании формы возникает вопрос настройки типа значения поля ввода. Не всегда заранее точно известен используемый тип, поскольку это может зависеть от метаданных конфигурации и условий использования.
Если, как минимум, известно, что в поле потребуется вводить и использовать элемент Справочника или Документ, то можно настроить тип на общий вид значения, например СправочникСсылка или ДокументСсылка. Далее решить вопрос программно при открытии формы, для уточнения используемого типа.
Если требуется использовать элемент справочника Номенклатура, но в разных конфигурациях этот объект метаданных может называться по-разному, например Товары или же Номенклатура, то программное определение наименования типа при открытии формы упростит жизнь пользователю.
Следовательно, настроим автоматический выбор и первичное преобразование полей на форме к типу значения Справочник.Номенклатура, если такой есть в метаданных конфигурации. В противном случае, выбираем в качестве начального значения первый в списке имён справочников.
Для примера разработана управляемая форма и форма в обычном режиме (см. скриншоты публикации).
Обычный режим
Ниже приведен алгоритм на языке 1С8 для формы в обычном режиме. На форме есть поле список ВыбранныйТип, для которого настроено событие ПриИзменении. В поле ВыбранныйТип пользователь выбирает тип, который желает использовать для преобразования полей. При открытии формы считываем список справочников из метаданных конфигурации. Ищем справочник Номенклатура в списке, далее инициализируем на форме поле ВыбранныйТип полученным списком имён и найденным значением. Запускаем событие ВыбранныйТипПриИзменении, для преобразования типа полей ввода. В переменную модуля формы СтрокаТипЗнч сохраним полное имя выбранного типа для использования в других процедурах.
Перем СтрокаТипЗнч;
Процедура ПриОткрытии(Отказ)
ЗагрузитьСписокТипов();
КонецПроцедуры
Процедура ЗагрузитьСписокТипов()
Перем Справочник;
ЭлементыФормы.ВыбранныйТип.СписокВыбора.Очистить();
Для Каждого Спр Из Метаданные.Справочники Цикл
ЭлементыФормы.ВыбранныйТип.СписокВыбора.Добавить(Спр.Имя,Спр.Синоним);
КонецЦикла;
ЗнчНоменклатура = ЭлементыФормы.ВыбранныйТип.СписокВыбора.НайтиПоЗначению("Номенклатура");
ЭлементыФормы.ВыбранныйТип.Значение=?(НЕ ЗнчНоменклатура=Неопределено,ЗнчНоменклатура,ЭлементыФормы.ВыбранныйТип.СписокВыбора[0].Значение);
ВыбранныйТипПриИзменении(ЭлементыФормы.ВыбранныйТип);
КонецПроцедуры
Процедура ВыбранныйТипПриИзменении(Элемент)
ВидСпр = ЭлементыФормы.ВыбранныйТип.Значение;
Если Не ВидСпр = Неопределено Тогда
ПреобразуемоеПоле = ПредопределенноеЗначение("Справочник."+ВидСпр+".ПустаяСсылка");
СтрокаТипЗнч = "СправочникСсылка."+ВидСпр;
КонецЕсли;
КонецПроцедуры
Далее необходимо выполнить преобразование типа значения колонки табличного поля. Для этого воспользуемся событием НачалоВыбора.
Код преобразования приведен ниже. В нём используется ранее инициализированная переменная СтрокаТипЗнч для получения имени выбранного типа. Алгоритм можно найти в справке по ключевому слову ПривестиЗначение.
Процедура ТабличноеПолеКолонкаНачалоВыбора(Элемент, СтандартнаяОбработка)
Элемент.ОграничениеТипа = Новый ОписаниеТипов(СтрокаТипЗнч);
Значение = Элемент.Значение;
Элемент.Значение = Элемент.ОграничениеТипа.ПривестиЗначение(Значение);
Элемент.ВыбиратьТип = Ложь;
КонецПроцедуры //ПривестиЗначение (AdjustValue). Справка
Новый тип назначается полям динамически после каждого выбора значения в списке ВыбранныйТип.
Управляемые формы
Для управляемых форм алгоритм изменяется незначительно. Для преобразования используется свойство ОграничениеТипа. Работа с метаданными только на сервере. Для быстрого доступа к колонке табличного поля при срабатывании события НачалоВыбора сохраним в переменной на клиенте СсылкаЭлементКолонкаТП ссылку с адресом элемента.
&НаКлиенте
Перем СтрокаТипЗнч, СсылкаЭлементКолонкаТП;
&НаКлиенте
Процедура ПриОткрытии(Отказ)
ЗагрузитьСписокТипов();
ВыбранныйТипПриИзменении(Элементы.ВыбранныйТип);
КонецПроцедуры
&НаСервере
Процедура ЗагрузитьСписокТипов()
Перем Справочник;
Элементы.ВыбранныйТип.СписокВыбора.Очистить();
Для Каждого Спр Из Метаданные.Справочники Цикл
Элементы.ВыбранныйТип.СписокВыбора.Добавить(Спр.Имя,Спр.Синоним);
КонецЦикла;
ЗнчНоменклатура = Элементы.ВыбранныйТип.СписокВыбора.НайтиПоЗначению("Номенклатура");
Объект.ВыбранныйТип = ?(НЕ ЗнчНоменклатура=Неопределено,ЗнчНоменклатура.Значение,Элементы.ВыбранныйТип.СписокВыбора[0].Значение);
КонецПроцедуры
&НаКлиенте
Процедура ВыбранныйТипПриИзменении(Элемент)
ВидСпр = Объект.ВыбранныйТип;
Если Не ВидСпр = Неопределено Тогда
СтрокаТипЗнч = "СправочникСсылка."+ВидСпр;
Элементы.ПреобразуемоеПоле.ОграничениеТипа = Новый ОписаниеТипов(СтрокаТипЗнч);
Если НЕ СсылкаЭлементКолонкаТП = Неопределено Тогда
СсылкаЭлементКолонкаТП.ОграничениеТипа = Новый ОписаниеТипов(СтрокаТипЗнч);
КонецЕсли;
КонецЕсли;
КонецПроцедуры
&НаКлиенте
Процедура КолонкаНачалоВыбора(Элемент, ДанныеВыбора, СтандартнаяОбработка)
СсылкаЭлементКолонкаТП = Элемент;
Элемент.ОграничениеТипа = Новый ОписаниеТипов(СтрокаТипЗнч);
КонецПроцедуры
Рассмотренный пример алгоритма можно протестировать, скачав обработку по ссылке из публикации. Работа выполнялась на 1С:Предприятие 8.3 (8.3.15.1747), с использованием конфигураций "Управление торговлей", редакция 10.3 (10.3.46.3), Управление торговлей, редакция 11 (11.4.7.150). В составе обработки одновременно присутствует управляемая форма и форма обычного режима.
Спасибо за внимание! Критика приветствуется.
| Перейти в начало публикации |
Вступайте в нашу телеграмм-группу Инфостарт
