1С8 Пример: Регистр сведений, дополнительные права пользователя. ПланыВидовХарактеристик.ПраваПользователей

Установим дополнительное право "Разрешить чек возврата" пользователю с кодом 007.
  • Создаем набор записей по измерениям.
  • Изменяем записи в наборе.
  • Сохраняем набор в Регистр сведений (в базу).
  • Регистр сведений, дополнительные права пользователя
    // корректируем Регистр сведений
    Функция УстановитьДополнительноеПравоПользователя(
    	Пользователь, // ссылка на пользователя
    	стрПраво, // строка наименование дополнительного права пользователя
    	НастройкаЗначение // значение права, которое нужно установить
    	)	
    
    	// вычисляем право
    	Право  = ПланыВидовХарактеристик.ПраваПользователей.НайтиПоНаименованию(стрПраво);
    	// создаем набор записей
    	НабЗап = РегистрыСведений.ЗначенияДополнительныхПравПользователя.СоздатьНаборЗаписей();
    	// устанавливаем параметры отбора 
    	НабЗап.Отбор.Пользователь.Установить(Пользователь);
    	НабЗап.Отбор.Право.Установить(Право);
    	// получаем набор записей
    	НабЗап.Прочитать();
    	
    	// изменяем запись в наборе (можно было обойтись и без цикла)
    	Для каждого СтрНабЗап Из НабЗап Цикл
    		
    		СтрНабЗап.Значение = НастройкаЗначение;
    		
    	КонецЦикла;
    
    	// записываем измененный набор в базу
    	НабЗап.Записать();
    	сообщить("" + Пользователь + " : " + Право + " : " +  НастройкаЗначение);	
    КонецФункции
    
    // main
    // Основная логика
    // Разрешить чек возврата пользователю с кодом 007
    Пользователь=Справочники.Пользователи.НайтиПоКоду("007"); 
    рез = УстановитьДополнительноеПравоПользователя(
    	Пользователь, 
    	"Разрешить чек возврата", 
    	Истина
    	);
    
    
    
    Регистр сведений, дополнительные права пользователя

    


    Рекламный блок:

    Предлагаем решение Ваших задач 1С.

    Внедрение 1С:

    Доработка и сопровождение 1С:

    Ориентировочная стоимость работ программиста 1С : 500 р. за 1 час работы.

    Пишите: j008@j008.ru

    Звоните: 8 916 710 83 51 Ольга