107
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
Шапка = Макет.ПолучитьОбласть("Шапка");
ОбластьСамолетыНаУборкуИКомплитациюШапка =
Макет.ПолучитьОбласть("СамолетыНаУборкуИКомплитациюШапка");
ОбластьСамолетыНаУборкуИКомплитацию =
Макет.ПолучитьОбласть("СамолетыНаУборкуИКомплитацию");
ТабДок.Очистить();
ВставлятьРазделительСтраниц = Ложь;
Пока Выборка.Следующий() Цикл
Если ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;
ТабДок.Вывести(ОбластьЗаголовок);
Шапка.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Шапка, Выборка.Уровень());
ТабДок.Вывести(ОбластьСамолетыНаУборкуИКомплитациюШапка);
ВыборкаСамолетыНаУборкуИКомплитацию =
Выборка.СамолетыНаУборкуИКомплитацию.Выбрать();
Пока ВыборкаСамолетыНаУборкуИКомплитацию.Следующий()
Цикл
ОбластьСамолетыНаУборкуИКомплитацию.Параметры.Заполнить(Выбор
каСамолетыНаУборкуИКомплитацию);
ТабДок.Вывести(ОбластьСамолетыНаУборкуИКомплитацию,
ВыборкаСамолетыНаУборкуИКомплитацию.Уровень());
108
КонецЦикла;
ВставлятьРазделительСтраниц = Истина;
КонецЦикла;
//}}
КонецПроцедуры
2 для АКТа,
Процедура Печать(ТабДок, Ссылка) Экспорт
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
Макет = Документы.АКТ.ПолучитьМакет("Печать");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| АКТ.Авиакомпании,
| АКТ.БортвойНомер,
| АКТ.ВремяВылетаВС,
| АКТ.ВремяОкончанияРабот,
| АКТ.город,
| АКТ.датаНА,
| АКТ.номерРейса,
| АКТ.ПедставительАвиакомпании,
| АКТ.ПолнаяУборка,
| АКТ.ПредствительАОАЭРОМАР,
| АКТ.ТипВС,
| АКТ.уборкаСОборота,
| АКТ.РаботНаВС.(
| НомерСтроки,
| ВидРабот,
109
| ОтметкаОВыполненииРабот,
| Замечания,
| ПримечанияРаботПоДополнительнойЗаявке
| )
|ИЗ
| Документ.АКТ КАК АКТ
|ГДЕ
| АКТ.Ссылка В (&Ссылка)";
Запрос.Параметры.Вставить("Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
Шапка = Макет.ПолучитьОбласть("Шапка");
ОбластьРаботНаВСШапка =
Макет.ПолучитьОбласть("РаботНаВСШапка");
ОбластьРаботНаВС = Макет.ПолучитьОбласть("РаботНаВС");
Подвал = Макет.ПолучитьОбласть("Подвал");
ТабДок.Очистить();
ВставлятьРазделительСтраниц = Ложь;
Пока Выборка.Следующий() Цикл
Если ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;
ТабДок.Вывести(ОбластьЗаголовок);
Шапка.Параметры.Заполнить(Выборка);
110
ТабДок.Вывести(Шапка, Выборка.Уровень());
ТабДок.Вывести(ОбластьРаботНаВСШапка);
ВыборкаРаботНаВС = Выборка.РаботНаВС.Выбрать();
Пока ВыборкаРаботНаВС.Следующий() Цикл
ОбластьРаботНаВС.Параметры.Заполнить(ВыборкаРаботНаВС);
ТабДок.Вывести(ОбластьРаботНаВС,
ВыборкаРаботНаВС.Уровень());
КонецЦикла;
Подвал.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Подвал);
ВставлятьРазделительСтраниц = Истина;
КонецЦикла;
//}}
КонецПроцедуры
3 для «Ведомость по оказанным услугам»
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
Макет =
Документы.ВедомостьПоОказаннымУслугам.ПолучитьМакет("Печать");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ВедомостьПоОказаннымУслугам.ДатаДо,
| ВедомостьПоОказаннымУслугам.ДатаС,
| ВедомостьПоОказаннымУслугам.ВыполненныеРаботы.(
| НомерСтроки,
111
| Дата,
| авиакомпания,
| НомерРегистрационый,
| НомерРейса,
| типВС,
| комплексB,
| комплексC,
| повторныйВызов,
| уборкаПриТО,
| ДОПРАБОТЫ,
| раскладка,
| раскладкаПП,
| перегрузка
| )
|ИЗ
| Документ.ВедомостьПоОказаннымУслугам КАК
ВедомостьПоОказаннымУслугам
|ГДЕ
| ВедомостьПоОказаннымУслугам.Ссылка В (&Ссылка)";
Запрос.Параметры.Вставить("Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
Шапка = Макет.ПолучитьОбласть("Шапка");
ОбластьВыполненныеРаботыШапка =
Макет.ПолучитьОбласть("ВыполненныеРаботыШапка");
ОбластьВыполненныеРаботы =
Макет.ПолучитьОбласть("ВыполненныеРаботы");
ТабДок.Очистить();
112
ВставлятьРазделительСтраниц = Ложь;
Пока Выборка.Следующий() Цикл
Если ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;
ТабДок.Вывести(ОбластьЗаголовок);
Шапка.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Шапка, Выборка.Уровень());
ТабДок.Вывести(ОбластьВыполненныеРаботыШапка);
ВыборкаВыполненныеРаботы =
Выборка.ВыполненныеРаботы.Выбрать();
Пока ВыборкаВыполненныеРаботы.Следующий() Цикл
ОбластьВыполненныеРаботы.Параметры.Заполнить(ВыборкаВыполненн
ыеРаботы);
ТабДок.Вывести(ОбластьВыполненныеРаботы,
ВыборкаВыполненныеРаботы.Уровень());
КонецЦикла;
ВставлятьРазделительСтраниц = Истина;
КонецЦикла;
//}}
КонецПроцедуры
4. для «Накладная питание на борт»
Процедура Печать(ТабДок, Ссылка) Экспорт
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
113
Макет =
Документы.НакладнаяПитаниеНаБорт.ПолучитьМакет("Печать");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| НакладнаяПитаниеНаБорт.датаНа,
| НакладнаяПитаниеНаБорт.номерРейса,
| НакладнаяПитаниеНаБорт.питание.(
| НомерСтроки,
| Набор,
| Количество,
| Выдано,
| остатки
| )
|ИЗ
| Документ.НакладнаяПитаниеНаБорт КАК
НакладнаяПитаниеНаБорт
|ГДЕ
| НакладнаяПитаниеНаБорт.Ссылка В (&Ссылка)";
Запрос.Параметры.Вставить("Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
Шапка = Макет.ПолучитьОбласть("Шапка");
ОбластьпитаниеШапка = Макет.ПолучитьОбласть("питаниеШапка");
Областьпитание = Макет.ПолучитьОбласть("питание");
ТабДок.Очистить();
ВставлятьРазделительСтраниц = Ложь;
114
Пока Выборка.Следующий() Цикл
Если ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;
ТабДок.Вывести(ОбластьЗаголовок);
Шапка.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Шапка, Выборка.Уровень());
ТабДок.Вывести(ОбластьпитаниеШапка);
Выборкапитание = Выборка.питание.Выбрать();
Пока Выборкапитание.Следующий() Цикл
Областьпитание.Параметры.Заполнить(Выборкапитание);
ТабДок.Вывести(Областьпитание,
Выборкапитание.Уровень());
КонецЦикла;
ВставлятьРазделительСтраниц = Истина;
КонецЦикла;
//}}
КонецПроцедуры
5. для «Накладная напитки на борт»
Процедура Печать(ТабДок, Ссылка) Экспорт
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
Макет =
Документы.НакладнаяНапиткиНаБорт.ПолучитьМакет("Печать");
Запрос = Новый Запрос;
Запрос.Текст =
115
"ВЫБРАТЬ
| НакладнаяНапиткиНаБорт.датаНа,
| НакладнаяНапиткиНаБорт.НомерРейса,
| НакладнаяНапиткиНаБорт.Напитки.(
| НомерСтроки,
| Напитки,
| Количество,
| выдано,
| Остатки
| )
|ИЗ
| Документ.НакладнаяНапиткиНаБорт КАК
НакладнаяНапиткиНаБорт
|ГДЕ
| НакладнаяНапиткиНаБорт.Ссылка В (&Ссылка)";
Запрос.Параметры.Вставить("Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
Шапка = Макет.ПолучитьОбласть("Шапка");
ОбластьНапиткиШапка = Макет.ПолучитьОбласть("НапиткиШапка");
ОбластьНапитки = Макет.ПолучитьОбласть("Напитки");
ТабДок.Очистить();
ВставлятьРазделительСтраниц = Ложь;
Пока Выборка.Следующий() Цикл
Если ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;
116
ТабДок.Вывести(ОбластьЗаголовок);
Шапка.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Шапка, Выборка.Уровень());
ТабДок.Вывести(ОбластьНапиткиШапка);
ВыборкаНапитки = Выборка.Напитки.Выбрать();
Пока ВыборкаНапитки.Следующий() Цикл
ОбластьНапитки.Параметры.Заполнить(ВыборкаНапитки);
ТабДок.Вывести(ОбластьНапитки,
ВыборкаНапитки.Уровень());
КонецЦикла;
ВставлятьРазделительСтраниц = Истина;
КонецЦикла;
//}}
КонецПроцедуры
6. для «Накладная предметы комфорта на борт»
Процедура Печать(ТабДок, Ссылка) Экспорт
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
Макет =
Документы.НакладнаяПредметыКомфортаНаБорт.ПолучитьМакет("Печать");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| НакладнаяПредметыКомфортаНаБорт.ДатаНа,
| НакладнаяПредметыКомфортаНаБорт.НомерРейса,
| НакладнаяПредметыКомфортаНаБорт.тоаварныйСписок.(