Показано с 1 по 1 из 1
Тема: 1C 8.2 Предприятие.
Древовидный режим
-
12.11.2013, 21:59 #1
- Регистрация
- 12.11.2013
- Сообщений
- 1
- Сказал(а) спасибо
- 0
- Поблагодарили 0 раз(а) в 0 сообщениях
1C 8.2 Предприятие.
Привет, и сразу к делу. Подруга попросила помочь с заданием на данную тему, оное заключается в том, что нужно сделать несложную конфу, в которую вбить справочники (Номенклатура, Агент, Фирма, ЕдиницыИзмерения), из них сформировать документ приход, в котором выводить итог по полю "Сумма". Ну с этим я справился, итог выводил через подвал. И еще нужно было сделать печатную форму для этого документа. Ее я сделал через макет, но как вывести итог, кроме как дописав код в создавшуюся процедуру, не пойму. Вот код:
Процедура Печать(ТабДок, Ссылка) Экспорт
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печат� �)
Макет = Документы.Приход.ПолучитьМ акет("Печать");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Приход.Дата,
| Приход.Контрагент,
| Приход.Фирма,
| Приход.Товары.(
| НомерСтроки,
| Наименование,
| ЕдиницыИзмерения,
| Количество,
| Цена,
| Сумма
| )
|ИЗ
| Документ.Приход КАК Приход
|ГДЕ
| Приход.Ссылка В (&Ссылка)";
Запрос.Параметры.Вставить(" Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать() ;
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заг� �ловок");
Шапка = Макет.ПолучитьОбласть("Шап� �а");
ОбластьТоварыШапка = Макет.ПолучитьОбласть("Тов� �рыШапка");
ОбластьТовары = Макет.ПолучитьОбласть("Тов� �ры");
Подвал = Макет.ПолучитьОбласть("Под� �ал");
ТабДок.Очистить();
ВставлятьРазделительСтран иц = Ложь;
Пока Выборка.Следующий() Цикл
Если ВставлятьРазделительСтран иц Тогда
ТабДок.ВывестиГоризонталь� �ыйРазделительСтраниц();
КонецЕсли;
ТабДок.Вывести(ОбластьЗаго ловок);
Шапка.Параметры.Заполнить(� �ыборка);
ТабДок.Вывести(Шапка, Выборка.Уровень());
ТабДок.Вывести(ОбластьТова рыШапка);
ВыборкаТовары = Выборка.Товары.Выбрать();
Пока ВыборкаТовары.Следующий() Цикл
ОбластьТовары.Параметры.За полнить(ВыборкаТовары);
ТабДок.Вывести(ОбластьТова ры, ВыборкаТовары.Уровень());
КонецЦикла;
Подвал.Параметры.Заполнить (Выборка);
ТабДок.Вывести(Подвал);
ВставлятьРазделительСтран иц = Истина;
КонецЦикла;
//}}
КонецПроцедуры
Очень прошу помочь, не думаю, что у вас займет это много времени, всем добра :drinks:
Похожие темы
-
Повторный еренос остатков из Предприятие 7.7 в предприятие 8.2
от valera_63rus в разделе 1С - Предприятие 8.0, 8.1, 8.2, 8.3Ответов: 0Последнее сообщение: 26.02.2013, 13:58
Социальные закладки