Договоры.Как показать ВСЕ ДОГОВОРА по умолчанию ?
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(1) Helena2002, если не вариант тогда
для обычной формы в форме выбора справочника договоры внесите следующие изменения
Процедура УстановитьОтборСпискаДоговоров()
Если ЗначениеЗаполнено(УчреждениеОтбор) Тогда
Отбор.Учреждение.Установить(УчреждениеОтбор, Истина);
ЭлементыФормы.СправочникСписок.НастройкаОтбора.Учреждение.Доступность = ДоступностьУчреждениеОтбор;
Иначе
Отбор.Учреждение.Установить(УчреждениеОтбор, Ложь);
КонецЕсли;
Если ЗначениеЗаполнено(КонтрагентОтбор) Тогда
ЭлементыФормы.СправочникСписок.НастройкаОтбора.Контрагент.Доступность = ДоступностьКонтрагентОтбор;
Если ВыбиратьОбщиеДоговоры Тогда
Отбор.Контрагент.ВидСравнения = ВидСравнения.ВСписке;
СписокОтбора = Новый СписокЗначений;
СписокОтбора.Добавить(КонтрагентОтбор);
СписокОтбора.Добавить(Справочники.Контрагенты.ПустаяСсылка());
Отбор.Контрагент.Значение = СписокОтбора;
Отбор.Контрагент.Использование = Истина;
Иначе
Отбор.Контрагент.Установить(КонтрагентОтбор, Истина);
КонецЕсли;
Иначе
Отбор.Контрагент.Установить(КонтрагентОтбор, Ложь);
КонецЕсли;
Если ЗначениеЗаполнено(ВидВзаиморасчетов) Тогда
МассивВидовВзаиморасчетов = Новый Массив;
МассивВидовВзаиморасчетов.Добавить(ВидВзаиморасчетов);
СписокОтбора = Новый СписокЗначений;
СписокОтбора.ЗагрузитьЗначения(ПолучениеНСИ.ПолучитьНаправленияДеятельностиПоВидамЗатрат(МассивВидовВзаиморасчетов));
Отбор.НаправлениеДеятельности.ВидСравнения = ВидСравнения.ВСписке;
Отбор.НаправлениеДеятельности.Значение = СписокОтбора;
Отбор.НаправлениеДеятельности.Использование = Истина;
КонецЕсли;
Отбор.ПометкаУдаления.Использование = Истина;
Отбор.ДоговорЗакрыт.Использование = Ложь;
//Отбор.ДоговорЗакрыт.Установить(Ложь, Истина);
//Если ЗначениеЗаполнено(НачальноеЗначениеВыбора) Тогда
// СтруктураРеквизитов = "";
// ПолучениеНСИ.ПолучитьРеквизитыПоСсылке(НачальноеЗначениеВыбора, СтруктураРеквизитов, "ДоговорЗакрыт");
// Отбор.ДоговорЗакрыт.Использование = НЕ СтруктураРеквизитов.ДоговорЗакрыт;
//КонецЕсли;
УстановитьЗначениеОтборПоСтатусуЗакрытОткрыт();
КонецПроцедуры
для обычной формы в форме выбора справочника договоры внесите следующие изменения
Процедура УстановитьОтборСпискаДоговоров()
Если ЗначениеЗаполнено(УчреждениеОтбор) Тогда
Отбор.Учреждение.Установить(УчреждениеОтбор, Истина);
ЭлементыФормы.СправочникСписок.НастройкаОтбора.Учреждение.Доступность = ДоступностьУчреждениеОтбор;
Иначе
Отбор.Учреждение.Установить(УчреждениеОтбор, Ложь);
КонецЕсли;
Если ЗначениеЗаполнено(КонтрагентОтбор) Тогда
ЭлементыФормы.СправочникСписок.НастройкаОтбора.Контрагент.Доступность = ДоступностьКонтрагентОтбор;
Если ВыбиратьОбщиеДоговоры Тогда
Отбор.Контрагент.ВидСравнения = ВидСравнения.ВСписке;
СписокОтбора = Новый СписокЗначений;
СписокОтбора.Добавить(КонтрагентОтбор);
СписокОтбора.Добавить(Справочники.Контрагенты.ПустаяСсылка());
Отбор.Контрагент.Значение = СписокОтбора;
Отбор.Контрагент.Использование = Истина;
Иначе
Отбор.Контрагент.Установить(КонтрагентОтбор, Истина);
КонецЕсли;
Иначе
Отбор.Контрагент.Установить(КонтрагентОтбор, Ложь);
КонецЕсли;
Если ЗначениеЗаполнено(ВидВзаиморасчетов) Тогда
МассивВидовВзаиморасчетов = Новый Массив;
МассивВидовВзаиморасчетов.Добавить(ВидВзаиморасчетов);
СписокОтбора = Новый СписокЗначений;
СписокОтбора.ЗагрузитьЗначения(ПолучениеНСИ.ПолучитьНаправленияДеятельностиПоВидамЗатрат(МассивВидовВзаиморасчетов));
Отбор.НаправлениеДеятельности.ВидСравнения = ВидСравнения.ВСписке;
Отбор.НаправлениеДеятельности.Значение = СписокОтбора;
Отбор.НаправлениеДеятельности.Использование = Истина;
КонецЕсли;
Отбор.ПометкаУдаления.Использование = Истина;
Отбор.ДоговорЗакрыт.Использование = Ложь;
//Отбор.ДоговорЗакрыт.Установить(Ложь, Истина);
//Если ЗначениеЗаполнено(НачальноеЗначениеВыбора) Тогда
// СтруктураРеквизитов = "";
// ПолучениеНСИ.ПолучитьРеквизитыПоСсылке(НачальноеЗначениеВыбора, СтруктураРеквизитов, "ДоговорЗакрыт");
// Отбор.ДоговорЗакрыт.Использование = НЕ СтруктураРеквизитов.ДоговорЗакрыт;
//КонецЕсли;
УстановитьЗначениеОтборПоСтатусуЗакрытОткрыт();
КонецПроцедуры
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот