Как скрыть окошко настроек в типовом отчете УТ 11.4?

Форум Программирование Общие вопросы программирования (Dev)
1. fixin 4282 12.11.23 21:57 Сейчас в теме
Можно ли на уровне пользователя. А если программно, то как?
УТ 11.4
Прикрепленные файлы:
+ – Ответить
Вознаграждение за ответ
Показать полностью
Найденные решения
6. user1880116 13.11.23 09:37 Сейчас в теме +0.4 $m
О, геня в своём репертуаре. Обида и незнание. Сейчас бросится код с командой копировать и вставлять...

А просто сделать группу ПанельБыстрыхНастроек сворачиваемой, не? Опять управляемые формы геню победили?
aleksey2; fixin; +2 – Ответить
5. DENSKR 16 13.11.23 08:33 Сейчас в теме +0.2 $m 
&НаКлиенте
Процедура СкрытьПоказатьБыстрыеНастройки(Команда)
    
    СостояниеДоИзменения = Новый Структура("Видимость, ДополнительныйРежимОтображения, Картинка, Текст");
    ЗаполнитьЗначенияСвойств(СостояниеДоИзменения, Элементы.ОтчетТабличныйДокумент.ОтображениеСостояния);
    
    Отчет.КомпоновщикНастроек.ПользовательскиеНастройки.ДополнительныеСвойства.Вставить("ВидимостьБыстрыхНастроек", НЕ Элементы.БыстрыеНастройки.Видимость);
    
    ВидимостьДоступностьКорректность("СкрытьПоказатьБыстрыеНастройки");
    
    ЗаполнитьЗначенияСвойств(Элементы.ОтчетТабличныйДокумент.ОтображениеСостояния, СостояниеДоИзменения);
    
КонецПроцедуры

&НаСервере
Процедура ВидимостьДоступностьКорректность(Изменения = "")
    // Быстрые настройки
    Если Изменения = "" ИЛИ Изменения = "СкрытьПоказатьБыстрыеНастройки" Тогда
        Элементы.КомандыВариантовПользовательскихНастроек.Видимость = Ложь;
        Элементы.КомандыВариантовОтчета.Видимость = РежимВариантаОтчета И ВидимостьКомандВариантовОтчетов;
        Элементы.БыстрыеНастройки.Видимость = РежимВариантаОтчета И НЕ РежимРасшифровки;
        ПользовательскиеНастройкиКД = Отчет.КомпоновщикНастроек.ПользовательскиеНастройки;
        Если РежимВариантаОтчета И ПользовательскиеНастройкиКД.Элементы.Количество() > 0 Тогда
            Элементы.КомандыВариантовПользовательскихНастроек.Видимость = Истина;
            Если Элементы.ГруппаСкрытьПоказатьБыстрыеНастройки.Видимость = Истина Тогда
                ВидимостьБыстрыхНастроек = Неопределено;
                ПользовательскиеНастройкиКД.ДополнительныеСвойства.Свойство("ВидимостьБыстрыхНастроек", ВидимостьБыстрыхНастроек);
                Если ВидимостьБыстрыхНастроек = Истина Тогда
                    Элементы.БыстрыеНастройки.Видимость = Истина;
                    Элементы.СкрытьПоказатьБыстрыеНастройки.Пометка = Истина;
                    Команды.СкрытьПоказатьБыстрыеНастройки.Подсказка = НСтр("ru = 'Скрыть быстрые настройки'");
                Иначе
                    Элементы.БыстрыеНастройки.Видимость = Ложь;
                    Элементы.СкрытьПоказатьБыстрыеНастройки.Пометка = Ложь;
                    Команды.СкрытьПоказатьБыстрыеНастройки.Подсказка = НСтр("ru = 'Показать быстрые настройки'");
                КонецЕсли;
            КонецЕсли;
        КонецЕсли;
    КонецЕсли;
    Если Изменения = "ФормированиеОтчета" Тогда 
        Элементы.БыстрыеНастройки.Видимость = Ложь;
        Элементы.СкрытьПоказатьБыстрыеНастройки.Пометка = Ложь;
        Команды.СкрытьПоказатьБыстрыеНастройки.Подсказка = НСтр("ru = 'Показать быстрые настройки'");
    КонецЕслИ;                
    // Заголовок
    Если Изменения = "" ИЛИ Изменения = "ВариантОтчета" Тогда
        ОтчетНаименованиеТекущегоВарианта = СокрЛП(ОтчетНаименованиеТекущегоВарианта);
        Если ЗначениеЗаполнено(ОтчетНаименованиеТекущегоВарианта) Тогда
            Заголовок = ОтчетНаименованиеТекущегоВарианта;
        Иначе
            Заголовок = НаименованиеОтчета;
        Конецесли;
        Если РежимРасшифровки Тогда
            Заголовок = РежимРасшифровкиПредставлениеВладельца + " (" + НРег(Заголовок) + ")";
        КонецЕсли;
    КонецЕсли;
КонецПроцедуры
Показать
fixin; +1 – Ответить
Остальные ответы
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
3. PhoenixAOD 62 13.11.23 07:51 Сейчас в теме
(1)Можно, я делаю вот так,
1. запилил свою роль
2. в расшинеии с тегом &Вместо("ПриКомпоновкеРезультата") впихиваю вот ента 
    Если РольДоступна("Продаван") Тогда
        Настройки = КомпоновщикНастроек.Настройки;
        НП = Настройки.ПараметрыДанных.Элементы.Найти("НачалоПериода");
        НП.Значение = НачалоДня(ТекущаяДата());
        НП.Использование = Истина;
        
        КП = Настройки.ПараметрыДанных.Элементы.Найти("КонецПериода");
        КП.Значение = КонецДня(ТекущаяДата());
        КП.Использование = Истина;
        
        СК = Настройки.ПараметрыДанных.Элементы.Найти("Склад");
        СК.Значение = КНВ_ОбщийМодуль.ВернутьОсновныеЗначения(Пользователи.ТекущийПользователь(), Перечисления.КНВ_НастройкиПользователей.ОсновноеПодразделение);
        СК.Использование = Истина;
        СК.РежимОтображения = РежимОтображенияЭлементаНастройкиКомпоновкиДанных.Недоступный;        
    КонецЕсли;
Показать

Пользак с правами продава может пользоваться только периодом, остальное ему не доступно.
+ – Ответить 1
4. fixin 4282 13.11.23 08:32 Сейчас в теме
(3) мне нужно не правами, а просто свернуть-развернуть эти настройки. Слишком много места занимают.
+ – Ответить
2. user1880116 12.11.23 22:51 Сейчас в теме +0.1 $m
О, наш гениальный генератор идей опять с управляемым приложением столкнулся.
Подпишусь, пожалуй. Почитаю.
+ –1 Ответить
5. DENSKR 16 13.11.23 08:33 Сейчас в теме +0.2 $m 
&НаКлиенте
Процедура СкрытьПоказатьБыстрыеНастройки(Команда)
    
    СостояниеДоИзменения = Новый Структура("Видимость, ДополнительныйРежимОтображения, Картинка, Текст");
    ЗаполнитьЗначенияСвойств(СостояниеДоИзменения, Элементы.ОтчетТабличныйДокумент.ОтображениеСостояния);
    
    Отчет.КомпоновщикНастроек.ПользовательскиеНастройки.ДополнительныеСвойства.Вставить("ВидимостьБыстрыхНастроек", НЕ Элементы.БыстрыеНастройки.Видимость);
    
    ВидимостьДоступностьКорректность("СкрытьПоказатьБыстрыеНастройки");
    
    ЗаполнитьЗначенияСвойств(Элементы.ОтчетТабличныйДокумент.ОтображениеСостояния, СостояниеДоИзменения);
    
КонецПроцедуры

&НаСервере
Процедура ВидимостьДоступностьКорректность(Изменения = "")
    // Быстрые настройки
    Если Изменения = "" ИЛИ Изменения = "СкрытьПоказатьБыстрыеНастройки" Тогда
        Элементы.КомандыВариантовПользовательскихНастроек.Видимость = Ложь;
        Элементы.КомандыВариантовОтчета.Видимость = РежимВариантаОтчета И ВидимостьКомандВариантовОтчетов;
        Элементы.БыстрыеНастройки.Видимость = РежимВариантаОтчета И НЕ РежимРасшифровки;
        ПользовательскиеНастройкиКД = Отчет.КомпоновщикНастроек.ПользовательскиеНастройки;
        Если РежимВариантаОтчета И ПользовательскиеНастройкиКД.Элементы.Количество() > 0 Тогда
            Элементы.КомандыВариантовПользовательскихНастроек.Видимость = Истина;
            Если Элементы.ГруппаСкрытьПоказатьБыстрыеНастройки.Видимость = Истина Тогда
                ВидимостьБыстрыхНастроек = Неопределено;
                ПользовательскиеНастройкиКД.ДополнительныеСвойства.Свойство("ВидимостьБыстрыхНастроек", ВидимостьБыстрыхНастроек);
                Если ВидимостьБыстрыхНастроек = Истина Тогда
                    Элементы.БыстрыеНастройки.Видимость = Истина;
                    Элементы.СкрытьПоказатьБыстрыеНастройки.Пометка = Истина;
                    Команды.СкрытьПоказатьБыстрыеНастройки.Подсказка = НСтр("ru = 'Скрыть быстрые настройки'");
                Иначе
                    Элементы.БыстрыеНастройки.Видимость = Ложь;
                    Элементы.СкрытьПоказатьБыстрыеНастройки.Пометка = Ложь;
                    Команды.СкрытьПоказатьБыстрыеНастройки.Подсказка = НСтр("ru = 'Показать быстрые настройки'");
                КонецЕсли;
            КонецЕсли;
        КонецЕсли;
    КонецЕсли;
    Если Изменения = "ФормированиеОтчета" Тогда 
        Элементы.БыстрыеНастройки.Видимость = Ложь;
        Элементы.СкрытьПоказатьБыстрыеНастройки.Пометка = Ложь;
        Команды.СкрытьПоказатьБыстрыеНастройки.Подсказка = НСтр("ru = 'Показать быстрые настройки'");
    КонецЕслИ;                
    // Заголовок
    Если Изменения = "" ИЛИ Изменения = "ВариантОтчета" Тогда
        ОтчетНаименованиеТекущегоВарианта = СокрЛП(ОтчетНаименованиеТекущегоВарианта);
        Если ЗначениеЗаполнено(ОтчетНаименованиеТекущегоВарианта) Тогда
            Заголовок = ОтчетНаименованиеТекущегоВарианта;
        Иначе
            Заголовок = НаименованиеОтчета;
        Конецесли;
        Если РежимРасшифровки Тогда
            Заголовок = РежимРасшифровкиПредставлениеВладельца + " (" + НРег(Заголовок) + ")";
        КонецЕсли;
    КонецЕсли;
КонецПроцедуры
Показать
fixin; +1 – Ответить 1
9. fixin 4282 14.11.23 09:20 Сейчас в теме
(5) хорошо, но сложно. К тому же еще кнопки лучше добавлять программно. Мне решение со свертываемой панелью больше понравилось. Но спасибо.
+ – Ответить
6. user1880116 13.11.23 09:37 Сейчас в теме +0.4 $m
О, геня в своём репертуаре. Обида и незнание. Сейчас бросится код с командой копировать и вставлять...

А просто сделать группу ПанельБыстрыхНастроек сворачиваемой, не? Опять управляемые формы геню победили?
aleksey2; fixin; +2 – Ответить 2
7. fixin 4282 13.11.23 12:25 Сейчас в теме
(6) попробую так: 
&НаСервере
&Перед("ПриСозданииНаСервере")
Процедура дор_ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
    Элементы.КомпоновщикНастроекПользовательскиеНастройки.Поведение = ПоведениеОбычнойГруппы.Свертываемая;
КонецПроцедуры

Сейчас обновить не могу, позже доложу.
+ – Ответить
8. fixin 4282 14.11.23 09:18 Сейчас в теме
(6) спасибо, помогло.
Расширяю общую форму ФормаОтчета: 
&НаСервере
&Перед("ПриСозданииНаСервере")
Процедура дор_ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
    Элементы.КомпоновщикНастроекПользовательскиеНастройки.Поведение = ПоведениеОбычнойГруппы.Свертываемая;
    Элементы.КомпоновщикНастроекПользовательскиеНастройки.ОтображатьЗаголовок = истина;
КонецПроцедуры
Показать


https://geniy1s.ru/kak-skryvat-nastrojki-v-tipovom-otchete-bsp/
+ – Ответить
Оставьте свое сообщение

Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот