Есть ТЗ
Подразделение Имя
Подр1         Сидоров
Подр2         Сидоров
Подр1         Петров
Подр3         Иванов
Подр3         Сидоров

Нужно преобразовать его так

Подразделение Имя
Подр1         Сидоров,Петров
Подр2         Сидоров
Подр3         Иванов,Сидоров

Колонка Имя - текстовое поле

[11:49:03] Marat Gimaev: Можно-ли это сделать не тупым перебором?...
[11:49:15] Marat Gimaev: Или других вариантов в 7.7 нет...

Друггих вариантов нет

"Светрка" может идти не только по одному полю.. В примере это одно поле "Подразделение"

(1) Мне тоже пока ничего не приходит в голову...

(1) Но я надеюкь на коллективный разум! А вдруг!

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

тз заполняется запросом?

(5) Нет. Это уже результат вычислений.

Можно взять 1с++ и класс, который позволяет делать запрос к тз

Вот в процессе вычислений сразу и заполняй как нужно. Только думается не очень удобно с такой таблицей будет потом работать.

Выгрузить столбец Подразделение в другую ТЗ, свернуть, добавить колонку Сотры. потом цикл по первой таблице, разнося сотров по нужным строкам во второй ТЗ

хоть десятки тысячь, должно делаться быстро

(9) Ну про перебор уже выяснили :)

(8) Да там уже все вычеслено - не хочется алгоритм править, просто еще одну колонку к отчету добавляется...

(12) без перебора никак. ИМХО

(12) Ну раз не хочется, то либо перебор, либо (7)

я бы сделал как в (9)

Индексированная таблица рассматривается?

В общем мыслей пока нету... Будем перебирать. А заказчику скажу, что это очень сложный отчет и поэтому так долго формируется... :-)

(16) А она поможет?

(16) Индексированная таблица рассматривается... Но поможет-ли она?

(17) Это выход :)

(17) + и так дорого стоит :)

да уж, лень не всегда двигатель прогресса

(19) http://1c.proclub.ru/modules/mydownloads/personal.php?cid=138&lid=4218

А индектированная таблица поможет быстро искать. Буду ее использовать.

Долго формироваться? у вас миллион сотрудников?

(25) Да сотрудников я написал для примера, там на самом деле другие параметры.

(19) Однозначно поможет

(23) Спасибо, но 1С++ не используется.

Всем оргомное спасибо за обсуждение! - пойду делать.

(28) Прости, а ИТ ты откуда возьмешь тогда?

Огромное спасибо! (опечатался) :-)

(30) он заново её напишет :-)))

(30) Не совсем понял, что ты имеешь ввиду?

делай на основе сортировки и текущего значения, примерно так

   _ТЗ.Сортировать("Контрагент,ДатаДоговора,Договор");
   ТекКонтрагентТхт = "";
   ТекКонтрагент = "";  
   
   ТекДатаДоговора = "";  
   ТекДоговор = "";    
   
   _ТЗ.ВыбратьСтроки();
   Пока  _ТЗ.ПолучитьСтроку() = 1 Цикл  
       
       Если ПустоеЗначение(_ТЗ.Дебитор) = 0 Тогда
           // есть что связывать
           Если ТекКонтрагентТхт = СокрЛП(_ТЗ.Дебитор) Тогда
               _ТЗ.Дебитор = ТекКонтрагент    
           Иначе
               //ТабДоговоров.УдалитьСтроки();
               ТекКонтрагентТхт = СокрЛП(_ТЗ.Дебитор);
               ТекКонтрагент = СвязатьКонтрагента(ТекКонтрагентТхт, Connection);
               _ТЗ.Дебитор = ТекКонтрагент;    
               Если ТекКонтрагент = "" Тогда
                   Сообщить("Не связался контрагент - " + ТекКонтрагентТхт);
                   ТабДоговоров.УдалитьСтроки();
               Иначе
                   // надо закешировать таблицу договоров  
                   ЗакешироватьДоговора(ТабДоговоров, ТекКонтрагент, 2);
               КонецЕсли;
           КонецЕсли;
       КонецЕсли;
       
       Если (ПустоеЗначение(_ТЗ.СчетФактура) = 0) и (ТекКонтрагент <> "")  Тогда
           // есть что связывать
           Если (ТекДоговор = СокрЛП(_ТЗ.СчетФактура)) и (ТекДатаДоговора = _ТЗ.ДатаСчетФактуры) Тогда
               _ТЗ.СчетФактура = ТекДоговор    
           Иначе
               ТекДоговор = СокрЛП(_ТЗ.СчетФактура);
               ТекДатаДоговора = _ТЗ.ДатаСчетФактуры;
               ТекДоговор = СвязатьДоговор(ТабДоговоров, ТекКонтрагент, ТекДоговор, ТекДатаДоговора, "Счет фактура", Connection, _ТЗ.ID, 2, ТекДатаДоговора);
               _ТЗ.СчетФактура = ТекДоговор;    
               Если ТекДоговор = "" Тогда
                   Сообщить("Не связался Договор - " + ТекДоговор + " от " +ТекДатаДоговора + " для "  + ТекКонтрагентТхт);            
               КонецЕсли;
           КонецЕсли;
       КонецЕсли;  
       
   КонецЦикла;

А-а-а, индектированную таблицу?
Ну кэш сделаю...

(26) А свернуть разве делает не проходом?
Каким образом один проход может сильно затормозить отчет?
Индексированная ТЗ НЕ ПОМОЖЕТ.
Свернуть("Подразделение,Сотрудник","")
Сортировать("Подразделение+,Сотрудник+");
ПослПодр="паыувпва";
стр="";
Выбратьстроки();
Пока получитьстроку()=1 цикл
Если Подразделение=подр тогда
  стр=стр+","+сотр;
Иначе
 //записали предыдущего
 подр=подразделение;
 стр=сотр;
конецесли;

вроде всё понятно, никаких поисков, один проход.

(36) На каждое подразделение один проход... А их может быть много.

(36) Прошу прощенья... не считался с код... Все ок!

Что-то туплю с утра...

(37) чего курим ?
Всего 1 проход на ВСЁ.

если без 1С++ то попробуй как в (9)

(40) Ага!

Всем спасибо, что-то мозг в пятницу с утра уже отключается...

http://1c.proclub.ru/modules/mydownloads/personal.php?cid=115&lid=2019
Там есть группирование по полю полям

Как я предложил NlnN (быстрых, ибо встроенный метод) на сортировку, а дальше О(N)
Как в (9) О(N*К), где К - количество подразделений (из-за найтизначение())
N -  размер свернутой таблицы.
(9) Всяко будет медленней.

ТЗ1 выгрузить в ТЗ2
ТЗ2 свернуть и сделать трёхмерной.
Перебирая ТЗ2, выбираем из ТЗ1 в ТЗ2 в колонку типа ТЗ.

(36) Не сработает если у объектов есть дубли по представлению. Тз сортируется по представлению без
учета уникального значения. Для получения уникальности желательно добавить уникальное поле например значениеВстрокуВнутр.

(47) Точно? Уверен? "*" В сортировать это что?

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

(49) По каким двум полям? У меня конечно без звездочки, ибо нигде не сказано что в ТЗ элементы справочника. Тем более врятли у вменяемой фирмы будут два разных подразделения с одним названием. Более того у меня с ошибками, так как я только показал (наметил) однопроходный алгоритм за линейное время.

А, ты наверно не умеешь написать так "Подразделение*,Подразделение+" - это имел в виду?

Или наоборот "Подразделение+,Подразделение*" - так правильней.

(50) По представлению и уникальному полю
(52) Согласен.

(50) Ну сотрудники то точно объекты. А вот их то на моей памяти могут дублировать со страшной силой. Правда легче заранее избавиться от дублей.

(51) Сейчас проверил на 25 релизе. Создал кучу дублей и заполнил по 10 значений каждого и коды для отличия.Ни 51 ни 52 не прокатывает сортирует по представлению.
Ставил звездочки и спереди и сзади с пробелами и без них. Может и чего делаю не так.
Но большое спасибо за * спасибо  вылетело из головы.
Просто в (44) вставлю для справочников сортировку по Внутреннему значению,
а затем уже для групп по представлению.

Хотя с добавлением уникального поля тоже ничего.

(55) Не понял. Сортирует как задашь. Если сначала * тогда сначала по внутреннему предствлению, если сначала +, то по алфавиту, а внутри по внутреннему представлению.

Процедура СоздатьТз()
   Тз.НоваяКолонка("Товар","Справочник.Номенклатура");
   Тз.НоваяКолонка("Код","Строка");
КонецПроцедуры // СоздатьТз

Процедура ЗаполнитьТз(Спр)
   Пока Спр.ПолучитьЭлемент()=1 Цикл
       Тз.НоваяСтрока();
       Тз.Товар=Спр.ТекущийЭлемент();
       Тз.Код=Спр.Код
   КонецЦикла;
   КонецПроцедуры
Процедура Сформировать()
   СоздатьТз();
Спр=СоздатьОбъект("Справочник.Номенклатура");
Спр.НайтиПоКоду("00000011",0);
Группа=Спр.ТекущийЭлемент();
Спр.ИспользоватьРодителя(Группа);
Для Сч=1 по 10 Цикл
   Спр.ВыбратьЭлементы();
   ЗаполнитьТз(Спр)
КонецЦикла;
КонецПроцедуры

//======================================================================
Процедура СортироватьПоПредставлению(ПоВнутр=0)
   Если ПоВнутр=1 Тогда
       Сообщить(ПоВнутр);
       Тз.Сортировать("Товар+,Товар*");//Тз.Сортировать("Товар*,Товар+");
   ИначеЕсли ПоВнутр=2 Тогда
       Тз.Сортировать("Товар*");
   Иначе
       Тз.Сортировать("Товар");
   КонецЕсли;
КонецПроцедуры // СортироватьПоПредставлению()


Тз.Сортировать("Товар+,Товар*");
Что
Тз.Сортировать("Товар*,Товар+");

Сортирует по представлению

В папке 00000011 находится куча элементов с одинаковым наименованием. (Только одно наименование)
Причем если отсортировано по внутреннему представлению, то при сортировке 2 или 0 все равно рассортировывает по своему компареру/
Явно что то добавляет, и явно не квик сорт.
Буду рад заблуждаться.

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

Для оправдания алгоритм набора данных непригодный для квик сорта

j:=count-1;
    i:=j shr 1;
    k:=i;
    l:=1;
     while (i>=0)  do
       begin
         IntAr[i]:=j;
         IntAr[count-l]:=j-1;
         inc(l);
         dec(i); dec(j,2);
       end;

(59) http://www.rsdn.ru/forum/philosophy/1153784.1.aspx

http://1c.proclub.ru/modules/mydownloads/viewcat_personal.php?uid=5702
В отчете C1InDelphi\ErtОбщегоНазначения\ТестЕрт.ert
Для функций
глСгруппироватьПоПолюСТЗБыстр(Тз,Поле)
глСгруппироватьПоПолямСТЗБыстр(Тз,Поля,Ресурсы)
Начальная сортировка учитывает типы Справочник и документ для сортировки по значению, после группирования данных тз содержащая группы сортируется по представлению.
Для последней функции параметру Ресурсы можно указать пустую строку, что бы итоги не считались.