Файл: Разработка конфигурации «Предоставление рекламных услуг» в 1С:Предприятие 8.3..pdf

Если ВставлятьРазделительСтраниц Тогда

ТабДок.ВывестиГоризонтальныйРазделительСтраниц();

КонецЕсли;

ТабДок.Вывести(ОбластьЗаголовок);

Шапка.Параметры.Заполнить(Выборка);

ТабДок.Вывести(Шапка, Выборка.Уровень());

ТабДок.Вывести(ОбластьУслугиШапка);

ВыборкаУслуги = Выборка.Услуги.Выбрать();

Пока ВыборкаУслуги.Следующий() Цикл

ОбластьУслуги.Параметры.Заполнить(ВыборкаУслуги);

ТабДок.Вывести(ОбластьУслуги, ВыборкаУслуги.Уровень());

КонецЦикла;

Подвал.Параметры.Заполнить(Выборка);

ТабДок.Вывести(Подвал);

ВставлятьРазделительСтраниц = Истина;

КонецЦикла;

//}}

КонецПроцедуры

Процедура ОбработкаЗаполнения(ДанныеЗаполнения, СтандартнаяОбработка)

//{{__КОНСТРУКТОР_ВВОД_НА_ОСНОВАНИИ

// Данный фрагмент построен конструктором.

// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!

Если ТипЗнч(ДанныеЗаполнения) = Тип("ДокументСсылка.Мероприятие") Тогда

// Заполнение шапки

Клиент = ДанныеЗаполнения.Клиент;

Сотрудник = ДанныеЗаполнения.Сотрудник;

КонецЕсли;

//}}__КОНСТРУКТОР_ВВОД_НА_ОСНОВАНИИ

КонецПроцедуры

Процедура ОбработкаПроведения(Отказ, Режим)

//{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ

// Данный фрагмент построен конструктором.

// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!

// регистр Регистр_заказов Расход

Движения.Регистр_заказов.Записывать = Истина;

Движение = Движения.Регистр_заказов.Добавить();

Движение.ВидДвижения = ВидДвиженияНакопления.Расход;

Движение.Период = Дата;

Движение.Клиент = Клиент;

Движение.Сумма = Сумма_итого;

//}}__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ

КонецПроцедуры

Процедура Печать(ТабДок, Ссылка) Экспорт

//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)

Макет = Документы.Заказ.ПолучитьМакет("Печать");

Запрос = Новый Запрос;

Запрос.Текст =

"ВЫБРАТЬ

| Заказ.Дата,

| Заказ.Дата_заказа,

| Заказ.Клиент,

| Заказ.Номер,

| Заказ.Оплачено,

| Заказ.Сотрудник,

| Заказ.Статус_выполнения,

| Заказ.Форма_оплаты,

| Заказ.Мероприятия.(

| НомерСтроки,

| Мероприятие,

| Дата_мероприятия,

| Адрес_мероприятия,

| Сумма

| )

|ИЗ

| Документ.Заказ КАК Заказ

|ГДЕ

| Заказ.Ссылка В (&Ссылка)";

Запрос.Параметры.Вставить("Ссылка", Ссылка);

Выборка = Запрос.Выполнить().Выбрать();

ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");

Шапка = Макет.ПолучитьОбласть("Шапка");

ОбластьМероприятияШапка = Макет.ПолучитьОбласть("МероприятияШапка");

ОбластьМероприятия = Макет.ПолучитьОбласть("Мероприятия");

Подвал = Макет.ПолучитьОбласть("Подвал");

ТабДок.Очистить();

ВставлятьРазделительСтраниц = Ложь;

Пока Выборка.Следующий() Цикл

Если ВставлятьРазделительСтраниц Тогда

ТабДок.ВывестиГоризонтальныйРазделительСтраниц();

КонецЕсли;

ТабДок.Вывести(ОбластьЗаголовок);

Шапка.Параметры.Заполнить(Выборка);

ТабДок.Вывести(Шапка, Выборка.Уровень());

ТабДок.Вывести(ОбластьМероприятияШапка);

ВыборкаМероприятия = Выборка.Мероприятия.Выбрать();

Пока ВыборкаМероприятия.Следующий() Цикл

ОбластьМероприятия.Параметры.Заполнить(ВыборкаМероприятия);

ТабДок.Вывести(ОбластьМероприятия, ВыборкаМероприятия.Уровень());

КонецЦикла;

Подвал.Параметры.Заполнить(Выборка);

ТабДок.Вывести(Подвал);

ВставлятьРазделительСтраниц = Истина;

КонецЦикла;

//}}

КонецПроцедуры

Процедура ОбработкаЗаполнения(ДанныеЗаполнения, СтандартнаяОбработка)

//{{__КОНСТРУКТОР_ВВОД_НА_ОСНОВАНИИ

// Данный фрагмент построен конструктором.

// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!

Если ТипЗнч(ДанныеЗаполнения) = Тип("ДокументСсылка.Заказ") Тогда

// Заполнение шапки

Клиент = ДанныеЗаполнения.Клиент;

Сотрудник = ДанныеЗаполнения.Сотрудник;

Статус_договора = ДанныеЗаполнения.Статус_выполнения;

Сумма = ДанныеЗаполнения.Сумма_итого;

Для Каждого ТекСтрокаМероприятия Из ДанныеЗаполнения.Мероприятия Цикл

НоваяСтрока = Предмет_договора.Добавить();

НоваяСтрока.Адрес = ТекСтрокаМероприятия.Адрес_мероприятия;

НоваяСтрока.Дата_мероприятия = ТекСтрокаМероприятия.Дата_мероприятия;

НоваяСтрока.Мероприятие = ТекСтрокаМероприятия.Мероприятие;

НоваяСтрока.Сумма = ТекСтрокаМероприятия.Сумма;

КонецЦикла;

КонецЕсли;

//}}__КОНСТРУКТОР_ВВОД_НА_ОСНОВАНИИ

КонецПроцедуры

Процедура ОбработкаПроведения(Отказ, Режим)

//{{__КОНСТРУКТОР_ДВИЖЕНИЙ_РЕГИСТРОВ

// Данный фрагмент построен конструктором.

// При повторном использовании конструктора, внесенные вручную изменения будут утеряны!!!

// регистр Регистр_договоров Приход

Движения.Регистр_договоров.Записывать = Истина;

Для Каждого ТекСтрокаПредмет_договора Из Предмет_договора Цикл

Движение = Движения.Регистр_договоров.Добавить();

Движение.ВидДвижения = ВидДвиженияНакопления.Приход;