Рубрика: 1C

Разработки на платформе 1С

1С: Получить список пользователей роли

1C

Как оказалось, в 1С нет штатного механизма (простого) для посмотреть список пользователей, которые имеют назначенную роль (конкретную). Потому изобрел следующую обработку, кототорая:

  • выводит на экран список ролей
  • перебирает всех пользователей и если у пользователя назначена выбранная роль, то выводит её в консоль

Код:


&НаСервере
Функция ПолучитьСпискоПользователейНаСервере()
	УстановитьПривилегированныйРежим(истина);
    КоллекцияРолейКонфигурации = Метаданные.Роли;
	СписокИменВсехРолей = Новый Массив;
	Для Каждого ТекущаяРоль Из КоллекцияРолейКонфигурации Цикл
	    СписокИменВсехРолей.Добавить(Новый Структура("Имя,Синоним",ТекущаяРоль.Имя,ТекущаяРоль.Синоним));
	КонецЦикла;
	возврат СписокИменВсехРолей;
	УстановитьПривилегированныйРежим(ложь);
КонецФункции

&НаСервере
Функция ПроверитьИНаказать()
	УстановитьПривилегированныйРежим(истина);
	Запрос = Новый Запрос;
	Запрос.Текст = 
		"ВЫБРАТЬ
		|	Пользователи.Ссылка КАК Ссылка,
		|	Пользователи.ИдентификаторПользователяИБ КАК ИдентификаторПользователяИБ
		|ИЗ
		|	Справочник.Пользователи КАК Пользователи
		|ГДЕ
		|	Пользователи.ПометкаУдаления = ЛОЖЬ";	
	РезультатЗапроса = Запрос.Выполнить();	
	ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();	
	Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
		
			ИскомыйПользователь = ПользователиИнформационнойБазы.НайтиПоУникальномуИдентификатору(ВыборкаДетальныеЗаписи.ИдентификаторПользователяИБ);
			Если ИскомыйПользователь<>Неопределено Тогда
				РолиПользователя = ИскомыйПользователь.Роли;
				Для Каждого Роль Из РолиПользователя Цикл
				    Если Роль.Имя = ВсеРоли Тогда
				        Сообщить(ВыборкаДетальныеЗаписи.Ссылка);
				    КонецЕсли;
				КонецЦикла;		
		    конецесли;
		
	КонецЦикла;	
    УстановитьПривилегированныйРежим(ложь);
КонецФункции


&НаКлиенте
Процедура ПолучитьСпискоПользователей(Команда)
	ПроверитьИНаказать();	
КонецПроцедуры

&НаКлиенте
Процедура ПриОткрытии(Отказ)
	СписокРолей=ПолучитьСпискоПользователейНаСервере();
	Элементы.ВсеРоли.СписокВыбора.Очистить();
	для каждого стр из СписокРолей цикл
		Элементы.ВсеРоли.СписокВыбора.Добавить(стр.Имя,стр.Синоним);
	конеццикла;
КонецПроцедуры

Обработку, можно скачать тут:

СписокПользователейРолиСкачать

Оставить комментарий

1С: Группировка в макете

1C

Для того чтобы при выводе макета отображалась группировка, её собственно сначала нужно включить:

ТабДок=Новый ТабличныйДокумент;	
ТабДок.НачатьАвтогруппировкуСтрок();		
....
// Заполняем табличный документ
....
ТабДок.ЗакончитьАвтогруппировкуСтрок();
ТабДок.ОтображатьГруппировки = Истина;
ТабДок.ПоказатьУровеньГруппировокСтрок(3);

В конце указывается уровень группировки по умолчанию. А как дать понять к какому уровню группировки относится конкретный вывод в табличную часть? Всё решается параметрами вида:

ТабДок.Вывести(ОбластьТушка,<уровнь группировки>,<название группы>,<Истина/Ложь - раскрыто/свернуто по умолчанию>);

Оставить комментарий , ,

1C:невозможно применить фиксированные настройки пересекаются элементы отбора

1C

Эта ошибка может появляться, если при открытии формы списка задаётся «жесткий» отбор, который конфликтует с пользовательским отбором (выбран тот-же отбор, что и «принудительный»). Я решил эту проблему следующим образом: при открытии формы читаю пользовательские отборы, и если вижу что его отбор тот же что и назначаемый, назначаемый отключаю и вывожу сообщение о конфликте:

&НаСервере
Функция ПОлучитьОтборы()
	возврат Элементы.Список.ПолучитьИсполняемыеНастройкиКомпоновкиДанных();		
КонецФункции

&НаКлиенте
Процедура ПриОткрытии(Отказ)
ВывестиПредупреждение=ложь;
	ОтборыПользователя=	ПОлучитьОтборы();
	для каждого эл из ОтборыПользователя.Отбор.Элементы цикл
		если эл.ЛевоеЗначение="ТО_КО" тогда
			ВывестиПредупреждение=истина;
		конецесли;
	конеццикла;	
	если ВывестиПредупреждение=ложь тогда
		Список.Отбор.Элементы.Очистить();		
		Отбор = Список.Отбор.Элементы.Добавить(Тип("ЭлементОтбораКомпоновкиДанных"));    
		Отбор.ЛевоеЗначение = Список.Отбор.ДоступныеПоляОтбора.Элементы.Найти("ТО_КО").Поле;    
		Отбор.ПравоеЗначение =ЭтаФорма.Подразделение;	
		Отбор.Использование=Истина;	
		Отбор.РежимОтображения = РежимОтображенияЭлементаНастройкиКомпоновкиДанных.Недоступный;				
	иначе
		Сообщить("ВНИМАНИЕ! У вас конфликт отборов. Снимите галочку с отбора ТО_КО");	
	конецесли;

	//ПодключитьОбработчикИзмененияДанных("ДокументСписок.Отбор", "ПосчитатьИтогиНаСервере", Истина);	
	ПодключитьОбработчикОжидания("ПосчитатьИтогиНаКлиенте",3,ложь);
	
КонецПроцедуры
Оставить комментарий ,

1С: Отбор в списке выбора с предустановленным фильтром

1C

Задача: в табличной части на форме документа давай выбирать пользователю только необходимые элементы справочнике при заполнении реквизита.

Решение:

В реквизите установим связь параметров выбора «Очищать» при каждой попытке выбора элемента:

На событие «При изменении» табличной части на форме добавить событие, которое формирует фильтр:

	НовыйПараметр = Новый ПараметрВыбора("Отбор.Суд", ЗначениеРеквизитаОбъекта(Объект.Суд, "ПризнакСуда"));
	НовыйМассив = Новый Массив();
	НовыйМассив.Добавить(НовыйПараметр);
	НовыеПараметры = Новый ФиксированныйМассив(НовыйМассив);
	Элементы.ДанныеИскаРезультат.ПараметрыВыбора = НовыеПараметры;

И в параметрах выбора выставим:

Оставить комментарий , ,

1С: Событие по снятию галочки в фильтре формы списка

1C

Столкнулся с интересной особенностью 1С: если на форме списка присутствуют пользовательские фильтры, и пользователь «включил/выключил» этот фильтр, то нет никакого способа это событие отловить

Единственное решение какое я придумал, это подключение обработчика ожидания при событии на открытие формы вида:

ПодключитьОбработчикОжидания("ПосчитатьИтогиНаКлиенте",3,ложь);

Ну и сам обработчик:

&НаКлиенте 
Функция ПосчитатьИтогиНаКлиенте()
	ПосчитатьИтогиНаСервере();
КонецФункции	
Функция ПосчитатьИтогиНаСервере()
	ВсеЭлементы=СписокВКоллекциюЗначений();
	ЗадолженостьПоУведомлению=0;ОстатокЗадолженности=0;ТекущаяЗадолженость=0;	
	для каждого стр из ВсеЭлементы цикл
		ЗадолженостьПоУведомлению=ЗадолженостьПоУведомлению+стр.ЗадолженостьПоУведомлению;
		ОстатокЗадолженности=ОстатокЗадолженности+стр.ОстатокЗадолженности;
		ТекущаяЗадолженость=ТекущаяЗадолженость+стр.ТекущаяЗадолженость;
	КонецЦикла;	
	элементы.Список.ПодчиненныеЭлементы.ЗадолженостьПоУведомлению.ТекстПодвала=ЗадолженостьПоУведомлению;
	элементы.Список.ПодчиненныеЭлементы.ОстатокЗадолженности.ТекстПодвала=ОстатокЗадолженности;
	элементы.Список.ПодчиненныеЭлементы.ТекущаяЗадолженость.ТекстПодвала=ТекущаяЗадолженость;
КонецФункции

Оставить комментарий , , , ,
1 2 3 4 … 54