Файл: Разработка и реализация конфигурации «Торговое предприятие» на платформе 1С: Предприятие.pdf
Добавлен: 28.06.2023
Просмотров: 64
Скачиваний: 4
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
Макет = Документы.РасходнаяНакладная.ПолучитьМакет("Печать");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| РасходнаяНакладная.Дата,
| РасходнаяНакладная.Номер,
| РасходнаяНакладная.Покупатель,
| РасходнаяНакладная.Продавец,
| РасходнаяНакладная.Товары.(
| НомерСтроки,
| Товар,
| Количество,
| Цена,
| Сумма
| )
|ИЗ
| Документ.РасходнаяНакладная КАК РасходнаяНакладная
|ГДЕ
| РасходнаяНакладная.Ссылка В (&Ссылка)";
Запрос.Параметры.Вставить("Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
Шапка = Макет.ПолучитьОбласть("Шапка");
ОбластьТоварыШапка = Макет.ПолучитьОбласть("ТоварыШапка");
ОбластьТовары = Макет.ПолучитьОбласть("Товары");
Подвал = Макет.ПолучитьОбласть("Подвал");
ТабДок.Очистить();
ВставлятьРазделительСтраниц = Ложь;
Пока Выборка.Следующий() Цикл
Если ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;
ТабДок.Вывести(ОбластьЗаголовок);
Шапка.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Шапка, Выборка.Уровень());
ТабДок.Вывести(ОбластьТоварыШапка);
ВыборкаТовары = Выборка.Товары.Выбрать();
Пока ВыборкаТовары.Следующий() Цикл
ОбластьТовары.Параметры.Заполнить(ВыборкаТовары);
ТабДок.Вывести(ОбластьТовары, ВыборкаТовары.Уровень());
КонецЦикла;
Подвал.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Подвал);
ВставлятьРазделительСтраниц = Истина;
КонецЦикла;
//}}
КонецПроцедуры
Приложение 4 «Отчет «Проданные товары»
ВЫБРАТЬ
РасходнаяНакладная.Покупатель,
РасходнаяНакладная.Товары.(
Товар,
Количество
),
РасходнаяНакладная.Ссылка КАК Документ
ИЗ
Документ.РасходнаяНакладная КАК РасходнаяНакладная
Приложение 5 «Отчет «Информация о сотрудниках»
ВЫБРАТЬ
Сотрудники.Наименование КАК ФИО,
Сотрудники.Должность,
Сотрудники.Статус КАК Статус,
Сотрудники.КонтактныйТелефон,
Сотрудники.ЭлектроннаяПочта
ИЗ
Справочник.Сотрудники КАК Сотрудники