Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
14 фев 2025, 18:14

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

Автор dtxlaw, 16 янв 2025, 17:32

0 Пользователей и 1 гость просматривают эту тему.

dtxlaw

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

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

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

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

antoneus


dtxlaw

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

antoneus


dtxlaw

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

antoneus

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

dtxlaw

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

dtxlaw

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

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

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

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

Максим75

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

antoneus

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

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

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск