Всем привет и заранее извиняюсь, если плохо искал ветку где это можно обсудить

Вопрос вот в чем:
Я сделал запрос и выгрузил в субж.
потом сделал группировку типа:
);
пробежал по всем группировкам и сделал все что мне нужно, добавил колонки расчитал и вставил значения.
теперь чтобы не бегать по группировкам, мне нужно назад ее развернуть, тоесть в первоначальное состояние без группировок - это реально?
УдалитьИндекс якобы удаляет только все больше 1, а вот про 1 говорит иди нафиг основной индекс, никто не знает как решить данную задачу?

там следующее, нужна группировка товара по 0Группа (так как ABC анализ относительно конкретной группы 1 уровня делается), потом группируем так сказать по свойствам товара, чтобы высчитать к какой категории свойство относится A, B или C  в итоге все делает и вставляет колонку в тзПотомки по 2 группировке.
НО группировок 1  не одна штука и отсюда в каждой будет тзПотомки у которой проводится расчет и это все правильно.
но потом при выводе товара из справочника проверяется принадлежит какому свойству этот товар и это свойство смотрится в этой Индтаблице, однако становится затруднительно снова бегать по группировкам 1 и искать это свойство и какая там буква ему принадлежит
просто думал как то проще можно назад разворачивать
Можно конечно еще одну ТЗ делать и туда после каждой 1 группировки сливать туда сформированные группировки 2, но это гемор да и скорость страдает

ну тоесть просто плодить ТЗ
ведь их и так там 2 = количество группировок
хотелось в одной все решить

[code]
Процедура Сформировать()
     Перем РПоз,ФирмаЗ,РКолПред,РКолСлед;
     глЛогПоОтчетам();

//*******************************************************************
     // формируем текст запроса
     ТекстЗапроса = СоздатьТекстЗапросаПоТМЦ();

     // Поищем в подразделениях нужный нам склад
     спр = СоздатьОбъект("Справочник.Подразделения");
     спр.ВыбратьЭлементы();
     ABCнет=0;
     Пока спр.ПолучитьЭлемент()=1 Цикл
           Если фСклад.ВидСклада = Перечисление.ВидыСкладов.Розничный Тогда
                 склад = спр.ОсновнойСклад;
           Иначе
                 склад = спр.СкладУслуг;
           КонецЕсли;
           Если склад = фСклад Тогда
                 Подразделение = спр.ТекущийЭлемент();
                 Прервать;
           КонецЕсли;
     КонецЦикла;
     Если ПустоеЗначение(Подразделение)=1 Тогда
           //Сообщить("Странный склад!!!");
           ABCнет = 1;
     КонецЕсли;
     // Если ошибка в запросе, то выход из процедуры
     Если ABCнет = 1 Тогда
           рс = СоздатьОбъект("ODBCRecordset");
           ти = СоздатьОбъект("ИндексированнаяТаблица");
           ти2 = СоздатьОбъект("ИндексированнаяТаблица");
           рс.УстановитьТекстовыйПараметр("ДатаНачала", ДатаНачала);
           рс.УстановитьТекстовыйПараметр("ДатаКонца", ДатаКонца);
           рс.УстановитьТекстовыйПараметр("Подразделение", Подразделение);
           //рс.Отладка(1);
           рс.ВыполнитьИнструкцию(ТекстЗапроса,ти);
           Состояние("Делаем ABC Анализ по товару...");
           );
           //ти.выбратьстроку();
     
           ти.выбратьстроки();
           Пока ти.ПолучитьСтроку() =1 Цикл
                 сум=0;
                 ПрибыльИТОГ = ти.СуммаСумма-ти.СуммаСебестВнеш;
                 ти2=ти.тзПотомки;
                 ти2.выбратьстроки();
                 ти2.НоваяКолонка("Прибыль");
                 ти2.НоваяКолонка(   "Доля");
                 ти2.НоваяКолонка(   "Буква");
                 Пока ти2.ПолучитьСтроку()=1 Цикл
                       ти2.Прибыль = ти2.СуммаСумма-ти2.СуммаСебестВнеш;
                       ти2.Доля      = Окр(ти2.Прибыль/ПрибыльИТОГ*100,2);
                 КонецЦикла;
                 ти2.Сортировать("-Доля");
                 ти2.ВыбратьСтроки();
                 Пока ти2.ПолучитьСтроку() = 1 Цикл
                       сум = сум+ти2.Доля;
                       Если сум <= 80 Тогда
                             ти2.Буква = "A";
                       ИначеЕсли сум <= 90 Тогда
                             ти2.Буква = "B";
                       Иначе
                             ти2.Буква = "C";
                       КонецЕсли;
                 КонецЦикла;
                 //ти2.выбратьстроку();
           КонецЦикла;
     КонецЕсли;
//*******************************************************************

[/code]

Еще вопросы:
1) Зачем опять, в развернутом.
2) В каком виде хочешь выводить на экран.

[quote]Делай то-же самое с копией ИТЗ, сделанной до вызова Группировать.[/quote]

Примерно так:
[code]
Процедура Сформировать()
     Перем РПоз,ФирмаЗ,РКолПред,РКолСлед;
     глЛогПоОтчетам();

//*******************************************************************
     // формируем текст запроса
     ТекстЗапроса = СоздатьТекстЗапросаПоТМЦ();

     // Поищем в подразделениях нужный нам склад
     спр = СоздатьОбъект("Справочник.Подразделения");
     спр.ВыбратьЭлементы();
     ABCнет=0;
     Пока спр.ПолучитьЭлемент()=1 Цикл
           Если фСклад.ВидСклада = Перечисление.ВидыСкладов.Розничный Тогда
                 склад = спр.ОсновнойСклад;
           Иначе
                 склад = спр.СкладУслуг;
           КонецЕсли;
           Если склад = фСклад Тогда
                 Подразделение = спр.ТекущийЭлемент();
                 Прервать;
           КонецЕсли;
     КонецЦикла;
     Если ПустоеЗначение(Подразделение)=1 Тогда
           //Сообщить("Странный склад!!!");
           ABCнет = 1;
     КонецЕсли;
     // Если ошибка в запросе, то выход из процедуры
     Если ABCнет = 1 Тогда
           рс = СоздатьОбъект("ODBCRecordset");
           ти = СоздатьОбъект("ИндексированнаяТаблица");
           рс.УстановитьТекстовыйПараметр("ДатаНачала", ДатаНачала);
           рс.УстановитьТекстовыйПараметр("ДатаКонца", ДатаКонца);
           рс.УстановитьТекстовыйПараметр("Подразделение", Подразделение);
           //рс.Отладка(1);
           рс.ВыполнитьИнструкцию(ТекстЗапроса,ти);
           Состояние("Делаем ABC Анализ по товару...");
           
           //ти2 = СоздатьОбъект("ИндексированнаяТаблица");
           ти2=ти.Копия(0,0);
                 ти2.НоваяКолонка("Прибыль");
           ти2.НоваяКолонка("Доля");
           ти2.НоваяКолонка("Буква");
           
           );
           //ти.выбратьстроку();
     
           ти.выбратьстроки();
           Пока ти.ПолучитьСтроку() =1 Цикл
                 ти2.НоваяСтрока();
                 ти2.ЗаполнитьСтроку(,ти,,1);
                 
                 сум=0;
                 ПрибыльИТОГ = ти.СуммаСумма-ти.СуммаСебестВнеш;
                 ти3=ти.тзПотомки;
                 ти3.выбратьстроки();
                 
                 Пока ти3.ПолучитьСтроку()=1 Цикл
                       ти2.НоваяСтрока();
                       ти2.ЗаполнитьСтроку(,ти3,,1);
                       ти2.Прибыль = ти3.СуммаСумма-ти3.СуммаСебестВнеш;
                       ти2.Доля      = Окр(ти2.Прибыль/ПрибыльИТОГ*100,2);
                 КонецЦикла;
           КонецЦикла;

           ти2.Сортировать("-Доля");
           ти2.ВыбратьСтроки();
           Пока ти2.ПолучитьСтроку() = 1 Цикл
                 сум = сум+ти2.Доля;
                 Если сум <= 80 Тогда
                       ти2.Буква = "A";
                 ИначеЕсли сум <= 90 Тогда
                       ти2.Буква = "B";
                 Иначе
                       ти2.Буква = "C";
                 КонецЕсли;
           КонецЦикла;
           //ти2.выбратьстроку();

     КонецЕсли;
//*******************************************************************
[/code]

ну далее, тебе и так все понятно :)

pavlo писал(а) 08. Июля 2008 :: 07:54:

Смотря какие данные нужны до группировки или после.
Без полного алгоритма выборки и вывода, набросал примерно

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