1С 8.3 Изменение значения реквизита объекта
Данные > Примеры кода 1С > 1С 8.3 Документы
Перейти в раздел примеры кода 1С 8.3:
Корректировка реквизита документа в 1С 8.3:
&НаСервере
Процедура Изменение_значения_реквизита_объекта(ДокСсылка, Новое_значение_реквизита)
// Процедура программно меняет значение реквизита объекта (документа)
// ДокСсылка - документ в котором необходимо изменить реквизит
// Новое_значение_реквизита - новое значение реквизита "Реквизит_для_корректировки"
// или так: ДокументССылка=Документы.ТТН.НайтиПоНомеру(СокрЛП(Ном),Дата('2021-05-16'));
Если Не ДокСсылка.Пустая() Тогда
ДокОбъект=ДокСсылка.ПолучитьОбъект();
ДокОбъект.Реквизит_для_корректировки = Новое_значение_реквизита;
ДокОбъект.Записать(РежимЗаписиДокумента.Запись);
Попытка
ДокОбъект.Записать(РежимЗаписиДокумента.Проведение);
Исключение
Сообщить(ОписаниеОшибки());
КонецПопытки
Иначе
Сообщить(Новое_значение_реквизита+" не записано в "+ДокСсылка+"! Документ не определен");
КонецЕсли
КонецПроцедуры
Процедура Изменение_значения_реквизита_объекта(ДокСсылка, Новое_значение_реквизита)
// Процедура программно меняет значение реквизита объекта (документа)
// ДокСсылка - документ в котором необходимо изменить реквизит
// Новое_значение_реквизита - новое значение реквизита "Реквизит_для_корректировки"
// или так: ДокументССылка=Документы.ТТН.НайтиПоНомеру(СокрЛП(Ном),Дата('2021-05-16'));
Если Не ДокСсылка.Пустая() Тогда
ДокОбъект=ДокСсылка.ПолучитьОбъект();
ДокОбъект.Реквизит_для_корректировки = Новое_значение_реквизита;
ДокОбъект.Записать(РежимЗаписиДокумента.Запись);
Попытка
ДокОбъект.Записать(РежимЗаписиДокумента.Проведение);
Исключение
Сообщить(ОписаниеОшибки());
КонецПопытки
Иначе
Сообщить(Новое_значение_реквизита+" не записано в "+ДокСсылка+"! Документ не определен");
КонецЕсли
КонецПроцедуры
0
комментарии
____________________
Перепечатка текста и фотографий разрешена при наличии прямой ссылки на источник