1C Программирование и поддержка - [80] :: Прикладное программирование

вот у меня код или вот отчет http://rapidshare.de/files/24514902/MyReport.rar.html

Цитата:

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

    Если Запрос.Выполнить(ТекстЗапроса) = 0 Тогда
        Возврат;
    КонецЕсли;

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

        СуммаВсегоЗапроса=СуммаВсегоЗапроса+СуммаЗапроса;
    КонецЦикла;
    Таб.ВывестиСекцию("Итого|Главная");
    Для Индекс = 1 по СписокСкладов.РазмерСписка() Цикл
        Таб.ПрисоединитьСекцию("Итого|Склады");
    КонецЦикла;
    Таб.ПараметрыСтраницы(2,,5,5,5,5);
    Таб.ТолькоПросмотр(1);
    Таб.Показать("Сформировать", "");
КонецПроцедуры

ВыбТовары=список (выбираем по каким товарам)
СписокСкладов=список (выбираем по каким складам)
надо чтоб показывал этот отчет мне остатки по каждом складе в секцию "Товар|Склады"
мне показывает остатки во всех складах тот же остаток одного склада
как мне решить эту проблему или есть чтото подобное уже сделано стандартная

----------
... И развернутся врата ада, и силы тьмы обрушатся на землю ...

Модерирует : ShIvADeSt
ShIvADeSt (29-09-2006 09:19): продолжаем здесь http://forum.ru-board.com/topic.cgi?forum=33&topic=7403	Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105