Печать элементов справочника порциями по N штук элементов
Все доброго времени суток! Стоит задача: есть справочник (ТМЦ), в котором есть некоторое количество элементов. Необходимо из этого справочника выбрать элементы, цена которых больше 10 тыс. и вывести на печать но порциями по 10 элементов. Т.е.: Шапка документа, потом 10 выбранных элементов, Дно документа. Далее опять Шапка документа, следующих 10 элементов, Дно и т.д. У меня возникла проблема с этим алгоритмом. Помогите пожалуйста...
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
А в чем проблема сделать так?
Спр = СоздатьОбъект("Справочник.Номенклатура");
Спр.ВыбратьЭлементы();
Счетчик = 0;
Пока Спр.ПолучитьЭлемент() = 1 Цикл
Если Спр.ЭтоГруппа() = 1 Тогда Продолжить; КонецЕсли;
//тут получаем цену
Если Цена < 10000 Тогда
Продолжить;
КонецЕсли;
//конец цены
Если Счетчик % 10 = 0 Тогда
//вывести подвал
//новая страница
//вывести шапку
КонецЕсли;
// Вывести номенклатуру
Счетчик = Счетчик + 1;
КонецЦикла; Показать
В чем именно сложность?
В поиске нужной номенклатуры в справочнике или в выводе её по 10 шт на страницу?
По условию, написанном в первом сообщении, передположу что во втором.
И так. Предполагаю что нужный список уже сформирован (например в таблице значений).
В поиске нужной номенклатуры в справочнике или в выводе её по 10 шт на страницу?
По условию, написанном в первом сообщении, передположу что во втором.
И так. Предполагаю что нужный список уже сформирован (например в таблице значений).
Тз.ВыбратьСтроки();
Таб.ВывестиСекцию("шапка");
нпп=0;
Пока Тз,ПолучитьСтроку()=1 цикл
нпп=нпп+1;
Таб ВывестиСекцию("Строка");
Если нпп=10 тогда
Таб.ВывестиСекцию("Подвал");
Таб.НоваяСтраница();
Таб.ВывестиСекцию("шапка");
нпп=0;
КонецЕсли;
КонецЦикла;
Если нпп<>0 тогда
Таб.ВывестиСекцию("Подвал");
КонецЕсли; Показать
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот