1c v7.7 ТиС для Укр. Нужен отчет по новым позициям в справочнике номенклатура

Новая тема
Показывать по 10 20 40 сообщений
"Прайс лист это справочник из него формируется печатная форма(точнее выводится в ексель)
я сделал так
в процессе обработки справочника
Если
Запрос.Товар.ДатПост+НовТовДней>= РабочаяДата() Тогда
   

ТаблЧ.НоваяСтрока();
ТаблЧ.Код=Запрос.Товар.Код;
   ТаблЧ.Артикул=Запрос.Товар.Артикул;
ТаблЧ.Наименование=Запрос.Товар.ПолнНаименование;
КонецЕсли;

и после цикла обработки справочника

Если ТаблЧ.КоличествоСтрок()>0 Тогда
   
 
   

ТекСтрока=ТекСтрока+1;
Страница.Cells(ТекСтрока, 3).Value = "Новые товары за последние "+НовТовДней+"дней";
Страница.Cells(ТекСтрока, 3).Font.Size=25;
Страница.Cells(ТекСтрока, 3).Name="НовыеТовары";
ТекСтрока=ТекСтрока+1;
       ййй=ТаблЧ.КоличествоСтрок();

   Для Индекс=1 По ййй Цикл
      Страница.Cells(ТекСтрока, 1).Value = ТаблЧ.ПолучитьЗначение(Индекс,"Код");
Страница.Cells(ТекСтрока, 2).Value = ТаблЧ.ПолучитьЗначение(Индекс,"Артикул");
Страница.Cells(ТекСтрока, 3).Value = ТаблЧ.ПолучитьЗначение(Индекс,"Наименование");
    ТекСтрока=ТекСтрока+1;
 
КонецЦикла;
КонецЕсли;"
Читают тему
(гостей: 1)

Быстрый переход