Запись значения реквизита справочника в табличную часть

[HelloImNew]

Здравствуйте.
Постигаю самые азы 1С, пытаюсь при изменении реквизита справочника записать значение в таблицу. Немного запутался, нужно ли передавать что-то процедуре на сервере... Да и вообще запутался, если честно. Очень стараюсь понять, но пока тяжело укладывается в голове все обращения к реквизитам, к таблице, текущие данные и пр.

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

&НаСервере
Процедура ПередЗаписьюНаСервере()

КоличествоСтрок = ТекущийЭлемент.ТабИсторияСтатусов.Количество();
Если КоличествоСтрок = 0 Тогда 
НоваяСтрока = ТекущийЭлемент.ТабИсторияСтатусов.Добавить();
НоваяСтрока.Статус = ТекущийЭлемент.Статус;
НоваяСтрока.Дата = ТекущаяДата();
Иначе
Если ТекущийЭлемент.ТабИсторияСтатусов[КоличествоСтрок].Статус = ТекущийЭлемент.Статус Тогда Возврат;
Иначе НоваяСтрока = ТекущийЭлемент.ТабИсторияСтатусов.Добавить();
НоваяСтрока.Статус = ТекущийЭлемент.Статус;
НоваяСтрока.Дата = ТекущаяДата();
КонецЕсли
КонецЕсли


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

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

[LexaK]

пытаетесь вести историю статусов?

так как элементы справочника могут создаваться и меняться программно (без форм)
то ваш код в этом случае не сработает.

что бы статус всегда проверялся и при необходимости записывался в ТЧ перенесите свой код
в модуль справочника в обработчик события ПередЗаписью(...)

[HelloImNew]

LexaK, да, историю статусов.

В модуле объекта тогда надо по-другому обращаться? На "ТекущийЭлемент" ругается.

Спасибо большое за отклик!

[LexaK]

тогда надо по-другому обращаться?

да, разные контексты (модуль и форма), получаются разные обращения к данным.

как получится, выложите сюда свой код, посмотрим...

[Максим75]

HelloImNew, да, ТекущийЭлемент доступен из формы.
а в модуле документа надо объект получить, а потом уже с ним работать. потому как модуль Вы можете вызвать из разных мест и необходимо будет передавать допустим ссылку на элемент справочника.

[LexaK]

а в модуле документа надо объект получить,

эээ, не надо путать Модуль объекта с Менеджером!   

[HelloImNew]

LexaK, вроде работает. Смущает, что добавляю новую строку дважды, не знаю, стоит это как-то отпимизировать?

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

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

КоличествоСтрок = ТабИсторияСтатусов.Количество();
Если КоличествоСтрок = 0 Тогда 
НоваяСтрока = ТабИсторияСтатусов.Добавить();
НоваяСтрока.Статус = Статус;
НоваяСтрока.ДатаУстановки = ТекущаяДата();
Иначе
Если ТабИсторияСтатусов[КоличествоСтрок-1].Статус = Статус Тогда Возврат;
Иначе НоваяСтрока = ТабИсторияСтатусов.Добавить();
НоваяСтрока.Статус = Статус;
НоваяСтрока.ДатаУстановки = ТекущаяДата();
КонецЕсли
КонецЕсли


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

[antoneus]

Так можно попробовать

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

КоличествоСтрок = ТабИсторияСтатусов.Количество();   
Если КоличествоСтрок = 0 или ТабИсторияСтатусов[КоличествоСтрок - 1].Статус <> Статус Тогда 
    НоваяСтрока = ТабИсторияСтатусов.Добавить();
    НоваяСтрока.Статус = Статус;
    НоваяСтрока.ДатаУстановки = ТекущаяДата();
КонецЕсли;

[HelloImNew]

antoneus, да, спасибо, так гораздо красивее!