Коллеги, доброго утра.

В внешней обработке (подключена как БСП) делаю записи в РегСвед.

	Запрос = Новый Запрос;
	
	РезультатЗапроса = Запрос.Выполнить();
	
	ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
		
	Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
		
		НоваяЗаписьРС = РегистрыСведений.ШтрихкодыНоменклатуры.СоздатьМенеджерЗаписи();
		НоваяЗаписьРС.Номенклатура = ВыборкаДетальныеЗаписи.Номенклатура;
		НовыйШтрихкод = РегистрыСведений.ШтрихкодыНоменклатуры.СформироватьШтрихкодEAN13();
		НоваяЗаписьРС.Штрихкод = НовыйШтрихкод;
		НоваяЗаписьРС.Записать();

	КонецЦикла

Данную обработку будет использовать персонал.

В Модуле набора записей данного регистра_ Заказчик в расширении жестко обрезал запись РегСвед если роль не ПолныеПрава. "Мол, специально отрубили чтобы не создавали":

&Перед("ПередЗаписью")
Процедура Расш1_ПередЗаписью(Отказ, Замещение)
	
	Если не РольДоступна("ПолныеПрава") Тогда
		Отказ = Истина;
	КонецЕсли;	
	
КонецПроцедуры

Можно ли сделать так, что если я вызываю запись из конкретной обработки контроль прав не выполнялся?

Передавать флаг через ДополнительныеСвойства набора записей

(1) думал об этом, но как его заполнить на стороне внешней обработки?

(2) Через какой объект ты записываешь во внешней обработке? Или там у тебя не программная запись?

Переписал так расширение, но тут получается что при любой программной записи не будет контроля на права. А нужно только из моей обработки:

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

&После("ОбработкаПроверкиЗаполнения")
Процедура Расш1_ОбработкаПроверкиЗаполнения(Отказ, ПроверяемыеРеквизиты)
	
	ДополнительныеСвойства.Вставить("ИнтерактивнаяЗапись");
	
КонецПроцедуры

(2)

1)

google:
1с регистрсведений наборзаписей ДополнительныеСвойства

Ответ:

НаборЗаписей = РегистрыСведений.ЦеныНоменклатуры.СоздатьНаборЗаписей();
НаборЗаписей.Отбор.Период.Установить(ТекущаяДата());

// Заполняем набор записей...

// Передаем произвольный параметр через ДополнительныеСвойства
НаборЗаписей.ДополнительныеСвойства.Вставить("ИгнорироватьПроверку", Истина);

НаборЗаписей.Записать();

Там же пример кода для

Процедура Расш1_ПередЗаписью(Отказ, Замещение)

2) Это для СоздатьНаборЗаписей, а  можно так сделать для СоздатьМенеджерЗаписи ?
Нет, нельзя.

(4) 🤦

(3) юзер нажимает кнопку, формируются записи, серверный код привел в первом посте.

(7) 🤦🤦

(5) Благодарю! походу придется создавать записи через НаборЗаписей, а не  МенеджерЗаписи...

А все боятся что ИИ заменит программистов. Ну, ну...

Переписать расширение с добавлением специальной роли на этот РС кроме ПолныеПрава
Пользователям выдавать эту роль

(11)

Тогда будет еще 20 страниц обсуждения,
чтобы такие пользователи могли программно менять регистр,
а интерактивно - нет

(12) это классика)) Давайте наделаем искусственных ограничений, а потом героически будем их обходить. У нас таким же способом ТЗ пишутся...

(11) хотели так сделать, но пользователей много... решили искать способ обхода программный.

ОбненДанными.Загрузка = Истина, не?
Если.ОбменДанными.Загрузка = Истина тогда
Возврат;

не знаю, но дожно сработать для НаборЗаписей.ОбненДанными.Загрузка = Истина

может кому пригодится:

Обработка:

	Запрос = Новый Запрос;
	
	РезультатЗапроса = Запрос.Выполнить();
	
	ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
		
	Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
		
		НаборЗаписей = РегистрыСведений.ШтрихкодыНоменклатуры.СоздатьНаборЗаписей();
		НаборЗаписей.ДополнительныеСвойства.Вставить("НеПроводитьПроверкуНаПрава");
		НоваяЗаписьНабора = НаборЗаписей.Добавить();
		НоваяЗаписьНабора.Номенклатура = ВыборкаДетальныеЗаписи.Номенклатура;
		НовыйШтрихкод = РегистрыСведений.ШтрихкодыНоменклатуры.СформироватьШтрихкодEAN13();
		НоваяЗаписьНабора.Штрихкод = НовыйШтрихкод;
		НоваяЗаписьНабора.УТР_Серия = ВыборкаДетальныеЗаписи.Серия; 
		
		Попытка
			НаборЗаписей.Записать(Ложь);
		Исключение
			Сообщить("Ошибка при записи набора: " + ОписаниеОшибки());
		КонецПопытки;

	КонецЦикла

Расширение:

&Перед("ПередЗаписью")
Процедура Расш1_ПередЗаписью(Отказ, Замещение)
	
	Если ДополнительныеСвойства.Свойство("НеПроводитьПроверкуНаПрава") Тогда
		Возврат;
	КонецЕсли;

	Если не РольДоступна("ПолныеПрава") Тогда
		Отказ = Истина;
	КонецЕсли;	
	
КонецПроцедуры

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

(16) 🤦 У тебя весь регистр сведений очиститься.

(16) Отбор на записи должен быть

Интересно а ТС в курсе про УстановитьПривилегированныйРежим(Истина)  ?

(19) А разве это спасет от проверки в лоб на полные права?

(20) Не спасет, но суть что полный аналог просто сделать в расширении в этой проверке в лоб
Проверку на этот самый режим добавить

&Перед("ПередЗаписью")
Процедура Расш1_ПередЗаписью(Отказ, Замещение)
	
	Если НЕ РольДоступна("ПолныеПрава") И НЕ ПривилегированныйРежим() Тогда
		Отказ = Истина;
	КонецЕсли;	
	
КонецПроцедуры

(17) А Записать(Ложь) не смущает? Почему должно всё очиститься?

(18) а зачем тут отбор? конечно можно воткнуть

НаборЗаписей.Отбор.Штрихкод.Установить(НовыйШтрихкод);

и потом писать с

НаборЗаписей.Записать();

но что это даст?