////////////////////////////////////////////////////////////////////////////////
// ПЕРЕМЕННЫЕ МОДУЛЯ

// Хранит дерево макетов печатных форм
Перем мДеревоМакетов;

// Хранит элемент управления подменю печати
Перем мПодменюПечати;

// Хранит элемент управления кнопку печать по умолчанию
Перем мПечатьПоУмолчанию;

// Хранит дерево кнопок подменю заполнение ТЧ
Перем мКнопкиЗаполненияТЧ;

// Хранит старое значение физ лица в строке табличной части
Перем мТекущееФизЛицо;

// Хранит ссылку на головную организацию
Перем мГоловнаяОрганизация;

////////////////////////////////////////////////////////////////////////////////
// ПРОЦЕДУРЫ И ФУНКЦИИ ОБЩЕГО НАЗНАЧЕНИЯ

Процедура УстановитьЗаголовкиОрганизацийВФорме()
	
	ЭлементыФормы.НадписьОрганизация.Заголовок = ОбщегоНазначения.ПреобразоватьСтрокуИнтерфейса("Организация:");
	ЭлементыФормы.НадписьОрганизация.Значение = ОбщегоНазначения.ПреобразоватьСтрокуИнтерфейса("Организация:");
	ЭлементыФормы.БанковскийСчет.Подсказка = ОбщегоНазначения.ПреобразоватьСтрокуИнтерфейса("Банковский счет организации в банке, на который будут перечислятся средства");
	ЭлементыФормы.Организация.Подсказка = ОбщегоНазначения.ПреобразоватьСтрокуИнтерфейса("Организация");
	
КонецПроцедуры // УстановитьЗаголовкиОрганизацийВФорме()

// Процедура устанавливает подменю "Печать" и кнопку "Печать по умолчанию" при необходимости
//
Процедура УстановитьКнопкиПечати()
	
	мДеревоМакетов = УниверсальныеМеханизмы.ПолучитьДеревоМакетовПечати(Ссылка, Неопределено, Новый Действие("ОсновныеДействияФормыПечать"), Новый Действие("ОсновныеДействияФормыУстановитьПечатьПоУмолчанию"));

	УниверсальныеМеханизмы.УстановитьПодменюПечати    (мПодменюПечати, ЭлементыФормы.ОсновныеДействияФормы, мДеревоМакетов);
	УниверсальныеМеханизмы.УстановитьПечатьПоУмолчанию(мПечатьПоУмолчанию, ЭлементыФормы.ОсновныеДействияФормы, мДеревоМакетов, Метаданные().Имя,Новый Действие("ОсновныеДействияФормыПечатьПоУмолчанию"));

	Если Не мПодменюПечати = Неопределено Тогда
		УниверсальныеМеханизмы.СформироватьПодменю(мДеревоМакетов, мПодменюПечати,Истина,Истина);
	КонецЕсли;
	
КонецПроцедуры

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

////////////////////////////////////////////////////////////////////////////////
// ПРОЦЕДУРЫ - ОБРАБОТЧИКИ СОБЫТИЙ ФОРМЫ

Процедура ПередОткрытием(Отказ, СтандартнаяОбработка)

	// Установка кнопок печати
	УстановитьКнопкиПечати();
	
	// Установка кнопок заполнение ТЧ
	УстановитьКнопкиПодменюЗаполненияТЧ();

	КоличествоСтрокВВидеВклада = СтрЧислоСтрок(ВидВклада);
	
	Если КоличествоСтрокВВидеВклада >  0  Тогда
		ВидВкладаСтрокой = СтрПолучитьСтроку(ВидВклада,  1 );
	КонецЕсли;
	
	Если КоличествоСтрокВВидеВклада >  1  Тогда
		КодВида = СтрПолучитьСтроку(ВидВклада,  2 );
	КонецЕсли;
	
	Если КоличествоСтрокВВидеВклада >  2  Тогда
		КодПодВида = СтрПолучитьСтроку(ВидВклада,  3 );
	КонецЕсли;
	
	Если КоличествоСтрокВВидеВклада >  3  Тогда
		КодВалюты = СтрПолучитьСтроку(ВидВклада,  4 );
	КонецЕсли;
	
КонецПроцедуры

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

Процедура ОбработкаВыбора(ЗначениеВыбора, Источник)
	
	Если ТипЗнч(ЗначениеВыбора) = Тип("СправочникСсылка.Валюты") Тогда
		КодВалюты = ЗначениеВыбора.Код;
	КонецЕсли;
	
КонецПроцедуры

Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения)
	
	ВидВклада = ВидВкладаСтрокой + Символы.ПС + КодВида + Символы.ПС + КодПодВида + Символы.ПС + КодВалюты;
	
КонецПроцедуры

// Процедура - обработчик события "ПослеЗаписи" формы.
//
Процедура ПослеЗаписи()
	
	// Вывести в заголовке формы статус документа (новый, не проведен, проведен).
	РаботаСДиалогами.УстановитьЗаголовокФормыДокумента(, ЭтотОбъект, ЭтаФорма);
	
	МеханизмНумерацииОбъектов.ОбновитьПодсказкуКодНомерОбъекта(ЭтотОбъект.Метаданные(), ЭлементыФормы.ДействияФормы.Кнопки.Подменю, ЭлементыФормы.Номер);
	
КонецПроцедуры // ПослеЗаписи()

////////////////////////////////////////////////////////////////////////////////
// ПРОЦЕДУРЫ - ДЕЙСТВИЯ КОМАНДНЫХ ПАНЕЛЕЙ ФОРМЫ

// Процедура вызывается при выборе пункта подменю "Движения документа по регистрам" меню "Перейти".
// командной панели формы. Процедура отрабатывает печать движений документа по регистрам.
//
Процедура ДействияФормыДвиженияДокументаПоРегистрам(Кнопка)
	
	РаботаСДиалогами.НапечататьДвиженияДокумента(Ссылка);
	
КонецПроцедуры // ДействияФормыДвиженияДокументаПоРегистрам()

// Процедура вызова структуры подчиненности документа
Процедура ДействияФормыСтруктураПодчиненностиДокумента(Кнопка)
	
	РаботаСДиалогами.ПоказатьСтруктуруПодчиненностиДокумента(Ссылка);
	
КонецПроцедуры // ДействияФормыСтруктураПодчиненностиДокумента()

// Процедура разрешения/запрещения редактирования номера документа
Процедура ДействияФормыРедактироватьНомер(Кнопка)
	
	МеханизмНумерацииОбъектов.ИзменениеВозможностиРедактированияНомера(ЭтотОбъект.Метаданные(), ЭтаФорма, ЭлементыФормы.ДействияФормы.Кнопки.Подменю, ЭлементыФормы.Номер);
	
КонецПроцедуры

// Процедура выполняет  открытие формы регистра ЛицевыеСчетаРаботниковОрганизации
// с отбором по данному документу
Процедура ДействияФормыЛицевыеСчетаРаботниковОрганизации(Кнопка)
	
	ФормаСписка = РегистрыСведений.ЛицевыеСчетаРаботниковОрганизации.ПолучитьФормуСписка();	
	ФормаСписка.Отбор.Документ.Установить(Ссылка);
	ФормаСписка.Открыть();
	
КонецПроцедуры


// Процедура - обработчик нажатия на любую из дополнительных кнопок по заполнению ТЧ
//
Процедура НажатиеНаДополнительнуюКнопкуЗаполненияТЧ(Кнопка)
	
	УниверсальныеМеханизмы.ОбработатьНажатиеНаДополнительнуюКнопкуЗаполненияТЧ(мКнопкиЗаполненияТЧ.Строки.Найти(Кнопка.Имя,"Имя",Истина),ЭтотОбъект);
	
КонецПроцедуры

// Процедура - обработчик нажатия на кнопку "Печать по умолчанию"
//
Процедура ОсновныеДействияФормыПечатьПоУмолчанию(Кнопка)
	
	УниверсальныеМеханизмы.ПечатьПоДополнительнойКнопке(мДеревоМакетов, ЭтотОбъект, ЭтаФорма, Кнопка.Текст);
	
КонецПроцедуры

// Процедура - обработчик нажатия на кнопку "Печать"
//
Процедура ОсновныеДействияФормыПечать(Кнопка)
	
	УниверсальныеМеханизмы.ПечатьПоДополнительнойКнопке(мДеревоМакетов, ЭтотОбъект, ЭтаФорма, Кнопка.Текст);
	
КонецПроцедуры

// Процедура - обработчик нажатия на кнопку "Установить печать по умолчанию"
//
Процедура ОсновныеДействияФормыУстановитьПечатьПоУмолчанию(Кнопка)
	
	Если УниверсальныеМеханизмы.НазначитьКнопкуПечатиПоУмолчанию(мДеревоМакетов, Метаданные().Имя) Тогда
		
		УстановитьКнопкиПечати();
		
	КонецЕсли; 
	
КонецПроцедуры


// Процедура - вызывается при нажатии на кнопку "Подбор"
//
Процедура КоманднаяПанель1Подбор(Кнопка)
	
	ПроцедурыУправленияПерсоналомПереопределяемый.ОткрытьФормуВыбораСотрудникаОрганизации(ЭлементыФормы.РаботникиОрганизации, Ссылка, Ложь, Дата, мГоловнаяОрганизация,  0 ,,,,Истина);
	
КонецПроцедуры

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

////////////////////////////////////////////////////////////////////////////////
// ПРОЦЕДУРЫ - ОБРАБОТЧИКИ СОБЫТИЙ РЕКВИЗИТОВ ШАПКИ

Процедура ВводНачальныхСведенийПриИзменении(Элемент)
	
	ЭлементыФормы.РаботникиОрганизации.Колонки.НомерЛицевогоСчета.Видимость = ВводНачальныхСведений;
	
КонецПроцедуры

Процедура ОрганизацияПриИзменении(Элемент)
	Если Не ПустаяСтрока(Номер) Тогда
		МеханизмНумерацииОбъектов.СброситьУстановленныйКодНомерОбъекта(ЭтотОбъект, "Номер", ЭлементыФормы.ДействияФормы.Кнопки.Подменю, ЭлементыФормы.Номер);
	КонецЕсли;
	
	// Получим и запомним ссылку на головную организацию
	мГоловнаяОрганизация = ОбщегоНазначения.ГоловнаяОрганизация(Организация);
КонецПроцедуры

Процедура КодВалютыНачалоВыбора(Элемент, СтандартнаяОбработка)
	
	СтандартнаяОбработка = Ложь;
	Справочники.Валюты.ПолучитьФормуВыбора(, ЭтаФорма).Открыть();
	
КонецПроцедуры

////////////////////////////////////////////////////////////////////////////////
// ПРОЦЕДУРЫ - ОБРАБОТЧИКИ СОБЫТИЙ ТАБЛИЧНОГО ПОЛЯ РаботникиОрганизации

Процедура РаботникиОрганизацииПередНачаломИзменения(Элемент, Отказ)
	
	ТекущиеДанныеСтроки = Элемент.ТекущиеДанные;
	
	Если ТекущиеДанныеСтроки <> Неопределено Тогда
		мТекущееФизЛицо = ТекущиеДанныеСтроки.ФизЛицо;
	КонецЕсли;
	
КонецПроцедуры

Процедура РаботникиОрганизацииПриОкончанииРедактирования(Элемент, НоваяСтрока, ОтменаРедактирования)
	
	мТекущееФизЛицо = Неопределено;
	
КонецПроцедуры

Процедура РаботникиОрганизацииОбработкаВыбора(Элемент, ВыбранноеЗначение, СтандартнаяОбработка)
	
	Если ТипЗнч(ВыбранноеЗначение) <> Тип("СправочникСсылка.ФизическиеЛица") Тогда
		Возврат;
	КонецЕсли;
	
	СтандартнаяОбработка = Ложь;
	
	Физлицо = ВыбранноеЗначение;
	
	Если РаботникиОрганизации.НайтиСтроки(Новый Структура("ФизЛицо", ФизЛицо)).Количество() =  0  Тогда
		СтрокаТабличнойЧасти = РаботникиОрганизации.Добавить();
		СтрокаТабличнойЧасти.Физлицо = Физлицо;
		
		СрезФИО = РегистрыСведений.ФИОФизЛиц.СрезПоследних(ТекущаяДата(), Новый Структура("ФизЛицо", Физлицо));
		Если СрезФИО.Количество() >  0  Тогда
			СтрокаТабличнойЧасти.ЭмбоссированныйТекст1 = СрезФИО[ 0 ].Имя;
			СтрокаТабличнойЧасти.ЭмбоссированныйТекст2 = СрезФИО[ 0 ].Фамилия;
		КонецЕсли;
		
	КонецЕсли;

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

////////////////////////////////////////////////////////////////////////////////
// ПРОЦЕДУРЫ - ОБРАБОТЧИКИ СОБЫТИЙ РЕКВИЗИТОВ ТАБЛИЧНОГО ПОЛЯ РаботникиОрганизации

Процедура РаботникиОрганизацииФизЛицоПриИзменении(Элемент)
	
	ДанныеТекущегоРаботникаОрганизации = ЭлементыФормы.РаботникиОрганизации.ТекущиеДанные;
	
	ЗаполнитьЭмбосированныйТекст = Ложь;
	
	Если ДанныеТекущегоРаботникаОрганизации <> Неопределено Тогда
		
		Если ПустаяСтрока(ДанныеТекущегоРаботникаОрганизации.ЭмбоссированныйТекст1) Тогда
			ЗаполнитьЭмбосированныйТекст = Истина;
			
		Иначе
			Если мТекущееФизЛицо <> Неопределено Тогда
				СрезФИО = РегистрыСведений.ФИОФизЛиц.СрезПоследних(ТекущаяДата(), Новый Структура("ФизЛицо", мТекущееФизЛицо));
				Если СрезФИО.Количество() >  0  Тогда
					Если (ДанныеТекущегоРаботникаОрганизации.ЭмбоссированныйТекст1 = СрезФИО[ 0 ].Имя)
					   И (ДанныеТекущегоРаботникаОрганизации.ЭмбоссированныйТекст2 = СрезФИО[ 0 ].Фамилия) Тогда
						ЗаполнитьЭмбосированныйТекст = Истина;
						
					КонецЕсли;
				КонецЕсли;
			КонецЕсли;
			
		КонецЕсли;
		
	КонецЕсли;
	
	Если ЗаполнитьЭмбосированныйТекст Тогда
		
		СрезФИО = РегистрыСведений.ФИОФизЛиц.СрезПоследних(ТекущаяДата(), Новый Структура("ФизЛицо", Элемент.Значение));
		Если СрезФИО.Количество() >  0  Тогда
			ДанныеТекущегоРаботникаОрганизации.ЭмбоссированныйТекст1 = СрезФИО[ 0 ].Имя;
			ДанныеТекущегоРаботникаОрганизации.ЭмбоссированныйТекст2 = СрезФИО[ 0 ].Фамилия;
		КонецЕсли;
		
	КонецЕсли;
	
КонецПроцедуры

////////////////////////////////////////////////////////////////////////////////
// ОПЕРАТОРЫ ОСНОВНОЙ ПРОГРАММЫ