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

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

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

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