1С Режим Конфигуратор


Дополнение - часть 14


  |Период с ДатаН по ДатаК;

  |Скл = Регистр.ОстаткиТоваров.Склад;

  |Товар = Регистр.ОстаткиТоваров.Товар;

  |Сорт = Регистр.ОстаткиТоваров.Сорт;

  |Количество = Регистр.ОстаткиТоваров.Количество;

  |ФлагДвижения = Регистр.ОстаткиТоваров.ФлагДвижения;

  |Функция КолНачОстС = НачОст(Количество);

  |Функция КолПриходК = Приход(Количество) когда(ФлагДвижения=1);

  |Функция КолПриходВ = Приход(Количество) когда(ФлагДвижения=2);

  |Функция КолРасходВ = Расход(Количество) когда(ФлагДвижения=2);

  |Функция КолРасходК = Расход(Количество) когда(ФлагДвижения=1);

  |Функция КолКонОстС = КонОст(Количество);

  |Группировка Товар упорядочить по Товар.Код;

  |Группировка Сорт;

  |Условие(Скл=Склад);";

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

    Сообщить("Запрос не выполнен");

    Возврат;

  КонецЕсли;

  Таб=СоздатьОбъект("Таблица");

  Таб.ИсходнаяТаблица("");

  Таб.ВывестиСекцию("Шапка");

  ИтНачОстС = Запрос.КолНачОстС;

  ИтПриходК = Запрос.КолПриходК;

  ИтПриходВ = Запрос.КолПриходВ;

  ИтРасходВ = Запрос.КолРасходВ;

  ИтРасходК = Запрос.КолРасходК;

  ИтКонОстС = Запрос.КолКонОстС;

  Пока Запрос.Группировка("Товар")=1 Цикл

    ТТов=Запрос.Товар;

    НачОстС = Запрос.КолНачОстС;

    ПриходК = Запрос.КолПриходК;

    ПриходВ = Запрос.КолПриходВ;

    РасходВ = Запрос.КолРасходВ;

    РасходК = Запрос.КолРасходК;

    КонОстС = Запрос.КолКонОстС;

    Если ТТов.ЭтоГруппа()=1 Тогда

      Тов=СокрЛП(ТТов.Наименование);

      Таб.ВывестиСекцию("Группа");

    Иначе

      Тов=СокрЛП(ТТов.Код)+" ("+СокрЛП(ТТов.Наименование)+")";

      НачОстС = Запрос.КолНачОстС;




- Начало -  - Назад -  - Вперед -



Книжный магазин