v7: Установка элементов на форму программно

Динамическое добавление флажков "Упр" и "бух" на форму документа, если справочником разрешено использование этих  флажков в документ такого вида... Ну, как в документах УПП
(сами реквизиты - общие с отбором, ДокБух и ДокУпр)

И динамическое добавления флажка разрешеиня редактирования, если пользователю разрешено разрешать редактирование:-)

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

    Если ЗакладкиСканов.ЗакладкиСканов_РазрешеныСканыОбъекта(ПолныйТипОбъекта)=1 Тогда
        ЗакладкиСканов.ЗакладкиСканов_СоздатьЗакладку(КонтФормы);
    КонецЕсли;

    Если ТипОбъекта="Документ" Тогда
        КонтФормы.Форма.Обновить(); //!!
        ФормаРасш.СбросМодифицированности();
    КонецЕсли;
    Возврат Перехватчик.ВыполнитьОригинальноеСобытиеГК(КонтФормы,"ПослеОткрытия");
КонецФункции

//======================================================================
Процедура ДобавитьФлажкиУчета(Конт)
    //ФормаРасш = СоздатьОбъект("РасширениеФормы");
    //ФормаРасш.УстановитьФорму(КонтФормы.Форма);
    ВидДокумента=Конт.Вид();
    СпрПравил=СоздатьОбъект("Справочник.ПравилаБухУпр");
    Если СпрПравил.НайтиПоНаименованию(ВидДокумента,0,1)=0 Тогда // Нет правила для объекта
        Возврат;
    КонецЕсли;

    Попытка
        Флажок = ФормаРасш.ПолучитьАтрибут("КДИР");
        СтильФлажка=Флажок.Стиль;

    Исключение
        СтильФлажка=1073889283;
    КонецПопытки;
    ШиринаФ=ФормаРасш.Ширина;
    ВысотаФ=ФормаРасш.Высота;
    Попытка
        АттрДатаДок=ФормаРасш.ПолучитьАтрибут("ДатаДок");
        ЛевК_АДД=0;
        ВерхК_АДД=0;
        ШирК_АДД=0;
        ВысК_АДД=0;
        СлойДатаДок=АттрДатаДок.Слой;
        АттрДатаДок.ПолучитьКоординаты(ЛевК_АДД, ВерхК_АДД, ШирК_АДД, ВысК_АДД);
        ЛевоК=ЛевК_АДД+ШирК_АДД+2;
        ВерхК=?(ВерхК_АДД>0,ВерхК_АДД,-ВерхК_АДД);
        ШиринаК=Цел(ШирК_АДД/2);
        ВысотаК=ВысК_АДД;
    Исключение
        ШиринаК=20;
        ЛевоК=2;
        ВерхК=2;
        ВысотаК=10;
        СлойДатаДок="Основной";
    КонецПопытки;
    ф_флУпр_Идентификатор="флДокУпрУчет";
    ф_флУпр=ФормаРасш.ДобавитьАтрибут("флДокУпрУчет",12,"Число");
    ф_флУпр.Слой=СлойДатаДок;
    ф_флУпр.УстановитьКоординаты(ЛевоК, ВерхК, ШиринаК, ВысотаК);
    ф_флУпр.Формула="ПриНажатииФлагаУчета"+"(Контекст,"""+ф_флУпр.Идентификатор+""",""ДокУпр"")";
    ф_флУпр.Заголовок="Упр";
    ф_флУпр.Подсказка="Документ по упручету";
    ф_флУпр.Стиль=СтильФлажка;
    Зн=Конт.ПолучитьАтрибут("ДокУпр");
    ф_флУпр.Значение=Зн;
    ф_флБух_Идентификатор="флДокБухУчет";
    ф_флБух=ФормаРасш.ДобавитьАтрибут("флДокБухУчет",12,"Число");
    ф_флБух.Слой=СлойДатаДок;
    ЛевоК=ЛевоК+2+ШиринаК;
    ф_флБух.УстановитьКоординаты(ЛевоК, ВерхК, ШиринаК, ВысотаК);
    ф_флБух.Формула="ПриНажатииФлагаУчета"+"(Контекст,"""+ф_флБух.Идентификатор+""",""ДокБух"")";
    ф_флБух.Заголовок="Бух";
    ф_флБух.Подсказка="Документ по бухучету";
    ф_флБух.Стиль=СтильФлажка;
    зн=Конт.ПолучитьАтрибут("ДокБух");
    ф_флБух.Значение=Зн;
    КонтФормы.Форма.ИспользоватьСлой(СлойДатаДок,1);
КонецПроцедуры
//======================================================================
Процедура ДобавитьФлажокРазрешения(Конт)
    ВидДокумента=Конт.Вид();
    СпрПравил=СоздатьОбъект("Справочник.ПравилаЗапрета");
    Если СпрПравил.НайтиПоНаименованию(ВидДокумента,0,1)=0 Тогда // Нет правила для объекта
        Возврат;
    КонецЕсли;
    Если СпрПравил.ПометкаУдаления()=1 Тогда
        Возврат;
    КонецЕсли;
    Если СпрПравил.Запрещать=1  Тогда
        Возврат;
    КонецЕсли;
    Попытка
        Флажок = ФормаРасш.ПолучитьАтрибут("КДИР");
        СтильФлажка=Флажок.Стиль;

    Исключение
        СтильФлажка=1073889283;
    КонецПопытки;
    ШиринаФ=ФормаРасш.Ширина;
    ВысотаФ=ФормаРасш.Высота;
    Попытка
        АттрДатаДок=ФормаРасш.ПолучитьАтрибут("ДатаДок");
        ЛевК_АДД=0;
        ВерхК_АДД=0;
        ШирК_АДД=0;
        ВысК_АДД=0;
        СлойДатаДок=АттрДатаДок.Слой;
        АттрДатаДок.ПолучитьКоординаты(ЛевК_АДД, ВерхК_АДД, ШирК_АДД, ВысК_АДД);
        ЛевоК=ЛевК_АДД+ШирК_АДД+2;
        ВерхК=?(ВерхК_АДД>0,ВерхК_АДД,-ВерхК_АДД);
        ШиринаК=Цел(ШирК_АДД*2);
        ВысотаК=ВысК_АДД;
    Исключение
        ШиринаК=40;
        ЛевоК=2;
        ВерхК=2;
        ВысотаК=10;
        СлойДатаДок="Основной";
    КонецПопытки;
    ф_флУпр_Идентификатор="флИзмененияРазрешены";
    ф_флУпр=ФормаРасш.ДобавитьАтрибут("флИзмененияРазрешены",12,"Число");
    ф_флУпр.Слой=СлойДатаДок;
    ф_флУпр.УстановитьКоординаты(ЛевоК, ВерхК+ВысотаК*1.2, ШиринаК, ВысотаК);
    ф_флУпр.Формула="ПриНажатииФлагаУчета"+"(Контекст,"""+ф_флУпр.Идентификатор+""",""ИзмененияРазрешены"")";
    ф_флУпр.Заголовок="Изменения разрешены";
    ф_флУпр.Подсказка="Изменения документа разрешены";
    ф_флУпр.Стиль=СтильФлажка;
    Зн=Конт.ПолучитьАтрибут("ИзмененияРазрешены");
    ф_флУпр.Значение=Зн;
    ф_флУпр.Доступность=0;
    СтрокаРолей=СокрЛП(СпрПравил.РазрешающиеРоли);
    сз=глРазложить(СтрокаРолей);
    разрешаем=0;
    Для сч=1 По сз.РазмерСписка() Цикл
        Если глИграетРоль(сз.получитьЗначение(сч))=1 Тогда
            //Сообщить("разрешено для роли "+сз.получитьЗначение(сч));
            разрешаем=разрешаем+1;
        КонецЕсли;
    КонецЦикла;
    Если разрешаем<>0 Тогда
        ф_флУпр.Доступность=1;
    КонецЕсли;
    КонтФормы.Форма.ИспользоватьСлой(СлойДатаДок,0);
    КонтФормы.Форма.ИспользоватьСлой(СлойДатаДок,1);
КонецПроцедуры

//======================================================================