Помощь новичку, Сделать взять параметров выбора программно
Есть реквизит КонтактноеЛицо(ссылка на справочник КонтактныеЛица) и есть реквизит Контрагенты. у одного контрагнета может быть несколько контактов. Нужно сделать так, чтобы при выборе Контрагента, в поле КонтактноеЛицо можно было выбрать только те контакты, которые есть у данного контрагента. В прикрепленном файле стрелками показано что у Иванова И.И. есть два контакта и необходимо выводить только их. База данных Управление нашим фирмой 1.6.19
Прикрепленные файлы:
По теме из базы знаний
- Методология i3 как основа новой экономики. Индустрия 5.0
- Перевод кода и метаданных конфигурации на английский язык с помощью плагина EDT: Language Tool
- «БИП: Бизнес-Процессы». Система автоматизации и управления процессами
- Работа с моделью запроса
- Часть 3. Когда 1С-ник идёт в хардкор: как я в 2018 году заменил мозг стиральной машины на Arduino и что из этого вышло. Аудит проекта с помощью ИИ сегодня
Найденные решения
&НаКлиенте
Процедура НачалоВыбора()
ПараметрыОтбора = Новый Структура;
ПараметрыОтбора.Вставить("Контрагент", Объект.Контрагент);
ПараметрыФормы = Новый Структура;
ПараметрыФормы.Вставить("Отбор", ПараметрыОтбора); ///Добавляем отбор в параметры формы
ПараметрыФормы.Вставить("РежимВыбора",Истина);
ПараметрыФормы.Вставить("МножественныйВыбор",Ложь);
ОбработкаВыбора = Новый ОписаниеОповещения("ПриЗакрытииФормыВыбора", ЭтаФорма,"Подбор");
ОткрытьФорму("Справочник.КонтактныеЛица.ФормаВыбора",ПараметрыФормы, ЭтотОбъект,,,,ОбработкаВыбора);
КонецПроцедуры
&НаКлиенте
Процедура ПриЗакрытииФормыВыбора(Значение, ДопПараметры) Экспорт
Если Значение = Неопределено Тогда
Возврат;
КонецЕсли;
Объект.КонтактноеЛицо = Значение;
КонецПроцедуры
ПоказатьОстальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
&НаКлиенте
Процедура НачалоВыбора()
ПараметрыОтбора = Новый Структура;
ПараметрыОтбора.Вставить("Контрагент", Объект.Контрагент);
ПараметрыФормы = Новый Структура;
ПараметрыФормы.Вставить("Отбор", ПараметрыОтбора); ///Добавляем отбор в параметры формы
ПараметрыФормы.Вставить("РежимВыбора",Истина);
ПараметрыФормы.Вставить("МножественныйВыбор",Ложь);
ОбработкаВыбора = Новый ОписаниеОповещения("ПриЗакрытииФормыВыбора", ЭтаФорма,"Подбор");
ОткрытьФорму("Справочник.КонтактныеЛица.ФормаВыбора",ПараметрыФормы, ЭтотОбъект,,,,ОбработкаВыбора);
КонецПроцедуры
&НаКлиенте
Процедура ПриЗакрытииФормыВыбора(Значение, ДопПараметры) Экспорт
Если Значение = Неопределено Тогда
Возврат;
КонецЕсли;
Объект.КонтактноеЛицо = Значение;
КонецПроцедуры
Показать
спасибо, код работает, только теперь открывает две формы одну с нудными данными, другую нет. Как это исправить?
(7) Мне помогло, вторая форма перестала открываться.
&НаКлиенте
Процедура Расш1_Расш1_КонтЛицо1НачалоВыбораПосле(Элемент, ДанныеВыбора, ВыборДобавлением, СтандартнаяОбработка) //++
ПараметрыОтбора = Новый Структура;
ПараметрыОтбора.Вставить("Контрагент", Объект.Контрагент);
СтандартнаяОбработка = Ложь;
ПараметрыФормы = Новый Структура;
ПараметрыФормы.Вставить("Отбор", ПараметрыОтбора); ///Добавляем отбор в параметры формы
ПараметрыФормы.Вставить("РежимВыбора",Истина);
ПараметрыФормы.Вставить("МножественныйВыбор",Ложь);
ОбработкаВыбора = Новый ОписаниеОповещения("ПриЗакрытииФормыВыбора", ЭтаФорма,"Подбор");
ОткрытьФорму("Справочник.КонтактныеЛица.ФормаВыбора",ПараметрыФормы, ЭтотОбъект,,,,ОбработкаВыбора);
КонецПроцедуры
&НаКлиенте
Процедура ПриЗакрытииФормыВыбора(Значение, ДопПараметры) Экспорт
Если Значение = Неопределено Тогда
Возврат;
КонецЕсли;
Объект.Расш1_КонтЛицо = Значение;
КонецПроцедуры
ПоказатьМассивСвязей = Новый Массив;
МассивСвязей.Добавить(Новый СвязьПараметраВыбора("Отбор.Владелец", "Объект.Контрагент"));
Элементы.КонтактноеЛицо.СвязиПараметровВыбора = Новый ФиксированныйМассив(МассивСвязей);
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот