//*******************************************
Процедура Выполнить()
	Перем СпРекв;
	
	Если ВыбДок.Выбран() =  0  Тогда
		предупреждение("Выберите документ");
		возврат;
	конецЕсли;
	
	Если ВыбДок.КоличествоСтрок() =  0  Тогда
		предупреждение("Отсутствуют данные в табличной части");
		возврат;
	конецЕсли;
	
	Если ВыбДок.КвоСтрок =  0  Тогда
		предупреждение("Отсутствуют данные о количестве строк в создаваемых документах");
		возврат;
	конецЕсли;
	
	
	СпРекв = СоздатьОбъект("СписокЗначений");
	Док = создатьОбъект("Документ."+ВыбДок.Вид());
	Док.НайтиДокумент(ВыбДок);
	ВидДок = Док.Вид();
	
	КвоРекв = Метаданные.Документ(ВидДок).РеквизитШапки();
	Для Рекв =  1  по Метаданные.Документ(ВидДок).РеквизитШапки() Цикл
		Ид = Метаданные.Документ(ВидДок).РеквизитШапки(Рекв).Идентификатор;
		СпРекв.ДобавитьЗначение(Док.ПолучитьАтрибут(Ид),Ид);	
	КонецЦикла;
	
	ТекНачНом =  1 ;
	ТекКонНом = Мин(Док.КоличествоСтрок(),КвоСтрок);
	
	ТЧ = СоздатьОбъект("ТаблицаЗначений");
	Док.ВЫгрузитьТабличнуюЧасть(ТЧ);
	ТекТЧ  = СоздатьОбъект("ТаблицаЗначений");
	
	Пока ТекНачНом < ТЧ.КоличествоСтрок() Цикл
		ТекТЧ.УдалитьСтроки();
		ТЧ.Выгрузить(ТекТЧ,ТекНачНом,ТекКонНом);
		Если не(ТекТЧ.КоличествоСтрок() =  0 ) Тогда
			Док.Новый();
			Для поз =  1  по СпРекв.РазмерСписка() Цикл
				Ид = "";
				Зн = СпРекв.ПолучитьЗначение(поз,Ид);	
				Док.УстановитьАтрибут(Ид,Зн);
			КонецЦикла;
			Док.ЗагрузитьТабличнуюЧасть(ТекТЧ);
			Попытка
				Док.Записать();
				Сообщить("Записан документ "+Док.Вид()+Строка(Док.НомерДок)+" от "+Строка(Док.ДатаДок));
			Исключение
				Сообщить(ОписаниеОшибки());
			КонецПопытки;
		иначе
			возврат;
		КонецЕсли;
		ТекНачНом = ТекНачНом + КвоСтрок;
		ТекКонНом = Мин(ТЧ.КоличествоСтрок(),ТекКонНом + КвоСтрок);
		
	КонецЦикла;
КонецПроцедуры 


//*******************************************
Функция ПолучитьКвоДок()
	Если ВыбДок.Выбран() =  1  Тогда
		Если не(КвоСтрок =  0 ) Тогда
			ВсегоДок = Цел(ВыбДок.КоличествоСтрок()/КвоСтрок);
			Если не(ВыбДок.КоличествоСтрок()%КвоСтрок =  0 ) Тогда
				ВсегоДок = ВсегоДок +  1 ;
			КонецЕсли;
			Возврат "Всего "+Строка(ВыбДок.КоличествоСтрок())+" строк. Документов "+Строка(ВсегоДок);
		Иначе
			Возврат "Всего "+Строка(ВыбДок.КоличествоСтрок())+" строк";	
		конецЕсли;
	Иначе
		Возврат "";
	КонецЕсли;
КонецФункции 

//*******************************************
Процедура ИзмДокумент()
	Если ВыбДок.Выбран() =  1  Тогда
		КвоСтрок = ВыбДок.КоличествоСтрок();
	конецЕсли;
конецпроцедуры