1c v7.7 ТиС для Укр. Нужен отчет по новым позициям в справочнике номенклатура
Показывать по
10
20
40
сообщений
- 1
- 2
04.05.2009
11:05
#11
"Прайс лист это справочник из него формируется печатная форма(точнее выводится в ексель)
я сделал так
в процессе обработки справочника
Если
Запрос.Товар.ДатПост+НовТовДней>= РабочаяДата() Тогда
ТаблЧ.НоваяСтрока();
ТаблЧ.Код=Запрос.Товар.Код;
ТаблЧ.Артикул=Запрос.Товар.Артикул;
ТаблЧ.Наименование=Запрос.Товар.ПолнНаименование;
КонецЕсли;
и после цикла обработки справочника
Если ТаблЧ.КоличествоСтрок()>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;
КонецЦикла;
КонецЕсли;"
я сделал так
в процессе обработки справочника
Если
Запрос.Товар.ДатПост+НовТовДней>= РабочаяДата() Тогда
ТаблЧ.НоваяСтрока();
ТаблЧ.Код=Запрос.Товар.Код;
ТаблЧ.Артикул=Запрос.Товар.Артикул;
ТаблЧ.Наименование=Запрос.Товар.ПолнНаименование;
КонецЕсли;
и после цикла обработки справочника
Если ТаблЧ.КоличествоСтрок()>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
- 2
Читают тему
(гостей: 1)