Advertisement
Guest User

Untitled

a guest
Jan 10th, 2024
223
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.01 KB | None | 0 0
  1. Процедура ОбработатьПорциюЗаполненияШаблонаДанныеБизнесПроцессов(мБизнесПроцессы) Экспорт
  2.  
  3. ЗаписьЖурналаРегистрации("ОбработатьПорциюЗаполненияШаблонаДанныеБизнесПроцессов"
  4. ,УровеньЖурналаРегистрации.Предупреждение
  5. ,,,"Обрабатывается порция из " + Формат(мБизнесПроцессы.Количество(), "ЧГ=0") + " записей.");
  6. Для Каждого КлючЗнч Из мБизнесПроцессы Цикл
  7.  
  8. МенеджерЗаписи = РегистрыСведений.ДанныеБизнесПроцессов.СоздатьМенеджерЗаписи();
  9. МенеджерЗаписи.БизнесПроцесс = КлючЗнч.БизнесПроцесс;
  10. МенеджерЗаписи.Завершен = КлючЗнч.Завершен;
  11. МенеджерЗаписи.Прочитать();
  12.  
  13. МенеджерЗаписи.УК_Шаблон = КлючЗнч.Шаблон;
  14. Попытка
  15. //НачатьТранзакцию();
  16. //Блокировка = Новый БлокировкаДанных;
  17. //ЭлементБлокировки = Блокировка.Добавить("РегистрСведений.ДанныеБизнесПроцессов");
  18. //ЭлементБлокировки.УстановитьЗначение("БизнесПроцесс", КлючЗнч.БизнесПроцесс);
  19. //ЭлементБлокировки.Режим = РежимБлокировкиДанных.Разделяемый;
  20. //Блокировка.Заблокировать();
  21.  
  22. МенеджерЗаписи.Записать();
  23. //ЗафиксироватьТранзакцию();
  24. Исключение
  25. //ОтменитьТранзакцию();
  26. КонецПопытки;
  27.  
  28. КонецЦикла;
  29.  
  30. КонецПроцедуры
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement