Добрый день
Есть процедура экспорта остатков товаров в файл

Процедура ЗаполнитьОстаткиТовара()
       Перем Запрос, ТекстЗапроса;
        Х=СоздатьОбъект("Текст");
        Запрос = СоздатьОбъект("Запрос");
    ТекстЗапроса =
    "//{{ЗАПРОС(Заполнить)
    |Период с ДатаДок по ДатаДок;
    |Фирма = Регистр.ОстаткиТоваров.Фирма;
    |Товар = Регистр.ОстаткиТоваров.Товар;
    |Склад = Регистр.ОстаткиТоваров.Склад;
    |ОстатокТовара = Регистр.ОстаткиТоваров.ОстатокТовара;
    |Функция ОстатокТовараКонОст = КонОст(ОстатокТовара);
    |Группировка Фирма без групп;
    |Группировка Товар без групп;
    |Группировка Склад без групп;
    |"//}}ЗАПРОС
    ;
    // Если ошибка в запросе, то выход из процедуры
    Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
        Возврат;
    КонецЕсли;

    Пока Запрос.Группировка(1) = 1 Цикл
        Пока Запрос.Группировка(2) = 1 Цикл
            Пока Запрос.Группировка(3) = 1 Цикл
             СтрокасТоваром = СокрЛП(СокрЛП(Запрос.Фирма)+СокрЛП(";")+СокрЛП(Запрос.Товар.Родитель)+СокрЛП(";")+СокрЛП(Запрос.Товар)+СокрЛП(";")+СокрЛП( Запрос.Склад)+СокрЛП(";")+СокрЛП(Запрос.ОстатокТовараКонОст));
      Х.ДобавитьСтроку (СтрокасТоваром)    
            КонецЦикла;
        КонецЦикла;
    КонецЦикла;
        Х.Записать("C:\Osttov.csv");
КонецПроцедуры

Как получить не текущую подгруппу товара а основную группу товара количество уровней иерархии не известно?

К примеру остаток товара BR1501
ООО Зайцев и Ко
    Бытовая Техника
      Утюги
         Braun
            BR1501
Нужно получить стоку  
НашаФирма;ООО Зайцев и Ко;BR1501;НашСклад;3

(0) ПолноеНаименование()
Синтаксис:
ПолноеНаименование()
Назначение:
Возвращает строку, содержащую полное наименование выбранного элемента справочника со всеми вышестоящими уровнями, разделенными символом /.

Тебе нужен самый первый (уровень).

а в этих ваших семёрках допускается палка в наименовании?

(2) в 7ках функция ПолноеНаименование() как раз формирует полный путь до элемента, через палки

одно из немногого, что я помню о клюшках)))

Всё не читал, но..
Про ПолноеНаименование90 (или ПолныйКод()) еще не говорили?

А еще отладчик прекрасно показывает все внутренности обработки :)

(2) (3) Палка в другом месте. А это - слеш :)))

* ПолноеНаименование90 = ПолноеНаименование()
Шифт не работает, надо выкинуть клаву..

(7) Почистить не пробовал? Только не забудь - как кнопочки расположены :))))))

(3) хозтовары/чистящие/доставляющие вещества/клей момент - на каком уровне клей?

(7) и мышь ;)

(8) она куда-то под стол выскочила, не видно, там проводов бездна накручено :(
Ладно, в понедельник :)

Спасибо буду пробовать

(6) это у басурман слеш, у православных палка. или палица

(0) так-то рекурсию никто не отменял..

+14 и если уж решил через ПолныйХХХ работать, то хотя бы через  ПолныйКОД и то при условии уникальности этого самого кода...

(9) тебе палки лень считать?

(16) до меня не доходит, зачем вообще нужен полный путь

(17) полное наименование

(17) ну что бы наименование с палками было же

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

(20) а где ты видел, что бы я предлагал с ними работать?!

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

(21) это вопли души ;)
(22) строку с таким разделителем фиг отпарсишь

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

Сделал вот так

Поставщик =Запрос.Товар.ПолноеНаименование();
Поставщик =Лев(Поставщик,(Найти(Поставщик,"/")-1));

во. теперь переименуй группу в "чистящие/доставляющие вещества"

Процедура Сформировать()  
    Уровень=Товар.Уровень();  
    Родитель=Товар;
    Пока Уровень<>1 цикл
        Родитель=Родитель.Родитель;
        Уровень=Уровень-1;
    КонецЦикла;
    Сообщить(Родитель);
КонецПроцедуры

(27) так-то по человечески это вот так выглядит

Функция лкмВернутьРодителя(вхЭлемент)
    рез = вхЭлемент.Родитель;
    Если ПустоеЗначение(рез) = 0 Тогда
         рез = лкмВернутьРодителя(рез);      
    Иначе
         рез = вхЭлемент;
    КонецЕсли;
    
    возврат Рез;                                            
    
КонецФункции