Автоматизация даты при добавлении объекта в справочник

[dtxlaw]

В справочнике номенклатура решил сделать автоматизацию времени при добавлении нового объекта. Прописал в модуле объекта код:

Код Выделить Развернуть

&НаКлиенте
Процедура ПередЗаписью(Отказ)

Если ЭтоНовый()
Тогда РеквизитДата = ТекущаяДатаСеанса();
КонецЕсли;

КонецПроцедуры
Но никаких результатов это не принесло, подскажите как автоматизировать!

[antoneus]

Не РеквизитДата, а Объект.РеквизитДата.

[dtxlaw]

antoneus, переписал, попытался добавить новый объект - безрезультатно, я сижу разбираюсь в проблеме - такое ощущение что проблема в обработчике события

[antoneus]

Обработчик к событию формы привязан?

[dtxlaw]

antoneus, если я не понял что ты написал, значит не сделал, как это сделать?

[antoneus]

Недостаточно просто написать процедуру ПередЗаписью, нужно открыть свойства формы и в разделе События в окошке ПередЗаписью выбрать процедуру.

[dtxlaw]

antoneus, если там код прописываю то пишет: {Справочник.Номенклатура.Форма.ФормаЭлемента.Форма(5,10)}: Процедура или функция с указанным именем не определена (ЭтоНовый)
    Если <<?>>ЭтоНовый() Тогда (Проверка: Тонкий клиент)
{Справочник.Номенклатура.Форма.ФормаЭлемента.Форма(6,16)}: Процедура или функция с указанным именем не определена (ТекущаяДатаСеанса)
        Дата = <<?>>ТекущаяДатаСеанса(); (Проверка: Тонкий клиент)

[dtxlaw]

dtxlaw, я чуть изменил подход, написал вот такой код в обработчике события:

Код Выделить Развернуть

&НаСервереБезКонтекста
Процедура ПередЗаписьюНаСервере()
   
    Если ЭтоНовый() Тогда
        Дата = ТекущаяДатаСеанса();
    КонецЕсли;

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

&НаКлиенте
Процедура ПередЗаписью(Отказ, ПараметрыЗаписи)
    ПередЗаписьюНаСервере();
КонецПроцедуры
теперь ошибок меньше: {Справочник.Номенклатура.Форма.ФормаЭлемента.Форма(5,7)}: Процедура или функция с указанным именем не определена (ЭтоНовый)
    Если <<?>>ЭтоНовый() Тогда (Проверка: Сервер)

[Максим75]

dtxlaw, на сервере сделайте. там оно точно доступно.

[antoneus]

Короче, делай так

Код Выделить Развернуть

&НаКлиенте
Процедура ПередЗаписью(Отказ)
    Если Объект.Ссылка.Пустая() Тогда
        Объект.РеквизитДата = ТекущаяДата()
    КонецЕсли;
КонецПроцедуры