Команда Документа

[Новенькая]

Есть команда "печать" в документе. Необходимо провести документ, если он непроведен перед печатью и перепровести, если были какие-либо изменения.
При таком раскладе:

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

&НаКлиенте
Процедура ОбработкаКоманды(ПараметрКоманды, ПараметрыВыполненияКоманды)

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

КонецПроцедуры
&НаСервере
Функция ДокументПроведен(ПараметрКоманды)

Док = ПараметрКоманды.ПолучитьОбъект();
  Док.Прочитать();
Если Док.Модифицированность() ИЛИ Док.Проведен ТОгда
  Возврат Истина;
Иначе
  Возврат Ложь;
КонецЕсли;

КонецФункции
&НаСервере
Процедура ПровестиДок(ПараметрКоманды)
НачатьТранзакцию();
Попытка
  Док = ПараметрКоманды.ПолучитьОбъект();
  Док.Записать(РежимЗаписиДокумента.Проведение);
  Док.Прочитать();
  ЗафиксироватьТранзакцию();
Исключение
  ОтменитьТранзакцию();
КонецПопытки;

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

при попытке изменить что либо в форме документа после печати, вылетает ошибка : "Данные были изменены или удалены другим пользователем". Как правильно реализовать этот механизм?

[Besart]

команду печать вынесите в модуль формы и используйте в процедуре ПровестиДок()

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

ДокОбъект = РеквизитФормыВЗначение(Объект);
ДокОбъект.Записать(РежимЗаписиДокумента.Проведение);
ЗначениеВДанныеФормы(ДокОбъект, Объект);