Банковский счет по умолчанию для УТ 11.4: руководство к действию

Функция ПолучитьБанковскийСчетОрганизацииПоУмолчанию(Организация, Валюта = Неопределено, НаправлениеДеятельности = Неопределено) Экспорт
	// Здесь меняем запрос.
	
	//Запрос = Новый Запрос("
	//|ВЫБРАТЬ РАЗРЕШЕННЫЕ ПЕРВЫЕ 2
	//|	БанковскиеСчетаОрганизаций.Ссылка КАК БанковскийСчетОрганизации
	//|ИЗ
	//|	Справочник.БанковскиеСчетаОрганизаций КАК БанковскиеСчетаОрганизаций
	//|ГДЕ
	//|	НЕ БанковскиеСчетаОрганизаций.ПометкаУдаления
	//|	И НЕ БанковскиеСчетаОрганизаций.Закрыт
	//|	И (БанковскиеСчетаОрганизаций.Владелец = &Организация
	//|		ИЛИ &Организация = Неопределено)
	//|	И (БанковскиеСчетаОрганизаций.ВалютаДенежныхСредств = &Валюта
	//|		ИЛИ &Валюта = Неопределено)
	//|	И (БанковскиеСчетаОрганизаций.НаправлениеДеятельности = &НаправлениеДеятельности
	//|			ИЛИ &НаправлениеДеятельности = НЕОПРЕДЕЛЕНО);
	//|
	//|////////////////////////////////////////////////////////////­////////////////////
	//|ВЫБРАТЬ РАЗРЕШЕННЫЕ ПЕРВЫЕ 2
	//|	БанковскиеСчетаОрганизаций.Ссылка КАК БанковскийСчетОрганизации
	//|ИЗ
	//|	Справочник.БанковскиеСчетаОрганизаций КАК БанковскиеСчетаОрганизаций
	//|ГДЕ
	//|	НЕ БанковскиеСчетаОрганизаций.ПометкаУдаления
	//|	И НЕ БанковскиеСчетаОрганизаций.Закрыт
	//|	И (БанковскиеСчетаОрганизаций.Владелец = &Организация
	//|		ИЛИ &Организация = Неопределено)
	//|	И (БанковскиеСчетаОрганизаций.ВалютаДенежныхСредств = &Валюта
	//|		ИЛИ &Валюта = Неопределено);
	//|");
	
	Запрос = Новый Запрос("ВЫБРАТЬ РАЗРЕШЕННЫЕ ПЕРВЫЕ 2
                      |	БанковскиеСчетаОрганизаций.Ссылка КАК БанковскийСчетОрганизации
                      |ИЗ
                      |	Справочник.БанковскиеСчетаОрганизаций КАК БанковскиеСчетаОрганизаций
                      |ГДЕ
                      |	НЕ БанковскиеСчетаОрганизаций.ПометкаУдаления
                      |	И НЕ БанковскиеСчетаОрганизаций.Закрыт
                      |	И (БанковскиеСчетаОрганизаций.Владелец = &Организация
                      |			ИЛИ &Организация = НЕОПРЕДЕЛЕНО)
                      |	И (БанковскиеСчетаОрганизаций.ВалютаДенежныхСредств = &Валюта
                      |			ИЛИ &Валюта = НЕОПРЕДЕЛЕНО)
                      |	И (БанковскиеСчетаОрганизаций.НаправлениеДеятельности = &НаправлениеДеятельности
                      |			ИЛИ &НаправлениеДеятельности = НЕОПРЕДЕЛЕНО)
                      |;
                      |
                      |////////////////////////////////////////////////////////////­////////////////////
                      |ВЫБРАТЬ РАЗРЕШЕННЫЕ ПЕРВЫЕ 2
                      |	БанковскиеСчетаОрганизаций.Ссылка КАК БанковскийСчетОрганизации
                      |ИЗ
                      |	Справочник.БанковскиеСчетаОрганизаций КАК БанковскиеСчетаОрганизаций
                      |ГДЕ
                      |	НЕ БанковскиеСчетаОрганизаций.ПометкаУдаления
                      |	И НЕ БанковскиеСчетаОрганизаций.Закрыт
                      |	И (БанковскиеСчетаОрганизаций.Владелец = &Организация
                      |			ИЛИ &Организация = НЕОПРЕДЕЛЕНО)
                      |	И (БанковскиеСчетаОрганизаций.ВалютаДенежныхСредств = &Валюта
                      |			ИЛИ &Валюта = НЕОПРЕДЕЛЕНО)
                      |;
                      |
                      |////////////////////////////////////////////////////////////­////////////////////
                      |ВЫБРАТЬ РАЗРЕШЕННЫЕ ПЕРВЫЕ 1
                      |	БанковскиеСчетаОрганизацийДопРекв.Ссылка.Ссылка КАК БанковскийСчетОрганизации
                      |ИЗ
                      |	Справочник.БанковскиеСчетаОрганизаций.ДополнительныеРеквизиты КАК БанковскиеСчетаОрганизацийДопРекв
                      |ГДЕ
                      |	НЕ БанковскиеСчетаОрганизацийДопРекв.Ссылка.ПометкаУдаления
                      |	И НЕ БанковскиеСчетаОрганизацийДопРекв.Ссылка.Закрыт
                      |	И (БанковскиеСчетаОрганизацийДопРекв.Ссылка.Владелец = &Организация
                      |			ИЛИ &Организация = НЕОПРЕДЕЛЕНО)
                      |	И (БанковскиеСчетаОрганизацийДопРекв.Ссылка.ВалютаДенежныхСредств = &Валюта
                      |			ИЛИ &Валюта = НЕОПРЕДЕЛЕНО)
                      |	И БанковскиеСчетаОрганизацийДопРекв.Свойство = &ОсновнойСчетОргДляДокументов
                      |	И БанковскиеСчетаОрганизацийДопРекв.Значение = ИСТИНА");

	Запрос.УстановитьПараметр("Организация", ?(ЗначениеЗаполнено(Организация), Организация, Неопределено));
	Запрос.УстановитьПараметр("Валюта", ?(ЗначениеЗаполнено(Валюта), Валюта, Неопределено));
	Запрос.УстановитьПараметр("НаправлениеДеятельности", ?(ЗначениеЗаполнено(НаправлениеДеятельности), НаправлениеДеятельности, Неопределено));
	Запрос.УстановитьПараметр("ОсновнойСчетОргДляДокументов", ПланыВидовХарактеристик.ДополнительныеРеквизитыИСведения.НайтиПоНаименованию("ОсновнойСчетОргДляДокументов"));
	
	Результат = Запрос.ВыполнитьПакет();
	ВыборкаПоНаправлению  = Результат[0].Выбрать();
	ВыборкаБезНаправления = Результат[1].Выбрать();
	ВыбратьОсновнойСчет = Результат[2].Выбрать();
	
	Если ВыборкаПоНаправлению.Количество() = 1 И ВыборкаПоНаправлению.Следующий() Тогда
		
		БанковскийСчетОрганизации = ВыборкаПоНаправлению.БанковскийСчетОрганизации;
		
	ИначеЕсли ВыборкаБезНаправления.Количество() = 1 И ВыборкаБезНаправления.Следующий() Тогда
		
		БанковскийСчетОрганизации = ВыборкаБезНаправления.БанковскийСчетОрганизации;
		
	Иначеесли ВыбратьОсновнойСчет.Количество() = 1 И ВыбратьОсновнойСчет.Следующий() Тогда            // Добавляем условие
		БанковскийСчетОрганизации = ВыбратьОсновнойСчет.БанковскийСчетОрганизации;
	иначе
		БанковскийСчетОрганизации = Справочники.БанковскиеСчетаОрганизаций.ПустаяСсылка();        
				
	КонецЕсли;
	
	Возврат БанковскийСчетОрганизации;

КонецФункции