Программно не записывается документ

Question

Добрый день! 

Проблема следующая. Я создал внешнюю обработку для документа "Табель учета рабочего времени". Что бы при нажатии на кнопку в выделенной строке в днях проставлялось значение "В" (выходные дни). В общем-то обработку написал, но при изменении одной строки, программа не дает сделать такие же действия с другой строкой пока не записан документ. Что бы это обойти, решил дописать обработку, что бы она после выполнения записывала документ. Она его записывает, но не сохраняет (звездочка  около номера документа висит). После этих действий я не могу использовать доп кнопку дальше. Все еще просит записать документ, а если в этот момент начать записывать, то она ругается на то что данные изменены другим пользователем. По итогу не смог написать дописать обработку, что бы она выполнила все потребности. Подскажите пожалуйста как, либо написать код лучше, либо все же записывать документ через внешнюю обработку.

[1C-CODE]&НаКлиенте
Процедура ВыполнитьКоманду(ИдентификаторКоманды, ОбъектыНазначенияМассив) Экспорт
	ВыделенныеСтроки = ВладелецФормы.Элементы.ДанныеОВремени.ВыделенныеСтроки;
	
	Если ВыделенныеСтроки.Количество() = 0 Тогда
		Сообщить("Не выделено ни одной строки!");
		Возврат;
	КонецЕсли;
	
	НовоеЗначение = Новый Структура;	
	
	Для Каждого Строка Из ВыделенныеСтроки Цикл	
		Индекс = 1;
		Пока Индекс <= 31 Цикл
			
			НовоеЗначение.Очистить();
			ВидВремени = ПолучитьВидРабочегоВремени("Выходные дни");
			
			НовоеЗначение.Вставить("БуквенноеОбозначение", "В");
			НовоеЗначение.Вставить("ВидВремени", ВидВремени);
			НовоеЗначение.Вставить("Наименование", "Выходные дни");
			НовоеЗначение.Вставить("Целосменное", Истина);
			НовоеЗначение.Вставить("Часы", 0);
			
			Выполнить("УчетРабочегоВремениРасширенныйКлиент.ТабельДанныеОВремениВремяПредставлениеОбработкаВыбора(ВладелецФормы, ВладелецФормы.Элементы.ДанныеОВремениВремя" + Индекс + "Представление, НовоеЗначение, Истина)");
			Индекс = Индекс + 1;
	
		КонецЦикла;
	КонецЦикла;
	ЗаписатьДокумент(ВладелецФормы.Объект.Ссылка);	
КонецПроцедуры

&НаСервере
Процедура ЗаписатьДокумент(Ссылка)
	
	ДокументОбъект = Ссылка.ПолучитьОбъект();
	Попытка    
        ДокументОбъект.Записать(РежимЗаписиДокумента.Проведение);            
    Исключение
        Сообщить(ОписаниеОшибки());
		Возврат;
	КонецПопытки;
	//Сообщить("" + ДокументОбъект.Ссылка + " Записано");
	
КонецПроцедуры

&НаСервере
Функция ПолучитьВидРабочегоВремени(Наименование)
	Возврат Справочники.ВидыИспользованияРабочегоВремени.НайтиПоНаименованию(Наименование);
КонецФункции[/1C-CODE]

Accepted Answer

ДокументОбъект = Ссылка.ПолучитьОбъект(); 
Заменить на ЭтаФорма.Записать();  И параметры записи сделать проведение (не помню как пишется)