БСП: Дополнительная обработка (Регламенты) + Расширения, примеры от сложного к универсальному

Функция СведенияОВнешнейОбработке() Экспорт

ПараметрыРегистрации = ДополнительныеОтчетыИОбработки.СведенияОВнешнейОбработке("2.4.5.71");
ПараметрыРегистрации.Вставить("БезопасныйРежим", Ложь);

ПараметрыРегистрации.Вид = ДополнительныеОтчетыИОбработкиКлиентСервер.ВидОбработкиДополнительнаяОбработка();
ПараметрыРегистрации.Версия = "1.0.08";

//Открываем форму
НоваяКоманда = ПараметрыРегистрации.Команды.Добавить();
НоваяКоманда.Представление = НСтр("ru = 'Форма задач по регламентам'");
НоваяКоманда.Идентификатор = "НастроитьИВыполнитьЗадачиВручную";
НоваяКоманда.Использование = ДополнительныеОтчетыИОбработкиКлиентСервер.ТипКомандыОткрытиеФормы();
НоваяКоманда.ПоказыватьОповещение = Ложь;

//Заполнение Регламентами
БПСПро_ОбщийМодуль.ЗаполнитьКоманды(ПараметрыРегистрации);

Возврат ПараметрыРегистрации;

КонецФункции

Процедура ЗаполнитьКоманды(ПараметрыРегистрации) Экспорт
//Регламент1
НоваяКоманда = ПараметрыРегистрации.Команды.Добавить();
НоваяКоманда.Представление = НСтр("ru = 'Задача 1 регламент'");
НоваяКоманда.Идентификатор = "Задача1Регламент";
НоваяКоманда.Использование = ДополнительныеОтчетыИОбработкиКлиентСервер.ТипКомандыВызовСерверногоМетода();
НоваяКоманда.ПоказыватьОповещение = Истина;

//Регламент2
НоваяКоманда = ПараметрыРегистрации.Команды.Добавить();
НоваяКоманда.Представление = НСтр("ru = 'Задача 2 регламент'");
НоваяКоманда.Идентификатор = "Задача2Регламент";
НоваяКоманда.Использование = ДополнительныеОтчетыИОбработкиКлиентСервер.ТипКомандыВызовСерверногоМетода();
НоваяКоманда.ПоказыватьОповещение = Истина;

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

//Обновляем регламентные задания
&НаКлиенте
Процедура БПСПро_ОбновитьКомандыПроПосле(Команда)
ПараметрыРегистрации = Новый Структура;
ПараметрыРегистрации.Вставить("Успех", Ложь);
ПараметрыРегистрации.Вставить("АдресДанныхОбработки", АдресДанныхОбработки);

ПараметрыРегистрации.Вставить("ИмяФайла", Объект.ИмяФайла);

ПараметрыРегистрации.Вставить("ОтключатьПубликацию", Ложь);
ПараметрыРегистрации.Вставить("ОтключатьКонфликтующие", Ложь);
ПараметрыРегистрации.Вставить("Конфликтующие", Новый СписокЗначений);
ПараметрыРегистрации.Вставить("ЭтоОтчет", Ложь);

ОбновлениеИзФайлаМеханикаНаСервере(ПараметрыРегистрации);

// Обработка результата работы сервера.
Если ПараметрыРегистрации.Успех Тогда
ОповещениеЗаголовок = НСтр("ru = 'Команды обновлены!'");
ПоказатьОповещениеПользователя(ОповещениеЗаголовок);
ОбновлениеИзФайлаЗавершение(Неопределено, ПараметрыРегистрации);
КонецЕсли;
КонецПроцедуры

//Обновляем регламентные задания
&НаКлиенте
Процедура БПСПро_ОбновитьКомандыПроПосле(Команда)
ПараметрыРегистрации = Новый Структура;
ПараметрыРегистрации.Вставить("Успех", Ложь);
ПараметрыРегистрации.Вставить("АдресДанныхОбработки", АдресДанныхОбработки);

ПараметрыРегистрации.Вставить("ИмяФайла", Объект.ИмяФайла);

ПараметрыРегистрации.Вставить("ОтключатьПубликацию", Ложь);
ПараметрыРегистрации.Вставить("ОтключатьКонфликтующие", Ложь);
ПараметрыРегистрации.Вставить("Конфликтующие", Новый СписокЗначений);
ПараметрыРегистрации.Вставить("ЭтоОтчет", Ложь);

//ОбновлениеИзФайлаМеханикаНаСервере(ПараметрыРегистрации);
ОбновитьИзФайлаИСообщить(ПараметрыРегистрации);

// Обработка результата работы сервера.
Если ПараметрыРегистрации.Успех Тогда
ОповещениеЗаголовок = НСтр("ru = 'Команды обновлены!'");
ПоказатьОповещениеПользователя(ОповещениеЗаголовок);
//ОбновлениеИзФайлаЗавершение(Неопределено, ПараметрыРегистрации);
ОбновитьИзФайлаЗавершение(Неопределено, ПараметрыРегистрации);
КонецЕсли;
КонецПроцедуры

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

Элементы.КлючРЗ.СписокВыбора.ЗагрузитьЗначения(Запрос.Выполнить().Выгрузить().ВыгрузитьКолонку("КлючРЗ"));
КонецПроцедуры

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

Запрос.УстановитьПараметр("КлючРЗ", КлючРЗ);
РезультатЗапроса = Запрос.Выполнить();

//Заполняем команды из справочника регламентов
Если не РезультатЗапроса.Пустой() Тогда
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
НоваяКоманда = ПараметрыРегистрации.Команды.Добавить();
НоваяКоманда.Представление = НСтр("ru = '"+ВыборкаДетальныеЗаписи.Наименование+"'");
НоваяКоманда.Идентификатор = ВыборкаДетальныеЗаписи.Идентификатор;
НоваяКоманда.Использование = ДополнительныеОтчетыИОбработкиКлиентСервер.ТипКомандыВызовСерверногоМетода();
НоваяКоманда.ПоказыватьОповещение = Истина;
КонецЦикла;
КонецЕсли;
КонецПроцедуры

&НаКлиенте
Процедура КодВыполненияПриИзменении(Элемент)
КодВыполненияПриИзмененииНаСервере();
КонецПроцедуры
&НаСервере
Процедура КодВыполненияПриИзмененииНаСервере()
//Чистим если надо
Если Объект.Параметры.Количество() > 0 Тогда
Объект.Параметры.Очистить();
КонецЕсли;

Если ЗначениеЗаполнено(Объект.КодВыполнения) Тогда
//Заполняем значениями по умолчанию
Для Каждого строкаПараметры из Объект.КодВыполнения.Параметры Цикл
новыйПараметр = Объект.Параметры.Добавить();
новыйПараметр.Имя = строкаПараметры.Имя;
новыйПараметр.Значение = строкаПараметры.ЗначениеПоУмолчанию;
КонецЦикла;
КонецЕсли;
КонецПроцедуры

Процедура ВыполнитьКомандуРЗ(ПараметрыВыполнения) Экспорт

Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ ПЕРВЫЕ 1
| БПСПро_Регламенты.Ссылка КАК Ссылка,
| БПСПро_Регламенты.КодВыполнения КАК КодВыполнения
|ИЗ
| Справочник.БПСПро_Регламенты КАК БПСПро_Регламенты
|ГДЕ
| НЕ БПСПро_Регламенты.ПометкаУдаления
| И БПСПро_Регламенты.КлючРЗ = &КлючРЗ
| И БПСПро_Регламенты.Активно
| И БПСПро_Регламенты.Идентификатор = &Идентификатор";

Запрос.УстановитьПараметр("КлючРЗ", ПараметрыВыполнения.КлючРЗ);
Запрос.УстановитьПараметр("Идентификатор", ПараметрыВыполнения.Идентификатор);

РезультатЗапроса = Запрос.Выполнить();

//Заполняем параметры и выполняем команду
Если не РезультатЗапроса.Пустой() Тогда

ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();

Если ВыборкаДетальныеЗаписи.Следующий() Тогда

//Параметры заполнения
ПараметрыРЗ = Новый Структура;
Для Каждого СтрокаПараметровПоУмолчанию из ВыборкаДетальныеЗаписи.КодВыполнения.Параметры Цикл

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

КонецЦикла;
ПараметрыВыполнения.Вставить("ПараметрыРЗ",ПараметрыРЗ);

//Выполняем команду по регламенту
Попытка
Выполнить(ВыборкаДетальныеЗаписи.КодВыполнения.ТекстКоманды);
Исключение
//СообщениеОбОшибке = ОписаниеОшибки();
КонецПопытки;
КонецЕсли;

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

// Интерфейс для запуска логики обработки.
Процедура ВыполнитьКоманду(ИмяКоманды, ПараметрыВыполнения) Экспорт
//Пораметры поиски регламента
ПараметрыВыполнения.Вставить("КлючРЗ",ЭтотОбъект.Метаданные().Имя);
ПараметрыВыполнения.Вставить("Идентификатор",ИмяКоманды);

//Если в структуре параметров не передан вид запуска считаем что это запуск регламентом
Если не ПараметрыВыполнения.свойство("ВидЗапускаРегламент") Тогда
ПараметрыВыполнения.Вставить("ВидЗапускаРегламент",Истина);
КонецЕсли;

//Выполняем регламент
БПСПро_ОбщийМодуль.ВыполнитьКомандуРЗ(ПараметрыВыполнения);
КонецПроцедуры

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
ЗаполнитьЗаписаннымиДанными();
КонецПроцедуры
Процедура ЗаполнитьЗаписаннымиДанными()
ОбрОбъект = РеквизитФормыВЗначение("Объект");

//Читаем информацию по доп обработке
ПолучитьСведеньяОбработки = ОбрОбъект.СведенияОВнешнейОбработке();

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

Для Каждого СтрокаРЗ Из СтрокиРЗ Цикл
Элементы.РегламентноеЗаданиеСписок.СписокВыбора.Добавить(СтрокаРЗ.Идентификатор,СтрокаРЗ.Представление);
КонецЦикла;
КонецПроцедуры

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

&НаСервере
Процедура ВыполнитьРЗНаСервере()
Если не ЗначениеЗаполнено(РегламентноеЗаданиеСписок) Тогда
Сообщить("Выберите РЗ!!!",СтатусСообщения.Важное);
Возврат;
КонецЕсли;

ПараметрыВыполнения = новый Структура;
ПараметрыВыполнения.Вставить("ВидЗапускаРегламент",Ложь);
ИмяКоманды = РегламентноеЗаданиеСписок;

ОбрОбъект = РеквизитФормыВЗначение("Объект");
ОбрОбъект.ВыполнитьКоманду(ИмяКоманды, ПараметрыВыполнения);

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

 //Создаем новый элемент справочника
ТекущийОбъект = Справочники.Заметки.СоздатьЭлемент();

ДатаТекСеанса = ТекущаяДатаСеанса();

//Формируем текст для Содержания
ФорматированныйТекст = Новый ФорматированныйДокумент;

//Обрабатываем Параметры
перТекстСодержания = "Заметка создана ";
перПометка = Перечисления.ЦветаЗаметок.Красный;
Если ПараметрыВыполнения.Свойство("ПараметрыРЗ") Тогда
Если ТипЗнч(ПараметрыВыполнения.ПараметрыРЗ) = Тип("Структура") Тогда
Если ПараметрыВыполнения.ПараметрыРЗ.Свойство("ТекстСодержания") Тогда
Если ЗначениеЗаполнено(ПараметрыВыполнения.ПараметрыРЗ.ТекстСодержания) Тогда
перТекстСодержания = ПараметрыВыполнения.ПараметрыРЗ.ТекстСодержания;
КонецЕсли;
КонецЕсли;

Если ПараметрыВыполнения.ПараметрыРЗ.Свойство("Пометка") Тогда
Если ЗначениеЗаполнено(ПараметрыВыполнения.ПараметрыРЗ.Пометка) Тогда
перПометка = ПараметрыВыполнения.ПараметрыРЗ.Пометка;
КонецЕсли;
КонецЕсли;

КонецЕсли;
КонецЕсли;

//Добавили проверку регламентформа
ФорматированныйТекст.Добавить(перТекстСодержания + ?(ПараметрыВыполнения.ВидЗапускаРегламент,"регламентом","вручную") + " в "+Строка(ДатаТекСеанса), Тип("ТекстФорматированногоДокумента"));

ТекущийОбъект.Содержание = Новый ХранилищеЗначения(ФорматированныйТекст, Новый СжатиеДанных(9));

ТекстHTML = "";
Вложения = Новый Структура;
ФорматированныйТекст.ПолучитьHTML(ТекстHTML, Вложения);

ТекущийОбъект.ТекстСодержания = СтроковыеФункцииКлиентСервер.ИзвлечьТекстИзHTML(ТекстHTML);

ТекущийОбъект.ДатаИзменения  = ДатаТекСеанса;
ТекущийОбъект.Автор    = ПараметрыСеанса.ТекущийПользователь;

ТекущийОбъект.Пометка    = перПометка;
ТекущийОбъект.ДляРабочегоСтола = Истина;

ТекущийОбъект.Записать();