Имя: Пароль:
1C
1С v8
Как убрать видимость кнопки "Вывести на основании" в в форме списка
0 MeGa_BALANCE
 
17.10.13
13:30
Пробовал В ПриОткрытии()
Форма.ЭлементыФормы.ДействияФормы.Кнопки.Подменю2 = Ложь;
и ЭтаФорма.ЭлементыФормы.ДействияФормы.Кнопки.Подменю2.Кнопки.Действие.Доступность = Ложь;
Но это не оказывает влияния на открываемую форму?
Можно конечно в самих модулях выдавать предупреждения но хочется
ограничить на уровне недоступной Кнопки.
1 MeGa_BALANCE
 
17.10.13
13:36
Что-то все переыл отладчиком не помогает
2 MeGa_BALANCE
 
17.10.13
14:13
И зачем тогда они нужны...
3 eklmn
 
гуру
17.10.13
14:17
ЗАЧЕМ?
4 Холодильник
 
17.10.13
14:23
создавай свою ком панель с шахматами и комсомолками
5 MeGa_BALANCE
 
17.10.13
14:25
Для ограничения прав в определенном наборе
6 MeGa_BALANCE
 
17.10.13
14:27
(4) нет не вариант
7 smaharbA
 
17.10.13
14:53
ЭтаФорма.ЭлементыФормы.ДействияФормы.АвтоЗаполнение==Ложь;
8 MeGa_BALANCE
 
17.10.13
15:10
(7)Оно вообще отключает заполнение командной панели
9 Loki Evil
 
17.10.13
15:12
(8) Правильно - единственный вариант это накидать такую же панель как генерится автоматически со всеми кнопками, а потом отключить ту, которая не нужна по нужным условиям.

Может форумчане знают другой вариант конечно :)
10 Fragster
 
модератор
17.10.13
15:14
а почему она не должна быть доступна?
11 vicof
 
17.10.13
15:15
(0) Ограничение прав по-другому делают
12 MeGa_BALANCE
 
17.10.13
15:20
(11) ну не нужна она чтоб не накосячили..
Ограничение Вообще по RLS работает
13 smaharbA
 
17.10.13
15:38
(8) ну и что

Процедура ДобавлениеКнопокРекурсивно(Кнопки,КнопкиКуда)
    Для Каждого Кнопка Из Кнопки Цикл
        ЭтаКнопка=КнопкиКуда.Добавить(Кнопка.Имя);
        ЗаполнитьЗначенияСвойств(ЭтаКнопка,Кнопка,,"КнопкаПоУмолчанию");
        ЭтаКнопка.Отображение=Кнопка.Отображение;
        ЭтаКнопка.Картинка=Кнопка.Картинка;
        Если Не ЗначениеЗаполнено(ЭтаКнопка.Картинка) Тогда
            Стр="Текст
            |Подсказка
            |Пояснение
            |Действие
            |Имя";
            Для Сч=1 По СтрЧислоСтрок(Стр) Цикл
                Попытка
                    ЭтаКнопка.Картинка=Вычислить("БиблиотекаКартинок."+СтрЗаменить(СтрЗаменить(Вычислить("ЭтаКнопка."+СтрПолучитьСтроку(Стр,Сч)),"&","")," ",""));
                    Сообщить(ЭтаКнопка.Текст);
                Исключение
                КонецПопытки;
            КонецЦикла;
        КонецЕсли;
        
        Если Кнопка.Кнопки=Неопределено Тогда
            Продолжить;
        КонецЕсли;
        ДобавлениеКнопокРекурсивно(Кнопка.Кнопки,ЭтаКнопка.Кнопки);
    КонецЦикла;
КонецПроцедуры
...
ДобавлениеКнопокРекурсивно(ЭтаФорма.ЭлементыФормы.ДействияФормы.Кнопки,ЭтаФорма.ЭлементыФормы.ДействияФормы.Кнопки);
ЭтаФорма.ЭлементыФормы.ДействияФормы.АвтоЗаполнение=Ложь;
14 smaharbA
 
17.10.13
15:42
Имена подкорректируй, добавь число какое нибудь или идентификатор клиента
15 MeGa_BALANCE
 
17.10.13
15:44
(13) Спасибо как раз то что надо.