Фоновые задания. Уведомление о завершении
☑
0
Pazilaya Ustrica
04.10.22
✎
11:17
Всем ку. Кто знает, почему не выводится сообщение пользователю. Само фоновое задание отрабатывает. Видимо что-то не понимаю. Спасибо за ответы
&НаСервере
Процедура ВыполнитьПрисвоениеШтрихкодовФон() ЭКСПОРТ
ФоновыеЗадания.Выполнить("ФоновыеЗаданияМП.ПрисвоениеШтрихкодов",,Строка(Новый УникальныйИдентификатор));
КонецПроцедуры
Процедура ПрисвоениеШтрихкодов() ЭКСПОРТ
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ИнвентарныеНомераОС.Ссылка КАК ИнвентарныйНомер,
| Штрихкоды.Штрихкод КАК Штрихкод,
| ИнвентарныеНомераОС.ОС КАК ОсновноеСредство
|ИЗ
| Справочник.ИнвентарныеНомераОС КАК ИнвентарныеНомераОС
| ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.Штрихкоды КАК Штрихкоды
| ПО ИнвентарныеНомераОС.Ссылка = Штрихкоды.ИнвентарныйНомер";
РЗ = Запрос.Выполнить().Выбрать();
Пока РЗ.Следующий() Цикл
Если РЗ.Штрихкод = NULL Тогда
Запись = РегистрыСведений.Штрихкоды.СоздатьМенеджерЗаписи();
Штрихкод = РегистрыСведений.ШтрихКоды.СформироватьШтрихКодEAN13();
Запись.Штрихкод = Штрихкод;
Запись.ТипШтрихкода = ПредопределенноеЗначение("ПланВидовХарактеристик.ТипыШтрихкодов.EAN13");
Запись.Объект = РЗ.ОсновноеСредство;
Запись.ИнвентарныйНомер = РЗ.ИнвентарныйНомер;
Запись.Записать();
ИнвентарныйНомерОбъект = РЗ.ИнвентарныйНомер.ПолучитьОбъект();
ИнвентарныйНомерОбъект.Штрихкод = Штрихкод;
ИнвентарныйНомерОбъект.Записать();
РегистрацияОбъектовНаОбмен.ЗарегистрироватьОбъектНаОбмен(РЗ.ИнвентарныйНомер, "ИнвНомер");
КонецЕсли;
КонецЦикла;
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = "Присвоение штрихкодов успешно завершено!";
Сообщение.Сообщить();
КонецПроцедуры
1
polosov
04.10.22
✎
11:42
См. ПолучитьСообщенияПользователю
Глупец, лишенный способности посмеяться над собой вместе с другими, не сможет долго выносить программирование. Фредерик Брукс-младший