Переменная не определена

[qwerty12345]

Этот вариант заработал, спасибо!

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

КонецЕсли
КонецПроцедуры

&НаКлиенте
Процедура ИзменитьСпособВыполненияРабот(Команда)
   ИзменитьСпособВыполненияРаботНаСервере();
КонецПроцедуры