чтобы в результате запроса группы шли перед элементами можно воспользоватья упорядочиванием Упорядочить по Номенклатура.ЭтоГруппа Иерархия. а при обходе хранить последнюю созданную группу и записывать ее в реквизит Родитель создаваемых элементов. Как-то учесть элементы без групп.

примерно как на картинке

в картинке, которую я прикреплял 29 марта и дальше где-то я пояснял, что не надо удалять эту строку, где создается переменная тРодитель и почему. когда я потом писал код с рекурсией, там это предусмотрено другим образом

непонятен вопрос.

нельзя просто так взять и удалить все элементы в справочнике)

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

 

так-то пожалуйста. запросом выбрать все из справочника и в цикле ПолучитьОбъект(), Удалить()

но лучше уж пометку удаления просто ставить. а удалять уже через Стандартные - Удаление помеченных объектов.

 

может по смыслу задачи нужно увидеть, что нужный элемент уже есть и заново его не нужно создавать?

 

ну да, вот вижу "Ксати как избавиться от дублей при повторном нажатии кглпки?"

в этом же суть?

 

нужно соединять в запросе

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

условие соединения только определить. можно в какой-то реквизит нового справочника (если есть возможность эти реквизиты создавать)  записывать код из старого и по этим значениям. а может и просто условиться, что коды один в один переносим, тогда и новый реквизит не нужно создавать, а в новый код записывать код из старого справочника.

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

Денис спасибо за подсказку. Элементы стали попадать в группы, но если элемент вне группы, то он попадает в последнюю группу.

(Извините, что "насел" на Вас, но не к кому обратиться. мне 48 лет, решил заняться 1с. Год назад прошел курсы, сдал на профессионала, сидел на форуме чистова, в интернете, читал Радченко, сдал на специалиста по платформе. На работу не берут - нужен опыт ( а где его взять?), прошусь к 1Сникам - стажером(не берут, так как у вас слишком большой опыт работы. Честно скажу, что это задание мне дали как тест в одной из контор. Я уже весь интернет облазил, а с какого конца подойти не знаю. Я уже просто для себя хочу понять принцип. Вы уж не бросайте "старика"))).
и как избавиться от дублей))?

    Запрос = Новый Запрос;
    Запрос.Текст =
    "ВЫБРАТЬ РАЗЛИЧНЫЕ
    |  Номенклатура.Ссылка,
    |  Номенклатура.Родитель,
    |  Номенклатура.ЭтоГруппа КАК ЭтоГруппа,
    |  Номенклатура.Наименование КАК Наименование,
    |  Номенклатура.Фамилия,
    |  Номенклатура.Имя,
    |  Номенклатура.ДатаРождения
    |ИЗ
    |  Справочник.Номенклатура КАК Номенклатура
    |АВТОУПОРЯДОЧИВАНИЕ";
   
    РезультатЗапроса = Запрос.Выполнить();
    //ТРодитель = Справочники.ФизЛица.ПустаяСсылка();
    //
    Выборка = РезультатЗапроса.Выбрать();
    Пока Выборка.Следующий() Цикл
       
        Если Выборка.ЭтоГруппа Тогда
           
            НоваяГруппа = Справочники.ФизЛица.СоздатьГруппу();
            НоваяГруппа.Наименование = Выборка.Наименование;
            НоваяГруппа.Записать();
        иначе
            НовыйЭлемент = Справочники.ФизЛица.СоздатьЭлемент();
           
            ТРодитель = НоваяГруппа.Ссылка;       
            ЗаполнитьЗначенияСвойств(НовыйЭлемент,Выборка);
              НовыйЭлемент.Родитель = ТРодитель;

            //НовыйЭлемент.Родитель = ?(Выборка.этоГруппа = Истина,ТРодитель,Неопределено); 

            НовыйЭлемент.Записать();
        КонецЕсли;
       
    КонецЦикла;

согласен с предыдущим оратором

 

 

&НаСервере

Процедура Команда1НаСервере()

      Запрос = Новый Запрос;

      Запрос.Текст =       "ВЫБРАТЬ
      |      Банки.Ссылка КАК Ссылка,
      |      Банки.Родитель КАК Родитель,
      |      Банки.ЭтоГруппа КАК ЭтоГруппа
      |ИЗ
      |      Справочник.Банки КАК Банки
      |ИТОГИ ПО
      |      Ссылка ИЕРАРХИЯ";

      РезультатДерево = Запрос.Выполнить().Выгрузить(ОбходРезультатаЗапроса.ПоГруппировкамСИерархией);

      Для Каждого тСтрока Из РезультатДерево.Строки Цикл
            ОбработатьСтрокуВыборки(тСтрока,Справочники.Банки.ПустаяСсылка())
      КонецЦикла;

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


&НаСервере
Процедура ОбработатьСтрокуВыборки(СтрокаВыборки, Родитель)

      Если СтрокаВыборки.Родитель<>Неопределено И СтрокаВыборки.Родитель.Ссылка = СтрокаВыборки.Ссылка Тогда
            Возврат;
      КонецЕсли;

      Если СтрокаВыборки.ЭтоГруппа Тогда

            //СоздатьНовуюГруппу
            НоваяГруппа = Справочники.Банки2.СоздатьГруппу();
            ЗаполнитьЗначенияСвойств(НоваяГруппа,СтрокаВыборки);
            НоваяГруппа.Родитель = Родитель;
            НоваяГруппа.Записать();

            тСтроки = СтрокаВыборки.Строки;

            Для Каждого тСтрока ИЗ тСтроки Цикл
                  ОбработатьСтрокуВыборки(тСтрока,НоваяГруппа);
            КонецЦикла;

      Иначе

            //Создать элемент
            НовыйЭлемент = Справочники.Банки2.СоздатьЭлемент();
            ЗаполнитьЗначенияСвойств(НовыйЭлемент,СтрокаВыборки);
            НовыйЭлемент.Родитель = Родитель;
            НовыйЭлемент.Записать();
      КонецЕсли;
КонецПроцедуры 

я вот набросал пример выгрузкой результата запроса в дерево и обхода дерева с помощью рекурсивной функции.

п.с. я удручем наличием сертификата специалист, если честно. не верю

а как? мы же не знаем насколько глубокая вложенность. или тупо три раза выбрать?

Друзья спасибо за помошь и дискуссию!

У меня оказался "простой случай", все сработало по условию "ЗначениеЗаполнено".

 

По поводу сертификатов, то это легко проверить. 1с пока не уличен в продаже сертификатов в метро.  

Своими сертификатами я не кичусь, но горжусь. Этим я показал, что мозги еще не высохли и не пропиты, и доказал, что могу достичь цели.

Но теория без практики - это просто теория. Даже у вас несколько путей решения этой задачи.

(У меня была подруга. Подходит и просит меня научить кататься на машине. Я спрашиваю:"У тебя права есть?"

- Да,уже 2 года. я глворю:"Видишь, тебе государство говорит, садись и едь". Короче стал учить и тоже был удручен.

Каждое занятие заканчивалось слезами и криками, что как только научишь, то можешь катиться на все 4 стороны. 

Через 2 недели пришлось ей ездить самой. Через 2 месяца, когда я говорил "Куда прешь?", она отвечала *Не нравиться - иди пешком*.)

Тоже самое и с ин.языком. Пока не будешь общаться не заговоришь.

Поэтому я не пока не отчаиваюсь.

Можно искать как ежик в тумане, а можно доехать на лошадке.

Так что надеюсь на вашу помошь))).

 

Ксати как избавиться от дублей при повторном нажатии кглпки?

 

ВыборкаН = Справочники.ФизЛица.Выбрать();
Пока ВыборкаН.Следующий() Цикл
Об = ВыборкаН.ПолучитьОбъект();
Об.Удалить();
КонецЦикла;

не работает