[РЕШЕНО] Изменить дату документа

Добрый день Всем!
Как можно изменить выбирая несколько документов дату и времени?

Есть журнал документов, нужно выделить несколько документов и изменить дату и времени!
Создал реквизит в форме документа ДатаДляУст и команду УстановитьДатуДляВыделеных

код

Код:

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


&НаСервереБезКонтекста
Процедура УстановитьДатуДляДок(Знач МассивДок, НужнаяДата) 
   
    ДельтаОтНачалаДня = НужнаяДатаВремя - Дата (1,1,1);
    Для каждого СсылкаНаДок Из МассивДок Цикл
        ОбъектДок = СсылкаНаДок.ПолучитьОбъект();
        Объект.Дата = НачалоДня(ОбъектДок.Дата)+ДельтаОтНачалаДня;
        ОбъектДок.Записать();
       
    КонецЦикла;
   
   
КонецПроцедуры

ошибки

Код:

{ЖурналДокументов.ПоступлениеГруза.Форма.ФормаСписка.Форма(27,22)}: Переменная не определена (НужнаяДатаВремя)
    ДельтаОтНачалаДня = <<?>>НужнаяДатаВремя - Дата (1,1,1); (Проверка: Сервер)
{ЖурналДокументов.ПоступлениеГруза.Форма.ФормаСписка.Форма(30,3)}: Переменная не определена (Объект)
        <<?>>Объект.Дата = НачалоДня(ОбъектДок.Дата)+ДельтаОтНачалаДня; (Проверка: Сервер)
{ЖурналДокументов.ПоступлениеГруза.Форма.ФормаСписка.Форма(18,2)}: Процедура или функция с указанным именем не определена (УстановитьДатыВремяДляДок)
    <<?>>УстановитьДатыВремяДляДок(Элементы.Список.ВыделенныеСтроки,ДатаДляУст); (Проверка: Тонкий клиент)

объясните пожалуйста подробнее!...

Да!
Большое Спасибо Вам!
код

Код:

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


&НаСервере
Процедура УстановитьДатуДляДок(Знач МассивДок, НужнаяДата) 
   
    ДельтаОтНачалаДня = НужнаяДата - Дата (1,1,1);
    Для каждого СсылкаНаДок Из МассивДок Цикл
        //ОбъектДок = СсылкаНаДок.ПолучитьОбъект();
        //ОбъектДок.Дата = НачалоДня(ОбъектДок.Дата)+ДельтаОтНачалаДня;
        //ОбъектДок.Записать();
        ОбъектДок = СсылкаНаДок.ПолучитьОбъект();
        ОбъектДок.Дата = НужнаяДата;
        Попытка
            ОбъектДок.Записать(РежимЗаписиДокумента.Запись);
        Исключение
            Сообщить(ОписаниеОшибки());
        КонецПопытки;                         
    КонецЦикла;
   
   
КонецПроцедуры