117
| НомерСтроки,
| Товары,
| Количество,
| выдано,
| Остатки
| )
|ИЗ
| Документ.НакладнаяПредметыКомфортаНаБорт КАК
НакладнаяПредметыКомфортаНаБорт
|ГДЕ
| НакладнаяПредметыКомфортаНаБорт.Ссылка В (&Ссылка)";
Запрос.Параметры.Вставить("Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
Шапка = Макет.ПолучитьОбласть("Шапка");
ОбластьтоаварныйСписокШапка =
Макет.ПолучитьОбласть("тоаварныйСписокШапка");
ОбластьтоаварныйСписок =
Макет.ПолучитьОбласть("тоаварныйСписок");
ТабДок.Очистить();
ВставлятьРазделительСтраниц = Ложь;
Пока Выборка.Следующий() Цикл
Если ВставлятьРазделительСтраниц Тогда
ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;
ТабДок.Вывести(ОбластьЗаголовок);
118
Шапка.Параметры.Заполнить(Выборка);
ТабДок.Вывести(Шапка, Выборка.Уровень());
ТабДок.Вывести(ОбластьтоаварныйСписокШапка);
ВыборкатоаварныйСписок = Выборка.тоаварныйСписок.Выбрать();
Пока ВыборкатоаварныйСписок.Следующий() Цикл
ОбластьтоаварныйСписок.Параметры.Заполнить(ВыборкатоаварныйСпис
ок);
ТабДок.Вывести(ОбластьтоаварныйСписок,
ВыборкатоаварныйСписок.Уровень());
КонецЦикла;
ВставлятьРазделительСтраниц = Истина;
КонецЦикла;
//}}
КонецПроцедуры
Коды для подсчётов:
1. Модули по итоговое количество человек на борту самолета.
&НаКлиенте
Процедура
СамолетыНаУборкуИКомплитациюколичествоВБизносКлассеПриИзменении(Э
лемент)
Стр=Элементы.СамолетыНаУборкуИКомплитацию.ТекущиеДанные;
Стр.КолличествоПасажиров=Стр.количествоВэкономеКлассе+Стр.количествоВ
БизносКлассе;
КонецПроцедуры
119
&НаКлиенте
Процедура
СамолетыНаУборкуИКомплитациюколичествоВэкономеПриИзменении(Элеме
нт)
Стр=Элементы.СамолетыНаУборкуИКомплитацию.ТекущиеДанные;
Стр.КолличествоПасажиров=Стр.количествоВэкономеКлассе+Стр.количествоВ
БизносКлассе;
КонецПроцедуры
2. Подсчет остяков по накладным
&НаКлиенте
Процедура тоаварныйСписокКоличествоПриИзменении(Элемент)
Стр=Элементы.тоаварныйСписок.ТекущиеДанные;
Стр.остатки=Стр.количество-Стр.Выдано;
КонецПроцедуры
&НаКлиенте
Процедура тоаварныйСписоквыданоПриИзменении(Элемент)
Стр=Элементы.тоаварныйСписок.ТекущиеДанные;
Стр.остатки=Стр.количество-Стр.Выдано;
КонецПроцедуры
3 Подсчет остяков по накладным
&НаКлиенте
Процедура НапиткиКоличествоПриИзменении(Элемент)
120
Стр=Элементы.Напитки.ТекущиеДанные;
Стр.остатки=Стр.количество-Стр.Выдано;
КонецПроцедуры
&НаКлиенте
Процедура НапиткивыданоПриИзменении(Элемент)
Стр=Элементы.Напитки.ТекущиеДанные;
Стр.остатки=Стр.количество-Стр.Выдано;
КонецПроцедуры
4 Подсчет остяков по накладным
&НаКлиенте
Процедура питаниеКоличествоПриИзменении(Элемент)
Стр=Элементы.питание.ТекущиеДанные;
Стр.остатки=Стр.количество-Стр.Выдано;
КонецПроцедуры
&НаКлиенте
Процедура питаниеВыданоПриИзменении(Элемент)
Стр=Элементы.питание.ТекущиеДанные;
Стр.остатки=Стр.количество-Стр.Выдано;
121
КонецПроцедуры
Команды печати:
1 Команды для печатания документов.
&НаКлиенте
Процедура ОбработкаКоманды(ПараметрКоманды,
ПараметрыВыполненияКоманды)
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
ТабДок = Новый ТабличныйДокумент;
Печать(ТабДок, ПараметрКоманды);
ТабДок.ОтображатьСетку = Ложь;
ТабДок.Защита = Ложь;
ТабДок.ТолькоПросмотр = Ложь;
ТабДок.ОтображатьЗаголовки = Ложь;
ТабДок.Показать();
//}}
КонецПроцедуры
&НаСервере
Процедура Печать(ТабДок, ПараметрКоманды)
Документы.СписокНаУборкуИКомплектацию.Печать(ТабДок,
ПараметрКоманды);
КонецПроцедуры
2 Команды для печатания документов.
&НаКлиенте
Процедура ОбработкаКоманды(ПараметрКоманды,
ПараметрыВыполненияКоманды)
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
122
ТабДок = Новый ТабличныйДокумент;
Печать(ТабДок, ПараметрКоманды);
ТабДок.ОтображатьСетку = Ложь;
ТабДок.Защита = Ложь;
ТабДок.ТолькоПросмотр = Ложь;
ТабДок.ОтображатьЗаголовки = Ложь;
ТабДок.Показать();
//}}
КонецПроцедуры
&НаСервере
Процедура Печать(ТабДок, ПараметрКоманды)
Документы.АКТ.Печать(ТабДок, ПараметрКоманды);
КонецПроцедуры
3 Команды для печатания документов.
&НаКлиенте
Процедура ОбработкаКоманды(ПараметрКоманды,
ПараметрыВыполненияКоманды)
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
ТабДок = Новый ТабличныйДокумент;
Печать(ТабДок, ПараметрКоманды);
ТабДок.ОтображатьСетку = Ложь;
ТабДок.Защита = Ложь;
ТабДок.ТолькоПросмотр = Ложь;
ТабДок.ОтображатьЗаголовки = Ложь;
ТабДок.Показать();
//}}
123
КонецПроцедуры
&НаСервере
Процедура Печать(ТабДок, ПараметрКоманды)
Документы.ВедомостьПоОказаннымУслугам.Печать(ТабДок,
ПараметрКоманды);
КонецПроцедуры
4 Команды для печатания документов.
&НаКлиенте
Процедура ОбработкаКоманды(ПараметрКоманды,
ПараметрыВыполненияКоманды)
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
ТабДок = Новый ТабличныйДокумент;
Печать(ТабДок, ПараметрКоманды);
ТабДок.ОтображатьСетку = Ложь;
ТабДок.Защита = Ложь;
ТабДок.ТолькоПросмотр = Ложь;
ТабДок.ОтображатьЗаголовки = Ложь;
ТабДок.Показать();
//}}
КонецПроцедуры
&НаСервере
Процедура Печать(ТабДок, ПараметрКоманды)
Документы.НакладнаяПитаниеНаБорт.Печать(ТабДок,
ПараметрКоманды);
КонецПроцедуры
5 Команды для печатания документов.
124
&НаКлиенте
Процедура ОбработкаКоманды(ПараметрКоманды,
ПараметрыВыполненияКоманды)
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
ТабДок = Новый ТабличныйДокумент;
Печать(ТабДок, ПараметрКоманды);
ТабДок.ОтображатьСетку = Ложь;
ТабДок.Защита = Ложь;
ТабДок.ТолькоПросмотр = Ложь;
ТабДок.ОтображатьЗаголовки = Ложь;
ТабДок.Показать();
//}}
КонецПроцедуры
&НаСервере
Процедура Печать(ТабДок, ПараметрКоманды)
Документы.НакладнаяНапиткиНаБорт.Печать(ТабДок,
ПараметрКоманды);
КонецПроцедуры
6 Команды для печатания документов.
&НаКлиенте
Процедура ОбработкаКоманды(ПараметрКоманды,
ПараметрыВыполненияКоманды)
//{{_КОНСТРУКТОР_ПЕЧАТИ(Печать)
ТабДок = Новый ТабличныйДокумент;
Печать(ТабДок, ПараметрКоманды);
ТабДок.ОтображатьСетку = Ложь;
125
ТабДок.Защита = Ложь;
ТабДок.ТолькоПросмотр = Ложь;
ТабДок.ОтображатьЗаголовки = Ложь;
ТабДок.Показать();
//}}
КонецПроцедуры
&НаСервере
Процедура Печать(ТабДок, ПараметрКоманды)
Документы.НакладнаяПредметыКомфортаНаБорт.Печать(ТабДок,
ПараметрКоманды);
КонецПроцедуры