Пока Запрос.Группировка(1) = 1 Цикл
   ТаблЗнач.НоваяСтрока();
   ТаблЗнач.Идентификатор    = Запрос.Идентификатор;   // Текст
   ТаблЗнач.Номенклатура    = Запрос.Номенклатура;    // Справочник
   ТаблЗнач.Примечание    = Запрос.Примечание;      // Текст
   ТаблЗнач.Количество    = Запрос.КоличествоСумма; // Число
КонецЦикла;

Нужно сжать ТаблЗнач по количеству, если совпадают "Номенклатура" и "Примечание" но при этом сложить в строку "Идентификатор", например через разделитель ";"

цикл ептыть

или ком соединение к 8ке и в ней выполнить скд, которое вернет новую тз

(1) ну ты сказал, этож код писать САМОМУ!

Покрасивее бы сделать... :)

(4) " ... но при этом сложить в строку "Идентификатор" ... " - цикл

я чет ниче не понял...

ну пздц школоло пошло

Примечание - строка. Один символ влево-вправо и таблица не сложится. "Ваша программа не работает...За что мы платим вам аж 700 рублей в час?!"

НовТЗ = СОздатьОбъект("ТаблицаЗначений");
НовТЗ.НоваяКолонка("ПримариКей");
НовТЗ.НоваяКолонка("СтрокаИден");

Пока Запрос.Группировка(1) = 1 Цикл
   ТаблЗнач.НоваяСтрока();
   ТаблЗнач.Номенклатура     = Запрос.Номенклатура;    // Справочник
   ТаблЗнач.Примечание     = Запрос.Примечание;      // Текст
   ТаблЗнач.Количество     = Запрос.КоличествоСумма; // Число
   
   Кей = ЗначениеВСтрокуВнутр(Запрос.Номенклатура) + "@" + ЗначениеВСтрокуВнутр(Запрос.Примечание);
   Стр = 0;
   Если НовТЗ.НайтиЗначение(Кей, Стр, "ПримариКей") = 0 Тогда
       НовТЗ.НоваяСтрока();
       НовТЗ.ПримариКей = Кей;
       НовТЗ.СтрокаИден = Запрос.Идентификатор;
   Иначе
       НовТЗ.УстановитьЗначение(Стр, "Идентификатор", НовТЗ.ПолучитьЗначение(Стр, "Идентификатор") + "," + Запрос.Идентификатор);
   КонецЕсли;
КонецЦикла;

Ну и потом ТЗ.Свернуть("Номенклатура, Примечание", "Количество");

а при выводе - получаешь строку иденов из НовТЗ

+ (9) давай косарик на киви

(8) Согласен. Но разговор сейчас не об этом.

Вот так я сделал:

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

Кто хочет, может посмеяцца:)
Работает конечно... но как красивее сделать?

(9) опередил :)

(12) я еще и красивее сделал такто

(13) да-да!
эх, я точно, школота :(

(14) за цикл в цикле ссаной тряпочкой по ипальничку

(15) а че, низя?

(15) пацааан

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

взять ИндексированнуюТаблицу, Ггруппировать(), добавить колонку и заполнить из тзПотомки циклом. 9 строк.

Я бы сделал:
В запросе группировки по
Идентификатор,Номенклатура,Примечание

Потом

Пока Запрос.Группировка(1) = 1 Цикл
Пока Запрос.Группировка(2) = 1 Цикл
   ТаблЗнач.НоваяСтрока();
   ТаблЗнач.Идентификатор     = Запрос.Идентификатор;   // Текст

   ТаблЗнач.Номенклатура     = Запрос.Номенклатура;    // Справочник

Примечание="";
Колво=0;
Пока Запрос.Группировка(3) = 1 Цикл


   Примечание     = Примечание+","+СокрЛП(Запрос.Примечание);      // Текст

   Колво=Колво+ Запрос.КоличествоСумма; // Число
КонецЦикла;


   ТаблЗнач.Примечание     = Примечание;

   ТаблЗнач.Количество     = Колво;

КонецЦикла;
КонецЦикла;

(0) интересный у тебя запрос...

юзайте скд и неипите мозги честным людям

+20 Ошибся с реквизитом

Групипровать
Номенклатура,Примечание,Идентификатор

Потом

Пока Запрос.Группировка(1) = 1 Цикл
Пока Запрос.Группировка(2) = 1 Цикл
   ТаблЗнач.НоваяСтрока();
   ТаблЗнач.Примечание     = Запрос.Примечание;   // Текст


   ТаблЗнач.Номенклатура     = Запрос.Номенклатура;    // Справочник


Идентификатор="";
Колво=0;
Пока Запрос.Группировка(3) = 1 Цикл


   Идентификатор     = Идентификатор+?(ПустоеЗначение(Идентификатор)=1,"",",")+СокрЛП(Запрос.Идентификатор);      // Текст


   Колво=Колво+ Запрос.КоличествоСумма; // Число

КонецЦикла;


   ТаблЗнач.Идентификатор     = Идентификатор;

   ТаблЗнач.Количество     = Колво;

КонецЦикла;
КонецЦикла;

(23) так не получится, пробовал уже. Не любит она группировки по текстовым переменным

Err: "Длина индекса превышает максимальную длину и не может быть уменьшена."

как уже говорили, взять индексированную таблицу. Или даже две.

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

Спасибо всем! сделал как (9)

(26) давай косарик в благодарность

Примерно так:

база = СоздатьОбъект("SQLIteBase");
база.Открыть(":memory:");
база.УложитьТЗ(тз, "tab");
тз = база.НовыйЗапрос().ВыполнитьЗапрос("select Номенклатура [Номенклатура :Справочник.Номенклатура],
   |Примечание, group_concat(Идентификатор, ',') from tab group by Номенклатура, Примечание");

(28) жалко, что group_concat нет в фоксе, к примеру :(

(29)
Да, group_concat рулит, много раз уже помогал.

(27) Держи косарь )