Доступность ячейки в табличном поле документа.

[ls600]

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

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



Процедура ТабличнаяЧастьПриВыводеСтроки(Элемент, ОформлениеСтроки, ДанныеСтроки)
   Если Не РольДоступна("ПолныеПрава") Тогда
      ОформлениеСтроки.Ячейки.ДатаЗавершения.ТолькоПросмотр = Ложь;
      Если  ЗначениеЗаполнено(ДанныеСтроки.ДатаЗавершения) Тогда
         ОформлениеСтроки.Ячейки.ДатаЗавершения.ТолькоПросмотр = Истина;
      Иначе
         ОформлениеСтроки.Ячейки.ДатаЗавершения.ТолькоПросмотр = Ложь;
      КонецЕсли;
   КонецЕсли;
КонецПроцедуры



Из кода видно что если ячейка пустая то ее заполнить можно иначе нет.
Возможно ли сделать так что доступность ячейки будет только после записи документа, а то пользователь не ту дату поставит и придется звонить другому пользователю у которого есть доступ на изменение ячейки.?!

[has]

Ну проверяйте на ЭтоНовый() и Модифицированность() еще наверно

[ls600]

по подробнее, если не затруднит?

[has]

Ну как-то так наверно

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


Процедура ТабличнаяЧастьПриВыводеСтроки(Элемент, ОформлениеСтроки, ДанныеСтроки)
   Если Не РольДоступна("ПолныеПрава") Тогда
      Если ЭтоНовый() ИЛИ ЭтотОбъект.Модифицированность() Тогда
          ОформлениеСтроки.Ячейки.ДатаЗавершения.ТолькоПросмотр = Ложь;
      Иначе
          Если  ЗначениеЗаполнено(ДанныеСтроки.ДатаЗавершения) Тогда
             ОформлениеСтроки.Ячейки.ДатаЗавершения.ТолькоПросмотр = Истина;
          Иначе
             ОформлениеСтроки.Ячейки.ДатаЗавершения.ТолькоПросмотр = Ложь;
          КонецЕсли;
      КонецЕсли;
   КонецЕсли;
КонецПроцедуры


[ls600]

Ну как-то так наверно

Работает, благодарю!!!!!