v8.3: Программное создание папок в справочниках

23.02.2021 06:25

Прочитано: 2047

Здравствуйте, я новичок в 1с, нужна помощь, у меня есть два справочника (Сотрудники и ПапкаСотрудников) при создании нового сотрудника в справочнике Сотрудники создается его папка в ПапкаСотрудников, но нужно чтобы они были разбиты по отделам, в справочнике Сотрудники есть информация по отделениям, то есть каждый сотрудник работает в каком-то отделе, и нужно чтобы он создавал в справочнике ПапкаСотрудников папку с отделом и добавлял в эту подпапку сотрудника.

Код программы:

Код 1C v 8.3

 



&НаСервере

Процедура ПослеЗаписиНаСервере(ТекущийОбъект, ПараметрыЗаписи)

	

	Если НЕ Справочники.Сотрудники.НайтиПоНаименованию(Объект.Наименование) = Null Тогда 

		НоваяПапка = Справочники.ПапкиСотрудников.СоздатьГруппу();

        НоваяПапка.Наименование = Объект.Наименование;

        НоваяПапка.Записать();

		

	КонецЕсли;



КонецПроцедуры

Yandex

Возможно, вас также заинтересует

Sabuhi

24.02.2021 05:41

Ответ № 1

Steering

17.03.2021 10:38

Ответ № 2

Папку отдела надо писать в родителя папки сотрудника. Примерно так:

Код 1C v 8.3

 

Процедура ПослеЗаписиНаСервере(ТекущийОбъект, ПараметрыЗаписи)

	

	Отдел = Объект.Отдел;

	ЕстьОтдел = Справочники.ПапкиСотрудников.НайтиПоНаименованию(Отдел);

	Если ЕстьОтдел.ПустаяСсылка() ИЛИ ЕстьОтдел = Неопределено Тогда 

		НоваяПапкаОтдела = Справочники.ПапкиСотрудников.СоздатьГруппу();

		НоваяПапкаОтдела.Наименование = Отдел;

        НоваяПапкаОтдела.Записать();

		Отдел = НоваяПапкаОтдела;

	Иначе

		Отдел = ЕстьОтдел;

	КонецЕсли;

	

	НоваяПапкаСотрудника = Справочники.Сотрудники.СоздатьГруппу();

	НоваяПапкаСотрудника.Наименование = Объект.Наименование;

	НоваяПапкаСотрудника.Родитель = Отдел;

	НоваяПапкаСотрудника.Записать();

	Отдел = НоваяПапкаОтдела;

	

КонецПроцедуры

Подсказка: Вы можете добавить любую страничку в Избранное щелкнув по значку