7.7 Подсчет продаж за период

Как-то у Вас все сложно, я даже боюсь разбираться. )
Есть же таблица, как Вы приводили на первой картинке. Там все есть. Только добавить пустые ячейки при формировании печатной формы.

вот смотрите,в таблице значений продажи первой позиции есть в периоде 2 и 3 (1.png), но при формировании печатной формы эти значения съезжают,будто продажи были в периодах 1 и 2 (2.png).. если я указываю группировку "Товар упорядочить по Товар.Наименование без групп все" то начинается вывод нулевых продаж с каким-то задвоением, причем коды многих позиций начинают повторяться, хотя этого быть не должно,да еще и код этой позиции не соответствует коду в справочнике (3.png)

убрал,все заработало,спасибо большое) запрос в цикле выполняется по нескольким периодам, по-другому не знаю как...

Код:

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

            Таб.ВывестиСекцию("Сформировать|Код");
            Таб.ПрисоединитьСекцию("Сформировать|Лев");
            Таб.ПрисоединитьСекцию("Сформировать|Мес");
            Кол = Количество;
            Итог = Итог+Количество;
            Номен = Номенклатура;
            Если Итог<>0 тогда
                Прирост = Окр(Кол/Итог,4);
            Иначе
                Прирост = 0;
            КонецЕсли;
        иначе
            Таб.ПрисоединитьСекцию("Сформировать|Мес");
            Кол = Количество;
            Итог = Итог+Количество;
            Если Итог<>0 тогда
                Прирост = Окр(Кол/Итог,4);
            Иначе
                Прирост = 0;
            КонецЕсли;
        КонецЕсли;
    КонецЦикла;

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

Что значит "недопечатывается"? Пустые колонки не присоединяет?

не присоединяет колонки "Весь период" и далее...причем именно в последней строке(((

Так добавьте после цикла:

Код:

Если ТЗВспом.КоличествоСтрок() > 0 Тогда
Таб.ПрисоединитьСекцию("Сформировать|Период");
                    Таб.ПрисоединитьСекцию("Сформировать|Прирост");
                    Таб.ПрисоединитьСекцию("Сформировать|Коэфф");
КонецЕсли;

да,это помогло,спасибо огромное!! Только почему так? Все строки нормально выводятся, а именно последняя не до конца...

а как мне теперь убрать все строки, где продажи за все месяца нулевые? после того,как ТЗ сформировалась, из нее надо удалить строки, где количество = 0 во всех периодах...

было бы все так просто..

Код:

Процедура Сформировать()
   
    ТЗПериод.ВыбратьСтроки();
    КолПериодов = ТЗПериод.КоличествоСтрок();

    Таб = СоздатьОбъект("Таблица");
    Таб.ИсходнаяТаблица("Сформировать");
    //Таб.ВывестиСекцию("Заголовок");
    Таб.Опции(0, 0, Таб.ВысотаТаблицы(), 0);
    Таб.ВывестиСекцию("Заголовок1");
    Таб.ВывестиСекцию("Заголовок|Код");
    Таб.ПрисоединитьСекцию("Заголовок|Лев");
   
    Для к=1 По КолПериодов Цикл
        НачДата = ТЗПериод.ПолучитьЗначение(к,"Период_С");
           КонДата  =  ТЗПериод.ПолучитьЗначение(к,"Период_По");
           Периодтек = "С "+НачДата+" по "+КонДата;
           Таб.ПрисоединитьСекцию("Заголовок|Мес");
    КонецЦикла;
      
    Таб.ПрисоединитьСекцию("Заголовок|Период");
    Таб.ПрисоединитьСекцию("Заголовок|Прирост");
    Таб.ПрисоединитьСекцию("Заголовок|Коэфф");
   
    //ТЗВспом = СоздатьОбъект("ТаблицаЗначений");
    //ТабВыгр = СоздатьОбъект("ТаблицаЗначений");
    ТабВыгр.Очистить();
  ТабВыгр.НоваяКолонка("Товар","Строка",,,"Товар",4);
   ТабВыгр.НоваяКолонка("Месяц","Число",,,"Месяц",4);
   ТабВыгр.НоваяКолонка("КоличествоСумма","Число",,,"КоличествоСумма",4);
    ТЗВспом.НоваяКолонка("Код",,,,"Код",4);
    ТЗВспом.НоваяКолонка("Товар",,,,"Товар",10);
    ТЗВспом.НоваяКолонка("Количество","Число",,,"Количество",4);
    ТЗВспом.НоваяКолонка("Период",,,,"Период",2);

   
    Для й=1 По КолПериодов Цикл
           НачДата = ТЗПериод.ПолучитьЗначение(й,"Период_С");
           КонДата = ТЗПериод.ПолучитьЗначение(й,"Период_По");
        //Перем Запрос, ТекстЗапроса, Таб;
        //Создание объекта типа Запрос 
        Запрос = СоздатьОбъект("Запрос");
        ТекстЗапроса =
        "//{{ЗАПРОС(Сформировать)
        |Период с НачДата по КонДата;
        |Обрабатывать НеПомеченныеНаУдаление;
        |Без итогов;
        |Товар = Документ.ОтчетККМ.Номенклатура.ТекущийЭлемент;
        |Код = Документ.ОтчетККМ.Номенклатура.Код;
        |Наименование = Документ.ОтчетККМ.Номенклатура.Наименование;
        |Количество = Документ.ОтчетККМ.Количество;
        |ТТ = Документ.ОтчетККМ.Склад;
        |Функция КоличествоСумма = Сумма(Количество);            
        |Группировка Товар упорядочить по Товар.Наименование без групп все;
        |Группировка Месяц;
        |Условие(Товар в СписокЭлементовМФ);
        |Условие(ТТ в ВыбТТ);
        |"//}}ЗАПРОС
        ;
        // Если ошибка в запросе, то выход из процедуры
        Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
            Возврат;
        КонецЕсли;
           
        Запрос.Выгрузить(ТабВыгр);
        ТабВыгр.ВыбратьСтроки();
        Номен="" ;
        Итог=0;
        Прирост = 0;
               
        Пока ТабВыгр.ПолучитьСтроку()=1 Цикл                 
                ТЗВспом.НоваяСтрока();
                ТЗВспом.Код           = ТабВыгр.Товар.Код;
                ТЗВспом.Товар        = ТабВыгр.Товар;
                ТЗВспом.Количество  = ТабВыгр.КоличествоСумма;
                ТЗВспом.Период       = й;
        КонецЦикла;

    КонецЦикла;

   ТЗВспом.Сортировать("Товар,Период +");
   Номен="";

 
   ТЗВспом.Выгрузить(ТЗ);
   ТЗ.Свернуть("Код,Количество","Количество")

после того,как запрос отработал необходимое количество периодов и выгрузил сначала в одну таблицу,а затем перебор в другую, нужно из последней убрать строки, где во всех трех периодах количество = 0. Решил выгрузить в еще одну таблицу и свернуть по коду и количеству,просуммировав количество, таким образом, на каждый код, где во всех периодах были нулевые продажи, останется 0, только вот у меня табличка получается как в приложенном файле... он не суммирует количество,где стоит пустое значение, хотя я при создании ТЗ для выгрузки запроса даже указал тип колонки..

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

ой блин...я то думаю,что не так было... спасибо большое всем за помощь, я все сделал)