&НаСервере
Функция ПолучитьТекущийСтатусДокумента(Регистратор)
ТекущийСтатус=Перечисления.СК_ГР_СтатусКартинкой.ПустаяСсылка();
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| СК_ГР_Статусы_ДПС.Статус КАК Статус
|ИЗ
| РегистрСведений.СК_ГР_Статусы_ДПС КАК СК_ГР_Статусы_ДПС
|ГДЕ
| СК_ГР_Статусы_ДПС.ДокОснование = &Регистратор";
Запрос.УстановитьПараметр("Регистратор", Регистратор);
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
ТекущийСтатус=ВыборкаДетальныеЗаписи.Статус;
КонецЦикла;
возврат ТекущийСтатус;
КонецФункции
&НаСервере
Процедура ИзменитьСтатусКНаСервере(НомерДок)
док=Документы.СК_ЗаявкаНаИсполнениеПлатныхУслуг.НайтиПоНомеру(НомерДок);
ТекСтат=ПолучитьТекущийСтатусДокумента(док);
если ТекСтат=Перечисления.СК_ГР_СтатусКартинкой.ПустаяСсылка() тогда
ТекСтат=Перечисления.СК_ГР_СтатусКартинкой.Флажок;
иначеесли ТекСтат=Перечисления.СК_ГР_СтатусКартинкой.Флажок тогда
ТекСтат=Перечисления.СК_ГР_СтатусКартинкой.Галочка;
иначеесли ТекСтат=Перечисления.СК_ГР_СтатусКартинкой.Галочка тогда
ТекСтат=Перечисления.СК_ГР_СтатусКартинкой.ПустаяСсылка();
конецесли;
МенеджерЗаписи = РегистрыСведений.СК_ГР_Статусы_ДПС.СоздатьМенеджерЗаписи();
МенеджерЗаписи.ДокОснование = док;
МенеджерЗаписи.Статус = ТекСтат;
МенеджерЗаписи.Записать();
КонецПроцедуры
&НаКлиенте
Процедура СписокВыбор(Элемент, ВыбраннаяСтрока, Поле, СтандартнаяОбработка)
если Поле.Имя="СтатусК" тогда
ИзменитьСтатусКНаСервере(Элемент.ТекущиеДанные.Номер);
Элементы.Список.Обновить();
СтандартнаяОбработка=ложь;
конецесли;
КонецПроцедуры