//Выбор вида удержания пользователем

ВидУдерж=Неопределено;

МассивТипов = Новый Массив; 

МассивТипов.Добавить(Тип("ПланВидовРасчетаСсылка.УдержанияОрганизаций")); 

ОписаниеВозможныхТипов = Новый ОписаниеТипов(МассивТипов); 

Если ВвестиЗначение(ВидУдерж,"Выберите вид удержания", ОписаниеВозможныхТипов) Тогда

	Сообщить(ВидУдерж); // СООБЩИТЬ выбранный Вид удержания

КонецЕсли;   

 //Выбор файла

Режим = РежимДиалогаВыбораФайла.Открытие; 

ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим); 

ДиалогОткрытияФайла.ПолноеИмяФайла = ""; 

Фильтр = "Текст(*.txt)|*.txt"; 

ДиалогОткрытияФайла.Фильтр = Фильтр; 

ДиалогОткрытияФайла.МножественныйВыбор = Ложь; 

ДиалогОткрытияФайла.Заголовок = "Выберите файл для загрузки"; 

Если ДиалогОткрытияФайла.Выбрать() Тогда 

	ПутьКФайлу = ДиалогОткрытияФайла.ПолноеИмяФайла; 

КонецЕсли;	

//Выбор вида удержания пользователем

ВидУдерж=Неопределено;

МассивТипов = Новый Массив; 

МассивТипов.Добавить(Тип("ПланВидовРасчетаСсылка.УдержанияОрганизаций")); 

ОписаниеВозможныхТипов = Новый ОписаниеТипов(МассивТипов); 

Если ВвестиЗначение(ВидУдерж,"Выберите вид удержания", ОписаниеВозможныхТипов) Тогда

	Если Удержания.Количество()>0 тогда

		Предупреждение("Внимание! В таблице уже есть данные, новые данные Добавлены к существующим данным!");

	КонецЕсли;

	текдок=Новый ТекстовыйДокумент;

	текдок.Прочитать(ПутьКФайлу);

	Для Ном=1 по текдок.КоличествоСтрок() цикл

		Стр = текдок.ПолучитьСтроку(Ном);

		//Разложим строку в массив данных

		СтрМ=РазложитьСтрокуВМассивПодстрок(стр,"~");

		//Добавляем новую строку

		НовСтр=Удержания.Добавить();

		//Ищем Физика

		Физик = Справочники.ФизическиеЛица.НайтиПоКоду(СтрМ[0]);

		Если СокрЛП(Физик.Наименование) = СокрЛП(СтрМ[1]) тогда                                       

			НовСтр.Физлицо = Физик;

		Иначе 

			Сообщить("В справочнике Физ. Лиц не найден "+СтрМ[1],СтатусСообщения.ОченьВажное);

		КонецЕсли;

		НовСтр.ВидРасчета=ВидУдерж;

		НовСтр.ДатаНачала=РабочаяДата;

		НовСтр.ДатаОкончания=РабочаяДата;

		НовСтр.Показатель1=СтрМ[2];

		НовСтр.Результат=СтрМ[2];

	КонецЦикла;	

КонецЕсли;   

 ВидУдерж=Неопределено;

МассивТипов = Новый Массив; 

МассивТипов.Добавить(Тип("ПланВидовРасчетаСсылка.УдержанияОрганизаций")); 

ОписаниеВозможныхТипов = Новый ОписаниеТипов(МассивТипов); 

Если ВвестиЗначение(ВидУдерж,"Выберите вид удержания", ОписаниеВозможныхТипов) Тогда

	Сообщить(ВидУдерж);

    //Код обработки

КонецЕсли;   

 ФормаВыбораВидаРасчета = ПланыВидовРасчета.УдержанияОрганизаций.ПолучитьФормуВыбора("ФормаВыбора", ЭлементыФормы.Удержания, "дляДокументаРегистрацияРазовыхУдержаний");

ФормаВыбораВидаРасчета.Отбор.Ссылка.ВидСравнения = ВидСравнения.НеВСписке;

ФормаВыбораВидаРасчета.Отбор.Ссылка.Значение = СпВидовРасчета;

ФормаВыбораВидаРасчета.Отбор.Ссылка.Использование = ИСТИНА;

ФормаВыбораВидаРасчета.Открыть();   

 

// Заполним список доступных видов удержаний

СпВидовРасчета = Новый СписокЗначений;

Запрос = Новый Запрос(

"ВЫБРАТЬ

|	УдержанияОрганизаций.Ссылка

|ИЗ

|	ПланВидовРасчета.УдержанияОрганизаций КАК УдержанияОрганизаций

|ГДЕ

|	УдержанияОрганизаций.Предопределенный = ИСТИНА");



СпВидовРасчета.ЗагрузитьЗначения(Запрос.Выполнить().Выгрузить().ВыгрузитьКолонку("Ссылка"));   

 

// Просуммируем записи удержаний  неявок по физлицу

НаборЗаписей = РегистрыРасчета.УдержанияРаботниковОрганизаций.СоздатьНаборЗаписей();

НаборЗаписей.Отбор.Регистратор.Значение = ВыбДокНачисл;

НаборЗаписей.Отбор.физлицо.Установить(Физлицо); 

НаборЗаписей.Прочитать();

Для Каждого Запись Из НаборЗаписей Цикл 

	Если Запись.ВидРасчета=ПланыВидовРасчета.УдержанияОрганизаций.Неявка тогда 

	СумУдерж=СумУдерж+Запись.Результат; 

	КонецЕсли;

КонецЦикла;     

   

 

	// добавим новые начисления в базу исполнительных листов

	ПВРУд   = ПланыВидовРасчета.УдержанияОрганизаций;

	ПВРОсн  = ПланыВидовРасчета.ОсновныеНачисленияОрганизаций;

	

	ОбъектВР = ПВРУд.ИЛПроцентомБезБЛ.ПолучитьОбъект();

	НоваяСтрока            = ОбъектВР.БазовыеВидыРасчета.Добавить();

	НоваяСтрока.ВидРасчета = ПВРОсн.РайонныйКоэффициент;

	НоваяСтрока            = ОбъектВР.БазовыеВидыРасчета.Добавить();

	НоваяСтрока.ВидРасчета = ПВРОсн.СевернаяНадбавка;

	ОбъектВР.Записать();

	

	ОбъектВР = ПВРУд.ИЛПроцентом.ПолучитьОбъект();

	НоваяСтрока            = ОбъектВР.БазовыеВидыРасчета.Добавить();

	НоваяСтрока.ВидРасчета = ПВРОсн.РайонныйКоэффициент;

	НоваяСтрока            = ОбъектВР.БазовыеВидыРасчета.Добавить();

	НоваяСтрока.ВидРасчета = ПВРОсн.СевернаяНадбавка;

	ОбъектВР.Записать();

	   

 

Выборка = ПланыВидовРасчета.УдержанияОрганизаций.Выбрать();

Пока Выборка.Следующий() Цикл

	//код обработки выбора	

КонецЦикла;