Имя: Пароль:
1C
 
Реестр сведений "контактная информация" как руками поставить отбор на объект?
0 Shur1cIT
 
20.11.15
11:41
Что в конфигураторе отключить чтобы поле объект была доступна для выбора? (сори за ламерский вопрос некогда не сталкивался)
http://s018.radikal.ru/i517/1511/1e/3ff63758d2a2.jpg
1 mTema32
 
20.11.15
11:44
(0) Код смотри при открытии формы.
2 Shur1cIT
 
20.11.15
11:53
(1) уже посмотрел, не нашел чтото вроде "доступность = ложь"

Процедура ПриОткрытии()
    
    РегистрСведенийСписок.Отбор.Объект.Использование = Истина;
    
    ПредставлениеОбъекта = "";
    Если ТипЗнч(РегистрСведенийСписок.Отбор.Объект.Значение) = Тип("СписокЗначений") Тогда
        Если РегистрСведенийСписок.Отбор.Объект.ВидСравнения = ВидСравнения.ВСписке ИЛИ РегистрСведенийСписок.Отбор.Объект.ВидСравнения = ВидСравнения.ВСпискеПоИерархии Тогда
            ПредставлениеОбъекта = "в списке ";
        ИначеЕсли РегистрСведенийСписок.Отбор.Объект.ВидСравнения = ВидСравнения.НеВСписке ИЛИ РегистрСведенийСписок.Отбор.Объект.ВидСравнения = ВидСравнения.НеВСпискеПоИерархии Тогда
            ПредставлениеОбъекта = "не в списке ";
        КонецЕсли;
        ПредставлениеСписка = "";
        Для каждого ЭлементСписка Из РегистрСведенийСписок.Отбор.Объект.Значение Цикл
            Если Не ПустаяСтрока(ПредставлениеСписка) Тогда
                ПредставлениеСписка = ПредставлениеСписка + ", ";
            КонецЕсли;
            ПредставлениеСписка = ПредставлениеСписка + ?(НЕ ЗначениеЗаполнено(ЭлементСписка.Значение), "<...>", Строка(ЭлементСписка.Значение));
        КонецЦикла;
        ПредставлениеОбъекта = ПредставлениеОбъекта + ПредставлениеСписка;
    ИначеЕсли Справочники.ТипВсеСсылки().СодержитТип(ТипЗнч(РегистрСведенийСписок.Отбор.Объект.Значение)) Тогда
        Если НЕ ЗначениеЗаполнено(РегистрСведенийСписок.Отбор.Объект.Значение) Тогда
            ПредставлениеОбъекта = "не определен";
        Иначе
            Если РегистрСведенийСписок.Отбор.Объект.ВидСравнения = ВидСравнения.Равно Тогда
                ПредставлениеОбъекта = "";
            ИначеЕсли РегистрСведенийСписок.Отбор.Объект.ВидСравнения = ВидСравнения.НеРавно Тогда
                ПредставлениеОбъекта = "не равно ";
            КонецЕсли;
            ПредставлениеОбъекта = ПредставлениеОбъекта + Строка(РегистрСведенийСписок.Отбор.Объект.Значение);
        КонецЕсли;
    КонецЕсли;
    ЭтаФорма.Заголовок = "Контактная информация. Объект: " + ПредставлениеОбъекта;
    
КонецПроцедуры
3 Shur1cIT
 
20.11.15
12:07
может галочками сие упраляеться?
4 Мимохожий Однако
 
20.11.15
12:08
РегистрСведенийСписок.Отбор.Объект.Использование = Ложь;
Так?
5 Гёдза
 
20.11.15
12:09
По умолчанию ложь. Так же как и для ссылки. Хочешь менять пиши код
6 DexterMorgan
 
20.11.15
12:15
(0) Ну ты блин, ваще
7 DexterMorgan
 
20.11.15
12:16
некоторые вопросы, на мой взгляд, стремно постить на форум
8 Shur1cIT
 
20.11.15
12:22
(7) понимаю ,но реально не сталкивался, всегда всё открыто было.
(5) так для остльных полей ничего же не написано . при этом доступность есть?

или конструкция ниже убирает доступность?
    РегистрСведенийСписок.Отбор.Объект.Использование = Истина;
Ошибка? Это не ошибка, это системная функция.