Ребята помогите с обработкой(((

Есть обработка, которая автоматом закрывает все заказы клиентов 1с УТ11.
Так вот у меня с ней маленькая проблема, перед тем как ставить статус ЗАКРЫТ, мне необходима записать документы, т.к. при закрытии идет проверка,строки должны быть отменены и документ записан(проверка дописывалась)
Вот код....Напоминаю, суть в том что просто нужно записать документ..

&НаКлиенте
Процедура ПриОткрытии(Отказ)
    ДатаНачала = Дата(НачалоМесяца(ТекущаяДата()));
    ДатаОкончания = Дата(КонецМесяца(ТекущаяДата()));
КонецПроцедуры

&НаКлиенте
Процедура ОповеститьПользователяОбУстановкеСтатуса(СписокДокументов, КоличествоОбработанных, КоличествоВсего, Статус)

    Если КоличествоОбработанных > 0 Тогда

        //СписокДокументов.Обновить();

        ТекстСообщения = НСтр("ru='Для %КоличествоОбработанных% из %КоличествоВсего% выделенных в списке заказов клиентов установлен статус ""%Статус%""'");
        ТекстСообщения = СтрЗаменить(ТекстСообщения, "%КоличествоОбработанных%", КоличествоОбработанных);
        ТекстСообщения = СтрЗаменить(ТекстСообщения, "%КоличествоВсего%",        КоличествоВсего);
        ТекстСообщения = СтрЗаменить(ТекстСообщения, "%Статус%",                 Статус);
        ТекстЗаголовка = НСтр("ru='Статус ""%Статус%"" установлен'");
        ТекстЗаголовка = СтрЗаменить(ТекстЗаголовка, "%Статус%", Статус);
        ПоказатьОповещениеПользователя(ТекстЗаголовка,, ТекстСообщения, БиблиотекаКартинок.Информация32);

    Иначе

        ТекстСообщения = НСтр("ru='Статус ""%Статус%"" не установлен ни для одного заказа клиента.'");
        ТекстСообщения = СтрЗаменить(ТекстСообщения, "%Статус%", Статус);
        ТекстЗаголовка = НСтр("ru='Статус ""%Статус%"" не установлен'");
        ТекстЗаголовка = СтрЗаменить(ТекстЗаголовка, "%Статус%", Статус);
        ПоказатьОповещениеПользователя(ТекстЗаголовка,, ТекстСообщения, БиблиотекаКартинок.Информация32);

    КонецЕсли;

КонецПроцедуры

&НаСервере
Функция ВыполнитьНаСервере()



    //  Выборка = Документы.ЗаказКлиента.Выбрать(НачалоГода(ТекущаяДата()),КонецГода(ТекущаяДата()));

    Запрос = Новый Запрос;
    Запрос.Текст =
        "ВЫБРАТЬ
        |    ЗаказКлиента.Ссылка
        |ИЗ
        |    Документ.ЗаказКлиента КАК ЗаказКлиента
        |ГДЕ
        |    ЗаказКлиента.Дата МЕЖДУ &ДатаНачала И &ДатаОкончания
        |    И ЗаказКлиента.Проведен = ИСТИНА
        |    И ЗаказКлиента.ПометкаУдаления = ЛОЖЬ
        |    И ЗаказКлиента.Статус = &КОтгрузке
        |
        |СГРУППИРОВАТЬ ПО
        |    ЗаказКлиента.Ссылка
        |
        |УПОРЯДОЧИТЬ ПО
        |    ЗаказКлиента.Дата
        |АВТОУПОРЯДОЧИВАНИЕ";

    Запрос.УстановитьПараметр("ДатаНачала", ДатаНачала);
    Запрос.УстановитьПараметр("ДатаОкончания", КонецДня(ДатаОкончания));
    Запрос.УстановитьПараметр("КОтгрузке", Объект.Статус);

    РезультатЗапроса = Запрос.Выполнить();

    ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();

    мДокументы = Новый Массив;
    Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
        мДокументы.Добавить(ВыборкаДетальныеЗаписи.ССылка);
    КонецЦикла;

    Возврат мДокументы;

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

&НаСервере
Процедура  ЗаписатьНАСервере(Знач ВыделенныеСсылки)

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

    Для Каждого текСтрока из ВыделенныеСсылки цикл
        новСтрока = Таблица.Добавить();
        новСтрока.Документ = текСтрока;
    КонецЦикла;

    Для Каждого текСтрока из Таблица цикл
        Сообщить(Объект);
        Объект =  текСтрока.Документ.ПолучитьОбъект();
        Объект.Записать(режимЗаписиДокумента.Запись);
    КонецЦикла;


    КонецПроцедуры

    &НаКлиенте
Процедура ЗакрытьСчета(Команда)

    ВыделенныеСсылки = ВыполнитьНаСервере();
    Если ВыделенныеСсылки.Количество() = 0 Тогда
        Возврат;
    КонецЕсли;

    ТекстВопроса = НСтр("ru='У выделенных в списке заказов будет установлен статус ""Закрыт"". Все неотработанные строки будут отменены. Продолжить?'");
    Ответ = Вопрос(ТекстВопроса,РежимДиалогаВопрос.ДаНет);

    Если Ответ = КодВозвратаДиалога.Нет Тогда
        Возврат;
    КонецЕсли;

    ПричинаОтменыЗаказовКлиентов = ПредопределенноеЗначение("Справочник.ПричиныОтменыЗаказовКлиентов.ПустаяСсылка");

        ПричинаОтменыЗаказовКлиентов = ОткрытьФормуМодально("Справочник.ПричиныОтменыЗаказовКлиентов.ФормаВыбора",
            Новый Структура("ТекущаяСтрока",ПричинаОтменыЗаказовКлиентов));
        Если Не ЗначениеЗаполнено(ПричинаОтменыЗаказовКлиентов) Тогда
            Возврат;
        КонецЕсли;


        ОчиститьСообщения();

        //*******************************************
        //КоличествоОбработанных = ОбщегоНазначенияУТВызовСервера.УстановитьСтатусДокументов(ВыделенныеСсылки, "КОтгрузке", Новый Структура("ОтменаНеотработанныхСтрок", ПричинаОтменыЗаказовКлиентов));
                      //ДанныеФормыВЗначение
                      //РеквизитФормыВЗначение
        // ЗаписатьНАСервере(ВыделенныеСсылки);
    //    Для Каждого Документ из ВыделенныеСсылки цикл
    //
    //    Объект =  Документ.ПолучитьОбъект();
    //Сообщить(Объект);
    //Объект.Записать(режимЗаписиДокумента.Запись);

//КонецЦикла;
    //*****************************************

    КоличествоОбработанных = ОбщегоНазначенияУТВызовСервера.УстановитьСтатусДокументов(ВыделенныеСсылки, "Закрыт", Новый Структура("ОтменаНеотработанныхСтрок", ПричинаОтменыЗаказовКлиентов));
    ОповеститьПользователяОбУстановкеСтатуса(ВыделенныеСсылки, КоличествоОбработанных, ВыделенныеСсылки.Количество(), "Закрыт");






    //ВыполнитьНаСервере();
КонецПроцедуры