ТаблицаДокументов = Новый ТаблицаЗначений;
ТаблицаДокументов.Колонки.Добавить("Ссылка");
ТаблицаДокументов.Колонки.Добавить("Действие");
Параметры.Вставить("ТаблицаДокументов",ТаблицаДокументов);


//////////////////////////////////////////

Если ОбъектНайден
	И Объект.Метаданные().Проведение = Метаданные.СвойстваОбъектов.Проведение.Разрешить  Тогда

	Если Не ОбъектНайден  Тогда
        Объект.Записать();
        ОбъектМодифицирован = Ложь;
    КонецЕсли;

	Если Объект.Ссылка.Проведен Тогда
		НоваяСтрока = Параметры.ТаблицаДокументов.Добавить();
		НоваяСтрока.Ссылка = Объект.Ссылка;
		НоваяСтрока.Действие = "Проведение";
	КонецЕсли;
КонецЕсли;


////////////////////////////////////////////////

Для каждого СтрокаТч Из Параметры.ТаблицаДокументов Цикл

	Если СтрокаТч.Действие = "Проведение" Тогда
		Запрос = Новый Запрос;
		Запрос.УстановитьПараметр("Документ",СтрокаТч.Ссылка);
		Запрос.Текст = "ВЫБРАТЬ
		|	ГрафикиРаботыПоВидамВремени.ГрафикРаботы,
		|	ГрафикиРаботыПоВидамВремени.Месяц,
		|	ГрафикиРаботыПоВидамВремени.План,
		|	ГрафикиРаботыПоВидамВремени.ВидУчетаВремени,
		|	ГрафикиРаботыПоВидамВремени.Дата
		|ИЗ
		|	РегистрСведений.ГрафикиРаботыПоВидамВремени КАК ГрафикиРаботыПоВидамВремени
		|ГДЕ
		|	ГрафикиРаботыПоВидамВремени.Документ = &Документ";

		Результат = Запрос.Выполнить();
		Если Не Результат.Пустой() Тогда

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

				НаборЗаписей.Прочитать();
				НаборЗаписей.Очистить();
				НаборЗаписей.Записать();
			КонецЦикла;
		КонецЕсли;
	КонецЕсли;
КонецЦикла;
Параметры.Удалить("ТаблицаДокументов");