туплю. нужно пределить самый старший уровень у элемента в справочнике

Уровень самого верхнего родителя?

да

Что такое "старший уровень"?

(2) 1

Искать родителей

род=ТекущийЭлемент();
Пока род.Родитель.Выбран()=1 цикл
 Род=Род.Родитель;
КонецЦикла;
сообщить(Род.Наименование);

Я в шоке.

у родителя искать родителя?

во блин, отвечают, быстрее, чем вопрос задается :)))

(6) Скучно ..., пОшло ...

Ясно
(7) а ты по-моему постоянно в шоке или в ахтунге, уж не знаю

(6) Давай решение в одну строчку ...

В запросе?

Что поделаешь. Тупые 1Сники даже это написать не в состоянии...
(12) Только ежели нет в названии разделителей. Через ПолноеНаименование() - но это не сам элемент!!! Это его наименование. А чтоб его найти - нужна уникальность - либо кода, либо наименования, с отсутствием, как я уже сказал в наименовании разделителей...

(11)Что поделаешь. Тупые 1Сники задают такие вопросы. от которых можно впасть только в шок...

(15)следи за собой, будь осторожен

(14) Учись:
ВерхнийРодитель=ЗначениеИзСтрокиВнутр(Шаблон("[ЗначениеВСтрокуВнутр(Спр"+СтрЗаменить(Формат("","С"+(Спр.Уровень()-1))," ",".Родитель")+")]"));

(17) Въехал.
Спасибо.

(17) Прикольно, но по моему цикл будет быстрее. Надо проверить :-)

(19) часто так и бывает красивый и краткий код работает на порядок тупого в лоб написанного.

(17) мдя круто,
за СтрЗаменить(Формат("","С"+(Спр.Уровень()-1))," ",".Родитель")+")]") , спасибо надо запомнить :)

(17)Вай как харашо.....

(17) Бог программирования с нами :)) ура

А как получить полное дерево? :)

(24) Тут много таких ..., но самые полные, по-моему, это СаШка и Алекс_Парен ...

забыл про блондина... точнее полосатого блондина

Смешно... Но вопрос заключался в том, чтобы показать все дерево номенклатуры
Типа:
Бытовая химия (группа)
Порошки стиральные (группа)
Импортные (группа)
Henkel (группа)
Порошок стиральный для автомат. машин 3 кг. (товар)

(26) Ну, что ты ...
Ты уже не дерево ..., ты по уровню уже давно где-то среди высших приматов ...

(27) Одной строчкой?

(29) Необязательно, просто наилучшее решение.

(28)это расценивать как поощрение

(30) Скучное и пОшлое?

Через полный код попробуй

(32) А ты это сам додумался или вместе с кем ? И долго думали
Супер !
Этож надо так мысль завернуть ...
Яб решил типовым ... и даже не задумался что можно в одну строчку
ЗначениеИзСтрокиВнутр(Шаблон("[ЗначениеВСтрокуВнутр(Спр"+СтрЗаменить(Формат("","С"+(Спр.Уровень()-1))," ",".Родитель")+")]"));

(34) + Аплодисменты

(33) Я знаю, как решить через полный код...

(33,36) Так делают чайники ...

(37) ответь на (34)

(37) А как делают не чайники?

Процедура получитьРодителя(род)
Если род.Родитель.Выбран()=1 тогда
    получитьРодителя(род.родитель);
КонецЕсли;
сообщить(род.наименование);
КонецПроцедуры
ПолучитьРодителя(спр.ТекущийЭлемент());

(38) Я даже и не думал почти ...
Это решение пришло в голову почти сразу, как только решил выдумать какое-нибудь извращённое решение ...

(41) Достойно уважения !
Тут даже и говорить о таких решениях как в (40) неразумно
(40) А представь если он подумает над этим вариантом ... ;)
Вдруг напишет в одну строчку ? ;)))))))

Род=?(Эл.Уровень()=1,Эл,?(Эл.Уровень()=2,Эл.Родитель,Эл.Уровень()=3,Эл.Родитель.Родитель,)));

(43) Ну да ... тоже самое и рупор написал... (42) не забудь его добавить в книжку, кого не забыть поуважать

(43)а если не знать заранее количество родителей.

(45) максимум 10

(46) Спорнём смогу сделать 20? ...

(45) Вот в этом то и суть всей мысли  Рупор абсурда, он не упирается в этот критерий
(43) Это решение  равно по силе простому перебору

(47) документировано вроде не больше 10 ... я не знаю как сделать 20 ... но думаю, что через дырки в 1с

можете закидать меня гнилыми помидорами, но я бы использовала код из (6, 40), не (17). Код должен быть прост и понятен тем, кто после меня будет работать с ним.

Обычно вы знаете скока уровней у конкретного справочника  :)

(49) Спорить не будешь?

(44) А ты, случаем не завидуешь ему ?

(50) забавно, но я так тоже думаю..
(51) Претензии на универсальность
(52) Нет... не спорю, в чем не уверен
(53) Чему завидовать?

(50)а что в непонятного и сложного в (17)

(51)а завтра я решу изменить количества уровней справочника, или не я, а кто-то вместо меня ;))

Мне решение в (43) нравится!

Кстати (43) Можно расширитоь до упора

(50)Немного утрируя - а если после тебя будут работать дауны?

(50) Однострочные решения иногда бывают необходимы ...
Например, когда нельзя менять конфигурацию, но нужно вывести что-то на внешней печатной форме.

(55)понятно, но не наглядно
это как с обменом данными между двумя переменными. Можно написать наглядно, используя третью переменную. А можно не использовать. Но это не будет настолько просто и понятно. По крайней мере на первый взгляд.

(59)если действительно есть необходимость, то конечно

(61) Ты права, (17) я написал больше для выпендрежу ...

(62)судя по откликам народа тебя тут и так уважают :) А вообще оригинальные решения всегда всем нравятся, даже если ими и не пользуются.

(60)не знаю... но всегда стараюсь максимально упростить код

Могу заметить одно. Я предпочту Серегин, а не Лешкин, вариант. Ибо для дальнейшего сопровождения не только автором, но и другими специалистами, Серегин вариант предпочтительней на порядок.

(65)Сереги вариант можно было победить и без рекруссии

(66) А где в первом варианте рекурсия?...

(67)сорри ... я не сначала ветку смотрел... а открываю только последнии двадцать...

(66) Тогда со стеком.
Без стека и рекурсии - 40 не делается. Ну, только ежели собирать строку...

род=ТекущийЭлемент();
стр=сокрлп(род.наименование);
Пока род.Родитель.Выбран()=1 цикл
 Род=Род.Родитель;
 стр=сокрлп(Род.Наименование)+разделительСтрок+стр;
КонецЦикла;
сообщить(стр);

2(69) А не проще стрЗаменить( ПолноеНаименование, "/", РазделительСтрок) ?

(69)почему... вариант в 6... работает

(70) А ежели "/" в наименовании?

(65) А если поставлю тебе задачу я?

2(72) тады лажа.
вот ведь, с пробелами гимор, со слешами лажа ..

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

Процедура Сформировать()
Товар = СоздатьОбъект("Справочник.Номенклатура");
Товар.НайтиПоКоду("00041515");
ПолныйКод = СокрЛП(Товар.ПолныйКод())+"/";
  Пока Найти(ПолныйКод, "/") <> 0 Цикл
  Код = Лев(ПолныйКод, Найти(ПолныйКод, "/") - 1);
  Товар.НайтиПоКоду(Код);
  Сообщить(Товар);
     Пока Лев(ПолныйКод, 1)<>"/" Цикл
       ПолныйКод=Сред(ПолныйКод, 2);
     КонецЦикла;
  ПолныйКод = Сред(ПолныйКод, 2);
  КонецЦикла;
КонецПроцедуры

(75) Только он неуниверсальный ..., т.е. на некоторых справочниках может и не заработать вовсе ...

+(75) В общем то я уже как то высказывался на эту тему на сайте... Если вдруг надо скопировать справочник ТМЦ в некую копию справочника, но при этом копировать только то, что есть в наличии... Тогда сначала тупо очищается полностью весь копия-справочник, затем идет запрос к регистру остатка ТМЦ и при Ост > 0 создается новый элемент в копии справочника. Причем необходимо скопировать и структуру самого справочника ТМЦ ... Следовательно, надо сначала найти и сразу же создать каталог верхнего уровня, потом второго и т.д. до самого элемента ... писалось все это под конкретную контору с конкретным трудностями в базе...

(75) Тебе нужно твёрдо усвоить, что делать так ни при каких обстоятельствах нельзя ...

(78) Почему?

(76)рискну предположить... не заработает на тех где CodeLength вернет 0... да?

(79) Чтоб не попасться ...

(81) На грабли? :) А конкретнее, вдруг заказчик наступит и на меня обидится...

(80) Да, например ...
Или на тех где отключен контроль уникальности, или на подчиненных где уникальность в пределах подчинения, или на глючных, где нарушена уникальность ...

(83) Ага... Уникальность... Вот об этом я и не подумал...

(80) Насчет вернет ПолныйКод = 0 Хм... Вложу защиту, что такой элемент вывалить в окно сообщений и послать юзверя исправлять данный баг.
Сенкс.

(83)то есть данное равенство верно Скунс = ВысшийПримат

(85)Вообщето это ДлинаКода

(85) Он не про полный код, а про нулевую длину кода ..., т.е. про справочники вообше без кода ...

Ну... C аглицким не знаком и самонадеянно решил, что это полный код, спасибо за аккуратный щелчок по высоко задранному носу...    :)

Нулевая длина... Верно, это решение его не поддержит. Значица, будем посмотреть, когда возникнет аналогичная задача, вышеописанные решения...

А уникальность в пределах подчинения легко обойти с помощью ИспользоватьРодителя.

(89) Кого?

Ну по данному решению сначала находится каталог верхнего уровня. Затем второго, и т.д. если искать по коду с флагом 1 внутри предидущего каталога...


НайтиПоКоду(<?>,);
Синтаксис:
НайтиПоКоду(<Код>,<ФлагПоиска>)
Назначение:
Найти элемент справочника по коду.
Возвращает: 1 - если действие выполнено;
0 - если действие не выполнено (элемент не найден).
Параметры:
<Код> - выражение со значением искомого кода,
<ФлагПоиска> - флаг поиска (необязателен):
 0 - поиск во всем справочнике вне зависимости от родителя;
 1 - поиск внутри установленного подчинения (родителя);

91) не понял

Мдя. Инженеры знаний. Кто третий эту ветку в БЗ добавит?...

Не пойму, с чего народ прется...
Наверное, уже стар стал. Мне почему-то нравятся наглядные и быстрые решения.
Лучше чем (6) тут, ИМХО, ничего не предумаешь.
ЗЫ. И вообще, если будет два варианта решения, одно из которых будет чуть менее производительно, но более наглядно, то я выберу его.

я тоже согласен, что (6) - понятное и лучшее и решение, и о какой производительности идет речь при 2-6 уровнях ? Это мгновения. Улучшать надо минуты, или хотя бы секунды. Я думаю, что у многих была эта "задачка" и большинство так и делают

(94) Ты я смотрю диалектики не понимаешь. Как в (6) каждый может. Ты попробуй как Рупор! Банальную задачу изъеппнуть так, что потом не все даже въехали, как это произошло, это талант надо иметь. Нужен ли такой талант? Не знаю.
Если бы я увидел такой код у подрядчика или своего подчиненного, то дал бы ему звизды. И не потому что я не понял код Рупора, а потому что я на работе, а не на разгадке шарад, когда мне приходится напрягать мосх, только для того, чтобы понять код для простейшей задачи...

Подождите добавлять, пожалуйста. Я не понял, многие наверное тоже.
Раскладываю по частям:
п1 =Формат("","С"+(Спр.Уровень()-1));
п2 =СтрЗаменить(п1," ",".Родитель");
п3 =Шаблон("[ЗначениеВСтрокуВнутр(Спр"+п2+")]");
ВерхнийРодитель=ЗначениеИзСтрокиВнутр(п3);
Форматная строка возвращает пустую строку. Зачем она нужна?

попробуй без нее

да я знаю что не работает. не врубаюсь как он наверх спрыгивает. объясните поподробнее.

100?...

101 - износ

хорошо бы в базу знаний то с объяснением? как это работает.

грубо... но это работает вот так

Пока род.Родитель.Выбран()=1 цикл
 Род=Род.Родитель;
КонецЦикла;

этот код понятен, прозрачен. Я не понял то что Рупор написал

Например, можно ли этим методом не самый старший уровень определить а просто верхний

(104) приблизительно тоже... но в одну строку )))


(105)просто верхний можно определить по атрибуту Parent...

skunk, будь человеком, объясни ЧТО формат возвращает. НЕ цитатой из СП.

(106) второй по старшинству?

начни смотреть, что вернет ЗначениеВСтрокуВнутр

(109) возврщает {"U","0","0","0","0","0",""}

ай, случайно нажал (110). И что? Это уровни справочника?

ЗначениеИзСтрокиВнутр(ЗначениеВСтрокуВнутр(МойСпавочник)) - что получишь на выходе

(112) МойСправочник. Или нет?

да... пока правильно ...

теперь, что бы МойСправочник был родителем верхнего уровня

правильно?

Нужно выбирать Родителей в цикле до конца. Все равно не понял

ну грубо весь сотальной изврат сформирует строку

что-то типа

Спр.Родитель.Родитель.Родитель ........

Идею понял. Реализацию нет. skunk, если пошло в базу знаний, неплохо бы разжевать. Вряд ли я один такой тупой. Почему у меня работает пошагово (97). Что возвращает Формат()

из меня плохой жеватель... тем более, часть фишки я сам не просекаю...

а формат в идеии ... вернет пустую строку...

Формат возвращает пустую строку. Так зачем он нужен? Хотелось бы приоткрыть истыну.

это если смотреть явно... но ведь там стоит используеться еще и шаблон

(121) Ха, вот об этом я думаю. Как тогда смотреть? Пустая строка она и есть. А без нее не работает.

не знаю... может сам Рупор захочет разжевать... но наколка тут именно с шаблоном

Я не успокоюсь, пока не пойму. Не люблю что-то не понимать. Как же технично обходят вниманием эту ветку разные другие старожилы. Только Скунку не стремно признаться (119). Респект и уважуха Скунку.

стремно когда видно... не буду говорить что )))

просто мне самому интересно узать секрет данного фокуса... сижу кручу... верчу... и не пойму, где туплю

(123) У Рупора частенько в кодах Шаблон какой-нибудь прикол делает. Шаблон() вообще классная функция. имхо в 1С две вещи которые мне очень нравятся и их нет в других языках -Шаблон() и ТЗ

(126)ТЗ ... можно реализовать...

TStringList? уже реализовано. Ближе к делу.

(128)TStringList не много не то...

(129) За это мне и нравится ТЗ. ;) а реализовывать ее зачем? Другие задачи-другие решения.

ладно уходим от темы... а то Рупор и не поймент, что от него хотели... толи реализовать ТЗ на сипе... то ли объяснить бестолковым в чем суть (верблюды) ... фишки шаблон... в данном примере

(131) Согласен. Знаешь, перед тем как поднять эту ветку, я два дня думал. И не понял в чем фишка Шаблона(). Я короче буду ее поднимать, пока кто-нибудь не признается в чем прикол (17).

(132)а я поробую у Рупора спросить... может захочет ответить

(133)Хочешь сказать, что не въехал в 17?

точнее хочу сказать не могу вкурить как он раскрутил Спр.Родитель... до нужного Родителя

Код Рупора достаточно понятен. Для меня по крайней мере. Но, см. (96)...

(136) Многоуважаемый!!! Объясните нам бестолковым. Люблю разгадывать шарады... Но сдаюсь. имхо: Рупор-извращенец от 1С

Сперва накидал форматом столько пробелов сколько уровне, Стр заменить заменила пробелы на ".Родитель". Шпблон позволил расчитать строку динамически, но он возвращает строку, а нужен был объект. Поэтому Рупор вернул внутреннее представление (как строка), а потом из внутреннего представления получил объект.
Вот как он до этого додумался - это да.... Согласен - см 96

Снимаю шляпу. Но Рупор -извращенец. Ему наверное защиту конфы не нужно делать - все равно такой код понять не каждому.

Однажды при обсуждении защиты конфигураций Рупор брякнул - я и штатными средствами замучу код так, что фиг кто въдет. Знаешь - я ему верю :))))

я за это думал... но видать я точно примат...

message(strlen(format("", "C" + (Level() - 1)))); возвращает 0
message(strlen(format("", "C" + (CurrentItem().Level() - 1))));возвращает 0
message(strlen(strreplace(format("", "C" + (Level() - 1)), " ", ".Родитель"))); возвращает 0
message(strlen(strreplace(format("", "C" + (CurrentItem().Level() - 1)), " ", ".Родитель"))); возвращает 0

и все таки она вертиться.... ((((

(140)как ни странно ... я тоже... верю

Инженеры знаний! Добавьте (138) в страницу знаний. И (140) -на самое видное место

Опа, вот это косяк - пометил 138, а галки на все встали :(