[l2d808]

Добрый день.1c v7.7 Подскажите пожалуйста: как програмно определить является ли справочник подчиненным и какому справочнику.

!

Правила, п.5.

!

Правила, п.3

Сообщение отредактировал MATEVI - 06.10.12, 11:52

[alex040269]

Сообщить(Метаданные.Справочник("ТорговыеТочки").Владелец);

[l2d808]

Сообщить(Метаданные.Справочник("ТорговыеТочки").Владелец);

Значение не представляет агрегатный объект (Владелец)

Для Сч = 1 по Метаданные.Справочник() Цикл
  ТекСпр = Метаданные.Справочник(Сч).Идентификатор; 
  Спр=создатьобъект("Справочник."+ТекСпр);
  Сообщить(Метаданные.Справочник(спр).Владелец);
КонецЦикла;

[MATEVI]

Значение не представляет агрегатный объект (Владелец)

Сообщить(Метаданные.Справочник(ТекСпр).Владелец);

А вообще напишите для чего Вам это?

i

Перенес тему в программирование. Будьте внимательней!

Сообщение отредактировал MATEVI - 06.10.12, 11:52

[Cthulhu]

Процедура НукаПокажитеМнеВсехВладельцевСправочниковЩясЖе()
    Перем Сч; Для Сч=1 По Метаданные.Справочник() Цикл Если Метаданные.Справочник(Сч).Владелец.Выбран()<>0
    Тогда Сообщить("Справочник вида "+Метаданные.Справочник(Сч).Идентификатор+" подчинен Справочнику (-владельцу) вида "
    +Метаданные.Справочник(Сч).Владелец.Идентификатор,"i") КонецЕсли КонецЦикла;
КонецПроцедуры //НукаПокажитеМнеВсехВладельцевСправочниковЩясЖе

[l2d808]

Процедура НукаПокажитеМнеВсехВладельцевСправочниковЩясЖе()
    Перем Сч; Для Сч=1 По Метаданные.Справочник() Цикл Если Метаданные.Справочник(Сч).Владелец.Выбран()<>0
    Тогда Сообщить("Справочник вида "+Метаданные.Справочник(Сч).Идентификатор+" подчинен Справочнику (-владельцу) вида "
    +Метаданные.Справочник(Сч).Владелец.Идентификатор,"i") КонецЕсли КонецЦикла;
КонецПроцедуры //НукаПокажитеМнеВсехВладельцевСправочниковЩясЖе

Очень полный и исчерпывающий ответ. Я уверен. Многим он пригодится!

[Cthulhu]

Очень полный и исчерпывающий ответ. Я уверен. Многим он пригодится!

Талааадно. Вот этот, например, код - гораздо "пригодиместее" (и уж точно "полнее"):

Процедура НукаПокажитеМнеВсеСправочникиЩясЖе()
    Перем СчСпр,СпрМД,СчРекв,РеквМД,тЗнач,тСообщение;
    Сообщить(">>>>>>> Перепись населен... тьху, СПРАВОЧКИКОВ этой Конфигурации (а их тут аж "+Метаданные.Справочник()+"):","i");
    Для СчСпр=1 По Метаданные.Справочник() Цикл
        СпрМД=Метаданные.Справочник(СчСпр); тСообщение="= Справочник."+СпрМД.Идентификатор;
        тЗнач=СпрМД.Синоним; тСообщение=тСообщение+"( "+?(ПустоеЗначение(тЗнач)<>0,"без Синонима","Синоним = """+тЗнач+"""");
        тЗнач=СпрМД.Комментарий; тСообщение=тСообщение+" / "+?(ПустоеЗначение(тЗнач)<>0,"без Комментария","Комментарий = """+тЗнач+"""");
        тСообщение=тСообщение+" / Уровней="+СпрМД.КоличествоУровней+" / ";
        тЗнач=СпрМД.Владелец; Если тЗнач.Выбран()<>1 Тогда тСообщение=тСообщение+"без Владельца";
        Иначе тСообщение=тСообщение+"подчинен Справочнику (-владельцу) "+тЗнач.Идентификатор КонецЕсли; 
        тСообщение=тСообщение+" / Реквизитов="+СпрМД.Реквизит()+" ):"; Сообщить(тСообщение,".");
        Для СчРекв=1 По СпрМД.Реквизит() Цикл
            РеквМД=СпрМД.Реквизит(СчРекв); тСообщение=СимволТабуляции+"- Реквизит ";
            тЗнач=НРег(Сред(РеквМД.Использование,4)); тСообщение=тСообщение+" "+?(тЗнач="обоих","элемента+группы",тЗнач)
            +" """+РеквМД.Идентификатор+""""; Если РеквМД.Периодический<>0 Тогда
                тСообщение=тСообщение+", Периодический, изменяется"; тЗнач=?(РеквМД.РучноеИзменение<>0," вручную","");
                Если РеквМД.ИзменяетсяДокументами<>0 Тогда тЗнач=тЗнач+?(ПустоеЗначение(тЗнач)<>1," и","")+" Документами" КонецЕсли;
            КонецЕсли;
            тЗнач=РеквМД.Синоним; тСообщение=тСообщение+" ( "+?(ПустоеЗначение(тЗнач)<>0,"без Синонима","Синоним = """+тЗнач+"""");
            тЗнач=РеквМД.Комментарий; тСообщение=тСообщение+" / "+?(ПустоеЗначение(тЗнач)<>0,"без Комментария","Комментарий = """+тЗнач+"""");
            тСообщение=тСообщение+" ), Тип="""+РеквМД.Тип+"""";
            Если РеквМД.Тип="Число" Тогда
                тЗнач=РеквМД.Неотрицательный; Если тЗнач<>0 Тогда тСообщение=тСообщение+" / неотрицательный" КонецЕсли;
                тЗнач=РеквМД.РазделятьТриады; Если тЗнач<>0 Тогда тСообщение=тСообщение+" / с разделением триад" КонецЕсли;
            ИначеЕсли РеквМД.Тип="Строка" Тогда тСообщение=тСообщение+" / Длина="+?(РеквМД.Длина<>0,РеквМД.Длина,"<неограниченная>");
            ИначеЕсли РеквМД.Тип<>"Дата" Тогда тСообщение=тСообщение+" / Вид="""+РеквМД.Вид+"""" КонецЕсли;
            тСообщение=тСообщение+" / Сортировка="""+?(РеквМД.Сортировка<>0,"Да","Нет")+""""
            +" / Отбор="""+?(РеквМД.Отбор<>0,"Да","Нет")+""""; Сообщить(тСообщение,"");
        КонецЦикла;
    КонецЦикла;
КонецПроцедуры //НукаПокажитеМнеВсеСправочникиЩясЖе

Сообщение отредактировал Cthulhu - 08.10.12, 15:34