Настройка параметров выбора и связей параметров выбора для дополнительных реквизитов

03.07.18

Разработка - Механизмы платформы 1С

Встал вопрос о привязке выбора значения одного дополнительного реквизита к значению другого дополнительного реквизита и что из этого получилось

Обратились ко мне коллеги с вопрос: "Сделай так, чтобы контактное лицо(допреквизит) выбиралось с учетом партнера (второй допреквизит) . А сам партнер был из определенной папки". При чем часть пользователей используют эти допреквизиты и соответственно выводят их себе на форму, а часть нет. Естественно прозвучало пожелание, чтоб по максимуму сохранить возможность обновления конфигурации.

Долго искал варианты и в итоге пришел к следующему варианту: необходимо настроить Параметр выбора и связь параметров выбора.

СписокСвойств = Новый СписокЗначений;
	
	КлючНазначения = Неопределено;
	НаборыСвойствОбъекта = УправлениеСвойствамиСлужебный.ПолучитьНаборыСвойствОбъекта(
		Объект, КлючНазначения);
	
	Для каждого Строка Из НаборыСвойствОбъекта Цикл
		Если УправлениеСвойствамиСлужебный.ВидыСвойствНабора(Строка.Набор).ДополнительныеРеквизиты Тогда
			
			СписокСвойств.Добавить(
				Строка.Набор, Строка.Заголовок);
		КонецЕсли;
	КонецЦикла;
	ОписаниеСвойств = УправлениеСвойствамиСлужебный.ЗначенияСвойств(
		Объект.ДополнительныеРеквизиты.Выгрузить(),
		СписокСвойств,
		Ложь);
	Для каждого ТекРеквизит из Элементы.ГруппаДополнительныеРеквизиты.ПодчиненныеЭлементы Цикл
		Для каждого ТекДопРеквизит из ОписаниеСвойств Цикл
			Если найти(ТекРеквизит.имя,"_" + стрЗаменить(ВРег(Строка(ТекДопРеквизит.Свойство.УникальныйИдентификатор())),"-","x")) > 0 тогда
				Если ТекДопРеквизит.Свойство.Заголовок = "Контактное лицо партнера" тогда
					ТекРеквизит.СвязиПараметровВыбора = Новый ФиксированныйМассив(Новый массив);

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

				ИначеЕсли ТекДопРеквизит.Свойство.Заголовок = "Партнер" тогда
					НовыйПараметр = Новый ПараметрВыбора("Отбор.Родитель", Какой - то родитель );
					НовыйМассив = Новый Массив;
					НовыйМассив.Добавить(НовыйПараметр);
					НовыеПараметры = Новый ФиксированныйМассив(НовыйМассив);
					ТекРеквизит.ПараметрыВыбора = НовыеПараметры;
				КонецЕсли;
			КонецЕсли;
		КонецЦикла;
		
	КонецЦикла;

 

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

Будет работать на любой стандартной конфигурации 8.3 с использование БСП.

Тестировалось и работает на УТ 11.3.4.21.

 

На оригинальность не претендую, просто решил проблему и делюсь. Может кому - то поможет.

 

См. также

Механизмы платформы 1С Программист Платформа 1С v8.3 Бесплатно (free)

В платформе 8.3.27 появилась возможность использовать WebSocket-клиент. Давайте посмотрим, как это все устроено и чем оно нам полезно.

14.01.2025    6304    dsdred    45    

94

Механизмы платформы 1С Программист Стажер Платформа 1С v8.3 1C:Бухгалтерия Бесплатно (free)

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

23.06.2024    10317    bayselonarrend    21    

161

Механизмы платформы 1С Программист Стажер Платформа 1С v8.3 1C:Бухгалтерия Бесплатно (free)

Пример использования «Сервисов интеграции» без подключения к Шине и без обменов.

13.03.2024    7380    dsdred    18    

81

Механизмы платформы 1С Программист Стажер Платформа 1С v8.3 Бесплатно (free)

Все мы используем массивы в своем коде. Это один из первых объектов, который дают ученикам при прохождении обучения программированию. Но умеем ли мы ими пользоваться? В этой статье я хочу показать все методы массива, а также некоторые фишки в работе с массивами.

24.01.2024    24174    YA_418728146    30    

73

Механизмы платформы 1С Программист Бесплатно (free)

Язык программирования 1С содержит много нюансов и особенностей, которые могут приводить к неожиданным для разработчика результатам. Сталкиваясь с ними, программист начинает лучше понимать логику платформы, а значит, быстрее выявлять ошибки и видеть потенциальные узкие места своего кода там, где позже можно было бы ещё долго медитировать с отладчиком в поисках источника проблемы. Мы рассмотрим разные примеры поведения кода 1С. Разберём результаты выполнения и ответим на вопросы «Почему?», «Как же так?» и «Зачем нам это знать?». 

06.10.2023    25544    SeiOkami    48    

136
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. ildary 21 04.07.18 12:18 Сейчас в теме
(1) уточните пожалуйста, этот код надо вставлять в модуль формы, на которой выводятся жоп реквизиты (например документ с партнером) или куда-то ещё?
2. yurstein 43 04.07.18 15:52 Сейчас в теме
да код вставляется в процедуру "Присозданиинасервере" модуля формы. Только если форма у вас управляемая
3. ildary 21 04.07.18 15:55 Сейчас в теме
(2) большое спасибо за обьяснение и за за код.
4. stas.k 1 08.02.19 09:54 Сейчас в теме
"ДополнительныйРеквизитЗначение_588521B2x57ECx11E7x8133x0015­5D001801_34175D5Cx581Fx11E7x8133x00155D001801"

В БСП можно получить свойства доп.реквизита, если есть форма объекта:
Форма.Свойства_ОписаниеДополнительныхРеквизитов.НайтиСтроки(Новый Структура("ИмяРеквизитаЗначение",Реквизит.Имя))[0]
5. yurstein 43 11.02.19 07:38 Сейчас в теме
Писалось под конфигурацию не на БСП
Оставьте свое сообщение