![]() |
|
Перенумерация бизнес-процессов 1С Документооборот КОРП | ☑ | ||
---|---|---|---|---|
0
asder117
22.12.21
✎
23:03
|
Доброго времени суток. Пытаюсь создать программно в 1С Документооборот КОРП бизнес-процесс
Функция ОтправитьЗадачуНаСервере() //НоваяЗадача = Задачи.ЗадачаИсполнителя.СоздатьЗадачу(); // НоваяЗадача.БизнесПроцесс = объект.Ссылка; // НоваяЗадача.Автор = ПараметрыСеанса.ТекущийПользователь; // НоваяЗадача.ТочкаМаршрута = БизнесПроцессы.Исполнcyjjd kение.ТочкиМаршрута.Исполнить; // НоваяЗадача.Дата = ТекущаяДата(); // НоваяЗадача.Наименование = БизнесПроцессы.Исполнение.ТочкиМаршрута.Исполнить.НаименованиеЗадачи; // НоваяЗадача.Исполнитель = Объект.ИсполнителиЗадач[0].Исполнитель; // НоваяЗадача.СрокИсполнения = Объект.ИсполнителиЗадач[0].ДатаИсполнения; // НоваяЗадача.Описание = "Выполнение мероприятий"; // НоваяЗадача.Записать(); //Если Не ПроверитьЗаполнение() Тогда // Возврат Неопределено; //КонецЕсли; Исполнение = БизнесПроцессы.Исполнение.СоздатьБизнесПроцесс(); Исполнение.Дата = ТекущаяДатаСеанса(); //Исполнение.УстановитьНовыйНомер(); Исполнение.Автор = ПользователиКлиентСервер.ТекущийПользователь(); //Исполнение.Проверяющий = ПользователиКлиентСервер.ТекущийПользователь(); Исполнение.Наименование = объект.Поручение; Исполнение.Наименование = СтрЗаменить(Исполнение.Наименование, Символы.ВК, " "); Исполнение.Наименование = СтрЗаменить(Исполнение.Наименование, Символы.ПС, " "); Исполнение.Наименование = СтрЗаменить(Исполнение.Наименование, Символы.Таб, " "); Исполнение.Описание = объект.ТекстЗадачи; Исполнение.ВариантИсполнения = Перечисления.ВариантыМаршрутизацииЗадач.Параллельно; Исполнение.КоличествоИтераций = 1; //ПредметИсполнения = Исполнение.Предметы.Добавить(); //ПредметИсполнения.Предмет = ЭтотОбъект; Строка = Исполнение.Исполнители.Добавить(); Строка.Исполнитель = Объект.ИсполнителиЗадач[0].Исполнитель; Если ЗначениеЗаполнено(Объект.ИсполнителиЗадач[0].ДатаИсполнения) Тогда Строка.СрокИсполнения = КонецДня(Объект.ИсполнителиЗадач[0].ДатаИсполнения); Строка.ВариантУстановкиСрокаИсполнения = Перечисления.ВариантыУстановкиСрокаИсполнения.ТочныйСрок; КонецЕсли; Если ЗначениеЗаполнено(Объект.ИсполнителиЗадач[0].ДатаИсполнения) Тогда Исполнение.СрокИсполненияПроцесса = КонецДня(Объект.ИсполнителиЗадач[0].ДатаИсполнения); КонецЕсли; Исполнение.Записать(); Исполнение.Старт(); ВозвращаемыйРезультат = Новый Структура( "Ссылка, НавигационнаяСсылка, Представление", Исполнение.Ссылка, ПолучитьНавигационнуюСсылку(Исполнение.Ссылка), Строка(Исполнение)); // Сохранение вводимых значений //СохранениеВводимыхЗначений.ОбновитьСпискиВыбора(ЭтаФорма, ЭлементыДляСохранения(), ЭтаФорма.ИмяФормы); Возврат ВозвращаемыйРезультат; КонецФункции При записи пишет что номер не уникален. При проверке действительно присваивается последний причем имеющийся номер. методом присвоения нового кода код не присваивается...механизм перенумерации бизнес-процессов в документооборот отсутсвует. Что я делаю не так может кто подскажет. Спасибо |
Форум | Правила | Описание | Объявления | Секции | Поиск | Книга знаний | Вики-миста |