Алгоритм установки предопределенных р/с организации в зависимости от выбранного Контрагента / Договора
Используется механизм дополнительных реквизитов.
Для контрагентов и для их договоров создается доп. реквизит «Счет организации»
Далее из списка или карточки контрагента/договора вызывается диалог ввода дополнительных реквизитов см. картинку.
При оформлении счета будет происходить следующее:
при выборе договора (в т.ч. и автоматической подстановке основного договора из карточки контрагента) будет проверяться
А) есть ли переопределение для счета организации на уровне договора (максимальный приоритет)
Б) есть ли переопределение счета организации на уровне контрагента.
Если такое переопределение есть, то считывается значение, которое должно быть равно № р/с для замены назначенного по умолчанию. При подмене осуществляется контроль того, что счет принадлежит именно той организации, от имени которой происходит выписка счета.
Т.о. подмену счетов можно осуществлять на уровне контрагентов всегда только по какой-то одной организации, а на уровне договоров такого ограничения нет, т.к. сам договор привязан к конкретной организации и к конкретному контрагенту.
Механизм подмены работает ТОЛЬКО в счетах. Далее реквизит «распространяется» благодара механизму ввода на основании.
Для работы алгоритма нужно в процедуру, запускаемую при выборе/изменении договора вставить вызов своей функции, которая будет возвращать ссылку на другой расчетный счет.
Примерно вот так:
Процедура ПриИзмененииДоговора()
//..........
//подмена расчетного счета при изменении договора....
новРС = нтлОбщийМодуль.нтлВыбоаРСОрганизацииПоДоговору(ДоговорКонтрагента, Организация);
Если Не новРС = Неопределено Тогда
СтруктурнаяЕдиница = новРС;
КонецЕсли;
УстановитьВидимость();
КонецПроцедуры // ПриИзмененииДоговора()
Саму процедуру промещаем в любой общий модуль (желательно "свой", чтобы не мешать обновлению)
Функция нтлВыбоаРСОрганизацииПоДоговору(СсылкаДоговор, СсылкаОрганизация) Экспорт
Перем возврЗначение;
возврЗначение = Неопределено;
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ЗначенияСвойствОбъектов.Объект,
| ЗначенияСвойствОбъектов.Свойство,
| ЗначенияСвойствОбъектов.Значение
|ИЗ
| РегистрСведений.ЗначенияСвойствОбъектов КАК ЗначенияСвойствОбъектов
|ГДЕ
| ЗначенияСвойствОбъектов.Объект = &Объект
| И ЗначенияСвойствОбъектов.Свойство.Наименование = &Наименование";
Запрос.УстановитьПараметр("Наименование", "Счет организации");
Запрос.УстановитьПараметр("Объект", СсылкаДоговор);
Результат = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = Результат.Выбрать();
тНомерСчета = "";
Если Не ВыборкаДетальныеЗаписи.Следующий() Тогда
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ЗначенияСвойствОбъектов.Объект,
| ЗначенияСвойствОбъектов.Свойство,
| ЗначенияСвойствОбъектов.Значение
|ИЗ
| РегистрСведений.ЗначенияСвойствОбъектов КАК ЗначенияСвойствОбъектов
|ГДЕ
| ЗначенияСвойствОбъектов.Объект = &Объект
| И ЗначенияСвойствОбъектов.Свойство.Наименование = &Наименование";
Запрос.УстановитьПараметр("Наименование", "Счет организации");
Запрос.УстановитьПараметр("Объект", СсылкаДоговор.Владелец);
Результат = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = Результат.Выбрать();
Если ВыборкаДетальныеЗаписи.Следующий() Тогда
тНомерСчета = СокрЛП(ВыборкаДетальныеЗаписи.Значение);
КонецЕсли;
Иначе
тНомерСчета = СокрЛП(ВыборкаДетальныеЗаписи.Значение);
КонецЕсли;
Если НЕ ПустаяСтрока(тНомерСчета) Тогда
//тут кто понимает сам допишет, а кому лень можно скачать полный код из файла :-)
КонецЕсли;
Возврат возврЗначение;
КонецФункции
Вот, собственно, и все.
Вступайте в нашу телеграмм-группу Инфостарт
