401-й сравнительно простой способ добавить пользовательские автоподстановки

09.07.21

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

+5 –

Несмотря на большое количество публикаций на тему пользовательских автоподстановок, решил "вставить свои 5 копеек". В данном варианте от пользователя после установки расширения не требуется программирования или какой-то сложной настройки, Достаточно настроить необходимые дополнительные свойства внутренних документов типа "Справочник.Пользователи" и "Обновить автоподстановки" в контекстном меню "Адресной книги".

Файлы

ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.

Наименование	Скачано	Купить файл	По подписке PRO
401-й сравнительно простой способ добавить пользовательские автоподстановки: .cfe 7,14Kb ver:1.0.0.1 7	7	2 500 руб. Купить	1 SM Скачать

Вы можете заказать платную доработку или адаптацию этой разработки под вашу конфигурацию на «Бирже заказов».

0% комиссии — оплата напрямую исполнителю;
Исполнители любого масштаба — от отдельных специалистов до команд под проект;
Прямой обмен контактами между заказчиком и исполнителем;
Безопасная сделка — при необходимости;
Рейтинги, кейсы и прозрачная система откликов.

В типовой функциональности есть автоподстановки, основанные на реквизитах документа (Автор, Ответственный и т.п.). Часто нужно иметь возможность отправлять документ на согласование пользователю, который задан в виде дополнительного реквизита. Решается эта задача очень просто. Переопределяем функцию "ПолучитьСписокДоступныхФункций" общего модуля "ШаблоныБизнесПроцессовПереопределяемый":

Код 1С8

&Вместо("ПолучитьСписокДоступныхФункций")
Функция па_ПолучитьСписокДоступныхФункций(ИменаПредметовДляФункций)
	
	Результат = ПродолжитьВызов(ИменаПредметовДляФункций);
	
	Если ИменаПредметовДляФункций <> Неопределено И ИменаПредметовДляФункций.Количество() > 0 Тогда
				
		ДополнительныеРеквизитыВнутреннихДокументов = УправлениеСвойствамиСлужебный.СписокСвойствДляВидаОбъектов("Справочник.ВнутренниеДокументы", "ДополнительныеРеквизиты");
	
		ДополнительныеРеквизитыВнутреннихДокументовТипаПользователь = ДополнительныеРеквизитыВнутреннихДокументов.НайтиСтроки(Новый Структура("ТипЗначения", Новый ОписаниеТипов("СправочникСсылка.Пользователи")));
		
		Свойства = Новый Массив;
		
		Для Каждого ДополнительныйРеквизитТипаПользователь Из ДополнительныеРеквизитыВнутреннихДокументовТипаПользователь Цикл
			Свойства.Добавить(ДополнительныйРеквизитТипаПользователь.Свойство);
		КонецЦикла;
		
		ЗначенияРеквизитовОбъектов = ОбщегоНазначения.ЗначенияРеквизитовОбъектов(Свойства, "Заголовок");
		
		ЗаголовкиСвойств = Новый Массив;
		
		Для Каждого ЗначениеРеквизита Из ЗначенияРеквизитовОбъектов Цикл
			Если ЗаголовкиСвойств.Найти(ЗначениеРеквизита.Значение.Заголовок) = Неопределено Тогда
				ЗаголовкиСвойств.Добавить(ЗначениеРеквизита.Значение.Заголовок);
			КонецЕсли;
		КонецЦикла;
		
		Для Каждого ЗаголовокСвойства Из ЗаголовкиСвойств Цикл
			Для Каждого ИмяПредмета Из ИменаПредметовДляФункций Цикл
				Результат.Добавить(СтрШаблон("ШаблоныБизнесПроцессовПереопределяемый.па_ЗначениеСвойстваПредмета(Объект, ИмяПредмета, ""%1"")", ЗаголовокСвойства),
					СтрШаблон(НСтр("ru = '%1.%2 документа'"), Строка(ИмяПредмета), ЗаголовокСвойства));
			КонецЦикла;
		КонецЦикла;
		
	КонецЕсли;

	Возврат Результат;
	
КонецФункции

Определим в этом же модуле функцию, которая будет получать значение автоподстановки:

Код 1С8

// Возвращает значение свойства предмета
//
// Параметры:
//  БизнесПроцессОбъект		- БизнесПроцессОбъект.<Тип бизнес процесса> - процесс, для которого
//							вычисляется автоподстановка
//  ИмяПредмета				- СправочникСсылка.ИменаПредметов - имя предмета в процессе
//	ЗаголовокСвойства		- Строка - значение, хранящееся в ПВХ ДополнительныеРеквизитыИСведения.Заголовок
//
// Возвращаемое значение:
//   СправочникСсылка.Пользователи
//
Функция па_ЗначениеСвойстваПредмета(БизнесПроцессОбъект, ИмяПредмета, ЗаголовокСвойства) Экспорт
	
	РезультатФункции = ПредопределенноеЗначение("Справочник.Пользователи.ПустаяСсылка");
		
	СтрокаПредмета = БизнесПроцессОбъект.Предметы.Найти(ИмяПредмета, "ИмяПредмета");
	
	Если СтрокаПредмета <> Неопределено Тогда
		
		Если Не ЗначениеЗаполнено(СтрокаПредмета.Предмет) Тогда 
			ВызватьИсключение СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
				НСтр("ru = 'Автоподстановка ""%1"" не может быть выполнена, так как не указан предмет ""%2"" процесса.'"),
				ЗаголовокСвойства, Строка(ИмяПредмета));
		КонецЕсли;
		
		Если НЕ ОбщегоНазначения.ЕстьРеквизитОбъекта("Подразделение", СтрокаПредмета.Предмет.Метаданные()) Тогда 
			ВызватьИсключение СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
				НСтр("ru = 'Автоподстановка ""%1"" не может быть выполнена для предмета ""%2"" процесса.'"),
				ЗаголовокСвойства, Строка(ИмяПредмета)); 
		КонецЕсли;
		
	Иначе
		ВызватьИсключение СтроковыеФункцииКлиентСервер.ПодставитьПараметрыВСтроку(
			НСтр("ru = 'В автоподстановке ""%1"" не найден предмет ""%2"" процесса.'"),
			ЗаголовокСвойства, Строка(ИмяПредмета));
	КонецЕсли;
		
	ЗначениеДопРеквизитаОбъекта = АвтозаполнениеШаблоновФайловСервер.ПолучитьЗначениеДопРеквизитаОбъекта(СтрокаПредмета.Предмет, ЗаголовокСвойства);
	
	Если ЗначениеЗаполнено(ЗначениеДопРеквизитаОбъекта) Тогда
		РезультатФункции = ЗначениеДопРеквизитаОбъекта;
	КонецЕсли;
	
	Возврат РезультатФункции;
		
КонецФункции

Подключаем расширение (не забываем снять флаг "Безопасный режим"). Добавляем в документы нужные нам свойства, к примеру в "Заявку на оплату" добавим свойства "Куратор" и "Контролер". Обновляем автоподстановки и получаем возможность указывать "Куратора" и "Контролера" в шаблоне бизнес-процесса согласования.

Описанный сценарий использования представлен на прилагаемых к публикации скриншотах. Проверял на "Документооборот 8 КОРП, редакция 2.1 (2.1.28.12)", но работать будет и на версии "Проф", и на релизах пониже.

Вступайте в нашу телеграмм-группу Инфостарт

расширение документооборот пользовательские автоподстановки дополнительные свойства

+5 –

См. также

1С:Документооборот 8

Бухгалтер Пользователь Руководитель проекта 1С:Предприятие 8 Управленческий учет Платные (руб)

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

63100 руб.

19.02.2016 116472 169 5

130

1С:Архив

1С:Предприятие 8 Платные (руб)

"1С:Архив" – это универсальная система для надежного долговременного хранения документов с гарантией юридической значимости на неограниченный срок. Решение разработано на основе нормативно-правовых актов по архивному делу, поддерживает операции хранения документов: от попадания в архив до уничтожения, и не имеет ограничений на объем хранимых данных. "1С:Архив" сопровождается методологической поддержкой в виде организационных документов по хранению, входящих в состав "Комплекта нормативных документов" к "Методике управления документами и совместной работой", разработанной специалистами фирмы "1С". Использование "1С:Архива" позволяет организовать единое хранилище всех бумажных и электронных документов из разных информационных систем, вести архивный учет в соответствии с требованиями Росархива и снизить нагрузку на учетные системы. С 1 апреля 2026 года стоимость изменится на 14%, успейте купить решение по цене 2025 года!

117000 руб.

24.10.2022 8751 17 1

SALE! 35%

Распознавание и загрузка документов в 1С

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

Программа для распознавания сканов или фотографий товарных документов в 1С. Просто выбираете файл (PDF, XML, JPG, DOC, XLS, HTML) и нажимаете кнопку "Распознать и загрузить".

~~8540~~ 5551 руб.

04.06.2019 127953 384 183

376

Архив ЭДО: хранение оригиналов первичных документов в базе 1С

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

Мощный, единый инструмент для решения всех проблем, связанных с переходом на ЭДО. Экономит бумагу и время – организует полностью соответствующий закону архив оригиналов первичных документов прямо в базе 1С, в прикрепленных файлах к соответствующим документам. Выявляет все возможные ошибки в ЭДО и помогает в несколько кликов их исправить. Взаимодействует напрямую с сервисами Диадок/СБИС, имеет интуитивно понятный интерфейс и учитывает 5-ти летний опыт 60+ клиентов.

19520 руб.

17.12.2018 52313 86 68

Шаблоны WORD для 1С - документы в формате doc

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

Приложение для быстрого создания макетов печатных документов, заполняемых из 1С:Предприятие, без привлечения программистов и запуска конфигуратора. Шаблон готовится в редакторе MS Word, отлично освоенном офисными служащими. Так, на подготовку нового шаблона договора купли продажи со спецификацией потребуется 25 минут. Приложение будет полезно, если Вы работаете со множеством Word-шаблонов или если Вам надо часто создавать новые шаблоны. Есть сертификат "1С: Совместимо!". Версия ПРОФ доступна в виде расширения.

2000 руб.

05.09.2017 99527 80 107

111

Расширение 1СПАРК риски для 1С:Документооборот 8 КОРП

WEB-интеграция Взаиморасчеты Аналитик Бухгалтер Руководитель проекта 1С:Предприятие 8 1С:Документооборот Бухгалтерский учет Управленческий учет Платные (руб)

Расширение для конфигурации 1С:Документооборот 8 КОРП, позволяющее с помощью сервиса "1СПАРК риски" проверять благонадежность контрагентов непосредственно из программы 1С.

7320 руб.

23.05.2018 31975 20 10

Управление рабочими группами для 1С:Документооборота

Роли и права Системный администратор 1С:Предприятие 8 1С:Документооборот Управленческий учет Платные (руб)

Внешняя обработка позволит быстро добавить участников в любое количество документов, заменить целиком набор участников или удалить лишь некоторых из них для одного объекта или группы документов.

6000 руб.

23.10.2015 67293 121 25

134

Штрихкодирование печатных форм документов в 1С

Печатные формы Разработчик Бухгалтер 1С:Предприятие 8 1С:Комплексная автоматизация 1.х 1С:Бухгалтерия 2.0 1С:Зарплата и Управление Персоналом 2.5 1С:Управление торговлей 10 1С:Управление производственным предприятием Украина Россия Платные (руб)

Легкая надстройка решает проблему штрих-кодирования печатных форм

5124 руб.

10.03.2015 38058 10 14

Комментарии

Подписаться на ответы Инфостарт бот

Свернуть все

1. user643999_gres1814 08.07.21 11:54 Сейчас в теме

В "Документооборот 8 КОРП, редакция 2.1 (2.1.28.14)
Автоподстановка появились, при попытке ее выбрать выпадает ошибка.
Для выбранной автоподстановки отсутствуют процедуры вычисления адресатов
Обновите список автоподстановок под пользователем с полными правами

2. fvr2000 11 09.07.21 12:37 Сейчас в теме

(1)

Для выбранной автоподстановки отсутствуют процедуры вычисления адресатов

У меня 2.1.28.12. Такая ошибка может возникнуть, если предметы процесса не заданы. В шаблоне процесса на вкладке "Предметы процесса" должен быть минимум 1 предмет, т.к. данные автоподстановки получают значения из предмета (значения дополнительных свойств).

3. Kontakt 110 07.11.23 15:20 Сейчас в теме

Сложных настроек не требуется)) нифига не работает. Что сделать и как. Нет инструкции. Как заносить поля? Пример в справочник автоподстановки?

4. fvr2000 11 08.11.23 16:04 Сейчас в теме

(3)
Ну еще бы "Экран черный!" и вообще получилось бы обращение в техподдержку по классике ) Что именно не не работает? Инструкция в самой статье. Свойства добавляйте какие хотите, главное чтобы тип у них был "Справочник.Пользователи". Справочник автоподстановки формируется автоматически.

5. Kontakt 110 09.11.23 13:33 Сейчас в теме

(4) расширение поставил в конфу. А далее открываю справочник "автоподстановок" пустой. Поля из инструкции "Обновляем автоподстановки и получаем возможность указывать "Куратора" и "Контролера" в шаблоне бизнес-процесса согласования." Каким образом попадут в автоподставновку?

6. fvr2000 11 10.11.23 18:56 Сейчас в теме

(5) Дополнительные реквизиты типа Справочник.Пользователи попадут в автоподстановку после обновления Адресной книги

7. Kontakt 110 13.11.23 10:24 Сейчас в теме

(6) добавил в вид документа: доп.реквизит Согласующий 1. Обновил данные адресной книги. Так же обновил: автоподстановки. Согласующий 1 так и не появился.

Прикрепленные файлы:

8. fvr2000 11 14.11.23 12:16 Сейчас в теме

(7) Укажите версию ДО, а также приложите скриншот экрана на момент до вызова адресной книги (которая на Вашем скрине без нужной автоподстановки). Предполагаю, что документ у Вас внутренний (а не входящий или исходящий) и тип доп. реквизита Справочник.Подьзователи"