или хотя бы тип объекта ...

Че?

Имя, Карл, Имя!

(0) Метаданные - это класс, а объект - один из многих его экземпляров.

у меня переменная в ней Значение типа ОбъектМетаданных

(4) Вот у тебя есть Метаданные.Справочники.Пользователи - какой тип ты надеешься получить? Ссылка? Объект? Менеджер?

(5) Объект

(6) найди по ссылке и получи объект

Вобще-то мне нужен тип этого объекта

(2) ему человек нужон, на конкретно, мужчина или женчина, а именно человек

ну вот мой код:


Процедура ДобавитьЭлементы(Ветка, Объект)
    
    Для каждого Элемент Из Объект Цикл
        Узлы = Ветка.ПолучитьЭлементы();
        Узел = Узлы.Добавить();
        Узел.Узел = Элемент.Имя;
        //Узел.Объект = Элемент.;
        Если Узел.ПолучитьРодителя().Узел="Табличные части" Тогда
            ДобавитьЭлементы(Узел, Элемент.Реквизиты);
        КонецЕсли;
    КонецЦикла;
    
    

КонецПроцедуры

Процедура ДобавитьВеткуРеквизиты(Дерево, Объект)
    
    Ветка = Дерево.Добавить();
    Ветка.Узел = "Реквизиты";
    ДобавитьЭлементы(Ветка,Объект.Реквизиты);
    
КонецПроцедуры

Процедура ДобавитьВеткуТЧ(Дерево, Объект)
    
    Ветка = Дерево.Добавить();
    Ветка.Узел = "Табличные части";
    ДобавитьЭлементы(Ветка,Объект.ТабличныеЧасти);

КонецПроцедуры

Процедура ДобавитьВеткуФормы(Дерево, Объект)
    
    Ветка = Дерево.Добавить();
    Ветка.Узел = "Формы";
    ДобавитьЭлементы(Ветка,Объект.Формы);
    
КонецПроцедуры

Процедура ДобавитьВеткуМакеты(Дерево, Объект)
    
    Ветка = Дерево.Добавить();
    Ветка.Узел = "Макеты";
    ДобавитьЭлементы(Ветка,Объект.Макеты);
    
КонецПроцедуры

Процедура  ЗаполнитьДерево(ИмяДокумента)
    
    Док = Метаданные.Документы[ИмяДокумента];
    Дерево = СтруктураДокумента1С.ПолучитьЭлементы();
    Дерево.Очистить();
    
    Для каждого Элемент Из Док.Реквизиты Цикл
        //Элемент
    КонецЦикла;
    
    ДобавитьВеткуРеквизиты(Дерево, Док);
    ДобавитьВеткуТЧ(Дерево, Док);
    ДобавитьВеткуФормы(Дерево, Док);
    ДобавитьВеткуМакеты(Дерево, Док);

КонецПроцедуры

В процедуре первой условие допустим по табличным частям - по названию объекта, а вдруг объект ктото так назвал к примеру и код будет неправильно работать так как у тог не будет реквизитов

(8) кури ОписаниеТипов

Если ТипЗнч(ТекОбъект) = Тип("СправочникСсылка.Номенклатура") Тогда
    ...
КонецЕсли;

(12) не курю, бросил )

(13) Я не знаю ТекОбъект

У меня в первой процедуре Элемент типа ОбъектМетаданных

(14) тогда бросай 1С - это не твое

(17) ща

(15) Так а какой именно объект тебе нужен? Помедитируй над этим. И над отличием данных и метаданных.

ну мне надо понять мой Элемент табличная часть или нет

и еще узнать ссылочного типа или нет

(12) чото я покурил но не всосал

Парадокс, метаданных в том, что получить объект по ссылке можно, а вот ссылку по объекту приходится формировать руками.
Хорошо, что хоть есть метод у объекта метаданных "ПолноеИмя".

(23) Вот я получил его
Элемент.ПолноеИмя="Документ.ПриемНаРаботу.ТабличнаяЧасть.Удержания"
Что дальше ... ?

А мне нужен тип ...

(24) Я от безысходности парсил строку, вычленял первую часть ("справочник", "документ", "перечисление"), подцеплял менеджер, из него по имени получал ссылку.
(25) А какой тип нужен из "Документ.ПриемНаРаботу.ТабличнаяЧасть.Удержания"?

Ну мне надо понять - если это табличная часть то для нее вывести реквизиты, если это ссылочный тип, то структуру этого объекта

а то, если я начинаю искать реквизиты для реквизитов то их там уже нету ... можно конечно исключениями поработать ...

но не люблю я их много использовать

родитель объекта метаданных даст коллекцию по которой можно понять тип метаменеджера по которому сравнением Если = Тогда ИначеЕсли получить объект глобального контекста который позволит вычислить чисто конкретного менеджера по имени а у него есть метод создания

(27) ПолноеИмя = <ОбъектМетаданных>.<ИмяОбъекта>.ТабличнаяЧасть.<ИмяТабличнойЧасти>
Это ни о чем не говорит? Нужно именно тип получить, не взирая на то, что тип еще нужно как-то проверить?

(30) Родитель мне известен, это Объект Вообще не понял вашего сообщения много буков и ни одной даже запятой

(32) Ну, ты первый начал

(31) Смотрите. Вот я просматриваю допустим реквизиты документа.

Вот перебираю их - Сотрудник.

Теперь мне надо перебрать реквизиты справочника "Сотрудники" Как мне теперь сослаться на объект метаданных "Сотрудники" ?

(33) ну у меня тоже бывает, да

(30) Я так понял сделать процедуру мегасравнения не универсальную это некрасиво и не правильно

(34) И натыкаешься на составной тип

(37) не понял

(37) Мне пофик составной не составной - я в рекурсии все равно уже

мне осталось в задаче всего-то перейти от реквизита к самому объекту ... помогите, люди!!!

(39) Вот ты просматриваешь допустим реквизиты документа. Вот перебираешь их - Основание составного типа. Теперь тебе надо перебрать реквизиты?

.Тип Возвращает мне "ФизическиеЛица"

(42) А почему там строка?

тип "ОписаниеТипов"

(43) не строка ОписаниеТипов

(44) Ну так ты в (0) и хотел тип

Мне из него надо объект получить как-то Метаданные.Справочники.ФизическиеЛица

(46) Концепция поменялась :)

(46) и ОписаниеТипов и тип не совсем одно и то же

(49) я про составные тебе давно говорю

то есть мне надо тип реквизита

(50) что составные?

(52) ну основание документа например

Там же не тип

(45) (52) А если в ОписаниеТипов массив типов? Например, СправочникСсылка.ФизическиеЛица, СправочникСсылка.Контрагенты, СправочникСсылка.Склады и Строка. Какой из этих объектов метаданных тебе нужен и что делать со строкой?

(55) Да мне хотя бы с простым вариантом решить

(56) тогда по типу надо объект метаданных искать

ну да, а как?

в СП же написано

(59) СП это шо?

Северная пивоварня

(55) А в описаниеТипов может всегда массив?

http://sokr.ru/СП/

(63) хаха, а если серьезно?

ЖКК знаю, СП нет

(62) ты ж в (22) уже раскурил

ИзвестныйМнеТип = "СправочникСсылка.ФизическиеЛица";
СправочникСсылка = Новый(ИзвестныйМнеТип);
ОбъектМетаданных = СправочникСсылка .Метаданные();

(34) Ну хорошо, перебираем реквизиты документа. Наткнулись на тип "СправочникСсылка.Сотрудники". Делаем:
Метаданные.НайтиПоТипу(ТекущийТип)
Получаем объект справочника Сотрудники.
Проходим по его реквизитам, натыкаемся на реквизит "ДокументПриема", находим документ приема, просматриваем его реквизиты, находим с типом "Сотрудник".
И тут начинается понимание рекурсии.

(66) удже забыл

(68) ну вот, а то СП ..

14.28 - 15.22
Рекорд

(62) >>  в описаниеТипов может всегда массив?

Вообще-то всегда.

(72) значит нормально курил

(70) а еще есть БСП... это Большая СП... ибо судя по сообщениям СП - НЁХ.
(62) В описании типов описание типов. Для получения массива нужен метод.

(68) Метаданные.НайтиПоТипу(Элемент.Тип) - не работает требует тип а у меня описаниетипов

(74) Так я в синтакс-помощнике курил! А что такое СП ???

(76) Так это он и есть!!!

(75) -> (74)

(74) Большая синтакс-помощница?

(77) Геннадий, вот ваше полотенце!

(80) шо?

(80) Надо короче: Гена, на!

(75)

Например, так:
Док = Метаданные.Документы.РеализацияТоваров;
    Для Каждого Реквием Из Док.Реквизиты Цикл
        Сообщить(Реквием.Имя);
        ТипыРеквиема = Реквием.Тип.Типы();
        Для Каждого ТипР Из ТипыРеквиема Цикл
            ПодчиненныйМета = Метаданные.НайтиПоТипу(ТипР);
            Если ПодчиненныйМета <> Неопределено Тогда
                Для Каждого ПодчиненныйРеквием Из ПодчиненныйМета.Реквизиты Цикл
                    Сообщить(Реквием.Имя + "." + ПодчиненныйРеквием.Имя);
                КонецЦикла;
            КонецЕсли;
        КонецЦикла;
    КонецЦикла;
    
    Для Каждого ТаЧасть Из Док.ТабличныеЧасти Цикл
        Для Каждого Реквием Из ТаЧасть.Реквизиты Цикл
            // Написать примерно то же самое...
        КонецЦикла;
    КонецЦикла;

Про рекурсию также стоит помнить

Вобщем у нас конец рабдня, всех с 23Ф

(83) Сообщить(Реквием.Имя);

+ к (67): Если есть описание типов

Для Каждого Тип Из ИзвестноеМнеОписаниеТипов Цикл
   ОбъектСсылка = Новый(Тип);
   ОбъектМетаданных = ОбъектСсылка.Метаданные();
КонецЦикла;

(86) Это если в описаниях только ссылки. А если будет строка/число/дата/уникальный идентификатор, то упадет с ошибкой отсутствия метода.

(87) попытка не пытка в 1С

(88) 4. Недопустимо делать проверки наличия у объекта реквизитов, методов, макетов и т.п., используя для этого исключения, т.к. это может привести к сложно диагностируемым ошибкам, а также затрудняет отладку в режиме «Останавливаться по ошибке».
Вместо перехвата исключений в этом случае рекомендуется:

    использовать механизмы работы с метаданными, чтобы явным образом проверять наличие или отсутствие реквизита (макета и т.п.);
    если различия связаны с особенностями встраивания библиотек – описывать особенности явным образом в переопределяемых модулях (см. Переопределяемые и поставляемые объекты);
    пересмотреть логику работы методов, использующих перехват исключений. Например, можно предусмотреть параметры, которые определяются в вызывающем коде и указывают нужно или нет обращаться к какому-либо методу или свойству объекта.

Использую попытки там, где они выигрывают по скорости и всем советую. В механизме остановки по ошибке давно есть фильтр. Сложно диагностируемых ошибок новых не появится, если в попытке будет строго одна операция.

(90) Очень радостно за тебя. Необходимо срочно распространить эту информацию! Расскажи, пожалуйста, подробно о своих достижениях фирме 1С и они внесут изменения в систему стандартов и методик разработки конфигураций для платформы 1С:Предприятие 8.

(91) Еще 4 года назад об этом им написал, сори что не поставил тебя в копии. Какое у тебя мыло?

(92) Странно, что за 4 года они так и не внесли изменения. Но не опускай руки, надо продолжать борьбу! Напиши еще на [email protected]

(93) Согласен странно. Ведь мое мнение очень важно для 1С. Раз ты так внимательно следишь за моими стараниями, давай свое мыло, подпишу тебя на рассылку о важных событиях, чтобы ты ничего не пропустил.

(94) [email protected]
Только подпиши на действительно важные - мне тоже очень хочется быть на острие прогресса и нести свет заблудшим душам!

(95) Отправил письмо с запросом подтверждения подписки. Там внутри можно указать флажками, на какие события ты подписываешься. Жду ответ.

Что-то нет там твоего письма. Ты точно его посылал? Попыткой-Исключением не пользовался?

Повезло теме, что здесь возник наш диалог. Теперь она будет в топах наверное месяц.
(97) Проверь в спам-фильтрах. Мои письма туда часто попадают.

(98) Нет в спаме, похоже раньше убилось - в фильтрах почтовика застряло. Это кстати объясняет, почему твое письмо в 1С не получали.
Даешь сотню!

В общем вот что получилось

Перем
    Вложенность;

&НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
    
    Для Каждого Док из Метаданные.Документы цикл
        Элементы.Документ1С.СписокВыбора.Добавить(Док.Имя, Док.Синоним);
    КонецЦикла;
    
КонецПроцедуры


Процедура ДобавитьЭлементы(Ветка, Объект)
    
    Для каждого Элемент Из Объект Цикл
        Узлы = Ветка.ПолучитьЭлементы();
        Узел = Узлы.Добавить();
        Узел.Узел = Элемент.Имя;
        
        Попытка
        
            Если Узел.ПолучитьРодителя().Узел="Табличные части" Тогда
                ДобавитьЭлементы(Узел, Элемент.Реквизиты);
            Иначе
                ТипыЭлемента = Элемент.Тип.Типы();
                Для Каждого ТипЭлемента Из ТипыЭлемента Цикл
                    СвязанныйОбъект = Метаданные.НайтиПоТипу(ТипЭлемента);
                    Если СвязанныйОбъект <> Неопределено Тогда
                        ЗаполнитьВеткиДерева(Узел.ПолучитьЭлементы(), СвязанныйОбъект);
                    КонецЕсли;
                КонецЦикла;
            КонецЕсли;
        
        Исключение
        
        КонецПопытки;
    КонецЦикла;
    
    

КонецПроцедуры

Процедура ДобавитьВеткуДерева(Дерево, Узел, НазваниеУзла)
    
    Ветка = Дерево.Добавить();
    Ветка.Узел = НазваниеУзла;
    ДобавитьЭлементы(Ветка,Узел);
    
КонецПроцедуры


Процедура ЗаполнитьВеткиДерева(Дерево, Док)

    Если МаксимальнаяВложенность>0 И Вложенность>=МаксимальнаяВложенность Тогда
        Возврат;
    КонецЕсли;
    
    Вложенность=Вложенность+1;
    ДобавитьВеткуДерева(Дерево, Док.Реквизиты, "Реквизиты");
    ДобавитьВеткуДерева(Дерево, Док.ТабличныеЧасти, "Табличные части");
    ДобавитьВеткуДерева(Дерево, Док.Формы, "Формы");
    ДобавитьВеткуДерева(Дерево, Док.Макеты, "Макеты");

КонецПроцедуры


Процедура  ЗаполнитьДерево(ИмяДокумента)
    
    Вложенность=0;
    Док = Метаданные.Документы[ИмяДокумента];
    Дерево = СтруктураДокумента1С.ПолучитьЭлементы();
    Дерево.Очистить();
    ЗаполнитьВеткиДерева(Дерево, Док);
    
КонецПроцедуры

&НаКлиенте
Процедура Документ1СПриИзменении(Элемент)
    ЗаполнитьДерево(Документ1С);
КонецПроцедуры

Со вложенностью то прибавил а надо бы и отнять единичку:

Процедура ЗаполнитьВеткиДерева(Дерево, Док)

    Если МаксимальнаяВложенность>0 И Вложенность>=МаксимальнаяВложенность Тогда
        Возврат;
    КонецЕсли;
    
    Вложенность=Вложенность+1;
    Попытка
        ДобавитьВеткуДерева(Дерево, Док.Реквизиты, "Реквизиты");
        ДобавитьВеткуДерева(Дерево, Док.ТабличныеЧасти, "Табличные части");
        ДобавитьВеткуДерева(Дерево, Док.Формы, "Формы");
        ДобавитьВеткуДерева(Дерево, Док.Макеты, "Макеты");
    Исключение
    КонецПопытки;
    Вложенность=Вложенность-1;

КонецПроцедуры

Прислушайся к моему совету из (90). Имею большой опыт разработки. Выполняй в попытке минимально необходимое количество операций. Это принесет тебе в разы меньше страданий, особенно внутри транзакций.

(102) Ну видимо Вы не научились грамотно обрабатывать исключения

(102) Ну если у Вас большой опыт тогда напишите код, который гарантированно уменьшит вложенность и не нанесутся страдания какие-то там о которых я не знаю при моем маленьком опыте

Или так?

Процедура ЗаполнитьВеткиДерева(Дерево, Док)

    Если МаксимальнаяВложенность>0 И Вложенность>=МаксимальнаяВложенность Тогда
        Возврат;
    КонецЕсли;
    
    Вложенность=Вложенность+1;
    Попытка
        ДобавитьВеткуДерева(Дерево, Док.Реквизиты, "Реквизиты");
        ДобавитьВеткуДерева(Дерево, Док.ТабличныеЧасти, "Табличные части");
        ДобавитьВеткуДерева(Дерево, Док.Формы, "Формы");
        ДобавитьВеткуДерева(Дерево, Док.Макеты, "Макеты");
    Исключение
                Вложенность=Вложенность-1;
                ВызватьИсключение;
    КонецПопытки;
    Вложенность=Вложенность-1;

КонецПроцедуры

Вот и поговорили