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

03.10.19

База данных - Инструменты администратора БД

Данная обработка позволяет производить любые манипуляции с базой, не трогая конфигурацию (за исключением только первого раза, когда мы вносим код самого фонового задания в любой неглобальный общий модуль).

Скачать файлы

Наименование Файл Версия Размер
Фоновое задание с произвольной выборкой и произвольной обработкой:
.epf 10,81Kb
2
.epf 10,81Kb 2 Скачать

Метод не уникален, есть несколько подобных публикаций, как например //infostart.ru/public/437160/, но там многопоточность и все такое. Для обычной же работы требуются более простые вещи - дать фоновому заданию некую выборку и сказать, что с ней следует сделать. Даже проще - выборку оно сделает само, мы лишь подсунем ему текст запроса с параметрами, а требуемые действия также передадим в виде строки. Итак, текст процедур, которые нужно поместить в любой неглобальный общий модуль (или создать свой):


Процедура ГрупповаяОбработка(ПараметрыДлительногоЗадания, АдресХранилища) Экспорт
	
	НачалоОбработки = ТекущаяДата();
	РезультатОбработки = Новый Структура("ОбработаноДокументов, НеУдалосьОбработать, ЗаданиеВыполнено, ТекстСообщения", 0, 0, Ложь, "");
	Запрос = Новый Запрос(ПараметрыДлительногоЗадания.ТекстЗапроса);
	Для Каждого Запись Из ПараметрыДлительногоЗадания.ПараметрыЗапроса Цикл
		Запрос.УстановитьПараметр(Запись.Ключ, Запись.Значение);
	КонецЦикла;
	Выборка = Запрос.Выполнить().Выбрать();
	Действие = ПараметрыДлительногоЗадания.Действие;
	КоличествоСтрок = Выборка.Количество();
	НомерСтроки = 0;
	НачалоСообщения = "Найдено "+КоличествоСтрок+" объектов";
	Пока Выборка.Следующий() Цикл
		НомерСтроки = НомерСтроки + 1;
		ПредставлениеДокумента = Строка(Выборка.Документ);
		Осталось = ПолучитьХодВыполнения(НачалоОбработки, НомерСтроки, КоличествоСтрок);
		Проценты = ""+Окр(НомерСтроки * 100 / КоличествоСтрок, 2)+"%  ";
		ТекстСообщения = НачалоСообщения + Символы.ПС + Проценты + Осталось + Символы.ПС + ПредставлениеДокумента;
		СообщитьХодВыполнения(ТекстСообщения);
		Попытка
			Выполнить(Действие);
			РезультатОбработки.ОбработаноДокументов = РезультатОбработки.ОбработаноДокументов + 1;
			РезультатОбработки.ТекстСообщения = ТекстСообщения;
		Исключение
			РезультатОбработки.НеУдалосьОбработать = РезультатОбработки.НеУдалосьОбработать + 1;
		КонецПопытки;
	КонецЦикла;
	РезультатОбработки.ЗаданиеВыполнено = Истина;
	ПоместитьВоВременноеХранилище(РезультатОбработки, АдресХранилища);
	
КонецПроцедуры

Функция ПолучитьХодВыполнения(НачалоОбработки, НомерСтроки, Количество)
	Затрачено = ТекущаяДата() - НачалоОбработки;
	фч = "ЧЦ=2;ЧН=;ЧВН="; // формат числа
	Осталось = Затрачено * Количество / НомерСтроки - Затрачено; // осталось секунд
	Осталось_текст = "(осталось: "+Строка(Формат(Осталось/3600, фч) + ":"+ Формат(Осталось%3600/60, фч) + ":"+ Формат(Осталось%60, фч))+")";
	Возврат Осталось_текст;
КонецФункции

Процедура СообщитьХодВыполнения(ТекстСообщения) Экспорт
 	Сообщение = Новый СообщениеПользователю;
	Сообщение.Текст = ТекстСообщения;
	Сообщение.Сообщить();
КонецПроцедуры

Самая главная процедура - первая, в ней указаны все наши необходимые параметры - текст запроса, его параметры, и действия с отдельным объектом. Две следующие процедуры служат для отображения прогресса.

Запускается все это добро из внешней обработки, через процедуру

&НаСервере
Функция ОбработкаНаСервере()
	
	ИБФайловая = ОбщегоНазначения.ИнформационнаяБазаФайловая();
	ДлительныеОперации.ОтменитьВыполнениеЗадания(УИДЗаданиеПроведение);
	УИДЗаданиеПроведение = Неопределено;
	
	ПараметрыДлительногоЗадания = ПолучитьПараметрыЗадания();
	
	Если ИБФайловая Тогда
		ДополнительныйОбщийМодуль.ГрупповаяОбработка(ПараметрыДлительногоЗадания, АдресВоВременномХранилище);
		РезультатВыполнения = Новый Структура("ЗаданиеВыполнено", Истина);
	Иначе
		РезультатВыполнения = ДлительныеОперации.ЗапуститьВыполнениеВФоне(УникальныйИдентификатор,
			"ДополнительныйОбщийМодуль.ГрупповаяОбработка", ПараметрыДлительногоЗадания, НСтр("ru = 'Групповая обработка объектов'"));
		АдресВоВременномХранилище = РезультатВыполнения.АдресХранилища;
		УИДЗаданиеПроведение = РезультатВыполнения.ИдентификаторЗадания;
	КонецЕсли;
	
	Возврат РезультатВыполнения;
	
КонецФункции

Результат можно увидеть на приложенной картинке.

В качестве ДополнительныйОбщийМодуль в этой процедуре может выступать любой, куда вы поместите фоновое задание.

Какие преимущества? Текст запроса задаем на клиенте, параметры тоже, действия тоже. Сегодня перепроводим счета-фактуры и перенумеруем ПКО, завтра обрабатываем справочник "Контрагенты", послезавтра обрабатываем поступления, у которых БУ и НУ по 90 счету совпадает - в фоновом задании ничего не требуется переделывать, только во внешней обработке.

Недостатки - не подходит пользователям: чтобы править запрос, нужен конфигуратор, то есть обработка предназначена для программистов. Можно, конечно, вынести текст запроса на форму и задавать там, но и здесь потребуются знания, которые есть только у программиста.

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

Разрабатывалось все под слегка измененную БП 3.0 (релиз 3.0.55.14, платформа 8.3.10.2299), но на типовой тоже пойдет. На других типовых вроде УТ или УПП тоже должно, по крайней мере если у вас есть модуль ДлительныеОперации.

Обработка приложена к публикации, модуль фонового задания (который приведен выше) лежит в макетах, его потребуется закинуть в один из неглобальных общих модулей (и в обработке указать путь к нему) или же создать свой.

См. также

Автоподбор ролей для профилей и групп доступа в любых типовых базах 1С УТ 11, КА 2, ERP2, Розница 2/3, УНФ 16/3, БП 3, ЗУП 3 и подобных (УФ, Платформа 8.3.14+)

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

Роли… Вы тратите много времени и сил на подбор ролей среди около 2400 в ERP или 1500 в Рознице 2, пытаясь понять какими правами они обладают? Вы все время смотрите права в конфигураторе или отчетах чтоб создать нормальные профили доступа? Вы хотите наглядно видеть какие права дает профиль и редактировать все в простом виде? А может хотите просто указать подсистему и дать права на просмотр и добавление на объекты и не лезть в дебри прав и чтоб обработка сама подобрала нужные роли? Все это теперь стало возможно! Обновление от 15.12.2023, версия 1.1.

12000 руб.

06.12.2023    2764    11    1    

30

Infostart УДиФ: Управление данными и формами

Инструменты администратора БД Инструментарий разработчика Роли и права Платформа 1С v8.3 Конфигурации 1cv8 Россия Платные (руб)

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

10000 руб.

10.11.2023    3253    10    1    

31

SALE! 30%

PowerTools

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

Универсальный инструмент программиста для администрирования конфигураций. Сборник наиболее часто используемых обработок под единым интерфейсом.

3600 2520 руб.

14.01.2013    177350    1071    0    

846

Ускоренное проведение документов (x4), устранение ошибок 60/62 счетов и зачет авансов (Бухгалтерия 3.0)

Закрытие периода Инструменты администратора БД Корректировка данных Бухгалтерский учет 1С:Бухгалтерия 3.0 Россия Бухгалтерский учет Платные (руб)

Расширение «Оперативное проведение» в 4 раза уменьшает время проведения документов и закрытия месяца. Является комплексным решением проблем 62 и 60 счетов. Оптимизирует проведение при включенной функциональной опции «Раздельный учет НДС». Используется в более 10 организациях уже 2 года. Совместимо с конфигурацией Бухгалтерия 3.0 (+КОРП).

14400 руб.

29.04.2020    27173    78    146    

59

"Менеджер потоков 2.1": УПП: "Восстановление партий"

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

Как оптимизировать то, что, считалось, не поддается оптимизации? Как повысить доступность базы данных? Как проводить самую «времяемкую» операцию не по паре раз в неделю, а по несколько раз в день*? Ответ есть!

20000 руб.

12.09.2019    11706    5    9    

7

Брандмауэр для сервера 1С Предприятие 8 - внешнее управление сеансами

Инструменты администратора БД Платформа 1С v8.3 Конфигурации 1cv8 Платные (руб)

Управление возможностью начала и возобновления сеансов пользователей по различным условиям, ограничение общего числа возможных сеансов для работы с информационной базой, резервирование возможности работы с информационной базой определенных польззователей, запрет запуска нескольких сеансов для пользователя, журнализация событий начала (возобновления) и завершения (гибернации) сеансов, ведение списка активных сеансов для информационных баз кластера серверов

3600 руб.

06.02.2017    31041    31    18    

47

Система хранения присоединенных файлов в томах на диске

Инструменты администратора БД Платформа 1С v8.3 1С:Комплексная автоматизация 1.х 1С:Управление производственным предприятием Платные (руб)

Конфигурация Комплексная автоматизация 1.1 (и УПП 1.3 тоже) хранит файлы и изображения в справочнике Хранилище дополнительной информации в реквизите Хранилище типа ХранилищеЗначений. Та же история с ВложениямиЭлектроннойПочты. Но при этом присоединенные файлы в Электронном документообороте хранит в томах на диске. Эта доработка позволяет использовать стандартный механизм хранения файлов, изображений и вложений электронных писем в томах на диске. При этом можно разделить тома хранения по объектам конфигурации.

4200 руб.

10.11.2015    61228    87    59    

72

Хранилище файлов на SQL

Инструменты администратора БД Платформа 1С v8.3 Управляемые формы Конфигурации 1cv8 Управленческий учет Платные (руб)

Привязка файлов / сканов к объектам 1С с сохранением их на SQL-сервере

12000 руб.

09.10.2019    10896    5    8    

9
Комментарии
В избранное Подписаться на ответы Сортировка: Древо развёрнутое
Свернуть все
1. AlexandrSmith 68 03.10.19 22:34 Сейчас в теме
Хорошо что вы текст печатаете можно самому попробовать, поиграться. Без покупки, но лайк, я поставил.
2. dmalyshev 23 09.10.19 10:20 Сейчас в теме
Почему механизм дополнительных внешних обработок не подошел, которые запускаются по расписанию?
user774630; +1 Ответить
3. warden 101 09.10.19 14:57 Сейчас в теме
(2) Здесь речь не про работу по расписанию, а про возможность любой код выполнить в фоне, к любой выборке, и еще следить за прогрессом.
4. bulldog 11.10.19 14:25 Сейчас в теме
можно подробнее о процедурах в обработке? как получать сообщения с фонового задания?
5. warden 101 17.10.19 15:59 Сейчас в теме
(4)Легко. За это отвечают 2 процедуры:

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

&НаСервере
Процедура ПолучитьПоследнееСообщениеФоновогоЗадания(УИДЗадания)
	
	Задание = ФоновыеЗадания.НайтиПоУникальномуИдентификатору(УИДЗадания);
	Если Задание = Неопределено Тогда
		Возврат;
	КонецЕсли;
	МассивСообщений = Задание.ПолучитьСообщенияПользователю(Ложь);
	Если МассивСообщений = Неопределено Тогда
		Возврат;
	КонецЕсли;
	Для Каждого Сообщение Из МассивСообщений Цикл
		ТекстПоследнегоСообщения = Сообщение.Текст;
	КонецЦикла;
	
КонецПроцедуры
Показать


Здесь ТекстПоследнегоСообщения - реквизит формы, из него берутся данные для отображения на табличном документе. Сама работа с табдоком тоже здесь.
Оставьте свое сообщение