// Параметры:

//		ВидСправочника				-	Строка, указывающая вид справочника, как он задан в конфигураторе

//		ДобавлятьЭлементыСправочника		-	1-	добавить колонку с наименованием "Элемент", содержащую элементы справочников, 0 - не добавлять колонку

//		ИмяРеквизита 				-	Имя реквизита, как он задан в конфигураторе. Используется при заполнении таблицы из выборки по значению реквизита.

//		ЗначениеРеквизита			-	Значение реквизита, по которому надо построить выборку. Используется при заполнении таблицы из выборки по значению реквизита.

//		ЭлементВладелец 				-	Владелец, указывается для подчиненных справочников

//		ЭлементРодитель 				-	Родитель, используется в случае, если надо ограничить выборку условием принадлежности элементов одной группе

//		ВключатьПодчиненные 			-	Установить флаг выборки всех подчиненных элементов.

//		Иерархия				-   Флаг указывающий на то как выбирать элементы (1 - выбирать элементы с учетом иерархии, 0 - выбирать элементы без учета иерархии)

//		ВОбратномПорядке			-	Число: 1 - выбирать элементы справочника в обратном порядке; 0 - выбирать элементы справочника в прямом порядке

//		ВключатьГруппы				-	1 - выбирать среди групп справочника, 0 - выбирать только среди элементов

//

// Возвращает: Таблица значений, колонками которой, являются реквизиты справочника



Функция СправочникВТЗ(ВидСправочника, ДобавлятьЭлементыСправочника = 0,ИмяРеквизита = 0, ЗначениеРеквизита = 0, ЭлементВладелец = 0, ЭлементРодитель = 0, ВключатьПодчиненные = 1, Иерархия = 1, ВОбратномПорядке = 0, ВключатьГруппы = 0) Экспорт

	

	ТаблицаСпр			=	СоздатьОбъект("ТаблицаЗначений");

	мдСпр				=	Метаданные.Справочник(ВидСправочника);

	ВсегоРеквизитовСпр	=	мдСпр.Реквизит();

	Для индРекв			= 	1 по ВсегоРеквизитовСпр Цикл

		Вид = мдСпр.Реквизит(индРекв).Вид;

		ТаблицаСпр.НоваяКолонка(мдСпр.Реквизит(индРекв).Идентификатор, мдСпр.Реквизит(индРекв).Тип + ?(ПустоеЗначение(Вид) = 0, "." + Вид, ""), мдСпр.Реквизит(индРекв).Длина, мдСпр.Реквизит(индРекв).Точность);

	КонецЦикла;

	ТаблицаСпр.НоваяКолонка("Код", ?(мдСпр.ТипКода = "Текстовый", "Строка", "Число"), мдСпр.ДлинаКода);

	ТаблицаСпр.НоваяКолонка("Наименование", "Строка", мдСпр.ДлинаНаименования);

	Если ДобавлятьЭлементыСправочника = 1 тогда

		ТаблицаСпр.НоваяКолонка("Элемент", "Справочник." + ВидСправочника);

	КонецЕсли;

	Спр = СоздатьОбъект("Справочник." + ВидСправочника);

	Если ЭлементВладелец <> 0 тогда

		Спр.ИспользоватьВладельца(ЭлементВладелец);

	КонецЕсли;

	Если ЭлементРодитель <> 0 тогда

		Спр.ИспользоватьРодителя(ЭлементРодитель);

	КонецЕсли;

	Спр.ОбратныйПорядок(ВОбратномПорядке);

	Спр.ВключатьПодчиненные(ВключатьПодчиненные);

	Если ИмяРеквизита = 0 тогда

		Спр.ВыбратьЭлементы(Иерархия);

	Иначе

		Спр.ВыбратьЭлементыПоРеквизиту(ИмяРеквизита, ЗначениеРеквизита, Иерархия, ВключатьГруппы);

	КонецЕсли;

	

	Пока Спр.ПолучитьЭлемент() = 1 Цикл

		      

		ТаблицаСпр.НоваяСтрока();

		ТекущаяСтрока	=	ТаблицаСпр.НомерСтроки;

		Для НомерКолонки= 	1 по ВсегоРеквизитовСпр Цикл

			ТаблицаСпр.УстановитьЗначение(ТекущаяСтрока, НомерКолонки, Спр.ПолучитьАтрибут(мдСпр.Реквизит(НомерКолонки)));

		КонецЦикла;

		ТаблицаСпр.Код			=	Спр.Код;

		ТаблицаСпр.Наименование	=	Спр.Наименование;

		Если ДобавлятьЭлементыСправочника = 1 тогда

			ТаблицаСпр.УстановитьЗначение(ТекущаяСтрока, "Элемент", Спр.ТекущийЭлемент());

		КонецЕсли;

		

	КонецЦикла;

	

	Возврат ТаблицаСпр;	

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

  Процедура ВводНового(Копирование) 

 

//E_Migachev автоматический расчет следующего номера             

//Выберем документы в обратном порядке

ДокНачислениеОтпуска = СоздатьОбъект("Документ.НачислениеОтпуска"); 

ДокНачислениеОтпуска.ОбратныйПорядок(1);

ДокНачислениеОтпуска.ВыбратьДокументы(НачКвартала(РабочаяДата()-15),КонКвартала(РабочаяДата()+27));

ДокНачислениеОтпуска.ПолучитьДокумент();  

//Получим последний числовой номер

новномдк=Строка(число(Сред(ДокНачислениеОтпуска.НомерДок,3,7)));

стрдлинаномдк=СтрДлина(Строка(СокрЛП(Сред(ДокНачислениеОтпуска.НомерДок,3,7))));

новномдк=Число(новномдк)+1; 

иткол=стрдлинаномдк-СтрДлина(новномдк); 

префиксдк="ОТ";

если иткол>0 тогда 

	для н=1 по иткол цикл

		префиксдк=префиксдк+строка(0);		

	конеццикла;

конецесли;	

докном=префиксдк+новномдк;   

//Если документ исправление то нужен префикс И

Если Исправление=1 Тогда 

	знтри=Прав(ДокНачислениеОтпуска.НомерДок,3);

	Если Строка(Лев(знтри,1))="И" Тогда

		чзнтри=Число(Прав(знтри,2));

		чзнтри=чзнтри+1;

	Иначе

		чзнтри=1;

	КонецЕсли;     

	Если СтрДлина(чзнтри)=1 Тогда

	докном=докном+"-И0"+Строка(чзнтри);	

	Иначе

	докном=докном+"-И"+Строка(чзнтри);	

	КонецЕсли;

КонецЕсли;    

//Присвоим новый номер

НомерДок=докном; //E_Migachev автоматич расчет номера