Банковский счет по умолчанию

&После("ПриСозданииНаСервере")
Процедура БСО_ПриСозданииНаСервере(Форма, Отказ, СтандартнаяОбработка, ДополнительныеПараметры)
	
	Попытка
		//новый элемент на форму объекта
		Если ТипЗнч(Форма.Объект.Ссылка) = Тип("СправочникСсылка.БанковскиеСчетаОрганизаций") Тогда
			
			БазовыйЭлемент = Форма.Элементы.Найти("Наименование");
			
			НовыйЭлемент = Форма.Элементы.Добавить("БСО_СчетПоУмолчанию", Тип("ПолеФормы"), БазовыйЭлемент.Родитель);
			НовыйЭлемент.Вид = ВидПоляФормы.ПолеФлажка;
			НовыйЭлемент.ПоложениеЗаголовка = ПоложениеЗаголовкаЭлементаФормы.Право;
			НовыйЭлемент.Заголовок = "Счет по умолчанию";
			НовыйЭлемент.ШрифтЗаголовка = Новый Шрифт(ШрифтыСтиля.ОбычныйШрифтТекста, , , Истина, , , ,);
			НовыйЭлемент.ПутьКДанным = "Объект.БСО_СчетПоУмолчанию";
			НовыйЭлемент.Доступность = Форма.Объект.ТипСчета = Перечисления.ТипыБанковскихСчетов.Расчетный;
			
		КонецЕсли;
	Исключение
	КонецПопытки;
	
	Попытка
		//новый элемент на форму списка
		Если Форма.ИмяФормы = "Справочник.БанковскиеСчетаОрганизаций.Форма.ФормаСписка" Тогда
			
			Если ОбщегоНазначенияКлиентСервер.ЕстьРеквизитИлиСвойствоОбъекта(Форма, "Список") Тогда
				
				Если Форма.Список.ПроизвольныйЗапрос Тогда
					ТекстЗапроса = Форма.Список.ТекстЗапроса;
					ТекстЗапроса = СтрЗаменить(ТекстЗапроса, 
												"БанковскиеСчета.НомерСчета", 
												"БанковскиеСчета.БСО_СчетПоУмолчанию КАК БСО_СчетПоУмолчанию, БанковскиеСчета.НомерСчета");
					
					Форма.Список.ТекстЗапроса = ТекстЗапроса;
				КонецЕсли;
				
				ЭлементСписок = Форма.Элементы.Найти("Список");
				
				НовыйЭлемент = Форма.Элементы.Добавить("БСО_СчетПоУмолчанию", Тип("ПолеФормы"), ЭлементСписок);
				НовыйЭлемент.Вид = ВидПоляФормы.ПолеКартинки;
				НовыйЭлемент.КартинкаЗначений = БиблиотекаКартинок.ОформлениеФлажок;
				НовыйЭлемент.ТолькоПросмотр = Истина;
				НовыйЭлемент.ПутьКДанным = "Список.БСО_СчетПоУмолчанию";
				
			КонецЕсли;
			
		КонецЕсли;
	Исключение
	КонецПопытки;

КонецПроцедуры

&После("ПередЗаписью")
Процедура БСО_ПередЗаписью(Отказ)
	
	//счет по умолчанию должен быть один!
	Если БСО_СчетПоУмолчанию Тогда
		
		Если ЭтотОбъект.ТипСчета <> Перечисления.ТипыБанковскихСчетов.Расчетный Тогда
			БСО_СчетПоУмолчанию = Ложь;
			Возврат;
		КонецЕсли;
		
		Выборка = Справочники.БанковскиеСчетаОрганизаций.Выбрать(, Владелец, Новый Структура("БСО_СчетПоУмолчанию", Истина));
		
		Пока Выборка.Следующий() Цикл
			
			Если Выборка.Ссылка <> Ссылка
			 И Выборка.БСО_СчетПоУмолчанию 
			 И Выборка.ВалютаДенежныхСредств = ЭтотОбъект.ВалютаДенежныхСредств 
			Тогда
			
				СчетОбъект = Выборка.ПолучитьОбъект();
				СчетОбъект.БСО_СчетПоУмолчанию = Ложь;
				СчетОбъект.Записать();
				
			КонецЕсли;
			
		КонецЦикла;
		
	КонецЕсли;
	
КонецПроцедуры

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

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