Возврат рекомендуемых шаблонов и ограничение состава процессов обработки в 1С:Документооборот 2.1.13+

20.01.20

Функциональные - Документооборот и делопроизводство (СЭД)

Как быстро вернуть рекомендуемые шаблоны в помощник отправки начиная с версии 2.1.13.

Начиная с версии 2.1.13 зачем-то убрали рекомендуемые шаблоны. Теперь все в одном списке, и предопределенные, и настроенные для вида документа. Так жить нельзя.

Все три пункта независимы.

  1. Чтобы выделить рекомендуемые шаблоны и вывести их в начало списка помощника отправки, в расширение добавляем процедуру общего модуля ПомощникОтправки
&После("ДобавитьВДеревоОсновныеВариантыСозданияПроцесса")
Процедура рш_ДобавитьВДеревоОсновныеВариантыСозданияПроцесса(Помощник)
	
	// Сдвинем рекомендуемые шаблоны в начало
	Помощник.ДеревоВариантов.Колонки.Добавить("ВыделитьСтроку", Новый ОписаниеТипов("Булево"));
		
	Для каждого элемент из Помощник.РекомендуемыеВариантыСозданияПроцессов	Цикл
		строка = Помощник.ДеревоВариантов.Строки.Найти(элемент.Ключ, "Вариант", Ложь);
		
		Если строка = Неопределено Тогда Продолжить КонецЕсли;
		строка.ВыделитьСтроку = Истина;		
		Помощник.ДеревоВариантов.Строки.Сдвинуть(Строка, -Помощник.ДеревоВариантов.Строки.Индекс(Строка));		
		
	КонецЦикла;
	
КонецПроцедуры

В расширение добавляем процедуру общей формы ПомощникОтправить


&НаСервере
&Перед("ЗаполнитьФормуПоДаннымПомощника")
Процедура рш_ЗаполнитьФормуПоДаннымПомощника(ПомощникНаСервере)
	
	// Выделение строк рекомендуемых шаблонов
	// Колонка дерева ВыделитьСтроку создается в ОбщийМодуль.ПомощникОтправить
	
	// Создаём реквизит формы	
	МассивРеквизитов = Новый Массив;
	МассивРеквизитов.Добавить(Новый РеквизитФормы("ВыделитьСтроку", Новый ОписаниеТипов("Булево"), "ВариантыОтправки"));
	ЭтаФорма.ИзменитьРеквизиты(МассивРеквизитов);	
	
	// УО
	Элемент = УсловноеОформление.Элементы.Добавить();
	
	Поля = Элемент.Поля.Элементы;
	Поля.Добавить().Поле = Новый ПолеКомпоновкиДанных("ВариантыОтправки");
	
	ОтборЭлемента = Элемент.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));
	ОтборЭлемента.ЛевоеЗначение = Новый ПолеКомпоновкиДанных("ВариантыОтправки.ВыделитьСтроку");
	ОтборЭлемента.ВидСравнения = ВидСравненияКомпоновкиДанных.Равно;
	ОтборЭлемента.ПравоеЗначение = Истина;	
	Элемент.Оформление.УстановитьЗначениеПараметра("Шрифт", Новый Шрифт("Arial",12,Истина));
		
КонецПроцедуры


  1. Чтобы убрать из списка все кроме предопределенных и рекомендуемых (т.е. другие варианты), в расширение добавляем процедуру общего модуля ПомощникОтправки
&Вместо("ДобавитьВДеревоОстальныеВариантыОтправки")
Процедура рни_ДобавитьВДеревоОстальныеВариантыОтправки(Помощник)
	// ДРУГИЕ ВАРИАНТЫ недоступны	
КонецПроцедуры
  1. Если нужно ограничить состав возможных процессов обработки документа, в расширение добавляем процедуру общего модуля ПомощникОтправки.

В формировании массива добавляем все нужные шаблоны процессов, которые нужно убрать.

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

 

Документооборот КОРП рекомендуемые шаблоны процессы ограничить

См. также

Бухгалтер Пользователь Руководитель проекта Платформа 1С v8.3 Управленческий учет Платные (руб)

Организуйте правильный оборот документов на вашем предприятии в 1С. Ведение учета и хранения документов. Управление потоками документации между подразделениями. Работа с договорами в компании. Автоматизация процессов подготовки, согласования и подписания документов. Сократите время и объем ошибок с 1С:ДО!

48500 руб.

19.02.2016    109911    134    5    

105

Бизнес-аналитик Бухгалтер Пользователь Платформа 1С v8.3 Бухгалтерский учет Налоговый учет Управленческий учет Платные (руб)

Прикладное решение «1С:Комплексная автоматизация 2» позволяет построить современную систему учета с высокой степенью детализации затрат, определить показатели управления и ответственности пользователей в рамках единого информационного пространства.

83000 руб.

19.02.2016    83347    113    0    

112

Рабочее место Производство готовой продукции (работ, услуг) Перенос данных 1C Пользователь Платформа 1С v8.3 1С:Управление производственным предприятием 1С:Документооборот 1С:Комплексная автоматизация 2.х 1С:КА 1С:ДО Платные (руб)

Продукт "Интеграция с 1С:Документооборот" позволяет использовать функции программы "1С:Документооборот 8" напрямую из учетной системы (1С:УПП; 1С:КА, 1С:УТ 10.3, 1С:БГУ 1.0, 1С:ЗБУ 1.0, 1С:УПП для Казахстана и отраслевых решений, разработанных на их основе) на платформе "1С:Предприятие 8": выполнять и ставить задачи, просматривать документы, скан-копии и прочие файлы, штрих-кодировать документы отправлять письма, вести учет рабочего времени - не входя в "1С:Документооборот 8", работая в одной программе, что значительно сокращает время и делает работу более комфортной и эффективной. Продукт прошел сертификацию 1С-Совместимо

110400 руб.

11.06.2015    58423    36    20    

45

SALE! 30%

Мессенджеры и боты Учет документов Платформа 1С v8.3 1С:Управление нашей фирмой 1.6 1С:Бухгалтерия государственного учреждения 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 Платные (руб)

Расширение для согласования справочников и документов в основных типовых конфигурациях. Ролевая адресация, условная маршрутизация, чат-бот telegram, интеграция с n8n, последовательное и параллельное согласование, уведомление о новых задачах на почту, блокировка объектов в зависимости от статуса, запрет проведения в зависимости от статуса, автозапуск процессов согласования, отчеты по исполнительской дисциплине. Не требуется снятие конфигурации с поддержки. Настройка без программирования. Версия для 1cfresh.com. Сертификат 1С-Совместимо.

14900 руб.

15.11.2018    32281    40    49    

73

ЭДО и ОФД Учет документов Платформа 1С v8.3 1C:Бухгалтерия Россия Платные (руб)

Мощный, единый инструмент для решения всех проблем, связанных с переходом на ЭДО. Экономит бумагу и время - организует архив оригиналов первичных документов прямо в базе 1С, в прикрепленных файлах к соответствующим документам.

14880 руб.

17.12.2018    46607    69    63    

80

Печатные формы Бухгалтер Пользователь Платформа 1С v8.3 1С:Управление нашей фирмой 1.6 1С:ERP Управление предприятием 2 1С:Бухгалтерия 3.0 1С:Управление торговлей 11 1С:Комплексная автоматизация 2.х 1С:Управление нашей фирмой 3.0 1С:Розница 3.0 Бухгалтерский учет Управленческий учет Платные (руб)

Расширение для печати договоров с приложением из шаблонов. Быстрая подготовка заполненных договоров без ручного заполнения. Возможность использования дополнительных реквизитов контрагентов и номенклатуры Быстрое сохранение файлов договоров и отправка по электронной почте. Решение в Реестре отечественного ПО.

15000 руб.

20.04.2016    63759    189    107    

103
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. rpgshnik 3848 16.04.21 12:00 Сейчас в теме
Спасибо, полезная статья!

Единственное в первом случае при добавление строки добавил проверку в дереве на наличие уже созданной колонки:
	Если Помощник.ДеревоВариантов.Колонки.Найти("ВыделитьСтроку") = Неопределено Тогда
		Помощник.ДеревоВариантов.Колонки.Добавить("ВыделитьСтроку", Новый ОписаниеТипов("Булево"));
	КонецЕсли;
2. pavlig 65 16.04.21 16:46 Сейчас в теме
(1) может быть, у меня все работало, вроде бы без сбоев
Оставьте свое сообщение