Размещение новых авторабот в группе. Альфа-Авто 6

Автор: fixin · 31.08.2023

Новые автоработы должны размещаться в группе с наименованием «Автоработы». Это требуется для того, чтобы работали скидки на все автоработы, потому что там нельзя оставить не заполненной автоработу — нужно указать автоработу или группу. Для скидки на все автработы нужно указывать корневую группу «Автоработы».

Код простой, делаем расширение метода ПередЗаписью модуля справочника Автоработы:


&После("ПередЗаписью")
Процедура дор_ПередЗаписью(Отказ)
	Если Не ЭтотОбъект.ЭтоГруппа Тогда
		Если Не ЗначениеЗаполнено(ЭтотОбъект.Родитель) Тогда
			ЭтотОбъект.Родитель = Справочники.Автоработы.НайтиПоНаименованию("Автоработы", истина);
		КонецЕсли;
	КонецЕсли;
КонецПроцедуры

Также добавляем в форму элемента справочника Автоработы поле Родитель, его там почему-то нет:

&НаСервере
Процедура дор_ПриСозданииНаСервереПосле(Отказ, СтандартнаяОбработка)
    Элемент = Элементы.Добавить("дор_Родитель", Тип("ПолеФормы"), Элементы.Лево);
    Элемент.Вид = ВидПоляФормы.ПолеВвода;
    Элемент.ПутьКДанным = "Объект.Родитель";
КонецПроцедуры